mrbuffer/src/main.S

            rel
            typ   $B3
            dsk   main.l

; ensure 16-bit mode (unnecessary?)
            clc
            xce
            rep   #$30

            phk
            plb

; half bank for accumulator, you don't want to toggle them on then back off, right?
            sep   #$30

; toggle the softswitches; they don't take any values. some are only triggered
; by writes, $C054 can be triggered by a read
            stal  $00C000     ; disable 80 column store?

            stal  $00C00C     ; disable 80 column hardware?!
            stal  $00C050     ; set standard apple ii gfx mode
            stal  $00C051     ; select text mode only. "only"?
            ldal  $00C054     ; select text page 1 (there are 2)
            ldal  $00C056     ; select "low res" graphics

            rep   #$30
            sep   #$20

; show the current char on screen
; read keyboard then hit strobe to reset
            ldx   #0
            ldy   #0
            ldal  $00C010

; core key event loop

:kloop      clc
            ldal  $00C000
            bit   #%1         ; check strobe bit to make sure a key was pressed
            bmi   :kjump
            jmp   :kloop
:kjump      jsr   keydown
            jsr   drawpos
            jmp   :kloop

keydown     cmp   #$8B        ; up
            beq   up
            cmp   #$8A        ; down
            beq   down
            cmp   #$88        ; left
            beq   left
            cmp   #$95        ; right
            beq   right
            cmp   #$FF        ; backspace
            beq   backspace
            cmp   #$8D        ; return
            beq   down
            inx
            jsr   drawchar
finkey      ldal  $00C010     ; clear strobe bit
            lda   #0
            rts

up          cpy   #0
            beq   finkey
            dey
            jmp   finkey
down        cpy   #22
            beq   finkey
            iny
            jmp   finkey
left        cpx   #0
            beq   finkey
            dex
            jmp   finkey
right       cpx   #39
            beq   finkey
            inx
            jmp   finkey
backspace   lda   #$A0
            jsr   drawchar
            jmp   left

; $B0 is the start of the char table for numbers
; we start by preserving our registers
drawpos     pha
            phx
                              ; draw the parens and comma
            lda   #"("
            stal  $0007F1
            lda   #$AC
            stal  $0007F4
            lda   #")"
            stal  $0007F7
            txa
            jsr   tencount
            adc   #$B0
            stal  $0007F3
            txa
            adc   #$B0
            stal  $0007F2
            tya
            jsr   tencount
            adc   #$B0
            stal  $0007F6
            txa
            adc   #$B0
            stal  $0007F5
                              ; restore x and original keydown char
            plx
            pla
            rts

drawchar    stal  $000400,X   ; display the character
            rts

tencount    ldx   #0
:substart   clc
            cmp   #10
            bcc   :subout
            sbc   #10
            inx
            jmp   :substart
:subout     rts

; working text blit
*            ldx   #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val
*            ldy   #$0400     ; start of text buffer on 00
*            ldal  hithere
*            dec

*            mvn   $02,        $00
*            brk

; Important locations
SPEAKER     equ   $E0C030
PRODOS16    equ   $E100A8

            jsl   PRODOS16

; This exit code is "device busy", why is it the only one
; that works?!

            da    $29
            adrl  QP
            bcs   ERROR

ERROR       brk

QP          adrl  $0000
            da    $00

hithere     strl  "this was excruciating"
brkboi      brk

bufbase     da    #40
lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`rel`
			`typ $B3`
			`dsk main.l`
working assemble -> deploy thanks to the FB group for some assist 2018-01-15 15:58:58 +00:00
show last key 2018-01-29 00:57:31 +00:00			`; ensure 16-bit mode (unnecessary?)`
working direct cout to buffer!!!!! 2018-01-18 22:01:26 +00:00			`clc`
			`xce`
figure out how to modeset but still need to toggle to get full bank a for adding, unelegant perhaps? 2018-02-05 02:25:37 +00:00			`rep #$30`
working direct cout to buffer!!!!! 2018-01-18 22:01:26 +00:00
lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`phk`
			`plb`
