Pokey's Magazine 18/Pokeys_Magazine_18_1992_03___nl_Side_B.atr/driver.lst

File List | 2023-02-26 | 5KB | 1 lines

0100 ;********************¢0110 ;* SIMONSOFT c1992  *¢0120 ;* 74LS164 DRIVERS  *¢0130 ;********************¢0140     .OPT NO LIST¢0150     .OPT OBJ¢0160     *=  $4000¢0170     LDA #$C0¢0180     STA $02C6¢0190     STA $02C8¢0200     JMP BEGIN¢0210 ;*********************¢0220 ;*  DE PRINT-ROUTINE *¢0230 ;*********************¢0240 PRINT PLA ¢0250     STA $CC¢0260     PLA ¢0270     STA $CD¢0280     LDX #$00¢0290 OUT INC $CC¢0300     BNE *+4¢0310     INC $CD¢0320     LDA ($CC,X)¢0330     CMP #$A1¢0340     BNE END¢0350     LDA #$9B¢0360 END CMP #$BF¢0370     BEQ RDY¢0380     JSR $F2B0¢0390     JMP OUT¢0400 RDY LDA $CD¢0410     PHA ¢0420     LDA $CC¢0430     PHA ¢0440     RTS ¢0450 ;********************¢0460 ;* SCHERM-OPBOUW    *¢0470 ;********************¢0480 BEGIN LDA #$01¢0490     STA $52¢0500     JSR $F420¢0510     LDA #$03¢0520     STA $54¢0530     JSR PRINT¢0540     .BYTE "①②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②❎  "¢0550     .BYTE "|SIMONSOFT C-1992: 74LS164 DRIVERS  |  "¢0560     .BYTE "⇧②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②⇦  "¢0570     .BYTE "|1:OS/CART/DAISY-DOT2/ETC           |  "¢0580     .BYTE "|2:POKEY MAGAZINE       (HAPPY UIT?)|  "¢0590     .BYTE "|3:DIVERSE DUMPERS                  |  "¢0600     .BYTE "|4:PRINTSHOP            (QMEG  UIT?)|  "¢0610     .BYTE "|5:NEWSROOM             (BASIC AAN?)|  "¢0620     .BYTE "⇧②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②⇦  "¢0630     .BYTE "|                                   |  "¢0640     .BYTE "|                                   |  "¢0650     .BYTE "|                                   |  "¢0660     .BYTE "⇧②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②⇦  "¢0670     .BYTE "|SYSTEEM   :                        |  "¢0680     .BYTE "|ROM-MODULE:                        |  "¢0690     .BYTE "ə②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②②⇨™"¢0700     LDA #$10¢0710     STA $54¢0720     LDA #$0D¢0730     STA $55¢0740     JSR SYSTEM¢0750     LDA #$11¢0760     STA $54¢0770     LDA #$0D¢0780     STA $55¢0790     JSR ROMMOD¢0800 ;********************¢0810 ;*  WELKE DRIVER ?  *¢0820 ;********************¢0830 TOETS JSR $F2F8¢0840 T1  CMP #$31¢0850     BNE T2¢0860     JMP JUMP1¢0870 T2  CMP #$32¢0880     BNE T3¢0890     JMP JUMP2¢0900 T3  CMP #$33¢0910     BNE T4¢0920     JMP JUMP3¢0930 T4  CMP #$34¢0940     BNE T5¢0950     JMP JUMP4¢0960 T5  CMP #$35¢0970     BNE F1¢0980     JMP JUMP5¢0990 ;********************¢1000 ;*  FOUT! GEEN 1-5  *¢1010 ;********************¢1020 F1  LDA #$0C¢1030     STA $54¢1040     LDA #$02¢1050     STA $55¢1060     JSR $F556¢1070     JSR PRINT¢1080     .BYTE "TOETS 1-5 OM TE SELECTEREN   í"¢1081     .BYTE "                             í"¢1082     .BYTE "                             ™"¢1090     JMP TOETS¢1100 ;********************¢1110 ;* DE BOOT ROUTINE  *¢1120 ;********************¢1130 BOOT LDA #$0C¢1140     STA $54¢1150     LDA #$02¢1160     STA $55¢1170     JSR $F556¢1180     JSR PRINT¢1190     .BYTE "DRIVER IS GELADEN.           í"¢1200     .BYTE "INSERT BOOT OF DOS DISKETTE  í"¢1210     .BYTE "DRUK RETURN INDIEN GEREED    ™"¢1220     JSR $F2F8¢1230     JSR $C599¢1250     LDA $CE¢1260     BEQ DOSGO¢1265     JSR $F420¢1270     JMP ($BFFA)¢1280 DOSGO LDA #$00¢1281     STA $02¢1282     LDA #$40¢1283     STA $03¢1284     JMP ($0A)¢1300 ;ALS DE DRIVER HIER KOMT,¢1310 ;DAN IS ER GEEN ZINVOL OS¢1320 ;GELADEN EN 'HANGT' JE ATARI¢1360     JMP F1¢1370 ;********************¢1380 ;* DE COPY ROUTINE  *¢1390 ;********************¢1400 COPY LDY #$00¢1410 LUS LDA ($C8),Y¢1420     STA ($CA),Y¢1430     INY ¢1440     CPY #$80¢1450     BNE LUS¢1460     RTS ¢1470 JUMP1 LDA #$00¢1480     STA $C8¢1490     LDA #$50¢1500     STA $C9¢1510     LDA #$00¢1520     STA $CA¢1530     STA $031B¢1540     LDA #$06¢1550     STA $CB¢1560     STA $031C¢1570     JSR COPY¢1580     JMP BOOT¢1590 JUMP2 LDA #$80¢1600     STA $C8¢1610     LDA #$50¢1620     STA $C9¢1630     LDA #$80¢1640     STA $CA¢1650     STA $031B¢1660     LDA #$04¢1670     STA $CB¢1680     STA $031C¢1690     JSR COPY¢1700     JMP BOOT¢1710 JUMP3 LDA #$00¢1720     STA $C8¢1730     LDA #$51¢1740     STA $C9¢1750     LDA #$00¢1760     STA $CA¢1770     STA $031B¢1780     LDA #$06¢1790     STA $CB¢1800     STA $031C¢1810     JSR COPY¢1820     JMP BOOT¢1830 JUMP4 LDA #$80¢1840     STA $C8¢1850     LDA #$51¢1860     STA $C9¢1870     LDA #$80¢1880     STA $CA¢1890     STA $031B¢1900     LDA #$04¢1910     STA $CB¢1920     STA $031C¢1930     JSR COPY¢1940     JMP BOOT¢1950 JUMP5 LDA #$00¢1960     STA $C8¢1970     LDA #$52¢1980     STA $C9¢1990     LDA #$E0¢2000     STA $CA¢2010     STA $031B¢2020     LDA #$19¢2030     STA $CB¢2040     STA $031C¢2050     JSR COPY¢2060     JMP BOOT¢2070 ;********************¢2080 ;* ROM CONTROLE     *¢2090 ;********************¢2100 ROMMOD LDA #$00¢2110     STA $CE¢2120     LDA $D301¢2130     AND #$02¢2140     BEQ CART¢2150     JSR PRINT¢2160     .BYTE "UIT.í™"¢2170     RTS ¢2180 CART LDA #$01¢2190     STA $CE¢2195     LDA $D013¢2200     BNE ROM¢2210     JSR PRINT¢2220     .BYTE "BASIC.í™"¢2230     RTS ¢2240 ROM JSR PRINT¢2250     .BYTE "CARTRIDGE.í™"¢2260     RTS ¢2270 ;********************¢2280 ;* OS CONTROLE      *¢2290 ;********************¢2300 SYSTEM LDA $C000¢2310     CMP #$D3¢2320     BNE ATARI¢2330     JSR PRINT¢2340     .BYTE "QMEG-OS.™"¢2350     RTS ¢2360 ATARI JSR PRINT¢2370     .BYTE "ATARI OF ANDER OS.™"¢2380     RTS ¢2390     .END ¢