Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Makefile
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
SYS8K=2400
SYS8K=2050
SYS16K=8192
SYS32K=20480
default:
Expand Down
16 changes: 8 additions & 8 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -98,18 +98,18 @@ Basic:

The higher memory versions with the BASIC save/load extension

- petterm8K_40G.prg - 40 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 3200)
- petterm8K_80G.prg - 80 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 3200)
- petterm8K_40B.prg - 40 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 3200)
- petterm8K_80B.prg - 80 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 3200)
- petterm8K_40G.prg - 40 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 2050)
- petterm8K_80G.prg - 80 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 2050)
- petterm8K_40B.prg - 40 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 2050)
- petterm8K_80B.prg - 80 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 2050)
- petterm16K_40G.prg - 40 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 8192)
- petterm16K_80G.prg - 80 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 8192)
- petterm16K_40B.prg - 40 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 8192)
- petterm16K_80B.prg - 80 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 8192)
- petterm32K_40G.prg - 40 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 24576)
- petterm32K_80G.prg - 80 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 24576)
- petterm32K_40B.prg - 40 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 24576)
- petterm32K_80B.prg - 80 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 24576)
- petterm32K_40G.prg - 40 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 20480)
- petterm32K_80G.prg - 80 column PETs with graphics keyboard, BASIC save/load, higher memory version (SYS 20480)
- petterm32K_40B.prg - 40 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 20480)
- petterm32K_80B.prg - 80 column PETs with business keyboard, BASIC save/load, higher memory version (SYS 20480)

PRG files are the native programs, can be added to a tape or disk image

Expand Down
11 changes: 5 additions & 6 deletions constants.s
Original file line number Diff line number Diff line change
Expand Up @@ -75,20 +75,19 @@ BAS1_EOA EQU $0080 ; 80/81 - End of Arrays Ptr
; Memory location for this program.
IFCONST HIMEM
IFCONST MEM8K
MYORG EQU $0960 ; SYS 2400 (1,1375 bytes for BASIC)
MYRORG EQU $1AFF
MYORG EQU $0802 ; SYS 2050 (1,024 bytes for BASIC)
MYRORG EQU $1FFF
ENDIF
IFCONST MEM16K
MYORG EQU $2000 ; SYS 8192 (7,167 bytes for BASIC)
MYORG EQU $2000 ; SYS 8192 (7,167 bytes for BASIC)
MYRORG EQU $3A34
ENDIF
IFCONST MEM32K
MYORG EQU $5000 ; SYS 20480 (19,455 bytes for BASIC)
MYORG EQU $5000 ; SYS 20480 (19,455 bytes for BASIC)
MYRORG EQU $7000
ENDIF
ELSE
MYORG EQU $0960 ; SYS 2400
MYRORG EQU $1AFF
MYRORG EQU $1FFF
ENDIF

; Start of BASIC on PET/CBM computers
Expand Down
14 changes: 8 additions & 6 deletions petterm.s
Original file line number Diff line number Diff line change
Expand Up @@ -225,19 +225,21 @@ BLDR
DC.W 10 ; Line Number = 10
DC.B $9E ; SYS
; Decimal Address in ASCII $30 is 0 $31 is 1, etc
DC.B (MYORG/10000)%10 + '0
DC.B (MYORG/ 1000)%10 + '0
DC.B (MYORG/ 100)%10 + '0
DC.B (MYORG/ 10)%10 + '0
DC.B (MYORG/ 1)%10 + '0
DC.B (INIT/10000)%10 + '0
DC.B (INIT/ 1000)%10 + '0
DC.B (INIT/ 100)%10 + '0
DC.B (INIT/ 10)%10 + '0
DC.B (INIT/ 1)%10 + '0

DC.B $0 ; Line End
BLDR_ENDL
DC.W $0 ; LINK (End of program)
;-----------------------------------------------------------------------
ENDIF
ELSE

ORG MYORG

ENDIF
;-----------------------------------------------------------------------
; Initialization
INIT SUBROUTINE
Expand Down