mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-26 06:30:59 +00:00
160 lines
1.5 KiB
ArmAsm
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
|
||
|
|
||
|
|
||
|
|