1000 ;
1010 ;MAKE HIRES
1020 ;
1030 ;
1040 ORG 20000
1050 ;
1060 T1 EQU 247
1070 CNTR EQU 249
1080 HBASE EQU 251
1090 VBASE EQU 253
1100 ZBASE EQU 255
1110 ;
1120 ;
1130 ;
1140 EINSPRUNG LDA #0
1150 STA VBASE
1160 STA HBASE
1170 LDA #32
1180 STA HBASE+1
1190 LDA 56576
1200 AND #3
1210 EOR #3
1220 ASL
1230 ASL
1240 ASL
1250 ASL
1260 ASL
1270 ASL
1280 STA ZBASE
1290 STA VBASE+1
1300 ;
1310 LDA 53272
1320 AND #254
1330 PHA
1340 AND #%00001110
1350 ASL
1360 ASL
1370 ORA ZBASE
1380 STA ZBASE
1390 ;
1400 PLA
1410 AND #%11110000
1420 LSR
1430 LSR
1440 ORA VBASE+1
1450 STA VBASE+1
1460 ;
1470 ;
1480 SEI
1490 LDA #52
1500 STA 1
1510 ;
1520 LDA #0
1530 STA CNTR
1540 LDA #4
1550 STA CNTR+1
1560 ;
1570 L1 LDX #0
1580 ;
1590 STX T1+1
1600 LDA (VBASE,X)
1610 ASL
1620 ROL T1+1
1630 ASL
1640 ROL T1+1
1650 ASL
1660 ROL T1+1
1670 STA T1
1680 LDA ZBASE
1690 CLC
1700 ADC T1+1
1710 STA T1+1
1720 ;
1730 LDY #7
1740 L2 LDA (T1),Y
1750 STA (HBASE),Y
1760 DEY
1770 BPL L2
1780 ;
1790 LDA HBASE
1800 CLC
1810 ADC #8
1820 STA HBASE
1830 BCC L3
1840 INC HBASE+1
1850 ;
1860 L3 INC VBASE
1870 BNE L4
1880 INC VBASE+1
1890 ;
1900 L4 DEC CNTR
1910 BNE L1
1920 DEC CNTR+1
1930 BNE L1
1940 ;
1950 LDA #55
1960 STA 1
1970 CLI
1980 RTS
READY.
