6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2024-09-30 07:57:05 +00:00
Code Issues Projects Releases Wiki Activity

PLASMA16 WIP

Browse Source
This commit is contained in:
David Schmenk 2017-11-28 21:37:03 -08:00
parent 2f7d5a1b39
commit 0f271a2cf5
1 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/vmsrc/plvm802.s
View File

@ -81,18 +81,6 @@ NOS = $03 ; TOS-1
!AL
REP #$20 ; SET 16 BIT MODE
}
;*
;* DEBUG MACROS
;*
!MACRO DBG_OUT .dch, .ofst {
PHX
LDX #$80+.dch
STX $0400+.ofst
PLX
}
!MACRO DBG_PAUSE {
JSR DBG_STEP
}
;******************************
;* *
;* INTERPRETER INITIALIZATION *
@ -375,7 +363,6 @@ CMDENTRY = *
; INIT VM ENVIRONMENT STACK POINTERS
;
; LDA #$00 ; INIT FRAME POINTER
+DBG_OUT 'I', 0
STA PPL
STA IFPL
LDA #$BF
@ -501,7 +488,7 @@ PRCHR ORA #$80
;*
;* DEBUG STEP ROUTINE
;*
STEP PHX
STEP STX TMPL
LDX #$00
SEP #$20 ; 8 BIT A/M
LDA #'$'
@ -548,7 +535,7 @@ STEP PHX
XCE
BRK
+ REP #$20 ; 16 BIT A/M
PLX
LDX TMPL
DBG_OP JMP (OPTBL,X)
}
;*********************************************************************
@ -1521,6 +1508,6 @@ RET SEP #$20 ; 8 BIT A/M
XCE
!AS
RTS
VMEND = *
}