From 393aca7adda0857f320344001d916515a40c25ce Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Sun, 25 Apr 2021 21:08:42 +0200
Subject: [PATCH] Code words to call the CBM channel I/O.

---
 6502/C64/src/cbmopen.fth | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 6502/C64/src/cbmopen.fth

diff --git a/6502/C64/src/cbmopen.fth b/6502/C64/src/cbmopen.fth
new file mode 100644
index 0000000..490c955
--- /dev/null
+++ b/6502/C64/src/cbmopen.fth
@@ -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