1000 ;
1010 ; PSM CURSOR
1020 ;
1030 ORG 49152
1040 ;
1050 V EQU 53248
1060 SPX EQU V
1070 SPY EQU SPX+1
1080 X9 EQU V+16
1090 ;
1100 SPALTE EQU 211
1110 ZEILE EQU 214
1120 CRSR EQU 204
1130 TMP EQU 255
1140 ;
1150 EINSPR LDA #11
1160 STA 2040
1170 LDX #63
1180 LDA #0
1190 L1 STA 704,X
1200 DEX
1210 BPL L1
1220 STX 766
1230 LDA V+21
1240 ORA #1
1250 STA V+21
1260 SEI
1270 LDA #<IRQ
1280 STA 788
1290 LDA #>IRQ
1300 STA 789
1310 CLI
1320 RTS
1330 ;
1340 ;
1350 IRQ LDA V+21
1360 LDX CRSR
1370 BNE E1
1380 ORA #1
1390 BNE E2
1400 E1 AND #254
1410 E2 STA V+21
1420 INC TMP
1430 LDA TMP
1440 LSR
1450 LSR
1460 AND #7
1470 TAX
1480 LDA COLTAB,X
1490 STA V+39
1500 LDA X9
1510 LDX SPALTE
1520 INX
1530 CPX #32
1540 BCC E3
1550 ORA #1
1560 BNE E4
1570 E3 AND #254
1580 E4 STA X9
1590 TXA
1600 ASL
1610 ASL
1620 ASL
1630 STA SPX
1640 LDA ZEILE
1650 ASL
1660 ASL
1670 ASL
1680 CLC
1690 ADC #37
1700 STA SPY
1710 STA CRSR
1720 JSR $FFEA
1730 JMP $EA61
1740 ;
1750 COLTAB DFB 1,15,12,11,0,11,12,15
1760 ;
READY.
