2018-01-28 18:30:49 +00:00
|
|
|
;c02 Program Initialization Code for VIC-20 with 3K Expansion
|
|
|
|
|
|
2020-10-19 19:42:10 +00:00
|
|
|
INCLUDE "vicequ.a02" ;Include VIC 20 Common Code
|
|
|
|
|
|
2018-01-28 18:30:49 +00:00
|
|
|
;Video RAM and ROM
|
|
|
|
|
VICSCN EQU $1E00 ;Video Screen Memory Area (Unexpanded)
|
|
|
|
|
CHRROM EQU $8000 ;Character Generator ROM
|
|
|
|
|
VICCLR EQU $9600 ;Color RAM (Unexpanded)
|
|
|
|
|
|
2018-08-19 22:24:02 +00:00
|
|
|
;Machine Language Basic Stub
|
2020-09-08 15:57:50 +00:00
|
|
|
ORG $1001 ;Start of Basic Program
|
2018-08-19 22:24:02 +00:00
|
|
|
BASIC: DC $0C, $04 ;Pointer to Next Line
|
|
|
|
|
DC $00, $00 ;Line Number (0)
|
|
|
|
|
DC $9E ;SYS
|
|
|
|
|
DC $20 ;' '
|
2020-09-08 15:57:50 +00:00
|
|
|
DC $34,$31,$31,$30 ;"4110"
|
2018-08-19 22:24:02 +00:00
|
|
|
DC $00 ;End of Line Marker
|
|
|
|
|
DC $00, $00 ;End of Basic Program
|
2018-01-28 18:30:49 +00:00
|
|
|
|
2020-10-19 19:42:10 +00:00
|
|
|
INCLUDE "vicasm.a02" ;Include VIC 20 Common Code
|
|
|
|
|
INCLUDE "prbyte.a02" ;PRBYTE and PRHEX routines
|
2020-09-08 15:57:50 +00:00
|
|
|
|
