Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-12-29 05:29:28 +00:00
Code Issues Projects Releases Wiki Activity

Added *CODE, *LINE.

Browse Source
This commit is contained in:
jgharston 2022-12-06 11:45:30 +00:00 committed by GitHub
parent dea712e0d9
commit 3107f11720
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
auxmem.bytwrd.s
View File

@ -417,8 +417,9 @@ GETADDR1 RTS
* OSBYTE routines * OSBYTE routines
***************** *****************
BYTE88 LDA #$01 ; $88 = *CODE BYTE88 LDA #$81 ; *CODE -> A=&01
WORDE0 JMP (USERV) ; OSWORD &E0+ CMDLINE EOR #$80 ; *LINE -> A=&00
WORDE0 JMP (USERV) ; OSWORD &E0+ -> A=&E0+
* Low OSBYTE converted into Set Variable * Low OSBYTE converted into Set Variable
BYTE02 LDA #$F7 ; -> &B1 BYTE02 LDA #$F7 ; -> &B1

6
auxmem.oscli.s
View File

@ -89,6 +89,9 @@ CMDFILE ASC 'CAT'
CMDMOS ASC 'BASIC' CMDMOS ASC 'BASIC'
DB $FF DB $FF
DW STARBASIC-1 ; BASIC -> (LPTR)=>params DW STARBASIC-1 ; BASIC -> (LPTR)=>params
ASC 'CODE'
DB $88
DW STARBYTE-1 ; CODE -> OSBYTE &88,X,Y XY=>params
ASC 'ECHO' ASC 'ECHO'
DB $FF DB $FF
DW CMDECHO-1 ; ECHO -> (LPTR)=>params DW CMDECHO-1 ; ECHO -> (LPTR)=>params
@ -104,6 +107,9 @@ CMDMOS ASC 'BASIC'
ASC 'KEY' ASC 'KEY'
DB $FF DB $FF
DW STARKEY-1 ; KEY -> (LPTR)=>params DW STARKEY-1 ; KEY -> (LPTR)=>params
ASC 'LINE'
DB $80
DW CMDLINE-1 ; LINE -> XY=>params
ASC 'QUIT' ASC 'QUIT'
DB $FF DB $FF
DW STARQUIT-1 ; QUIT -> (LPTR)=>params DW STARQUIT-1 ; QUIT -> (LPTR)=>params