Move SSC constants to inc file

No binary changes
a2stuff · Oct 21, 2024 · 26ec836 · 26ec836
1 parent 213c4d4
commit 26ec836
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 17 deletions.
diff --git a/desk.acc/print.catalog.s b/desk.acc/print.catalog.s
@@ -50,12 +50,6 @@
 
         SLOT1   := $C100
 
-        ;; SSC entry point lookup table
-        PInit   = $0D
-        PRead   = $0E
-        PWrite  = $0F
-        PStatus = $10
-
 .scope
         ptr := $06
 
@@ -119,7 +113,7 @@ no_windows:
 continue:
         JUMP_TABLE_MGTK_CALL MGTK::SetCursor, MGTK::SystemCursor::watch
 
-        ldy     #PInit
+        ldy     #SSC::PInit
         jsr     GoCard
 
         ;; Init IW2 settings
@@ -857,7 +851,7 @@ fail:
 
 ;;; ============================================================
 
-;;; Inputs: Y = entry point, A = char to output (for `PWrite`)
+;;; Inputs: Y = entry point, A = char to output (for `SSC::PWrite`)
 .proc GoCard
         ;; Normal banking
         sta     ALTZPOFF
@@ -894,7 +888,7 @@ vector: jsr     SLOT1                    ; self-modified
         stx     xsave
         sty     ysave
 
-        ldy     #PWrite
+        ldy     #SSC::PWrite
         jsr     GoCard
 
         lda     asave

diff --git a/desk.acc/screen.dump.s b/desk.acc/screen.dump.s
@@ -43,12 +43,6 @@ sig_bytes:
 
         SLOT1   := $C100
 
-        ;; SSC entry point lookup table
-        PInit   = $0D
-        PRead   = $0E
-        PWrite  = $0F
-        PStatus = $10
-
         ;; Check for hardware signature - SSC in Slot 1
 
         ldy     #kSigLen-1
@@ -176,7 +170,7 @@ done:   sta     PAGE2OFF        ; Read main mem $2000-$3FFF
 
 .proc PrintScreen
         ;; Init printer
-        ldy     #PInit
+        ldy     #SSC::PInit
         jsr     GoCard
 
         jsr     SendSpacing
@@ -246,7 +240,7 @@ vector: jmp     SLOT1                    ; self-modified
         stx     xsave
         sty     ysave
 
-        ldy     #PWrite
+        ldy     #SSC::PWrite
         jsr     GoCard
 
         lda     asave

diff --git a/inc/apple2.inc b/inc/apple2.inc
@@ -247,6 +247,20 @@ FW80MODE        := $04FB        ; 80 Col firmware mode ($FF = inactive)
 OURCH           := $057B        ; 80 Col horizontal position
 OURCV           := $05FB        ; 80 Col vertical position
 
+;;; ============================================================
+;;; Super Serial Card
+;;; ============================================================
+
+;;; Pascal 1.1 Entry Points
+;;; Offset from $Cs00 to actual entry point in $CsXX space
+;;; On entry, X=$Cs, Y=$s0
+.enum SSC
+        PInit   = $0D
+        PRead   = $0E
+        PWrite  = $0F
+        PStatus = $10
+.endenum
+
 ;;; ============================================================
 ;;; Disk II / IWM I/O locations
 ;;; ============================================================