mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 17:29:49 +00:00
gr: thinking: urgh too big to load at 3f5
took a while to figure out what was going on
This commit is contained in:
Vince Weaver
parent
af3834696b
commit
be704a2e44
@ -12,7 +12,7 @@ thinking.dsk: HELLO THINKING RAINBOW_BOX T2 THINKING_FLIP T3 THINKING_SLOW \
|
||||
THINKING_ATTEMPT6 CRACKING CRACKING_BOT THINKING_BOT
|
||||
cp $(EMPTYDISK) thinking.dsk
|
||||
$(DOS33) -y thinking.dsk SAVE A HELLO
|
||||
$(DOS33) -y thinking.dsk BSAVE -a 0x36b THINKING
|
||||
$(DOS33) -y thinking.dsk BSAVE -a 0xc00 THINKING
|
||||
$(DOS33) -y thinking.dsk BSAVE -a 0x36b THINKING_BOT
|
||||
$(DOS33) -y thinking.dsk BSAVE -a 0x36b CRACKING
|
||||
$(DOS33) -y thinking.dsk BSAVE -a 0x36b CRACKING_BOT
|
||||
@ -35,7 +35,7 @@ HELLO: hello.bas
|
||||
###
|
||||
|
||||
THINKING: thinking.o
|
||||
ld65 -o THINKING thinking.o -C $(LINKERSCRIPTS)/apple2_36b.inc
|
||||
ld65 -o THINKING thinking.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||
|
||||
thinking.o: thinking.s
|
||||
ca65 -o thinking.o thinking.s -l thinking.lst
|
||||
|
||||
@ -1,87 +1,109 @@
|
||||
; Print-shop Style THINKING
|
||||
|
||||
; without pageflip
|
||||
|
||||
; by Vince `deater` Weaver <vince@deater.net>
|
||||
|
||||
.include "zp.inc"
|
||||
.include "hardware.inc"
|
||||
|
||||
|
||||
; 0-------------------------
|
||||
; 0 1111111111111111111111 0
|
||||
; 0 1 22222222222222222221 0
|
||||
|
||||
; if XX < YY COL++
|
||||
;if XX > 39-YY COL--
|
||||
|
||||
COL = $F0
|
||||
XSTART = $F1
|
||||
XSTOP = $F2
|
||||
YSTART = $F3
|
||||
YSTOP = $F4
|
||||
OFFSET = $F5
|
||||
CURRENT = $F6
|
||||
CURRENT_BITMAP = $F6
|
||||
BITMAP_PTR = $F7
|
||||
BASE = $F8
|
||||
XSAVE = $F9
|
||||
SAVED_YY= $F9
|
||||
YSAVE = $FA
|
||||
SAVED_XX= $FA
|
||||
|
||||
|
||||
thinking:
|
||||
|
||||
jsr SETGR ; set lo-res 40x40 mode
|
||||
; A=$D0 afterward
|
||||
|
||||
big_loop:
|
||||
lda #0
|
||||
sta COL ; consistent starting color
|
||||
; not technically needed
|
||||
|
||||
ldx #0 ; reset YY
|
||||
stx BITMAP_PTR ; reset bitmap pointer to 0
|
||||
print_thinking_loop:
|
||||
|
||||
jsr print_thinking_frame
|
||||
|
||||
;===================
|
||||
; WAIT
|
||||
|
||||
lda #255
|
||||
jsr WAIT ; A = 0 at end
|
||||
|
||||
beq print_thinking_loop
|
||||
|
||||
|
||||
;=============================
|
||||
; print thinking
|
||||
;=============================
|
||||
|
||||
print_thinking_frame:
|
||||
|
||||
ldx #0 ; reset YY to 0
|
||||
stx BITMAP_PTR ; also reset bitmap pointer to 0
|
||||
|
||||
yloop:
|
||||
txa
|
||||
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)
|
||||
|
||||
txa ; load YY
|
||||
jsr GBASCALC ; take Y-coord/2 in A, put address in GBASL/H
|
||||
|
||||
;=======================
|
||||
|
||||
ldy #0
|
||||
ldy #0 ; reset XX to 0
|
||||
xloop:
|
||||
|
||||
|
||||
|
||||
; this is only jumped to every 8th XX
|
||||
inc_pointer:
|
||||
inc BITMAP_PTR
|
||||
|
||||
; load current bitmap ptr into CURRENT_BITMAP
|
||||
; is a don't care if not between 7 and 14
|
||||
|
||||
stx XSAVE
|
||||
ldx BITMAP_PTR
|
||||
lda thinking_data-1-35,X
|
||||
sta CURRENT
|
||||
sta CURRENT_BITMAP
|
||||
ldx XSAVE
|
||||
|
||||
thinking_xloop:
|
||||
; this is called every XX
|
||||
|
||||
stx XSAVE
|
||||
stx XSAVE ; save X (YY)
|
||||
sty YSAVE ; save Y (XX)
|
||||
|
||||
; skip if out of range
|
||||
; if YY <7 or YY > 14 then don't draw bitmap
|
||||
cpx #7
|
||||
bcc draw_color
|
||||
bcc do_plot
|
||||
cpx #14
|
||||
bcs draw_color
|
||||
bcs do_plot
|
||||
|
||||
ror CURRENT
|
||||
bcs skip_color
|
||||
handle_bitmap:
|
||||
ror CURRENT_BITMAP ; rotate next bit from bitmap in
|
||||
bcs skip_plot ; skip plotting (assume BG is black)
|
||||
|
||||
do_plot:
|
||||
|
||||
draw_color:
|
||||
lda COL ; set starting color
|
||||
and #$7
|
||||
tay
|
||||
lda color_lookup,Y ; lookup color
|
||||
lda color_lookup,Y ; lookup color in table
|
||||
|
||||
ldy YSAVE ; restore Y (XX)
|
||||
sta (GBASL),Y
|
||||
skip_color:
|
||||
no_draw:
|
||||
|
||||
skip_plot:
|
||||
|
||||
|
||||
;==================================
|
||||
; adjust colors to make boxes
|
||||
@ -93,14 +115,29 @@ no_draw:
|
||||
; XX is in Y (currently also in YSAVE)
|
||||
; YY is in X (currently also in XSAVE)
|
||||
|
||||
|
||||
ldx SAVED_YY ; YY
|
||||
ldy SAVED_XX ; XX
|
||||
|
||||
cpx #10
|
||||
bcc counting_up
|
||||
|
||||
counting_down:
|
||||
|
||||
; cpy #30 ; is XX < 10
|
||||
; bcc color_adjust_up ; then potentially adjust UP
|
||||
; cpy #10 ; is XX > 30
|
||||
; bcs color_adjust_down ; then potentially adjust down
|
||||
; bcc color_adjust_none ; else, do nothing
|
||||
|
||||
|
||||
counting_up:
|
||||
; if YY is < 10 do following, otherwise reverse
|
||||
|
||||
; if XX is < 10, check for inc
|
||||
; if XX is > 30 check for dex
|
||||
; else, no adjust
|
||||
|
||||
ldx SAVED_YY ; YY
|
||||
|
||||
ldy SAVED_XX ; XX
|
||||
|
||||
cpy #10 ; is XX < 10
|
||||
bcc color_adjust_up ; then potentially adjust UP
|
||||
cpy #30 ; is XX > 30
|
||||
@ -138,7 +175,7 @@ col_dec:
|
||||
dec COL
|
||||
col_down_same:
|
||||
|
||||
ldy YSAVE
|
||||
; ldy YSAVE
|
||||
|
||||
; fallthrough
|
||||
|
||||
@ -158,28 +195,28 @@ color_adjust_none:
|
||||
bne thinking_xloop
|
||||
done_done:
|
||||
|
||||
;=============================================
|
||||
; reverse the colors on bottom half of screen
|
||||
|
||||
|
||||
;=======================
|
||||
|
||||
; cpx #9
|
||||
; beq blarch
|
||||
; bcc blurgh
|
||||
; inc COL
|
||||
; jmp blarch
|
||||
;blurgh:
|
||||
; dec COL
|
||||
;blarch:
|
||||
cpx #9
|
||||
beq blarch
|
||||
bcc blurgh
|
||||
dec COL
|
||||
jmp blarch
|
||||
blurgh:
|
||||
inc COL
|
||||
blarch:
|
||||
|
||||
|
||||
;=======================
|
||||
; move to next line
|
||||
inc COL
|
||||
|
||||
inx
|
||||
cpx #20
|
||||
bne yloop
|
||||
beq done_yloop
|
||||
|
||||
jmp yloop
|
||||
done_yloop:
|
||||
|
||||
;==========================
|
||||
; done drawing rainbow box
|
||||
@ -199,13 +236,9 @@ done_done:
|
||||
dec COL
|
||||
dec COL
|
||||
|
||||
;===================
|
||||
; WAIT
|
||||
|
||||
lda #255
|
||||
jsr WAIT ; A = 0 at end
|
||||
|
||||
beq big_loop
|
||||
rts
|
||||
|
||||
|
||||
;0 1 2 3 3
|
||||
@ -232,14 +265,3 @@ thinking_data:
|
||||
.byte $88,$54,$56,$94,$65
|
||||
.byte $88,$54,$96,$94,$45
|
||||
.byte $88,$54,$14,$15,$79
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
; for apple II bot entry at $3F5
|
||||
|
||||
; at +8A, so 36B
|
||||
|
||||
jmp thinking
|
||||
|
||||
Loading…
Reference in New Issue
Block a user