diff --git a/graphics/gr/thinking/Makefile b/graphics/gr/thinking/Makefile new file mode 100644 index 00000000..36c15572 --- /dev/null +++ b/graphics/gr/thinking/Makefile @@ -0,0 +1,40 @@ +include ../../../Makefile.inc + +DOS33 = ../../../utils/dos33fs-utils/dos33 +TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft +LINKERSCRIPTS = ../../../linker_scripts +EMPTYDISK = ../../../empty_disk/empty.dsk + +all: thinking.dsk + +thinking.dsk: HELLO THINKING RAINBOW_BOX + cp $(EMPTYDISK) thinking.dsk + $(DOS33) -y thinking.dsk SAVE A HELLO + $(DOS33) -y thinking.dsk BSAVE -a 0xC00 THINKING + $(DOS33) -y thinking.dsk BSAVE -a 0xC00 RAINBOW_BOX + +### + +HELLO: hello.bas + $(TOKENIZE) < hello.bas > HELLO + +### + +THINKING: thinking.o + ld65 -o THINKING thinking.o -C $(LINKERSCRIPTS)/apple2_c00.inc + +thinking.o: thinking.s + ca65 -o thinking.o thinking.s -l thinking.lst + +### + +RAINBOW_BOX: rainbow_box.o + ld65 -o RAINBOW_BOX rainbow_box.o -C $(LINKERSCRIPTS)/apple2_c00.inc + +rainbow_box.o: rainbow_box.s + ca65 -o rainbow_box.o rainbow_box.s -l rainbow_box.lst + +### + +clean: + rm -f *~ *.o *.lst HELLO THINKING RAINBOW_BOX diff --git a/graphics/gr/thinking/hardware.inc b/graphics/gr/thinking/hardware.inc new file mode 100644 index 00000000..8e0d0a83 --- /dev/null +++ b/graphics/gr/thinking/hardware.inc @@ -0,0 +1,105 @@ +;; HARDWARE LOCATIONS + +KEYPRESS = $C000 +KEYRESET = $C010 + +;; SOFT SWITCHES +CLR80COL = $C000 ; PAGE0/PAGE1 normal +SET80COL = $C001 ; PAGE0/PAGE1 switches PAGE0 in Aux instead +EIGHTYCOLOFF = $C00C +EIGHTYCOLON = $C00D +TBCOLOR = $C022 ; IIgs text foreground / background colors +NEWVIDEO = $C029 ; IIgs graphics modes +SPEAKER = $C030 +CLOCKCTL = $C034 ; bits 0-3 are IIgs border color +SET_GR = $C050 +SET_TEXT = $C051 +FULLGR = $C052 +TEXTGR = $C053 +PAGE0 = $C054 +PAGE1 = $C055 +LORES = $C056 ; Enable LORES graphics +HIRES = $C057 ; Enable HIRES graphics +AN3 = $C05E ; Annunciator 3 + + + + + + + +PADDLE_BUTTON0 = $C061 +PADDLE_BUTTON1 = $C062 +PADDL0 = $C064 +PTRIG = $C070 + +;; BASIC ROUTINES + +NORMAL = $F273 + +;; MONITOR ROUTINES + +PLOT = $F800 ;; PLOT AT Y,A (A colors output, Y preserved) +PLOT1 = $F80E ;; PLOT at (GBASL),Y (need MASK to be $0f or $f0) +SCRN2 = $F879 ;; set A to top or bottom nibble based on C +HLINE = $F819 ;; HLINE Y,$2C at A +VLINE = $F828 ;; VLINE A,$2D at Y +CLRSCR = $F832 ;; Clear low-res screen +CLRTOP = $F836 ;; clear only top of low-res screen +GBASCALC= $F847 ;; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear) +NEXTCOL = $F85F ;; COLOR=COLOR+3 +SETCOL = $F864 ;; COLOR=A +ROM_TEXT2COPY = $F962 ;; iigs +SETTXT = $FB36 +SETGR = $FB40 ;; A is $D0 after +TABV = $FB5B ;; VTAB to A +ROM_MACHINEID = $FBB3 ;; iigs +BELL = $FBDD ;; ring the bell +BASCALC = $FBC1 ;; +VTAB = $FC22 ;; VTAB to CV +HOME = $FC58 ;; Clear the text screen +WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us +CROUT1 = $FD8B +SETINV = $FE80 ;; INVERSE +SETNORM = $FE84 ;; NORMAL +COUT = $FDED ;; output A to screen +COUT1 = $FDF0 ;; output A to screen + + + + + + + +COLOR_BLACK = 0 +COLOR_RED = 1 +COLOR_DARKBLUE = 2 +COLOR_PURPLE = 3 +COLOR_DARKGREEN = 4 +COLOR_GREY = 5 +COLOR_MEDIUMBLUE = 6 +COLOR_LIGHTBLUE = 7 +COLOR_BROWN = 8 +COLOR_ORANGE = 9 +COLOR_GREY2 = 10 +COLOR_PINK = 11 +COLOR_LIGHTGREEN = 12 +COLOR_YELLOW = 13 +COLOR_AQUA = 14 +COLOR_WHITE = 15 + +COLOR_BOTH_BLACK = $00 +COLOR_BOTH_RED = $11 +COLOR_BOTH_DARKBLUE = $22 +COLOR_BOTH_DARKGREEN = $44 +COLOR_BOTH_GREY = $55 +COLOR_BOTH_MEDIUMBLUE = $66 +COLOR_BOTH_LIGHTBLUE = $77 +COLOR_BOTH_BROWN = $88 +COLOR_BOTH_ORANGE = $99 +COLOR_BOTH_PINK = $BB +COLOR_BOTH_LIGHTGREEN = $CC +COLOR_BOTH_YELLOW = $DD +COLOR_BOTH_AQUA = $EE +COLOR_BOTH_WHITE = $FF + diff --git a/graphics/gr/thinking/hello.bas b/graphics/gr/thinking/hello.bas new file mode 100644 index 00000000..133a44bb --- /dev/null +++ b/graphics/gr/thinking/hello.bas @@ -0,0 +1,2 @@ +5 HOME +10 PRINT CHR$(4);"CATALOG" diff --git a/graphics/gr/thinking/rainbow_box.s b/graphics/gr/thinking/rainbow_box.s new file mode 100644 index 00000000..e6d53997 --- /dev/null +++ b/graphics/gr/thinking/rainbow_box.s @@ -0,0 +1,91 @@ +; Print-shop Style THINKING + +; by Vince `deater` Weaver + +.include "zp.inc" +.include "hardware.inc" + +COL = $F0 +XSTART = $F1 +XSTOP = $F2 +YSTART = $F3 +YSTOP = $F4 + +thinking: + + jsr SETGR ; set lo-res 40x40 mode + ; A=$D0 afterward + + + ; COL value doesn't matter? + + lda #0 + sta YSTART + sta XSTART + + lda #20 + sta YSTOP + asl + sta XSTOP + +box_loop: + + + ldx YSTART + +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 + + ldy XSTART +xloop: + sta (GBASL),Y + iny + cpy XSTOP + bne xloop + + inx + cpx YSTOP + bne yloop + + inc COL + + inc XSTART + inc XSTART + dec XSTOP + dec XSTOP + + inc YSTART + dec YSTOP + lda YSTOP + cmp #10 + bne box_loop + + + +;0 1 2 3 3 +;0123456789012345678901234567890123456789 +; ***** * * * * * * * * * * *** +; * * * * ** * * * * ** * * * +; * * * * ** * * * * ** * * +; * **** * * * * ** * * * * * +; * * * * * ** * * * * ** * ** +; * * * * * ** * * * * ** * * +; * * * * * * * * * * * **** +; +; 7*5 bytes = 35 bytes + +thinking_loop: + +end: + jmp end + + +color_lookup: + ; magenta, pink, orange, yellow, lgreen, aqua, mblue, lblue +.byte $33,$BB,$99,$DD,$CC,$EE,$66,$77 diff --git a/graphics/gr/thinking/thinking.s b/graphics/gr/thinking/thinking.s new file mode 100644 index 00000000..e6d53997 --- /dev/null +++ b/graphics/gr/thinking/thinking.s @@ -0,0 +1,91 @@ +; Print-shop Style THINKING + +; by Vince `deater` Weaver + +.include "zp.inc" +.include "hardware.inc" + +COL = $F0 +XSTART = $F1 +XSTOP = $F2 +YSTART = $F3 +YSTOP = $F4 + +thinking: + + jsr SETGR ; set lo-res 40x40 mode + ; A=$D0 afterward + + + ; COL value doesn't matter? + + lda #0 + sta YSTART + sta XSTART + + lda #20 + sta YSTOP + asl + sta XSTOP + +box_loop: + + + ldx YSTART + +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 + + ldy XSTART +xloop: + sta (GBASL),Y + iny + cpy XSTOP + bne xloop + + inx + cpx YSTOP + bne yloop + + inc COL + + inc XSTART + inc XSTART + dec XSTOP + dec XSTOP + + inc YSTART + dec YSTOP + lda YSTOP + cmp #10 + bne box_loop + + + +;0 1 2 3 3 +;0123456789012345678901234567890123456789 +; ***** * * * * * * * * * * *** +; * * * * ** * * * * ** * * * +; * * * * ** * * * * ** * * +; * **** * * * * ** * * * * * +; * * * * * ** * * * * ** * ** +; * * * * * ** * * * * ** * * +; * * * * * * * * * * * **** +; +; 7*5 bytes = 35 bytes + +thinking_loop: + +end: + jmp end + + +color_lookup: + ; magenta, pink, orange, yellow, lgreen, aqua, mblue, lblue +.byte $33,$BB,$99,$DD,$CC,$EE,$66,$77 diff --git a/graphics/gr/thinking/zp.inc b/graphics/gr/thinking/zp.inc new file mode 100644 index 00000000..32082246 --- /dev/null +++ b/graphics/gr/thinking/zp.inc @@ -0,0 +1,158 @@ +;; Zero page monitor routines addresses + +;; LZSA addresses +NIBCOUNT = $00 + +WNDLFT = $20 +WNDWDTH = $21 +WNDTOP = $22 +WNDBTM = $23 +CH = $24 +CV = $25 +GBASL = $26 +GBASH = $27 +BASL = $28 +BASH = $29 +H2 = $2C +V2 = $2D +MASK = $2E +COLOR = $30 +INVFLG = $32 + +; More zero-page addresses +; we try not to conflict with anything DOS, MONITOR or BASIC related + +;; Flying Routine Only + +TURNING = $60 +;SCREEN_X = $61 ; not used? +SCREEN_Y = $62 +ANGLE = $63 +HORIZ_SCALE_I = $64 +HORIZ_SCALE_F = $65 + +SCALE_I = $64 +SCALE_F = $65 + +FACTOR_I = $66 +FACTOR_F = $67 +DX_I = $68 +DX_F = $69 +SPACEX_I = $6A +SPACEX_F = $6B +CX_I = $6C +CX_F = $6D +DY_I = $6E +DY_F = $6F +SPACEY_I = $70 +SPACEY_F = $71 +CY_I = $72 +CY_F = $73 +TEMP_I = $74 +TEMP_F = $75 +DISTANCE_I = $76 +DISTANCE_F = $77 +SPACEZ_I = $78 +SPACEZ_F = $79 +DRAW_SPLASH = $7A +SPEED = $7B +SPLASH_COUNT = $7C +OVER_LAND = $7D +NUM1L = $7E +NUM1H = $7F +NUM2L = $80 +NUM2H = $81 +RESULT = $82 ; 83,84,85 +NEGATE = $86 ; UNUSED? +LAST_SPACEX_I = $87 +LAST_SPACEY_I = $88 +LAST_MAP_COLOR = $89 +COLOR_MASK = $8A + +;; World Map Only + +ODD = $7B +DIRECTION = $7C +REFRESH = $7D +ON_BIRD = $7E +MOVED = $7F +STEPS = $80 +TFV_X = $81 +TFV_Y = $82 +NEWX = $83 +NEWY = $84 +MAP_X = $85 +GROUND_COLOR = $86 + + +LEVEL_OVER = $A0 +JOYSTICK_ENABLED= $A1 +FRAMEL = $A2 +FRAMEH = $A3 +WHICH_LOAD = $A4 +MENU_RESULT = $A5 +SOUND_STATUS = $A6 + SOUND_DISABLED = $80 + SOUND_IN_LC = $01 ; $01 sound effects in language card + SOUND_MOCKINGBOARD = $02 ; mockingboard detected +JS_BUTTON_STATE = $A7 + +COLOR1 = $E0 +COLOR2 = $E1 +MATCH = $E2 +XX = $E3 +YY = $E4 +SHIPY = $E4 +YADD = $E5 +LOOP = $E6 +;MEMPTRL = $E7 +;MEMPTRH = $E8 +NAMEL = $E9 +NAMEH = $EA +NAMEX = $EB +CHAR = $EC +DISP_PAGE = $ED +DRAW_PAGE = $EE + +FIRST = $F0 +LASTKEY = $F1 +PADDLE_STATUS = $F2 +XPOS = $F3 +YPOS = $F4 +TEMP = $FA +RUN = $FA +TEMP2 = $FB +TEMPY = $FB +INL = $FC +INH = $FD +OUTL = $FE +OUTH = $FF + + + + + + +; read any file slot 6 version +; based on FASTLD6 and RTS copyright (c) Peter Ferrie 2011-2013,2018 + +; modified to assemble with ca65 -- vmw +; added code to patch it to run from current disk slot -- vmw + + + adrlo = $26 ; constant from boot prom + adrhi = $27 ; constant from boot prom + tmpsec = $3c ; constant from boot prom + reqsec = $3d ; constant from boot prom + sizelo = $44 + sizehi = $45 + secsize = $46 + + ldsizel = $70 + ldsizeh = $71 + namlo = $7b + namhi = $7c + step = $7d ; state for stepper motor + tmptrk = $7e ; temporary copy of current track + phase = $7f ; current phase for /seek +