2019-11-15 05:07:23 +00:00
|
|
|
; c02 Program Initialization Code for Commander X16
|
2019-11-20 06:36:43 +00:00
|
|
|
; Compatible with x16emu Release 34
|
2019-11-15 05:07:23 +00:00
|
|
|
|
|
|
|
|
;PETSCII Key Mappings
|
|
|
|
|
DELKEY EQU $14 ;Delete/Backspace Key (Delete)
|
|
|
|
|
ESCKEY EQU $03 ;Escape/Stop Key (RUN/STOP)
|
|
|
|
|
RTNKEY EQU $0D ;Return/Enter Key (RETURN)
|
|
|
|
|
|
2020-10-11 18:45:01 +00:00
|
|
|
; $00-$01 ;Miscellaneous Pointer
|
|
|
|
|
; $02-$21 ;ABI Registers
|
|
|
|
|
; $22-$52 ;Used by Basic graphics commands
|
2019-11-20 06:36:43 +00:00
|
|
|
XMBANK EQU $53 ;Extended Memory Bank
|
2020-10-19 19:42:10 +00:00
|
|
|
XMADDR EQU $54 ;Ext Memory Address
|
2019-11-20 06:36:43 +00:00
|
|
|
SRCPTR EQU $56 ;Source Pointer
|
2020-10-19 19:42:10 +00:00
|
|
|
DSTPTR EQU $58 ;Destination Pointer
|
|
|
|
|
BLKPTR EQU $5A ;Block Pointer
|
|
|
|
|
STKPTR EQU $5C ;Stack Pointer
|
|
|
|
|
USRPTR EQU $5E ;User Pointer
|
2019-11-20 06:36:43 +00:00
|
|
|
RANDOM EQU $62 ;Random Number Storage
|
|
|
|
|
RDSEED EQU $63 ;Random Seed
|
2020-10-19 19:42:10 +00:00
|
|
|
TEMP0 EQU $64 ;Temporary Variables
|
|
|
|
|
TEMP1 EQU $65
|
|
|
|
|
TEMP2 EQU $66
|
|
|
|
|
TEMP3 EQU $67
|
|
|
|
|
TMPPTR EQU $68 ;Temporary Pointer
|
|
|
|
|
SYSBFP EQU $6A ;Position in System Buffr
|
|
|
|
|
; $6B-$6F ;Unused
|
|
|
|
|
; $70-7F ;Free Zero-Page for Applications
|
2019-11-20 06:36:43 +00:00
|
|
|
; $80-$83 ;Used by Kernal and DOS
|
|
|
|
|
; $A4-$A8 ;Reserved for KERNAL/DOS/BASIC
|
|
|
|
|
; $A9-$FF ;Used by BASIC
|
2020-10-11 18:45:01 +00:00
|
|
|
|
|
|
|
|
;Other Constants
|
2020-10-19 19:42:10 +00:00
|
|
|
SYSBFL EQU 128 ;System Buffer Length [Max String Length]
|
2020-10-11 18:45:01 +00:00
|
|
|
;Other Variables - User Storage Area
|
|
|
|
|
SYSBFR EQU $0700 ;System Buffer
|
2020-10-19 19:42:10 +00:00
|
|
|
; $0781-$07F5 ;Unused
|
|
|
|
|
BLKBGN EQU $07F6 ;Block Start Address
|
|
|
|
|
BLKEND EQU $07F8 ;Block End Address
|
|
|
|
|
BLKLEN EQU $07FA ;Block Length
|
|
|
|
|
STKSAV EQU $07FB ;Machine Stack Storage
|
|
|
|
|
STKBGN EQU $07FC ;Stack Start
|
|
|
|
|
STKEND EQU $07FE ;Stack End
|
2019-11-15 05:07:23 +00:00
|
|
|
|
|
|
|
|
;Machine Language Basic Stub - Same as Commodore 64
|
|
|
|
|
ORG $0801 ;Start of Basic Program
|
|
|
|
|
BASIC: DC $0C, $08 ;Pointer to Next Line
|
|
|
|
|
DC $00, $00 ;Line Number (0)
|
|
|
|
|
DC $9E ;SYS
|
|
|
|
|
DC $20 ;' '
|
|
|
|
|
DC $32, $30, $36 ,$32 ;"2062"
|
|
|
|
|
DC $00 ;End of Line Marker
|
|
|
|
|
DC $00, $00 ;End of Basic Program
|
|
|
|
|
|
|
|
|
|
START: TSX ;Get Stack Pointer
|
|
|
|
|
STX STKSAV ;and Save for Exit
|
2019-11-20 06:36:43 +00:00
|
|
|
SEC ;Set Screen Mode
|
|
|
|
|
LDA #0 ;to 40x30 Text
|
|
|
|
|
JSR $FF5F ;using SCRMOD
|
2019-11-15 05:07:23 +00:00
|
|
|
JMP MAIN ;Execute Program
|
|
|
|
|
|
|
|
|
|
EXIT: LDX STKSAV ;Retrieve Saved Stack Pointer
|
|
|
|
|
TXS ;and Restore It
|
|
|
|
|
RTS ;Return to BASIC
|
|
|
|
|
|
|
|
|
|
;Poll Keyboard for Character
|
|
|
|
|
POLKEY EQU $FFE4 ;Aliased to Kernal GETIN Routine
|
|
|
|
|
|
|
|
|
|
;Get Character from Keyboard
|
|
|
|
|
GETKEY EQU POLKEY ;Aliased to POLKEY Routine
|
|
|
|
|
|
|
|
|
|
;Wait for Character from Keyboard
|
|
|
|
|
GETCHR: JSR GETKEY ;Poll Keyboard
|
|
|
|
|
BEQ GETCHR ;If No Key, Loop
|
|
|
|
|
RTS
|
|
|
|
|
|
|
|
|
|
;Print Character to Console
|
|
|
|
|
PUTCHR EQU $FFD2 ;Aliased to CHROUT Routine
|
|
|
|
|
|
|
|
|
|
;Delete Previous Character
|
|
|
|
|
DELCHR: LDA #DELKEY ;Load Delete Character
|
|
|
|
|
JMP PUTCHR ;Print and Return
|
|
|
|
|
|
|
|
|
|
;Advance Character to Next line
|
|
|
|
|
NEWLIN: LDA #RTNKEY ;Load Return Character
|
|
|
|
|
JMP PUTCHR ;Print and Return
|
|
|
|
|
|
2020-10-11 18:45:01 +00:00
|
|
|
INCLUDE "prbyte.a02" ;PRBYTE and PRHEX routine
|
|
|
|
|
INCLUDE "putstr.a02" ;PUTSTR routine
|
