mirror of
https://github.com/dschmenk/PLASMA.git
synced 2024-07-05 04:28:57 +00:00
Fix VM filename in VMLOAD
This commit is contained in:
parent
b5c30d524e
commit
0925945d2e
BIN
PLASMA-SYS2.PO
BIN
PLASMA-SYS2.PO
Binary file not shown.
@ -251,7 +251,7 @@ CMDENTRY = *
|
|||||||
STA $01FF ; CLEAR CMDLINE BUFF
|
STA $01FF ; CLEAR CMDLINE BUFF
|
||||||
STA PPL ; INIT FRAME POINTER
|
STA PPL ; INIT FRAME POINTER
|
||||||
STA IFPL
|
STA IFPL
|
||||||
LDA #$BF
|
LDA #$BF ; FRAME POINTER AT $BF00, BELOW PRODOS
|
||||||
STA PPH
|
STA PPH
|
||||||
STA IFPH
|
STA IFPH
|
||||||
LDX #$FE ; INIT STACK POINTER (YES, $FE. SEE GETS)
|
LDX #$FE ; INIT STACK POINTER (YES, $FE. SEE GETS)
|
||||||
@ -1484,14 +1484,14 @@ ALTVM = *
|
|||||||
BCC + ; NOT 65802/65816 IF CARRY CLEAR
|
BCC + ; NOT 65802/65816 IF CARRY CLEAR
|
||||||
XCE ; SWITCH BACK TO EMULATED MODE
|
XCE ; SWITCH BACK TO EMULATED MODE
|
||||||
LDA #<VM16 ; TRY 16 BIT VM
|
LDA #<VM16 ; TRY 16 BIT VM
|
||||||
STA OPENVM
|
|
||||||
LDA #>VM16
|
|
||||||
STA OPENVM+1
|
STA OPENVM+1
|
||||||
|
LDA #>VM16
|
||||||
|
STA OPENVM+2
|
||||||
JSR +
|
JSR +
|
||||||
LDA #<VM128 ; NOPE. TRY 128K VM
|
LDA #<VM128 ; NOPE. TRY 128K VM
|
||||||
STA OPENVM
|
|
||||||
LDA #>VM128
|
|
||||||
STA OPENVM+1
|
STA OPENVM+1
|
||||||
|
LDA #>VM128
|
||||||
|
STA OPENVM+2
|
||||||
+ JSR PRODOS ; OPEN CMD
|
+ JSR PRODOS ; OPEN CMD
|
||||||
!BYTE $C8
|
!BYTE $C8
|
||||||
!WORD OPENVM
|
!WORD OPENVM
|
||||||
@ -1508,11 +1508,11 @@ ALTVM = *
|
|||||||
BNE NOVM
|
BNE NOVM
|
||||||
JMP $2000 ; JUMP TO ALT VM
|
JMP $2000 ; JUMP TO ALT VM
|
||||||
NOVM RTS
|
NOVM RTS
|
||||||
OPENVM !BYTE 3
|
OPENVM !BYTE 3
|
||||||
!WORD VM128
|
!WORD VM128
|
||||||
!WORD $0800
|
!WORD $0800
|
||||||
REFVM !BYTE 0
|
REFVM !BYTE 0
|
||||||
READVM !BYTE 4
|
READVM !BYTE 4
|
||||||
!BYTE 0
|
!BYTE 0
|
||||||
!WORD $2000
|
!WORD $2000
|
||||||
!WORD $9F00
|
!WORD $9F00
|
||||||
|
Loading…
Reference in New Issue
Block a user