Antic Magazine 1982 December/Antic_December_1982_Vol_1_No_5.atr/grafix2.asm

Assembly Source File | 2021-02-07 | 1KB | 1 lines

01 ; GRAPHICS 8 SCREEN LOADER ROUTINE¢02 ; FOR USE WITH LISTING #1¢03 ; TO BE ACCESSED FROM BASIC¢04 ; USING THE FOLLOWING FUNCTION¢05 ; X=USR(1536,IOCB,COMMAND,SCRADDR,BUFFLEN)¢06 ;¢07 ;¢08 ;¢09 ;¢10 IOCB *= $0340¢11 ;¢12 ICHID *= *+1¢13 ICDNO *= *+1¢14 ICCOM *= *+1¢15 ICSTA *= *+1¢16 ICBAL *= *+1¢17 ICBAH *= *+1¢18 ICPUT *= *+2¢19 ICBLL  *= *+1¢20 ICBLH  *= *+1¢21 ICAUX1 *= *+1¢22 ICAUX2 *= *+1¢23 ICAUX3 *= *+1¢24 ICAUX4 *= *+1¢25 ICAUX5 *= *+1¢26 ICAUX6 *= *+1¢27 CIOV    = $E456   CIO VECTOR¢28 ;¢29 ;¢30 ;¢31 ARGNUM = $04¢32     *=$0600¢33     PLA¢34    CMP #$00¢35  BEQ ABORT¢36  CMP #ARGNUM¢37  BEQ CONT¢38  TAY¢39 LOOP PLA¢40  PLA¢41  DEY¢42  BNE LOOP¢43 ABORT RTS¢44 CONT¢45  PLA     HI IOCB TOSS IT¢46  PLA     LO IOCB USE IT¢47  TAX     OFFSET TO IOCB¢48 ;¢49  PLA    HI BYTE COMMAND TOSS IT¢50  PLA    COMMAND !!¢51  STA ICCOM,X     DO IT¢52 ;¢53  PLA            HI BYTE OF COMMAND¢54  STA ICBAH,X        BUFF HI¢55  PLA                LO BYTE¢56  STA ICBAL,X                 BUFF LO¢57 ;¢58  PLA         HI BYTE OF BUFF LENGTH¢59  STA ICBLH,X¢60  PLA¢61  STA ICBLL,X¢62  JSR ICBLL,X¢63  RTS           JUST IN CASE¢¢