Loadstar 73

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

/ Loadstar 73 / 073.d81 / pipes.buddy < prev next >

Wrap

Text File | 1990-01-01 | 22.4 KB | 1,401 lines

; ; source code for pipes peak ; by bob blackmer ; *=$4000 ; jsr chars lda #0 sta $dc0b sta $dc0a sta $dc09 sta $dc08 begin jsr reset jsr init jsr draw jsr plytun jsr prtmsg ; loop jsr check jsr joystk jsr scroll jsr cycle jsr delay jsr timer jsr $ffe1 bne loop1 jmp kil loop1 lda pos1y cmp #6 bne qloop lda #1 sta $d01b inc lev lda lev cmp #32 bne here jmp youwin here jsr chime jsr brate jsr bonus jsr level jsr scroll lda #0 sta $d01b jsr prtmsg jmp loop qloop jsr $ffe4 cmp #136 bne loop2 rts loop2 lda #0 sta $c6 lda over beq loop kil lda #129 sta $d404 lda #224 sta $7f8 ldy #30 ldx #255 sty $d400 loop3 jsr delay inx dey sty $d401 lda #0 sta $3800,x sta $381a,x cpy #0 bne loop3 lda #128 sta $d404 lda $7ff cmp #229 beq loop4 jsr clrmap jsr init jsr scroll dec $7ff lda #0 sta over sta skor jsr prtmsg jmp loop ; loop4 ldx #0 loop5 lda strg3,x sta $6b7,x lda #1 sta $dab7,x inx cpx #10 bne loop5 jsr prtmsg jmp begin ; prtmsg ldx #0 prtm lda strg2,x sta $617,x lda #1 sta $da17,x inx cpx #10 bne prtm ; wait lda $dc00 cmp #111 bne wait ldx #0 wait1 lda #32 sta $617,x lda #15 sta $da17,x inx cpx #10 bne wait1 lda #0 sta $c6 rts ; delay inc stat1 lda stat1 bne delay inc stat1+1 lda stat1+1 dlay cmp #18 bne delay lda #0 sta stat1+1 rts ; level lda lev cmp #16 bne level1 jsr kick jmp level2 level1 lda chng2+1 sta chng1+1 lda chng4+1 sta chng3+1 lda chng6+1 sta chng5+1 clc lda chng2+1 adc #16 sta chng2+1 clc lda chng4+1 adc #16 sta chng4+1 clc lda chng6+1 adc #16 sta chng6+1 level2 jsr clrmap jsr plytun jsr init jsr inclev rts ; youwin jsr chime jsr brate jsr bonus lda #2 sta pos1y jsr scroll inc $d000 inc $d001 inc $d001 ldx #0 youw1 lda strg5,x sta $4af,x lda #3 sta $d8af,x inx cpx #10 bne youw1 ldx #0 yw lda strg6,x sta $726,x inx cpx #28 bne yw lda #23 sta plymus+1 lda #22 sta mus2+1 lda #0 sta wcount youw2 jsr plywin lda $dc00 cmp #111 bne youw3 lda #65 sta plymus+1 sta mus2+1 jmp begin youw3 ldy wcount lda winspr,y sta $7f8 inc wcount lda wcount cmp #8 bne youw2 lda #0 sta wcount jmp youw2 ; timer lda $dc09 and #15 hold cmp #0 bne clock1 rts clock1 sta hold+1 dec $7fa lda $7fa cmp #228 beq clock2 rts clock2 lda #238 sta $7fa dec $7f9 lda $7f9 cmp #228 beq clock3 rts clock3 lda #229 sta $7f9 sta $7fa inc over rts ; inclev lda $7ff cmp #238 beq incl1 inc $7ff incl1 inc $7fe lda $7fe cmp #239 beq incl2 rts incl2 lda #229 sta $7fe inc $7fd rts ; reset lda #0 sta lev sta chng1+1 sta chng3+1 sta chng5+1 lda #16 sta chng2+1 lda #16 sta chng4+1 lda #16 sta chng6+1 ldy #229 sty $7fd sty $7ff iny sty $7fe ldy #79 sty lv1+2 iny iny sty lv2+2 iny iny sty lv3+2 iny iny sty lv4+2 iny iny sty lv5+2 iny iny sty lv6+2 rts ; kick lda #0 sta chng1+1 sta chng3+1 sta chng5+1 lda #16 sta chng2+1 sta chng4+1 sta chng6+1 inc lv1+2 inc lv2+2 inc lv3+2 inc lv4+2 inc lv5+2 inc lv6+2 rts ; plytun ldy #0 play jsr plymus inc mcount lda mcount cmp #16 bne play lda #0 sta mcount lda #64 sta $d404 sta $d40b rts ; plywin jsr plymus inc mcount lda mcount cmp #16 bne plyext lda #0 sta mcount plyext rts ; plymus lda #65 sta $d404 sta $d40b ldx mcount lda note1,x tax lda notel,x sta $d400 lda noteh,x sta $d401 ldx mcount lda note2,x tax lda notel,x sta $d407 lda noteh,x sta $d408 jsr delay jsr delay mus2 lda #65 sta $d404 sta $d40b rts ; ; scroll ; scroll lda pos1x sta $fb lda #96 sta $fc ldx pos1y cpx #0 beq scrll2 scrll1 lda $fb clc adc #128 sta $fb lda $fc adc #0 sta $fc dex bne scrll1 scrll2 lda #127 sta $2 lda #4 sta $3 ldx #14 scrll3 ldy #25 scrll4 lda ($fb),y sta ($2),y dey bpl scrll4 clc lda $2 adc #40 sta $2 lda $3 adc #0 sta $3 clc lda $fb adc #128 sta $fb lda $fc adc #0 sta $fc dex bpl scrll3 rts ; ; read joystick ; bye rts ; joystk lda $dc00 cmp #127 beq bye cmp #123 ;lt and #4 bne joy1 ldx #0 ck1 lda pos1y cmp cklr,x beq ok1 inx cpx #14 bne ck1 rts ok1 lda pos1x cmp lmin,x beq bye dec pos1x jsr lspr rts joy1 cmp #119 ;rt and #8 bne joy2 ldx #0 ck2 lda pos1y cmp cklr,x beq ok4 inx cpx #14 bne ck2 rts ok4 lda pos1x cmp rmax,x beq bye inc pos1x jsr rspr joy2 rts ; lspr lda $7f8 cmp #226 bne lspr1 lda #227 sta $7f8 jmp lspr2 lspr1 lda #226 sta $7f8 lspr2 dec curpos+1 rts ; rspr lda $7f8 cmp #224 bne rspr1 lda #225 sta $7f8 jmp rspr2 rspr1 lda #224 sta $7f8 rspr2 inc curpos+1 rts ; cycle ldy ccount ldx #0 cyc1 lda shap1,y sta $316a,x iny inx cpx #4 bne cyc1 sty ccount cpy #16 bne cycout ldy #0 sty ccount cycout rts ; check lda curpos+1 sta look+1 lda curpos+2 sta look+2 ; look lda $6000 sta hit lda look+2 sta look1+2 sec lda look+1 sbc #128 sta look+1 sta look1+1 bcc check2 jmp look1 check2 dec look+2 dec look1+2 check3 dec look1+2 look1 lda $6000 sta hit+1 cmp #66 bne check4 jsr goup rts check4 lda hit cmp #74 bne check5 jsr godn rts check5 lda hit cmp #45 bne check6 lda #21 sta $d40b lda #255 sta $d408 lda curpos+1 sta got+1 lda curpos+2 sta got+2 lda #37 got sta $6000 jsr score ldy #255 got1 dey bne got1 lda #20 sta $d40b jsr jrate check6 rts ; goup lda #0 sta count1 lda #129 sta $d412 lda #3 sta $d40f lda #239 sta $7f8 lda #1 sta $d01b goup1 jsr delay dec pos1y jsr scroll jsr sound1 inc count1 lda count1 cmp #6 bne goup1 lda #239 sta $7f8 lda #0 sta $d01b dec curpos+2 dec curpos+2 dec curpos+2 lda #128 sta $d412 rts ; godn lda #0 sta count1 lda #129 sta $d412 lda #2 sta $d40f lda #239 sta $7f8 lda #1 sta $d01b godn1 jsr delay inc pos1y jsr scroll jsr sound1 inc count1 lda count1 cmp #6 bne godn1 lda #239 sta $7f8 lda #0 sta $d01b inc curpos+2 inc curpos+2 inc curpos+2 lda #128 sta $d412 rts ; sound1 ldy #200 soun1 sty $d40e dey bne soun1 inc $7f8 lda $7f8 cmp #242 bne soun2 lda #240 sta $7f8 soun2 rts ; chime lda #14 sta $d401 lda #37 sta $d40f lda #9 sta $d405 lda #3 sta $d406 lda #21 sta $d404 ldx #11 chime1 jsr delay dex bne chime1 lda #20 sta $d404 ldx #6 chime2 jsr delay dex bne chime2 lda #0 sta $d405 lda #248 sta $d406 lda #3 sta $d40f rts ; score inc skor lda skor cmp #16 bne scor1 jsr puttub scor1 inc $7fc lda $7fc cmp #239 beq score1 rts score1 lda #229 sta $7fc inc $7fb rts ; jrate ldx #10 jrate1 jsr rate dex bne jrate1 rts ; brate ldx #100 brate1 jsr rate dex bne brate1 rts ; bonus lda over bne bonext bonus1 jsr clock1+3 lda over bne bonext jsr rate jsr delay jmp bonus1 bonext lda #0 sta over rts ; rate inc $7e6 lda $7e6 cmp #186 beq rate1 rts rate1 lda #176 sta $7e6 inc $7e5 lda $7e5 cmp #186 beq rate2 rts rate2 lda #176 sta $7e5 inc $7e4 lda $7e4 cmp #186 beq rate3 rts rate3 lda #176 sta $7e4 inc $7e3 lda $7e3 cmp #186 beq rate4 rts rate4 lda #176 sta $7e3 inc $7e2 rate5 rts ; puttub ldy #72 sty $6a46 iny sty $6a47 ldy #64 sty $6b46 iny sty $6b47 ldy #66 sty $6bc6 iny sty $6bc7 rts ; ; initialize ; init ldx #0 txa init1 sta $3900,x sta $3a00,x sta $3b00,x sta $3c00,x inx cpx #0 bne init1 ldx #0 ldy #0 init2 lda spr1,x sta $3800,x lda spr2,x sta $3840,x lda spr3,x sta $3880,x lda spr4,x sta $38c0,x lda spr5,x sta $3bc0,x inx cpx #64 bne init2 ldx #0 init3 lda spr6,x sta $3c00,x sta $3c40,x inx cpx #40 bne init3 ldx #0 init8 lda spr7,x sta $3c28,x lda spr8,x sta $3c68,x inx cpx #24 bne init8 lda #0 sta count1 ag ldy #0 ldx #0 init4 lda $3180,x tran sta $3940,y iny iny iny inx cpx #8 bne init4 clc lda tran+1 adc #64 sta tran+1 bcs init5 jmp init6 init5 inc tran+2 init6 clc lda init4+1 adc #8 sta init4+1 inc count1 lda count1 cmp #10 bne ag lda #49 sta init4+2 lda #128 sta init4+1 lda #57 sta tran+2 lda #64 sta tran+1 lda #124 sta curpos+1 lda #145 sta curpos+2 ldx #0 lda #0 init7 sta skor,x inx cpx #10 bne init7 ; ldx #0 ivid lda vid,x sta $d000,x inx cpx #47 bne ivid lda #100 setsnd ldx #0 snd1 lda snd,x sta $d400,x inx cpx #25 bne snd1 lda #112 sta pos1x lda #90 sta pos1y lda #226 sta $7f8 lda #229 sta $7fa sta $7fb sta $7fc lda #238 sta $7f9 rts ; snd .byt 0,0,0,8,0,0,248,0 .byt 0,0,8,0,10,9,255,64 .byt 0,0,128,105,105,0,0,0,15 ; vid .byt 171,123,76,222,92,222,140 .byt 222,156,222,204,222,220,222 .byt 12,222,128,27,0,0,0,255,216 .byt 254,29,0,0,0,1,254,0,0,12,0 .byt 9,14,8,4,7,10,1,1,1,1,1,1,1 ; ; custom characters ; chars lda $dc0e and #254 sta $dc0e lda $1 and #251 sta $1 uh ldx #0 char1 lda $d000,x char2 sta $3000,x inx cpx #0 bne char1 inc char1+2 inc char2+2 lda char2+2 cmp #55 bne uh lda #48 sta char2+2 lda #208 sta char1+2 lda $1 ora #4 sta $1 lda $dc0e ora #1 sta $dc0e ldx #0 char3 lda chdat,x sta $3118,x inx cpx #72 bne char3 ldx #0 char4 lda chdat1,x sta $3200,x inx cpx #224 bne char4 ldx #0 char5 lda chdat2,x sta $3168,x inx cpx #8 bne char5 rts ; draw lda #154 jsr $ffd2 lda #147 jsr $ffd2 ldx #0 draw1 lda #160 sta $400,x sta $500,x sta $600,x sta $6e8,x inx cpx #0 bne draw1 lda #155 jsr $ffd2 ldx #3 draw2 ldy #6 draw3 clc jsr $fff0 lda #32 jsr $ffd2 iny cpy #33 bne draw3 inx cpx #18 bne draw2 lda #159 jsr $ffd2 lda #18 jsr $ffd2 ldy #6 ldx #2 draw4 clc jsr $fff0 lda #32 jsr $ffd2 inx cpx #19 bne draw4 ldy #33 ldx #2 draw5 clc jsr $fff0 lda #32 jsr $ffd2 inx cpx #19 bne draw5 ldx #0 draw6 lda #3 sta $d857,x sta $dad7,x inx cpx #26 bne draw6 ldx #0 draw7 lda strg1,x sta $720,x lda strg7,x sta $7c0,x lda #3 sta $db20,x sta $d800,x sta $dbc0,x lda #160 sta $400,x inx cpx #40 bne draw7 ; ldx #0 draw8 lda strg4,x sta $405,x lda strg8,x sta $414,x lda #11 sta $d805,x lda #3 sta $d814,x inx cpx #15 bne draw8 ; ldx #0 lda #1 draw9 sta $dbe2,x inx cpx #5 bne draw9 ; clrmap ldx #0 lda #32 clr1 sta $6000,x inx cpx #0 bne clr1 inc clr1+2 lda clr1+2 cmp #160 bne clrmap lda #96 sta clr1+2 ; lda #0 sta count1 lda #196 sta stor+1 lda #106 sta stor+2 lda #6 sta valu1+1 sta valu2+1 map ldx #0 mp1 lda #35 map1 jsr stor inx valu1 cpx #1 beq mp2 lda #36 jsr stor inx valu2 cpx #1 bne mp1 mp2 sec lda stor+1 sbc #4 sta stor+1 clc lda valu1+1 adc #8 sta valu1+1 sta valu2+1 inc stor+2 inc stor+2 inc stor+2 inc count1 lda count1 cmp #14 bne map ; lda #0 sta count1 lda #69 sta stor+1 lda #106 sta stor+2 lda #4 sta valu3+1 walk ldx #0 lda #37 wk1 jsr stor inx valu3 cpx #1 bne wk1 sec lda stor+1 sbc #4 sta stor+1 clc lda valu3+1 adc #8 sta valu3+1 inc stor+2 inc stor+2 inc stor+2 inc count1 lda count1 cmp #14 bne walk ; lda #0 tax sta count1 lda #196 sta stor+1 lda #105 sta stor+2 crnr1 lda #38 jsr stor clc lda stor+1 adc #128 sta stor+1 bcs cr1 jmp cr2 cr1 inc stor+2 cr2 lda #39 jsr stor clc lda stor+1 adc #124 sta stor+1 bcs cr3 jmp cr4 cr3 inc stor+2 cr4 inc stor+2 inc stor+2 inc count1 lda count1 cmp #14 bne crnr1 ; lda #0 tax sta count1 lda #201 sta stor+1 lda #105 sta stor+2 crnr2 lda #40 jsr stor clc lda stor+1 adc #128 sta stor+1 bcs cr5 jmp cr6 cr5 inc stor+2 cr6 lda #41 jsr stor clc lda stor+1 adc #132 sta stor+1 bcs cr7 jmp cr8 cr7 inc stor+2 cr8 inc stor+2 inc stor+2 inc count1 lda count1 cmp #14 bne crnr2 ; lda #198 sta tp2+1 lda #101 sta tp2+2 lda #0 sta count2 tay tax tp1 lda topstr,y tp2 sta $6000,x iny inx cpx #2 bne tp1 ldx #0 clc lda tp2+1 adc #128 sta tp2+1 bcs tp3 jmp tp4 tp3 inc tp2+2 tp4 inc count2 lda count2 cmp #7 bne tp1 ; chng1 lda #0 sta count1 utube ldx count1 lv1 lda $4f00,x sta upt+1 lv2 lda $5100,x sta upt+2 lda #0 sta count2 tay tax utub lda uptube,y upt sta $6000,x iny inx cpx #2 bne utub ldx #0 clc lda upt+1 adc #128 sta upt+1 bcs upt1 jmp upt2 upt1 inc upt+2 upt2 inc count2 lda count2 cmp #4 bne utub inc count1 lda count1 chng2 cmp #16 bne utube ; chng3 lda #0 sta count1 dtube ldx count1 lv3 lda $5300,x sta dpt+1 lv4 lda $5500,x sta dpt+2 lda #0 sta count2 tay tax dtub lda dntube,y dpt sta $6000,x iny inx cpx #2 bne dtub ldx #0 clc lda dpt+1 adc #128 sta dpt+1 bcs dpt1 jmp dpt2 dpt1 inc dpt+2 dpt2 inc count2 lda count2 cmp #4 bne dtub inc count1 lda count1 chng4 cmp #16 bne dtube ; chng5 lda #0 sta count1 putc ldx count1 lv5 lda $5700,x sta putc1+1 lv6 lda $5900,x sta putc1+2 lda #45 putc1 sta $6000 inc count1 lda count1 chng6 cmp #16 bne putc rts ; stor sta $6000,x rts ; chdat .byt 117,117,255,85,85,255,117,117 .byt 85,85,255,117,117,255,85,85 .byt 187,238,187,238,187,238,187,238 .byt 0,0,1,1,5,5,21,21 .byt 85,85,87,86,91,94,123,110 .byt 0,0,64,64,80,80,84,84 .byt 85,85,149,213,181,229,185,237 .byt 163,139,163,139,163,139,163,136 .byt 40,136,40,136,40,136,40,136 chdat1 .byt 162,136,162,136,163,143,191,139 .byt 40,136,40,136,40,200,248,136 .byt 163,139,163,139,163,139,35,8 .byt 40,136,40,136,40,136,32,128 .byt 81,71,83,71,83,71,83,71 .byt 20,68,20,68,20,68,20,68 .byt 83,71,127,79,83,68,17,4 .byt 20,68,244,196,20,68,16,64 .byt 187,192,0,0,0,0,128,138 .byt 187,14,3,2,3,2,11,238 .byt 187,192,0,0,0,0,128,138 .byt 187,14,3,2,3,2,11,238 .byt 85,93,12,15,63,63,63,63 .byt 85,117,48,240,252,252,252,252 .byt 255,255,255,255,255,10,20,0 .byt 255,255,255,255,255,0,0,0 ; .byt 85,106,111,85,106,111,111,111 .byt 109,109,109,109,173,253,253,253 .byt 109,109,109,109,109,109,109,109 .byt 85,169,189,85,170,191,191,191 .byt 181,182,182,181,182,246,246,245 .byt 86,170,255,91,171,255,255,86 .byt 213,218,219,213,234,255,255,213 .byt 91,171,255,91,155,219,219,91 .byt 255,255,255,247,215,119,95,127 .byt 247,215,95,127,119,95,127,87 .byt 95,119,125,125,93,117,125,125 .byt 255,255,255,223,223,221,215,221 chdat2 .byt 187,238,143,23,180,34,187,238 ; shap1 .byt 143,23,180,34 .byt 136,54,151,47 .byt 136,30,212,242 .byt 248,214,156,34 ; spr1 .byt 0,0,0,0,254,0,3,248,0,3,170 .byt 0,3,168,0,0,160,0,0,160,0,0 .byt 80,0,1,80,0,1,80,0,1,80,0,1 .byt 80,0,1,208,0,1,80,0,0,80,0,0 .byt 20,0,0,84,0,1,80,0,1,16,0,3 .byt 208,0,0,60,0,0 spr2 .byt 0,0,0,0,0,0,0,254,0,3,248,0 .byt 3,170,0,3,168,0,0,160,0,0 .byt 160,0,0,80,0,1,80,0,1,80,0,1 .byt 84,0,13,87,0,1,80,0,1,80,0,1 .byt 80,0,5,20,0,20,5,0,80,1,0,64 .byt 1,0,240,3,192,0 spr3 .byt 0,0,0,2,252,0,0,191,0,2,171 .byt 0,0,171,0,0,40,0,0,40,0,0,20 .byt 0,0,21,0,0,21,0,0,21,0,0,21 .byt 0,0,29,0,0,21,0,0,20,0,0,80 .byt 0,0,84,0,0,21,0,0,17,0,0,31 .byt 0,0,240,0,0 spr4 .byt 0,0,0,0,0,0,2,252,0,0,191,0 .byt 2,171,0,0,171,0,0,40,0,0,40 .byt 0,0,20,0,0,21,0,0,21,0,0,85 .byt 0,3,85,192,0,21,0,0,21,0,0 .byt 21,0,0,81,64,1,64,80,1,0,20 .byt 1,0,4,15,0,60,0 spr5 .byt 0,0,0,0,60,0,0,191,0,0,175,0 .byt 0,175,0,0,40,0,0,85,0,1,85 .byt 64,1,85,64,1,85,64,0,213,192 .byt 0,85,0,0,85,0,0,85,0,0,81,0 .byt 0,65,0,0,65,0,0,65,0,0,65,0 .byt 0,195,0,0,0,0,0 spr6 .byt 3,0,192,1,60,64,1,255,64,1 .byt 255,64,1,255,64,1,60,64,1,85 .byt 64,1,85,64,0,85,0,0,85,0,0 .byt 85,0,0,85,0,0,85,0,0 spr7 .byt 81,0,0,65,0,0,65,0,0,67,0,0 .byt 64,0,0,64,0,0,192,0,0,0,0,0 spr8 .byt 85,0,0,81,0,0,65,0,0,193,0,0 .byt 1,0,0,1,0,0,3,0,0,0,0,0 ; strg1 .byt 160,160,160,160,160 .byt 160,131,140,143,131,139,160 .byt 160,160,130,133,140,140,147 .byt 160,160,160,140,133,150,133 .byt 140,160,160,140,137,150,133 .byt 147,160,160,160,160,160,160 strg2 .byt 144,146,133,147,147,160 .byt 134,137,146,133 strg3 .byt 135,129,141,133,160,160 .byt 143,150,133,146 strg4 .byt 80,81,82,83,84,85,86,87 .byt 160,88,89,90,91,160,160 strg5 .byt 160,129,151,133,147,143 .byt 141,133,161,160 strg6 .byt 160,129,142,160,137,141,144 .byt 146,133,147,147,137,150,133 .byt 160,144,133,146,134,143,146 .byt 141,129,142,131,133,161,160 strg7 .byt 148,146,129,144,144 .byt 133,132,191,173,146,149,142 .byt 175,147,148,143,144,160,160 .byt 134,183,173,145,149,137,148 .byt 160,160,147,131,143,146,133 .byt 186,176,176,176,176,176,160 strg8 .byt 130,153,160,130,143,130,160 .byt 130,140,129,131,139,141,133 .byt 146 ; notel .byt 0,12,233,97,104,143,48,143 .byt 24,210,195,209,31,96,30 noteh .byt 0,7,7,8,9,10,11,12,14,15,16 .byt 18,21,22,25 ; note1 .byt 5,8,5,8,5,6,5,4,6,5,4,3,2,4,2,1 note2 .byt 5,1,1,1,1,4,4,4,4,1,1,1,1,5,5,1 ; cklr .byt 90,84,78,72,66,60,54,48,42,36,30,24,18,12 ; rmax .byt 112,108,104,100,96,92,88,84,80,76,72,68,64,60 ; lmin .byt 5,9,13,17,21,25,29,33,37,41,45,49,53,57 ; uptube .byt 72,73,35,36,64,65,66,67 dntube .byt 74,75,35,36,68,69,70,71 topstr .byt 76,77,78,79,32,32,64,65 .byt 42,43,64,65,66,67 winspr .byt 224,225,239,226 .byt 227,239,240,241 wcount .byt 0 ; lev .byt 0 skor .byt 0 over .byt 0 hit .byt 0,0 mcount .byt 0 ccount .byt 0 count1 .byt 0 count2 .byt 0 stat1 .byt 0,0 pos1y .byte 0 pos1x .byte 0 curpos .byte 0,120,145 .byt 66,76,65,67,75,77,69,82 .end ;