dos33fsprogs/compression/plaintext_asm/plain.s
Vince Weaver a1732840d1 text_demo: move some more things around
also fix bug in text demo, whole problem of shared asm includes
2021-01-06 11:43:43 -05:00

160 lines
1.5 KiB
ArmAsm

; Loads to 806
HLINE = $F819 ;; HLINE Y,$2C at A
SETGR = $F390
; $20 to $60
; AND (all)
; BIT
; BMI, BVC
; EOR (all)
; SEC
; CLI
; JMP
; JSR
; LSR
; ROL
; RTI
; PHA
; PLP
; DEY $88 = 1000 1000-> $44 ROL
plain:
nop
nop
nop
nop
nop
nop
sec
rol ;0x01
sec
rol ;0x03
sec
rol ;0x07
sec
rol ;0x0f
sec
rol ;0x1f
sec
rol ;0x3f
flip_it:
jsr SETGR
lda #$99
sta $30
lda #39
sta $2c
ldy #0
lda #15
jsr HLINE
end:
jmp end
.if 0
; x012345 ; xx6789ab ; xxcdef01 ; xx234567
; x=0, y=0
lda eeep+3 ; 3
asl ; 1
asl ; 1
ror eeep+2 ; 3
ror ; 1
ror eeep+2 ; 3
ror ; 1
sta urgh+2 ; 3
;=======
; 18
; xx012345 ; xx6789ab ; xxxxcdef ; 01234567
lda eeep+0 ; 3
asl eeep+1 ; 3
asl eeep+1 ; 3
asl eeep+1 ; 3
rol ; 1
asl eeep+1 ; 3
rol ; 1
sta urgh+0 ; 3
;======
; 20
; 01234567 ; 89ab0000 ; xxxxcdef ; 01234567
lda eep+2 ; 3
and #$f ; 2
ora eep+1 ; 3
sta urgh+1 ; 3
;=====
; 11
inx
inx
inx ; 3
iny
iny
iny
iny ; 4
;bne ; 2
ldy #0
loop:
lda eeep,Y
asl
asl
sta urgh,Y
iny
; cmp #$
bne loop
ldy #0
loop:
lda eeep,Y
sta ZP
ldx #3
three_loop:
lda ZP
and #$3
ora urgh,Y
sta urgh,Y
lsr ZP
lsr ZP
iny
dex
bne three_loop
tya
bne loop
01xx xx00
ldy #0
loop:
lda eep,Y ;3
asl ;1
asl ;1
sta urgh,Y ;3
lda eep+,Y ;3
lsr ;1
lsr ;1
and #$f ;2
ora urgh,Y ;3
sta urgh,Y ;3
iny
bpl loop
.endif
; fory=0to2:fori=0to39:z=y*40+i:color=peek(2054+z):ploti,y*16:color=peek(2154+z):ploti,1+y*16:nextI,Y