Transactor

home *** CD-ROM | disk | FTP | other *** search

/ Transactor / Transactor_14_1986_Transactor_Publishing.d64 / graphcmds (.txt) < prev next >

Wrap

Commodore BASIC | 2023-02-26 | 14KB | 1,089 lines

0 rem graphcmds (paul adams) : 1 : 2 rem 24 statements, 0 functions 3 : 4 rem keyword characters: 113 5 : 6 rem keywords #175 to #198 7 : 8 rem================================== 9 : 39 setlfs = $ffba 40 setnam = $ffbd 41 open = $ffc0 42 chkin = $ffc6 43 close = $ffc3 44 clrchn = $ffcc 45 getin = $ffe4 46 chkout = $ffc9 47 chrout = $ffd2 48 ; 49 tmp = $57 50 tmp2 = $59 51 tmp3 = $5a 52 tmp4 = $5c 400 .asc "plo[212]gcl[210]gco[204]uppe[210]" 401 .asc "lowe[210]defaul[212]lin[197]" 402 .asc "slin[197]dlin[197]nlin[197]" 403 .asc "qlin[197]cha[210]scha[210]" 404 .asc "ba[210]sba[210]dba[210]nba[210]" 405 .asc "gsav[197]gloa[196]siz[197]" 406 .asc "lma[210]gprin[212]eras[197]" 407 .asc "patter[206] 1400 .w[176]d plo[171]1,gcl[171]1,gco[171]1,uppe[171]1 1401 .w[176]d lowe[171]1,[150]lt[171]1,plin[171]1 1402 .w[176]d slin[171]1,dlin[171]1,nlin[171]1 1403 .w[176]d qlin[171]1,cha[171]1,scha[171]1 1404 .w[176]d bba[171]1,sba[171]1,dba[171]1,nba[171]1 1405 .w[176]d gsav[171]1,gloa[171]1,siz[171]1 1406 .w[176]d lma[171]1,gprin[171]1,eras[171]1 1408 .w[176]d patt[171]1 2620 usfp ldx #0 2622 stx $0d 2624 sta $62 2626 sty $63 2628 ldx #$90 2630 sec 2632 jmp $bc49 2634 ; 3694 powers .byte 1,2,4,8,16,32,64,128 3696 ; 12694 plo jsr [161]2 12696 plo1 sec 12698 lda #$8f 12700 sbc y 12702 sta ty 12704 lda #1 12706 sbc y[170]1 12708 sta ty[170]1 12710 bcs plo2 12712 rts 12714 plo2 ldx #$c0 12716 ldy #$c0 12718 lda y[170]1 12720 bne plo3 12722 lda #$c7 12724 cmp y 12726 bcs plo4 12728 plo3 ldx #0 12730 ldy #$a0 12732 plo4 stx tmp 12734 sty tmp[170]1 12736 ldx x 12738 lda x[170]1 12740 beq plo5 12742 cmp #1 12744 bne plo2 12746 cpx #$40 12748 bcs plo2 12750 plo5 r[176] 12752 txa 12754 r[176] 12756 lsr 12758 lsr 12760 sta col 12762 txa 12764 [175] #7 12766 e[176] #7 12768 tax 12770 lda powers,x 12772 sta bitp 12774 ldx ty 12776 lda ty[170]1 12778 r[176] 12780 txa 12782 r[176] 12784 lsr 12786 lsr 12788 sta row 12790 txa 12792 [175] #7 12794 sta rast 12796 lda row 12798 ldx #6 12800 jsr cmltad 12802 ldx #2 12804 jsr mltadd 12806 lda col 12808 ldx #3 12810 jsr cmltad 12812 ldy #0 12814 sty tmp2 12816 lda rast 12818 jsr add 12820 sei 12822 lda 1 12824 [175] #$fc 12826 sta 1 12828 lda (tmp),y 12830 e[176] erflg 12832 [176]a bitp 12834 e[176] erflg 12836 sta (tmp),y 12838 lda 1 12840 [176]a #3 12842 sta 1 12844 cli 12846 ldy $dd00 12848 lda $028d 12850 tax 12852 [175] #2 12854 beq plo7 12856 jsr [150]lt 12858 plo6 lda $028d 12860 tax 12862 [175] #2 12864 bne plo6 12866 tya 12868 [175] #3 12870 cmp #3 12872 beq plo11 12874 e[176] #1 12876 bcc plo9 12878 plo7 txa 12880 [175] #4 12882 beq plo11 12884 plo8 lda $028d 12886 [175] #4 12888 bne plo8 12890 tya 12892 [175] #3 12894 plo9 bne plo10 12896 jmp uppe 12898 plo10 cmp #1 12900 bne plo11 12902 jmp lowe 12904 plo11 rts 12906 ; 12908 cmltad pha 12910 lda #0 12912 sta tmp2 12914 pla 12916 ; 12918 mltadd asl 12920 rol tmp2 12922 dex 12924 bne mltadd 12926 ; 12928 add pha 12930 clc 12932 adc tmp 12934 sta tmp 12936 lda tmp2 12938 adc tmp[170]1 12940 sta tmp[170]1 12942 pla 12944 rts 12946 ; 12948 [161]2 jsr $ad8a 12950 jsr $aefd 12952 jsr comx 12954 jsr $b7f7 12956 sty x 12958 sta x[170]1 12960 jsr $ad8a 12962 jsr comy 12964 jsr $b7f7 12966 sty y 12968 sta y[170]1 12970 rts 12972 ; 12974 gcl lda #$bf 12976 sta t3 12978 lda #$ff 12980 sta t5 12982 ldx #$20 12984 ldy #$40 12986 lda #0 12988 gcl1 pha 12990 lda #0 12992 sta t2 12994 sta t4 12996 pla 12998 gcl2 dey 13000 sta (t2),y 13002 sta (t4),y 13004 bne gcl2 13006 dec t3 13008 dec t5 13010 dex 13012 bne gcl2 13014 rts 13016 ; 13018 gco jsr $b79e 13020 lda #$8f 13022 sta t3 13024 lda #$cf 13026 sta t5 13028 txa 13030 ldx #4 13032 ldy #$e8 13034 bne gcl1 13036 ; 13038 uppe ldx #0 13040 .byte $2c 13042 lowe ldx #3 13044 .byte $2c 13046 [150]lt ldx #6 13048 lda scrdat,x 13050 sta $d011 13052 inx 13054 lda scrdat,x 13056 sta $d018 13058 lda $dd02 13060 [176]a #3 13062 sta $dd02 13064 inx 13066 sei 13068 [150]1 lda $d012 13070 bne [150]1 13072 lda $dd00 13074 [175] #$fc 13076 [176]a scrdat,x 13078 sta $dd00 13080 cli 13082 rts 13084 ; 13086 scrdat [178][172] 13088 .byte $3b,$38,$01 13090 .byte $3b,$38,$00 13092 .byte $1b,$17,$03 13094 ; 13096 slin lda #$55 13098 .byte $2c 13100 dlin lda #$33 13102 .byte $2c 13104 nlin lda #$ff 13106 .byte $2c 13108 qlin lda #$0f 13110 sta dot 13112 ; 13114 plin jsr $ad8a 13116 jsr $aefd 13118 jsr comx 13120 ldx #[179]yo 13122 ldy #[177]yo 13124 jsr $bbd4 13126 jsr $b7f7 13128 sty x1 13130 sta x1[170]1 13132 jsr $ad8a 13134 jsr $aefd 13136 jsr comy 13138 ldx #[179]tmpf 13140 ldy #[177]tmpf 13142 jsr $bbd4 13144 jsr $b7f7 13146 sty y1 13148 sta y1[170]1 13150 jsr $ad8a 13152 jsr $aefd 13154 jsr comx 13156 ldx #[179]xo 13158 ldy #[177]xo 13160 jsr $bbd4 13162 jsr $b7f7 13164 sty x2 13166 sta x2[170]1 13168 lda #[179]xo 13170 ldy #[177]xo 13172 jsr $bba2 13174 lda #[179]yo 13176 ldy #[177]yo 13178 jsr $b850 13180 ldx #[179]dx 13182 ldy #[177]dx 13184 jsr $bbd4 13186 jsr $ad8a 13188 jsr comy 13190 ldx #[179]xo 13192 ldy #[177]xo 13194 jsr $bbd4 13196 jsr $b7f7 13198 sty y2 13200 sta y2[170]1 13202 lda #[179]xo 13204 ldy #[177]xo 13206 jsr $bba2 13208 lda #[179]tmpf 13210 ldy #[177]tmpf 13212 jsr $b850 13214 ldx #[179]dy 13216 ldy #[177]dy 13218 jsr $bbd4 13220 lda $61 13222 beq lin1 13224 lda #[179]dx 13226 ldy #[177]dx 13228 jsr $bb0f 13230 ldx #[179]sx 13232 ldy #[177]sx 13234 jsr $bbd4 13236 lda #[179]tmpf 13238 ldy #[177]tmpf 13240 jsr $ba28 13242 jsr $bfb4 13244 lda #[179]yo 13246 ldy #[177]yo 13248 jsr $b867 13250 ldx #[179]xo 13252 ldy #[177]xo 13254 jsr $bbd4 13256 lin1 lda #[179]dx 13258 ldy #[177]dx 13260 jsr $bba2 13262 lda $61 13264 beq lin2 13266 lda #[179]dy 13268 ldy #[177]dy 13270 jsr $bb0f 13272 ldx #[179]sy 13274 ldy #[177]sy 13276 jsr $bbd4 13278 lda #[179]yo 13280 ldy #[177]yo 13282 jsr $ba28 13284 jsr $bfb4 13286 lda #[179]tmpf 13288 ldy #[177]tmpf 13290 jsr $b867 13292 ldx #[179]yo 13294 ldy #[177]yo 13296 jsr $bbd4 13298 lin2 lda #[179]dx 13300 ldy #[177]dx 13302 jsr $bba2 13304 lsr $66 13306 ldx #[179]tmpf 13308 ldy #[177]tmpf 13310 jsr $bbd4 13312 lda #[179]dy 13314 ldy #[177]dy 13316 jsr $bba2 13318 lsr $66 13320 lda #[179]tmpf 13322 ldy #[177]tmpf 13324 jsr $bc5b 13326 bmi lin7 13328 lda dy[170]1 13330 bmi lin3 13332 jsr swap 13334 lin3 lda y1 13336 sta y 13338 lda y1[170]1 13340 sta y[170]1 13342 lda dy 13344 bne lin4 13346 lda x1 13348 sta x 13350 lda x1[170]1 13352 sta x[170]1 13354 jmp lin6 13356 lin4 ldy y 13358 lda y[170]1 13360 sty $63 13362 sta $62 13364 ldx #$90 13366 sec 13368 jsr $bc49 13370 lda #[179]sx 13372 ldy #[177]sx 13374 jsr $ba28 13376 lda #[179]xo 13378 ldy #[177]xo 13380 jsr $b867 13382 jsr $b849 13384 jsr $b7f7 13386 sty x 13388 sta x[170]1 13390 jsr dplot 13392 lda y[170]1 13394 cmp y2[170]1 13396 bne lin5 13398 lda y 13400 cmp y2 13402 beq lin6 13404 lin5 inc y 13406 bne lin4 13408 inc y[170]1 13410 bne lin4 13412 lin6 jmp plo1 13414 lin7 lda dx[170]1 13416 bmi lin8 13418 jsr swap 13420 lin8 lda x1 13422 sta x 13424 lda x1[170]1 13426 sta x[170]1 13428 lin9 ldy x 13430 lda x[170]1 13432 jsr usfp 13434 lda #[179]sy 13436 ldy #[177]sy 13438 jsr $ba28 13440 lda #[179]yo 13442 ldy #[177]yo 13444 jsr $b867 13446 jsr $b849 13448 jsr $b7f7 13450 sty y 13452 sta y[170]1 13454 jsr dplot 13456 lda x[170]1 13458 cmp x2[170]1 13460 bne lin10 13462 lda x 13464 cmp x2 13466 beq lin11 13468 lin10 inc x 13470 bne lin9 13472 inc x[170]1 13474 bne lin9 13476 lin11 jmp plo1 13478 ; 13480 swap ldx #3 13482 swa1 ldy x1,x 13484 lda x2,x 13486 sta x1,x 13488 tya 13490 sta x2,x 13492 dex 13494 bpl swa1 13496 rts 13498 ; 13500 f320 .byte $90,$20,$00,$00,$00 13502 f400 .byte $90,$48,$00,$00,$00 13504 ; 13506 comx lda #[179]f320 13508 ldy #[177]f320 13510 bne chek 13512 ; 13514 comy lda #[179]f400 13516 ldy #[177]f400 13518 ; 13520 chek ldx $66 13522 bmi che1 13524 jsr $bc5b 13526 bpl che2 13528 che1 rts 13530 che2 jmp $b248 13532 ; 13534 dplot r[176] dot 13536 php 13538 rol dot 13540 plp 13542 r[176] dot 13544 bcc che1 13546 jmp plo1 13548 ; 13550 cha jsr [161]2 13552 jsr $aefd 13554 jsr $ad9e 13556 jsr $b6a3 13558 sta [195] 13560 cha1 ldy #0 13562 lda ($22),y 13564 tax 13566 [175] #$7f 13568 cmp #$20 13570 txa 13572 bcs cha6 13574 ldy #9 13576 cha2 cmp ctrls,y 13578 beq cha3 13580 dey 13582 bpl cha2 13584 bmi cha4 13586 cha3 tya 13588 asl 13590 tax 13592 lda ccrtns,x 13594 sta t2 13596 lda ccrtns[170]1,x 13598 sta t3 13600 jsr cha5 13602 cha4 jmp cha20 13604 cha5 jmp (t2) 13606 ; 13608 ctrls .byte $12,$92,$1f,$9e,$90 13610 .byte $05,$11,$1d,$91,$9d 13612 ; 13614 ccrtns .w[176]d ccr,ccrx,ccl,ccu,cce 13616 .w[176]d ccex,ccdn,ccrt,ccup,cclt 13618 ; 13620 ccr lda #4 13622 .byte $2c 13624 ccl lda #8 13626 [176]a choff 13628 bne ccu1 13630 ; 13632 ccrx lda #$db 13634 .byte $2c 13636 ccu lda #$d7 13638 [175] choff 13640 ccu1 sta choff 13642 rts 13644 ; 13646 cce lda #$ff 13648 .byte $2c 13650 ccex lda #0 13652 sta erflg 13654 rts 13656 ; 13658 ccdn lda #$f8 13660 .byte $2c 13662 ccup lda #8 13664 jmp yoff 13666 ; 13668 ccrt lda #8 13670 .byte $2c 13672 cclt lda #$f8 13674 jmp xoff 13676 ; 13678 cha6 [175] #$e0 13680 cmp #$60 13682 bne cha7 13684 txa 13686 sec 13688 sbc #$20 13690 tax 13692 bne cha9 13694 cha7 cmp #$80 13696 [175] #$40 13698 bcc cha8 13700 adc #$3f 13702 cha8 sta t2 13704 sec 13706 txa 13708 sbc t2 13710 tax 13712 cha9 lda #0 13714 sta tmp 13716 txa 13718 ldx #3 13720 cha10 asl 13722 rol tmp 13724 dex 13726 bne cha10 13728 sta tmp4 13730 lda choff 13732 clc 13734 adc tmp 13736 sta tmp4[170]1 13738 lda #$f9 13740 jsr yoff 13742 ldy #7 13744 cha11 sei 13746 lda 1 13748 [175] #$fb 13750 sta 1 13752 lda (tmp4),y 13754 tax 13756 lda 1 13758 [176]a #4 13760 sta 1 13762 cli 13764 tya 13766 pha 13768 txa 13770 pha 13772 ldx #7 13774 cha12 pla 13776 asl 13778 pha 13780 bcc cha17 13782 lda x[170]1 13784 bmi cha14 13786 cha13 lda #$fe 13788 sta tmp 13790 lda #$c0 13792 jsr xoff2 13794 bpl cha13 13796 cha14 lda #1 13798 sta tmp 13800 lda #$40 13802 jsr xoff2 13804 bmi cha14 13806 lda y[170]1 13808 bmi cha16 13810 cha15 lda #$fe 13812 sta tmp 13814 lda #$70 13816 jsr yoff2 13818 bpl cha15 13820 cha16 lda #1 13822 sta tmp 13824 lda #$90 13826 jsr yoff2 13828 bmi cha16 13830 txa 13832 pha 13834 jsr plo1 13836 pla 13838 tax 13840 cha17 dex 13842 bmi cha18 13844 lda #1 13846 jsr xoff 13848 jmp cha12 13850 cha18 pla 13852 pla 13854 tay 13856 dey 13858 bmi cha19 13860 lda #$f9 13862 jsr xoff 13864 lda #1 13866 jsr yoff 13868 jmp cha11 13870 cha19 lda #1 13872 jsr xoff 13874 cha20 inc $22 13876 bne cha21 13878 inc $23 13880 cha21 dec [195] 13882 beq cha22 13884 jmp cha1 13886 cha22 rts 13888 ; 13890 xoff pha 13892 cmp #$80 13894 bcs xof1 13896 lda #0 13898 .byte $2c 13900 xof1 lda #$ff 13902 sta tmp 13904 pla 13906 ; 13908 xoff2 clc 13910 adc x 13912 sta x 13914 lda tmp 13916 adc x[170]1 13918 sta x[170]1 13920 rts 13922 ; 13924 yoff pha 13926 cmp #$80 13928 bcs yof1 13930 lda #0 13932 .byte $2c 13934 yof1 lda #$ff 13936 sta tmp 13938 pla 13940 ; 13942 yoff2 clc 13944 adc y 13946 sta y 13948 lda tmp 13950 adc y[170]1 13952 sta y[170]1 13954 rts 13956 ; 13958 scha jsr [161]2 13960 jsr $aefd 13962 lda #$fe 13964 jsr xoff 13966 lda #$fe 13968 jsr yoff 13970 jsr $b79e 13972 txa 13974 sta tmp3 13976 asl 13978 asl 13980 adc tmp3 13982 sta tmp3 13984 ldy #5 13986 sch1 lda tmp3 13988 tax 13990 inc tmp3 13992 lda scx,x 13994 ldx #5 13996 sch2 asl 13998 pha 14000 bcc sch5 14002 lda x[170]1 14004 beq sch3 14006 lda x 14008 cmp #$40 14010 bcs sch5 14012 sch3 lda y[170]1 14014 beq sch4 14016 lda y 14018 cmp #$90 14020 bcs sch5 14022 sch4 txa 14024 pha 14026 tya 14028 pha 14030 jsr plo1 14032 pla 14034 tay 14036 pla 14038 tax 14040 sch5 lda #1 14042 jsr xoff 14044 pla 14046 dex 14048 bne sch2 14050 lda #1 14052 jsr yoff 14054 lda #$fb 14056 jsr xoff 14058 dey 14060 bne sch1 14062 rts 14064 ; 14066 ;chars [171] 5 left bits of 5 bytes 14068 scx [178][172] 14070 .byte $88,$50,$20,$50,$88 14072 .byte $20,$20,$fc,$20,$20 14074 .byte $fc,$88,$88,$88,$fc 14076 .byte $20,$50,$88,$50,$20 14078 .byte $00,$50,$20,$50,$00 14080 .byte $00,$20,$70,$20,$00 14082 .byte $00,$70,$50,$70,$00 14084 .byte $00,$20,$50,$20,$00 14086 .byte $fc,$fc,$fc,$fc,$fc 14088 .byte $20,$70,$fc,$70,$20 14090 .byte $00,$70,$70,$70,$00 14092 .byte $00,$20,$70,$20,$00 14094 ; 14096 sba ldx #$55 14098 lda #$aa 14100 bne nb1 14102 ; 14104 dba ldx #$33 14106 lda #$99 14108 bne nb1 14110 ; 14112 nba lda #$ff 14114 tax 14116 nb1 stx dot 14118 sta ldot 14120 ; 14122 bba lda dot 14124 sta tmp3 14126 lda ldot 14128 pha 14130 jsr [161]2 14132 sty y1 14134 sta y1[170]1 14136 lda x 14138 sta x1 14140 lda x[170]1 14142 sta x1[170]1 14144 jsr $aefd 14146 jsr [161]2 14148 sty y2 14150 sta y2[170]1 14152 ba1 ldy y2 14154 lda y2[170]1 14156 sty y 14158 sta y[170]1 14160 lda tmp3 14162 sta dot 14164 ba2 sec 14166 lda x 14168 sbc x1 14170 lda x[170]1 14172 sbc x1[170]1 14174 bcc ba5 14176 r[176] ldot 14178 php 14180 rol ldot 14182 plp 14184 r[176] ldot 14186 bcc ba4 14188 ba3 sec 14190 lda y 14192 sbc y1 14194 lda y[170]1 14196 sbc y1[170]1 14198 bcc ba4 14200 jsr dplot 14202 lda #$ff 14204 jsr yoff 14206 bcs ba3 14208 ba4 lda #$ff 14210 jsr xoff 14212 bcs ba1 14214 ba5 pla 14216 sta ldot 14218 rts 14220 ; 14222 gsav ldx #0 14224 lda #"w" 14226 bne gd1 14228 ; 14230 gloa ldx #1 14232 lda #"r" 14234 ; 14236 gd1 sta gnsuf[170]5 14238 stx tmp2 14240 jsr $ad9e 14242 jsr $b6a3 14244 cmp #$0f 14246 bcc gd2 14248 lda #$0e 14250 gd2 pha 14252 tax 14254 ldy #0 14256 gd3 lda ($22),y 14258 sta g[165]am[170]2,y 14260 iny 14262 dex 14264 bne gd3 14266 ldx #0 14268 gd4 lda gnsuf,x 14270 sta g[165]am[170]2,y 14272 iny 14274 inx 14276 cpx #6 14278 bne gd4 14280 pla 14282 clc 14284 adc #8 14286 ldx #[179]g[165]am 14288 ldy #[177]g[165]am 14290 jsr setnam 14292 lda #2 14294 tay 14296 ldx #8 14298 jsr setlfs 14300 jsr [159] 14302 bcc gd5 14304 cmp #4 14306 bne gd8 14308 gd5 ldy #0 14310 sty tmp 14312 ldx #2 14314 lda tmp2 14316 bne gd9 14318 jsr chkout 14320 lda hite 14322 tay 14324 jsr chrout 14326 lda hite[170]1 14328 jsr chrout 14330 gd6 sta tmp[170]1 14332 gd7 sei 14334 lda 1 14336 [175] #$fc 14338 sta 1 14340 lda (tmp),y 14342 pha 14344 lda 1 14346 [176]a #3 14348 sta 1 14350 cli 14352 pla 14354 jsr chrout 14356 lda $90 14358 bne gd8 14360 iny 14362 bne gd7 14364 inc tmp[170]1 14366 beq gd8 14368 lda tmp[170]1 14370 cmp #$c0 14372 bne gd7 14374 lda #$e0 14376 bne gd6 14378 gd8 jsr [156]chn 14380 lda #2 14382 jmp [160] 14384 ; 14386 gd9 jsr chkin 14388 jsr [161]in 14390 sta hite 14392 tay 14394 lda $90 14396 bne gd8 14398 jsr [161]in 14400 sta hite[170]1 14402 sta tmp[170]1 14404 gd10 jsr [161]in 14406 sta (tmp),y 14408 lda $90 14410 bne gd8 14412 iny 14414 bne gd10 14416 inc tmp[170]1 14418 beq gd8 14420 lda tmp[170]1 14422 cmp #$c0 14424 bne gd10 14426 lda #$e0 14428 sta tmp[170]1 14430 bne gd10 14432 ; 14434 g[165]am [178][172] 14436 .[198] "0:0123456789abcd.g,s,w" 14438 gnsuf .[198] ".g,s,w" 14440 ; 14442 gprin lda #0 14444 jsr setnam 14446 lda #3 14448 ldx #4 14450 ldy #$ff 14452 jsr setlfs 14454 jsr [159] 14456 bcc gpr1 14458 jmp gpr12 14460 gpr1 ldx #3 14462 jsr chkout 14464 ldx #6 14466 gpr2 lda ptrs,x 14468 jsr chrout 14470 dex 14472 bpl gpr2 14474 lda #0 14476 sta tmp 14478 lda hite[170]1 14480 sta tmp[170]1 14482 ldy hite 14484 gpr3 ldx #5 14486 gpr4 lda ptrr,x 14488 jsr chrout 14490 dex 14492 bpl gpr4 14494 lda #$28 14496 sta tmp3 14498 gpr5 ldx #7 14500 sei 14502 lda #$fc 14504 [175] 1 14506 sta 1 14508 gpr6 lda (tmp),y 14510 sta buff,x 14512 iny 14514 bne gpr7 14516 inc tmp[170]1 14518 gpr7 dex 14520 bpl gpr6 14522 lda #3 14524 [176]a 1 14526 sta 1 14528 cli 14530 tya 14532 pha 14534 ldy #7 14536 gpr8 ldx #7 14538 gpr9 rol buff,x 14540 rol 14542 dex 14544 bpl gpr9 14546 jsr chrout 14548 dey 14550 bpl gpr8 14552 pla 14554 tay 14556 dec tmp3 14558 bne gpr5 14560 cpy #$40 14562 bne gpr3 14564 lda tmp[170]1 14566 cmp #$ff 14568 beq gpr10 14570 cmp #$bf 14572 bne gpr3 14574 lda #$e0 14576 sta tmp[170]1 14578 ldy #0 14580 beq gpr3 14582 gpr10 ldx #3 14584 gpr11 lda ptrf,x 14586 jsr chrout 14588 dex 14590 bpl gpr11 14592 gpr12 jsr [156]chn 14594 lda #3 14596 jmp [160] 14598 ; 14600 ;prt c[145]diti[145]ing [131] strings 14602 ptrs [178][172] 14604 .byte $00,$0d,$44,$1b,$08,$41,$1b 14606 ptrr [178][172] 14608 .byte $01,$40,$4b,$1b,$09,$0d 14610 ptrf .byte $32,$1b,$0d 14612 ; 15000 lma jsr $b79e 15002 stx ptrs[170]1 15004 lma1 rts 15006 ; 15008 siz jsr $ad8a 15010 jsr comy 15012 jsr $b7f7 15014 sty tmp3 15016 sta tmp3[170]1 15018 ldx #$a0 15020 stx hite[170]1 15022 sz1 sec 15024 lda #$6f 15026 sbc tmp3 15028 lda #1 15030 sbc tmp3[170]1 15032 bmi lma1 15034 clc 15036 lda #$20 15038 adc tmp3 15040 sta tmp3 15042 lda #0 15044 adc tmp3[170]1 15046 sta tmp3[170]1 15048 clc 15050 lda #5 15052 adc hite[170]1 15054 cmp #$c0 15056 bcc sz2 15058 cmp #$e0 15060 bcs sz2 15062 [176]a #20 15064 sz2 sta hite[170]1 15066 bne sz1 15068 ; 15070 eras jsr $b79e 15072 txa 15074 beq era1 15076 ldx #$ff 15078 era1 stx erflg 15080 rts 15082 ; 15084 patt jsr $b79e 15086 stx dot 15088 jsr $aefd 15090 jsr $b79e 15092 stx ldot 15094 rts 15096 ; 15098 x1 .w[176]d $0040 15100 y1 .w[176]d $0040 15102 x2 .w[176]d $0080 15104 y2 .w[176]d $0080 15106 dx [172][178][172][170]5 15108 dy [172][178][172][170]5 15110 sx [172][178][172][170]5 15112 sy [172][178][172][170]5 15114 x .w[176]d $0080 15116 y .w[176]d $0080 15118 tmpf [172][178][172][170]5 15120 xo [172][178][172][170]5 15122 yo [172][178][172][170]5 15124 ty [172][178][172][170]2 15126 bitp [172][178][172][170]1 15128 row [172][178][172][170]1 15130 rast [172][178][172][170]1 15132 col [172][178][172][170]1 15134 dot .byte $ff 15136 ldot .byte $ff 15138 addr [172][178][172][170]2 15140 erflg .byte $00 15142 tx [172][178][172][170]2 15144 ty2 [172][178][172][170]2 15146 hite .w[176]d $a000 15148 buff [172][178][172][170]8 15150 choff .byte $d0 15152 [195] .byte $10 15154 ;