6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-05-31 15:41:34 +00:00
Code Issues Projects Releases Wiki Activity

Code words to call the CBM channel I/O.

Browse Source
This commit is contained in:
Philip Zembrod 2021-04-25 21:08:42 +02:00
parent ce11fa9060
commit 393aca7add
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
6502/C64/src/cbmopen.fth Normal file
View File

@ -0,0 +1,28 @@
include vf-lbls-cbm.fth
Code cbmopen ( lfn ga sa fname fnlen -- )
5 # lda Setup jsr
N 8 + lda N 6 + ldx N 4 + ldy SETLFS jsr
N lda N 2 + ldx N 3 + ldy SETNAM jsr
OPEN jsr xyNext jmp end-code
Code cbmclose ( lfn -- )
SP X) lda CLOSE jsr
Label xyPop 0 # ldx 1 # ldy
Pop jmp end-code
Code cbmchkin ( lfn -- )
SP X) lda tax CHKIN jsr xyPop jmp end-code
Code cbmchkout ( lfn -- )
SP X) lda tax CHKOUT jsr xyPop jmp end-code
Code cbmclrchn ( -- )
CLRCHN jsr xyNext jmp end-code
Code cbmbasout ( chr -- )
SP X) lda CHROUT jsr xyPop jmp end-code
Code cbmbasin ( -- chr )
CHRIN jsr Push0A jmp end-code