Difference between revisions of "Copy console GROMs for HSGPL"
Jump to navigation
Jump to search
m (Protected "HGPLNEW S" ([edit=autoconfirmed] (indefinite) [move=autoconfirmed] (indefinite))) |
m |
||
(9 intermediate revisions by the same user not shown) | |||
Line 1: | Line 1: | ||
This file is also available in [[TIFILES format]]. You can import that file to a disk image on the PC using [https://www.mizapf.de/ti99/timt TIImageTool] or on the TI using a terminal emulator program with XModem transfer (e.g. [[TELCO]]). | |||
=== Downloads === | |||
* [[media:Cpgrom.s.tfi | Source file CPGROM_S]] | |||
* Assembled [[media:Cpgrom.o.tfi | object code file CPGROM_O]], loadable and runnable by option 3 in E/A | |||
=== Listing === | |||
************************************* | ************************************* | ||
* | * | ||
* | * CPGROM: FLASHES THE HSGPL GROM | ||
* 0-2 FROM THE BACKUP | * 0-2 FROM THE BACKUP | ||
* | * | ||
Line 58: | Line 67: | ||
AI R0,256 | AI R0,256 | ||
LI R8, | LI R8,2000 | ||
WAIT DEC R8 | WAIT DEC R8 | ||
JNE WAIT | JNE WAIT |
Latest revision as of 19:39, 30 May 2019
This file is also available in TIFILES format. You can import that file to a disk image on the PC using TIImageTool or on the TI using a terminal emulator program with XModem transfer (e.g. TELCO).
Downloads
- Source file CPGROM_S
- Assembled object code file CPGROM_O, loadable and runnable by option 3 in E/A
Listing
************************************* * * CPGROM: FLASHES THE HSGPL GROM * 0-2 FROM THE BACKUP * * USES THE MODIFIED GROM0 * * MICHAEL ZAPF, JUNE 2010 * *** DEF START START LI R12,>1B00 SBO 0 SBO 9 SBO 10 CLR R0 LI R2,>2000 LI R1,>A000 BL @COPY LI R1,>C000 LI R0,>2000 BL @COPY LI R1,>E000 LI R0,>4000 BL @COPY SBZ 10 SBZ 9 SBZ 0 BLWP @>0000 COPY MOV R11,R9 MOVB R1,@>9C02 SWPB R1 MOVB R1,@>9C02 SWPB R1 MOV R2,R3 LI R6,>C000 * COPY INTO RAM LOOP MOVB @>9840,*R6+ DEC R3 JNE LOOP MOV R2,R3 LI R6,>C000 LOOP1 LI R7,256 BL @SDPEA MOVB R0,@>9C02 SWPB R0 MOVB R0,@>9C02 SWPB R0 LOOP2 MOVB *R6+,@>9C00 DEC R3 DEC R7 JNE LOOP2 AI R0,256 LI R8,2000 WAIT DEC R8 JNE WAIT MOV R3,R3 JNE LOOP1 B *R9 SDPEA MOV R11,R10 BL @CFI DATA >5555,>AA00 BL @CFI DATA >2AAA,>5500 BL @CFI DATA >5555,>A000 B *R10 * DO THE CFI DANCE! CFI MOV *R11+,R4 MOV *R11+,R5 MOVB R4,@>9C02 SWPB R4 MOVB R4,@>9C02 NOP MOVB R5,@>9C00 RT END START