working assemble -> deploy thanks to the FB group for some assist 2018-01-15 15:58:58 +00:00
figured out that merlin has long modes which means i dont have to do crazy things to toggle softswitches anymore 2018-01-28 03:41:56 +00:00			`; half bank for accumulator, you don't want to toggle them on then back off, right?`
			`sep #$30`
working direct cout to buffer!!!!! 2018-01-18 22:01:26 +00:00
trying to display text via a loop, but will likely attempt using the toolbox stuff soon 2018-01-27 02:25:23 +00:00			`; toggle the softswitches; they don't take any values. some are only triggered`
			`; by writes, $C054 can be triggered by a read`
figured out that merlin has long modes which means i dont have to do crazy things to toggle softswitches anymore 2018-01-28 03:41:56 +00:00			`stal $00C000 ; disable 80 column store?`
working direct cout to buffer!!!!! 2018-01-18 22:01:26 +00:00
figured out that merlin has long modes which means i dont have to do crazy things to toggle softswitches anymore 2018-01-28 03:41:56 +00:00			`stal $00C00C ; disable 80 column hardware?!`
			`stal $00C050 ; set standard apple ii gfx mode`
			`stal $00C051 ; select text mode only. "only"?`
			`ldal $00C054 ; select text page 1 (there are 2)`
			`ldal $00C056 ; select "low res" graphics`
movable text cursor impl half working, need to figure out why keys stick? 2018-01-29 04:13:32 +00:00
figure out how to modeset but still need to toggle to get full bank a for adding, unelegant perhaps? 2018-02-05 02:25:37 +00:00			`rep #$30`
			`sep #$20`
getting closer, properly toggling switches now! 2018-01-17 06:07:57 +00:00
show last key 2018-01-29 00:57:31 +00:00			`; show the current char on screen`
working cursor move l/r! 2018-02-01 04:47:06 +00:00			`; read keyboard then hit strobe to reset`
movable text cursor impl half working, need to figure out why keys stick? 2018-01-29 04:13:32 +00:00			`ldx #0`
refactored with working char index! 2018-02-08 04:30:43 +00:00			`ldy #0`
working cursor move l/r! 2018-02-01 04:47:06 +00:00			`ldal $00C010`
show last key 2018-01-29 00:57:31 +00:00
refactored with working char index! 2018-02-08 04:30:43 +00:00			`; core key event loop`

some minor cleanup before i refactor it again also implemented backspace 2018-02-07 01:04:16 +00:00			`:kloop clc`
much better handling of this, checking against bit 7 is more correct than z flag 2018-02-04 22:00:31 +00:00			`ldal $00C000`
refactored with working char index! 2018-02-08 04:30:43 +00:00			`bit #%1 ; check strobe bit to make sure a key was pressed`
some minor cleanup before i refactor it again also implemented backspace 2018-02-07 01:04:16 +00:00			`bmi :kjump`
			`jmp :kloop`
			`:kjump jsr keydown`
refactored with working char index! 2018-02-08 04:30:43 +00:00			`jsr drawpos`
some minor cleanup before i refactor it again also implemented backspace 2018-02-07 01:04:16 +00:00			`jmp :kloop`
much better handling of this, checking against bit 7 is more correct than z flag 2018-02-04 22:00:31 +00:00
refactored with working char index! 2018-02-08 04:30:43 +00:00			`keydown cmp #$8B ; up`
working single line with drop arrow key write 2018-02-05 00:21:35 +00:00			`beq up`
			`cmp #$8A ; down`
			`beq down`
			`cmp #$88 ; left`
			`beq left`
			`cmp #$95 ; right`
			`beq right`
some minor cleanup before i refactor it again also implemented backspace 2018-02-07 01:04:16 +00:00			`cmp #$FF ; backspace`
			`beq backspace`
			`cmp #$8D ; return`
			`beq down`
working single line with drop arrow key write 2018-02-05 00:21:35 +00:00			`inx`
refactored with working char index! 2018-02-08 04:30:43 +00:00			`jsr drawchar`
			`finkey ldal $00C010 ; clear strobe bit`
			`lda #0`
			`rts`
