home *** CD-ROM | disk | FTP | other *** search
/ Top-Magazin 1992 October / Top_Magazin_1992_10_Top_Crew_de_Side_B_a.atr / tbasic.src < prev    next >
Text File  |  2023-02-26  |  512b  |  48 lines
  1. ************************************
  2. * BASIC-ROUTINEN BGET/BPUT
  3. ************************************
  4. *
  5. ICCOM    EQU $342 
  6. ICBAL    EQU $344 
  7. ICBAH    EQU $345
  8. ICBLL    EQU $348
  9. ICBLH    EQU $349
  10. *
  11. BPUT    EQU 11
  12. BGET    EQU 7
  13. *
  14. CIOV    EQU $E456
  15. *
  16.     ORG $600
  17. *
  18.     PLA
  19.     BEQ ERR4
  20.     CMP #3
  21.     BNE ERR
  22.     PLA
  23.     PLA
  24.     ASL
  25.     ASL
  26.     ASL
  27.     ASL
  28.     TAX
  29.     LDA #BGET    oder BPUT
  30.     STA ICCOM,X
  31.     PLA
  32.     STA ICBAH,X
  33.     PLA
  34.     STA ICBAL,X
  35.     PLA
  36.     STA ICBLH,X
  37.     PLA
  38.     STA ICBLL,X
  39.     JSR CIOV
  40. ERR4    RTS
  41. *
  42. ERR    TAX
  43. ERR2    PLA
  44.     PLA
  45.     DEX
  46.     BNE ERR2
  47.     RTS
  48. ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