mirror of
https://github.com/mach-kernel/mrbuffer.git
synced 2024-11-22 05:31:37 +00:00
i am an idiot for placing data segments in the machine code without either telling PC to skip or making strict data segments, super ouch, but it works!
This commit is contained in:
parent
daf4eb3dc0
commit
1ec7f27dcc
71
src/main.S
71
src/main.S
@ -5,7 +5,7 @@
|
|||||||
; ensure 16-bit mode (unnecessary?)
|
; ensure 16-bit mode (unnecessary?)
|
||||||
clc
|
clc
|
||||||
xce
|
xce
|
||||||
rep #$30
|
rep #$20
|
||||||
|
|
||||||
phk
|
phk
|
||||||
plb
|
plb
|
||||||
@ -25,16 +25,12 @@
|
|||||||
ldal $00C056 ; select "low res" graphics
|
ldal $00C056 ; select "low res" graphics
|
||||||
|
|
||||||
; ok, we are done toggling switches, let's go make a string
|
; ok, we are done toggling switches, let's go make a string
|
||||||
rep #$30
|
rep #$20
|
||||||
|
|
||||||
phk
|
|
||||||
pld
|
|
||||||
|
|
||||||
hithere strl "hello world"
|
|
||||||
ldx #2
|
ldx #2
|
||||||
:loopy nop
|
:loopy nop
|
||||||
lda hithere,x
|
lda hithere,x
|
||||||
stal $000400
|
stal $000400,x
|
||||||
cpx hithere
|
cpx hithere
|
||||||
inx
|
inx
|
||||||
bcs outbrk
|
bcs outbrk
|
||||||
@ -42,41 +38,6 @@ hithere strl "hello world"
|
|||||||
|
|
||||||
outbrk brk
|
outbrk brk
|
||||||
|
|
||||||
; y u no work
|
|
||||||
* ldx hithere+2
|
|
||||||
* ldy #$0400
|
|
||||||
* lda hithere
|
|
||||||
|
|
||||||
* mvp #$02, #$00
|
|
||||||
|
|
||||||
* brk
|
|
||||||
|
|
||||||
* lda #"H"
|
|
||||||
* sta $0400
|
|
||||||
* lda #"e"
|
|
||||||
* sta $0401
|
|
||||||
* lda #"l"
|
|
||||||
* sta $0402
|
|
||||||
* lda #"l"
|
|
||||||
* sta $0403
|
|
||||||
* lda #"o"
|
|
||||||
* sta $0404
|
|
||||||
* lda #" "
|
|
||||||
* sta $0405
|
|
||||||
* lda #"W"
|
|
||||||
* sta $0406
|
|
||||||
* lda #"o"
|
|
||||||
* sta $0407
|
|
||||||
* lda #"r"
|
|
||||||
* sta $0408
|
|
||||||
* lda #"l"
|
|
||||||
* sta $0409
|
|
||||||
* lda #"d"
|
|
||||||
* sta $040A
|
|
||||||
brk
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
; Important locations
|
; Important locations
|
||||||
SPEAKER equ $E0C030
|
SPEAKER equ $E0C030
|
||||||
PRODOS16 equ $E100A8
|
PRODOS16 equ $E100A8
|
||||||
@ -93,6 +54,32 @@ ERROR brk
|
|||||||
QP adrl $0000
|
QP adrl $0000
|
||||||
da $00
|
da $00
|
||||||
|
|
||||||
|
hithere strl "this was excruciating"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user