working direct cout to buffer!!!!!

This commit is contained in:
David Stancu 2018-01-18 17:01:26 -05:00
parent 955e361012
commit 9b5ffc265c

View File

@ -2,91 +2,65 @@
typ $B3
dsk main.l
; this doesn't actually modeset the cpu
mx %00
; ensure 16-bit mode (unnecessary?)
clc
xce
rep #$30
phk
plb
; we're going to enter into emulation mode, so we can toggle softswitches
; doing so clobbers our stack pointer and supposedly other things so let's
; save the state of as many things as we can.
ncpui da
nstack da
* sec
* clc
sep #$30 ; a, m, x half bank
; cpu status register first
php
pla
sta ncpui
; the stack pointer too
tsc
sta nstack
; enable emulation mode, tell merlin we did so
sec
xce
sep #$30
mx %11
; the manuals all seem to use zero page addresses, so we'll oblige and slide
; the DP offset all the way up and go to bank 00
lda $0000
pha
pld
lda $00
lda #$00
pha
plb
; toggle the softswitches; they don't take any values. some are only triggered
; by writes, $C054 can be triggered by a read
lda #$0000
pha
pld
; direct acc for these?
*; toggle the softswitches; they don't take any values. some are only triggered
*; by writes, $C054 can be triggered by a read
sta $C000 ; disable 80 column store?
sta $C00C ; disable 80 column hardware?!
* sta $C050 ; set standard apple ii gfx mode
sta $C050 ; set standard apple ii gfx mode
sta $C051 ; select text mode only. "only"?
lda $C054 ; select text page 1 (there are 2)
* lda $C056 ; select "low res" graphics
lda $C056 ; select "low res" graphics
lda $CF
lda #"H"
sta $0400
sta $0480
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
*; let's write more interesting (broken)
*mood asc "this is excruciating"
*nult db
* lda $00
* sta nult ; i.e null terminator
*loop clc
* ldx #0
* lda mood,x
* cmp $00
* sta $040,x
* inx
* bcc loop
* brk
*EPOC2
* clc
* xce
* rep #$30
*; disable emulation mode
* mx %00
* brk
*; load a char and write it to the 40 char text buffer
*bois lda "B"
* sta $E00400
* sta $E00401
* sta $E00402
* jmp bois
; Important locations
SPEAKER equ $E0C030
@ -245,6 +219,46 @@ QP adrl $0000