working single line with drop arrow key write 2018-02-05 00:21:35 +00:00
refactored with working char index! 2018-02-08 04:30:43 +00:00			`up cpy #0`
			`beq finkey`
			`dey`
			`jmp finkey`
			`down cpy #22`
			`beq finkey`
			`iny`
			`jmp finkey`
			`left cpx #0`
			`beq finkey`
			`dex`
			`jmp finkey`
			`right cpx #39`
			`beq finkey`
rename project 2018-02-05 01:06:37 +00:00			`inx`
refactored with working char index! 2018-02-08 04:30:43 +00:00			`jmp finkey`
			`backspace lda #$A0`
			`jsr drawchar`
			`jmp left`

			`; $B0 is the start of the char table for numbers`
			`; we start by preserving our registers`
			`drawpos pha`
			`phx`
			`; draw the parens and comma`
			`lda #"("`
			`stal $0007F1`
			`lda #$AC`
			`stal $0007F4`
			`lda #")"`
			`stal $0007F7`
			`txa`
			`jsr tencount`
			`adc #$B0`
			`stal $0007F3`
			`txa`
			`adc #$B0`
			`stal $0007F2`
			`tya`
			`jsr tencount`
			`adc #$B0`
			`stal $0007F6`
			`txa`
			`adc #$B0`
			`stal $0007F5`
			`; restore x and original keydown char`
			`plx`
			`pla`
			`rts`
working single line with drop arrow key write 2018-02-05 00:21:35 +00:00
refactored with working char index! 2018-02-08 04:30:43 +00:00			`drawchar stal $000400,X ; display the character`
working cursor move l/r! 2018-02-01 04:47:06 +00:00			`rts`
cleaned up a bit with reliable inx dex branches, but need to look at it more to figure out the weird text effect 2018-01-30 04:20:16 +00:00
refactored with working char index! 2018-02-08 04:30:43 +00:00			`tencount ldx #0`
			`:substart clc`
			`cmp #10`
			`bcc :subout`
			`sbc #10`
			`inx`
			`jmp :substart`
			`:subout rts`

show last key 2018-01-29 00:57:31 +00:00			`; working text blit`
			`* ldx #hithere+2 ; strl, first two bytes are strlen, # denotes immediate addr val`
			`* ldy #$0400 ; start of text buffer on 00`
			`* ldal hithere`
			`* dec`
trying to display text via a loop, but will likely attempt using the toolbox stuff soon 2018-01-27 02:25:23 +00:00
show last key 2018-01-29 00:57:31 +00:00			`* mvn $02, $00`
			`* brk`
trying to display text via a loop, but will likely attempt using the toolbox stuff soon 2018-01-27 02:25:23 +00:00
lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`; Important locations`
			`SPEAKER equ $E0C030`
			`PRODOS16 equ $E100A8`
working assemble -> deploy thanks to the FB group for some assist 2018-01-15 15:58:58 +00:00
lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`jsl PRODOS16`
more reference material and working text blit 2018-01-28 22:29:30 +00:00
			`; This exit code is "device busy", why is it the only one`
			`; that works?!`

lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`da $29`
			`adrl QP`
working assemble -> deploy thanks to the FB group for some assist 2018-01-15 15:58:58 +00:00			`bcs ERROR`

lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`ERROR brk`
working assemble -> deploy thanks to the FB group for some assist 2018-01-15 15:58:58 +00:00
			`QP adrl $0000`
lots of learning the last 24h trying to now figure out how to modeset properly for video buffer 2018-01-17 00:52:31 +00:00			`da $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! 2018-01-28 16:40:43 +00:00			`hithere strl "this was excruciating"`
cleaned up a bit with reliable inx dex branches, but need to look at it more to figure out the weird text effect 2018-01-30 04:20:16 +00:00			`brkboi brk`

refactored with working char index! 2018-02-08 04:30:43 +00:00			`bufbase da #40`









































































some minor cleanup before i refactor it again also implemented backspace 2018-02-07 01:04:16 +00:00


















cleaned up a bit with reliable inx dex branches, but need to look at it more to figure out the weird text effect 2018-01-30 04:20:16 +00:00