mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-19 15:30:08 +00:00
176 lines
2.4 KiB
ArmAsm
176 lines
2.4 KiB
ArmAsm
|
; Print-shop Style THINKING
|
||
|
|
|
||
|
|
; by Vince `deater` Weaver <vince@deater.net>
|
||
|
|
|
||
|
|
.include "zp.inc"
|
||
|
|
.include "hardware.inc"
|
||
|
|
|
||
|
|
; 161 -- original with page flip removed
|
||
|
|
; 159 -- remove extraneous store to YY
|
||
|
|
; 158 -- cond jump for jmp
|
||
|
|
|
||
|
|
; 0-------------------------
|
||
|
|
; 0 1111111111111111111111 0
|
||
|
|
; 0 1 22222222222222222221 0
|
||
|
|
|
||
|
|
; if XX < YY COL++
|
||
|
|
|
||
|
|
|
||
|
|
COL = $F0
|
||
|
|
XSTART = $F1
|
||
|
|
XSTOP = $F2
|
||
|
|
YSTART = $F3
|
||
|
|
YSTOP = $F4
|
||
|
|
OFFSET = $F5
|
||
|
|
CURRENT = $F6
|
||
|
|
YY = $F7
|
||
|
|
BASE = $F8
|
||
|
|
XS = $F9
|
||
|
|
|
||
|
|
thinking:
|
||
|
|
|
||
|
|
jsr SETGR ; set lo-res 40x40 mode
|
||
|
|
; A=$D0 afterward
|
||
|
|
|
||
|
|
big_loop:
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
sta YY
|
||
|
|
|
||
|
|
ldx #0
|
||
|
|
yloop:
|
||
|
|
txa
|
||
|
|
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
|
||
|
|
|
||
|
|
lda COL
|
||
|
|
and #$7
|
||
|
|
tay
|
||
|
|
lda color_lookup,Y
|
||
|
|
sta COLOR
|
||
|
|
|
||
|
|
;=======================
|
||
|
|
|
||
|
|
ldy #0
|
||
|
|
xloop:
|
||
|
|
|
||
|
|
|
||
|
|
inc_pointer:
|
||
|
|
inc YY
|
||
|
|
stx XS
|
||
|
|
|
||
|
|
; skip if out of range
|
||
|
|
cpx #7
|
||
|
|
bcc draw_color
|
||
|
|
cpx #14
|
||
|
|
bcs draw_color
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
ldx YY
|
||
|
|
lda thinking_data-1-35,X
|
||
|
|
sta CURRENT
|
||
|
|
thinking_xloop:
|
||
|
|
ror CURRENT
|
||
|
|
bcs skip_color
|
||
|
|
|
||
|
|
|
||
|
|
draw_color:
|
||
|
|
lda COLOR
|
||
|
|
sta (GBASL),Y
|
||
|
|
skip_color:
|
||
|
|
no_draw:
|
||
|
|
ldx XS
|
||
|
|
|
||
|
|
iny
|
||
|
|
|
||
|
|
cpy #40
|
||
|
|
beq done_done
|
||
|
|
|
||
|
|
tya
|
||
|
|
and #$7
|
||
|
|
beq inc_pointer
|
||
|
|
bne thinking_xloop
|
||
|
|
done_done:
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;=======================
|
||
|
|
|
||
|
|
cpx #9
|
||
|
|
beq blarch
|
||
|
|
bcc blurgh
|
||
|
|
inc COL
|
||
|
|
jmp blarch
|
||
|
|
blurgh:
|
||
|
|
dec COL
|
||
|
|
blarch:
|
||
|
|
inx
|
||
|
|
cpx #20
|
||
|
|
bne yloop
|
||
|
|
|
||
|
|
|
||
|
|
;==========================
|
||
|
|
; done drawing rainbow box
|
||
|
|
;==========================
|
||
|
|
|
||
|
|
;==========================
|
||
|
|
; flip pages
|
||
|
|
;==========================
|
||
|
|
|
||
|
|
|
||
|
|
;===================
|
||
|
|
; increment color
|
||
|
|
; after loop we are +10
|
||
|
|
; so -1 actually means increment 1 (because we mod 8 it)
|
||
|
|
; inc COL
|
||
|
|
; inc COL
|
||
|
|
dec COL
|
||
|
|
dec COL
|
||
|
|
|
||
|
|
;===================
|
||
|
|
; WAIT
|
||
|
|
|
||
|
|
lda #255
|
||
|
|
jsr WAIT ; A = 0 at end
|
||
|
|
|
||
|
|
beq big_loop
|
||
|
|
|
||
|
|
|
||
|
|
;0 1 2 3 3
|
||
|
|
;01234567|89012345|67890123|45678901|23456789
|
||
|
|
; ** ***| *** | ** * |* * * |* ***
|
||
|
|
; * * |* * * |* * *| * ** |* * *
|
||
|
|
; * * |* * * |* * * | * ** |* *
|
||
|
|
; * ***| ***** |* ** | * * * |* *
|
||
|
|
; * * *| * * |* * * | * * *|* * **
|
||
|
|
; * * |* * * |* * *| * * *|* * *
|
||
|
|
; ** * |* * * | ** * |* * * |* ****
|
||
|
|
; 7*5 bytes = 35 bytes
|
||
|
|
|
||
|
|
|
||
|
|
thinking_data:
|
||
|
|
.byte $EC,$38,$16,$15,$39
|
||
|
|
.byte $22,$45,$91,$34,$45
|
||
|
|
.byte $22,$45,$51,$34,$05
|
||
|
|
.byte $E2,$7C,$31,$54,$05
|
||
|
|
.byte $A2,$44,$51,$94,$65
|
||
|
|
.byte $22,$45,$91,$94,$45
|
||
|
|
.byte $2C,$45,$16,$15,$79
|
||
|
|
|
||
|
|
color_lookup:
|
||
|
|
; magenta, pink, orange, yellow, lgreen, aqua, mblue, lblue
|
||
|
|
.byte $33,$BB,$99,$DD,$CC,$EE,$66,$77
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
; for apple II bot entry at $3F5
|
||
|
|
|
||
|
|
; at +8A, so 36B
|
||
|
|
|
||
|
|
jmp thinking
|