home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
program
/
compiler
/
nasm20b
/
nasm_src
/
lib
/
src
/
stdio.s65
< prev
next >
Wrap
Text File
|
1993-01-19
|
1KB
|
68 lines
.include #system
open sta icbal,x
tya
sta icbah,x
lda #3 ; OPEN
bne :doit
close lda #12 ; CLOSE
bne :doit
bput sta icbal,x
tya
sta icbah,x
lda #11 ; PUT
bne :doit
bget sta icbal,x
tya
sta icbah,x
lda #7 ; GET
:doit sta iccom,x
jmp CIOV
print sta icbal,x
tya
sta icbah,x
lda #9 ; PRINT
bne :doit
input sta icbal,x
tya
sta icbah,x
lda #5 ; INPUT
bne :doit
putc
lda #0
sta icbll,x
sta icblh,x
lda #11
sta iccom,x
tya
jmp CIOV
getc
lda #<:buf
sta icbal,x
lda #>:buf
sta icbah,x
lda #1
sta icbll,x
lda #0
sta icblh,x
lda #7
sta iccom,x
jsr CIOV
lda :buf
rts
:buf .byte 0
_op_tab .byte 0,$10,$20,$30,$40,$50,$60,$70