Вот рабочая программа

1000 ; CONSOL STATUS ROUTINE
1010 ;
1020 ; ATARI EQUATES
1030 SDMCTL = $022F
1040 SDLSTL = $0230
1050 SDLSTH = $0231
1060 CONSOL = $D01F
1070 SETVBV = $E45C
1080 XITVBV = $E45F
1090 ;
1100 ; PROGRAM CONSTANTS
1110 BL1 = $00
1120 BL7 = $60
1130 BL8 = $70
1140 GR0 = $02
1150 LMS = $40
1160 JTO = $01
1170 JVB = $41
1180 ;
1190 ; Z-PAGE CELLS
1200 Z_OLDL = $C0
1210 ;
1220 .OPT LIST,OBJ
1230 ;
1240 START *= $2000
1250 JMP INIT
1260 ;
1270 DLDATA
1280 .SBYTE " Consol: /Start/ /Select/ /Option/ "
1290 ;
1300 NEW_DL
1310 .BYTE BL8,BL7
1320 .BYTE GR0+LMS
1330 .WORD DLDATA
1340 .BYTE BL1
1350 .BYTE JTO
1360 TO_OLD .WORD $00
1370 INIT
1380 LDA #$00
1390 STA SDMCTL
1400 ;
1410 LDA SDLSTL
1420 STA Z_OLDL
1430 CLC
1440 ADC #3
1450 STA TO_OLD
1460 ;
1470 LDA SDLSTH
1480 STA Z_OLDL+1
1490 STA TO_OLD+1
1500 ;
1510 LDA # <NEW_DL
1520 STA SDLSTL
1530 LDY #30
1540 STA (Z_OLDL),Y
1550 ;
1560 LDA # >NEW_DL
1570 STA SDLSTH
1580 LDY #31
1590 STA (Z_OLDL),Y
1600 ;
1610 LDA #$22
1620 STA SDMCTL
1630 ;
1640 RTS