mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-27 00:55:55 +00:00
Merge part 1 of PR 121 'XF2MAIN, ENTAUX ...'
This commit is contained in:
parent
a173e8667e
commit
275e22ab99
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
28
applecorn.s
28
applecorn.s
@ -6,8 +6,10 @@
|
||||
*
|
||||
* Assembled with the Merlin 8 v2.58 assembler on Apple II.
|
||||
|
||||
* 14-Oct-2021 XF2MAIN, ENTAUX no longer save/restore STRTL/STRTH.
|
||||
|
||||
|
||||
XC ; 65c02
|
||||
XC ; 65816
|
||||
ORG $4000 ; Load addr of loader in main memory
|
||||
; Clear of first HGR frame buffer
|
||||
|
||||
@ -88,10 +90,10 @@ XF2AUX MAC
|
||||
* Called by code running in aux mem to invoke a
|
||||
* routine in main memory
|
||||
XF2MAIN MAC
|
||||
LDX STRTL
|
||||
STX STRTBCKL
|
||||
LDX STRTH
|
||||
STX STRTBCKH
|
||||
* LDX STRTL ; No longer needed
|
||||
* STX STRTBCKL ; $03E0-$03FF reserved for memory
|
||||
* LDX STRTH ; switching
|
||||
* STX STRTBCKH
|
||||
LDX #<]1
|
||||
STX STRTL
|
||||
LDX #>]1
|
||||
@ -111,10 +113,10 @@ ENTAUX MAC
|
||||
LDX $0101 ; Recover alt SP
|
||||
TXS
|
||||
CLI ; Re-enable IRQ after XFER
|
||||
LDX STRTBCKL
|
||||
STX STRTL
|
||||
LDX STRTBCKH
|
||||
STX STRTH
|
||||
* LDX STRTBCKL ; No longer needed
|
||||
* STX STRTL ; $03e0-$03FF reserved for memory
|
||||
* LDX STRTBCKH ; switching
|
||||
* STX STRTH
|
||||
EOM
|
||||
|
||||
* Macro called on re-entry to main memory
|
||||
@ -217,14 +219,6 @@ MAINZP MAC
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -12,10 +12,6 @@ ZP1 EQU $90 ; $90-$9f are spare Econet space
|
||||
ZP2 EQU $92
|
||||
ZP3 EQU $94
|
||||
|
||||
** COL,ROW needs to be in X,Y order
|
||||
** TO DO: will be moved to VDU space
|
||||
*COL EQU $96 ; Cursor column
|
||||
*ROW EQU $97 ; Cursor row
|
||||
STRTBCKL EQU $9D ; *TO DO* don't need to preserve
|
||||
STRTBCKH EQU $9E
|
||||
|
||||
@ -172,27 +168,12 @@ PRHELLO LDA #<HELLO
|
||||
JSR PRSTR
|
||||
JMP OSNEWL
|
||||
|
||||
BYTE00XX BEQ BYTE00A ; OSBYTE 0,0 - generate error
|
||||
LDX #$0A ; $00 = identify Host
|
||||
BYTE00XX
|
||||
BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
|
||||
LDX #$0A ; Identify Host
|
||||
RTS ; %000x1xxx host type, 'A'pple
|
||||
BYTE00A BRK
|
||||
DB $F7
|
||||
HELLO ASC 'Applecorn MOS 2021-10-13'
|
||||
DB $00 ; Unify MOS messages
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user