Browse Source

updated BASIC_C64 to version that is identical to shipping code

master
Michael Steil 3 months ago
parent
commit
24bbbbc5bd
3 changed files with 15 additions and 2 deletions
  1. 2
    1
      BASIC_C64/code26
  2. 2
    1
      BASIC_C64/disclaimer
  3. 11
    0
      BASIC_C64/init

+ 2
- 1
BASIC_C64/code26 View File

@@ -27,7 +27,7 @@ CCALL	=$FFE7
27 27
 SETTIM	=$FFDB
28 28
 RDTIM	=$FFDE
29 29
 .SKI 5
30
-COOUT	JSR $FFC9
30
+COOUT	JSR PPACH       ; GO OUT TO SAVE .A FOR PRINT# PATCH
31 31
 	BCS EREXIT
32 32
 	RTS
33 33
 .SKI 5
@@ -240,3 +240,4 @@ PAOC15	JSR FRMEVL
240 240
 ; RSR 8/26/80 - ADD OPEN&CLOSE MEMSIZ DETECT
241 241
 ; RSR 10/7/80 - CHANGE LOAD (REMOVE RUN WAIT)
242 242
 ; RSR 4/10/82 - INLINE FIX PROGRAM LOAD
243
+; RSR 7/02/82 - FIX PRINT# PROBLEM

+ 2
- 1
BASIC_C64/disclaimer View File

@@ -21,7 +21,8 @@
21 21
 ;*      8032                            *
22 22
 ;*      TOY                             *
23 23
 ;*      VIC-20/VIC-40                   *
24
-;*    * COMMODORE 10/64                 *
24
+;*    * COMMODORE 10/16/64              *
25
+;*      MAX                             *
25 26
 ;* COPYRIGHT (C) 1982 BY                *
26 27
 ;* COMMODORE BUSINESS MACHINES          *
27 28
 ;*                                      *

+ 11
- 0
BASIC_C64/init View File

@@ -114,7 +114,18 @@ CHKE0	.BYT $00
114 114
 WORDS	.BYT ' BASIC BYTES FREE',13,0
115 115
 FREMES	.BYT 147,13,'    **** COMMODORE 64 BASIC V2 ****'
116 116
 	.BYT 13,13,' 64K RAM SYSTEM  ',0
117
+	.BYT 0
118
+; PPACH - PRINT# PATCH TO COOUT (SAVE .A)
119
+;
120
+PPACH	PHA
121
+	JSR $FFC9
122
+	TAX             ;SAVE ERROR CODE
123
+	PLA
124
+	BCC PPACH0      ;NO ERROR....
125
+	TXA             ;ERROR CODE
126
+PPACH0	RTS
117 127
 .END
118 128
 ;RSR 8/10/80 UPDATE PANIC :REM COULD USE IN ERROR ROUTINE
119 129
 ;RSR 2/08/82 MODIFY FOR VIC-40 RELEASE
120 130
 ;RSR 4/15/82 ADD ADVERTISING SIGN-ON
131
+;RSR 7/02/82 ADD PRINT# PATCH

Loading…
Cancel
Save