Browse Source

updated BASIC_C64 to version that is identical to shipping code

master
Michael Steil 5 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
SETTIM =$FFDB
RDTIM =$FFDE
.SKI 5
COOUT JSR $FFC9
COOUT JSR PPACH ; GO OUT TO SAVE .A FOR PRINT# PATCH
BCS EREXIT
RTS
.SKI 5
@@ -240,3 +240,4 @@ PAOC15 JSR FRMEVL
; RSR 8/26/80 - ADD OPEN&CLOSE MEMSIZ DETECT
; RSR 10/7/80 - CHANGE LOAD (REMOVE RUN WAIT)
; RSR 4/10/82 - INLINE FIX PROGRAM LOAD
; RSR 7/02/82 - FIX PRINT# PROBLEM

+ 2
- 1
BASIC_C64/disclaimer View File

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

+ 11
- 0
BASIC_C64/init View File

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

Loading…
Cancel
Save