more work on monitor adaptation

This commit is contained in:
FeralChild64 authored and FeralChild64 committed 2021-01-26 00:03:07 +01:00
1 parent ed507e779c
commit 79e54cf248
4 files changed
+498 -349

No files matched your search

-1
View File
@@ -2,4 +2,3 @@
; A vector table to integrate BSMON with the MEGA65 Kernal
!word Mon_Call
!word Mon_Break
+468 -320
View File
File diff suppressed because it is too large. Load diff
-28
View File
@@ -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# LISTEN = KERNAL_0.proxy_M1_LISTEN
;; #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