home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Top-Magazin 1992 October
/
Top_Magazin_1992_10_Top_Crew_de_Side_B.atr
/
tbasic.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
512b
|
48 lines
************************************
* BASIC-ROUTINEN BGET/BPUT
************************************
*
ICCOM EQU $342
ICBAL EQU $344
ICBAH EQU $345
ICBLL EQU $348
ICBLH EQU $349
*
BPUT EQU 11
BGET EQU 7
*
CIOV EQU $E456
*
ORG $600
*
PLA
BEQ ERR4
CMP #3
BNE ERR
PLA
PLA
ASL
ASL
ASL
ASL
TAX
LDA #BGET oder BPUT
STA ICCOM,X
PLA
STA ICBAH,X
PLA
STA ICBAL,X
PLA
STA ICBLH,X
PLA
STA ICBLL,X
JSR CIOV
ERR4 RTS
*
ERR TAX
ERR2 PLA
PLA
DEX
BNE ERR2
RTS
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