more work on monitor adaptation
This commit is contained in:
1 parent
ed507e779c
commit
79e54cf248
4 files changed
+498
-349
No files matched your search
@@ -2,4 +2,3 @@
|
|||||||
; A vector table to integrate BSMON with the MEGA65 Kernal
|
; A vector table to integrate BSMON with the MEGA65 Kernal
|
||||||
|
|
||||||
!word Mon_Call
|
!word Mon_Call
|
||||||
!word Mon_Break
|
|
||||||
+468
-320
File diff suppressed because it is too large.
Load diff
@@ -1,28 +0,0 @@
|
|||||||
; 'Print immediate', original implementation by Mike Barry, adapted to 65CE02, modified to preserve .Y
|
|
||||||
; see http://www.6502.org/source/io/primm.htm
|
|
||||||
|
|
||||||
PRIMM:
|
|
||||||
|
|
||||||
pla ; get low part of (string address-1)
|
|
||||||
sta PTR1
|
|
||||||
pla ; get high part of (string address-1)
|
|
||||||
sta PTR2
|
|
||||||
phy
|
|
||||||
+bra @2
|
|
||||||
@1:
|
|
||||||
jsr CHROUT ; output a string char
|
|
||||||
@2:
|
|
||||||
inc PTR1 ; advance the string pointer
|
|
||||||
bne @3
|
|
||||||
inc PTR2
|
|
||||||
@3:
|
|
||||||
ldy #$00
|
|
||||||
lda (PTR1), y ; get string char
|
|
||||||
bne @1 ; output and continue if not NUL
|
|
||||||
ply
|
|
||||||
lda PTR2
|
|
||||||
pha
|
|
||||||
lda PTR1
|
|
||||||
pha
|
|
||||||
|
|
||||||
rts
|
|
||||||
@@ -20,3 +20,33 @@
|
|||||||
;; #ALIAS# UNLSN = KERNAL_0.proxy_M1_UNLSN
|
;; #ALIAS# UNLSN = KERNAL_0.proxy_M1_UNLSN
|
||||||
;; #ALIAS# LISTEN = KERNAL_0.proxy_M1_LISTEN
|
;; #ALIAS# LISTEN = KERNAL_0.proxy_M1_LISTEN
|
||||||
;; #ALIAS# TALK = KERNAL_0.proxy_M1_TALK
|
;; #ALIAS# TALK = KERNAL_0.proxy_M1_TALK
|
||||||
|
|
||||||
|
|
||||||
|
; 'Print immediate', original implementation by Mike Barry, adapted to 65CE02, modified to preserve .Y
|
||||||
|
; see http://www.6502.org/source/io/primm.htm
|
||||||
|
|
||||||
|
PRIMM:
|
||||||
|
|
||||||
|
pla ; get low part of (string address-1)
|
||||||
|
sta PTR1
|
||||||
|
pla ; get high part of (string address-1)
|
||||||
|
sta PTR2
|
||||||
|
phy
|
||||||
|
+bra @2
|
||||||
|
@1:
|
||||||
|
jsr CHROUT ; output a string char
|
||||||
|
@2:
|
||||||
|
inc PTR1 ; advance the string pointer
|
||||||
|
bne @3
|
||||||
|
inc PTR2
|
||||||
|
@3:
|
||||||
|
ldy #$00
|
||||||
|
lda (PTR1), y ; get string char
|
||||||
|
bne @1 ; output and continue if not NUL
|
||||||
|
ply
|
||||||
|
lda PTR2
|
||||||
|
pha
|
||||||
|
lda PTR1
|
||||||
|
pha
|
||||||
|
|
||||||
|
rts
|
||||||
Reference in new issue
Block a user