mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +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
|
|
|
|
|
|
|