Barymag 2/Barymag_2_1996_Slight_pl_Side_D.atr/size.arc/SIZE.ASM

Assembly Source File | 1988-09-01 | 11KB | 1 lines

¢*≤Θ·σá≤π≥∩∮∮σ≥áΓ∙áכאצ»IJסב¢*≤⌠β≥⌠σΣá∩∈áØÕ«ãõ«¨œááááá¢*µΘ∈Θ≤ΦσΣáΘ∈áϕβ∙áõ¨¨œáááᢢ opt %10101¢¢dl       equ $0500¢delmem   equ $0600¢prog     equ $a000¢my_fnt   equ $bc00¢bigmem   equ $c400¢proc     equ $c800¢_jsr     equ $cc00¢scrmem   equ $d800¢pr_tab   equ $d900¢___big   equ $da00  dlug.$1100¢¢fnt8 equ my_fnt¢atxt equ $f0¢achr equ $f2¢zer1 equ $f4¢zer2 equ $f6¢zer3 equ $f8¢zer4 equ $fa¢zer5 equ $fc¢zer6 equ $fe¢rmar equ 31¢step equ 3     *min.2¢¢ org prog¢¢ lda #6¢ ldy <VBLK_1¢ ldx >VBLK_1¢ jsr setvbl¢¢ lda #7¢ ldy <VBLK_2¢ ldx >VBLK_2¢ jsr setvbl¢¢ jsr setkey¢¢ jsr romram¢¢ lda #$ff¢ ldx #$c4¢ ldy #$c8¢ jsr delmem¢ lda #$00¢ ldx #$c8¢ ldy #$d0¢ jsr delmem¢ lda #$ff¢ ldx #$d8¢ ldy #$d9¢ jsr delmem¢¢ jsr set_pr¢ jsr makepr¢ jsr makejs¢ jsr makbig¢¢ lda #$ff¢ sta $d008¢ sta $d009¢ sta $d00a¢ sta $d00b¢ sta $d00c¢ lda #$fc¢ sta $d00d¢ lda #$f8¢ sta $d00e¢ sta $d00f¢ sta $d010¢ sta $d011¢ lda #$0e¢ sta 704¢ lda #$0c¢ sta 705¢ lda #$0a¢ sta 706¢ lda #$08¢ sta 707¢ lda #$06¢ sta 711¢ lda #%10001¢ sta $26f¢¢ lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda <dli¢ sta $200¢ lda >dli¢ sta $201¢ lda #$c0¢ sta $d40e¢ lda #$21¢ sta $22f¢ lda #0¢ sta 712¢ lda #4¢ sta 710¢ lda #0¢ sta 709¢ lda <txt¢ sta atxt¢ lda >txt¢ sta atxt+1¢ lda #0¢ sta _new¢ jsr new¢¢__1  lda $d20f¢ and #%00001000¢ beq __4¢ lda 20¢ cmp 20¢ beq *-2¢__4  equ *¢ jsr scrrol¢ jsr ___big¢ lda #$cc¢ sta $d40a¢ sta $d01a¢ lda #0¢ sta $d40a¢ sta $d01a¢__2 lda 53279¢ and #%00000010¢ beq __3¢ lda 53279¢ and #%00000001¢ beq __2¢ bne __1¢__3  lda #$ff¢ sta $d301¢ lda #6¢ ldx #$c0¢ ldy #$e2¢ jsr setvbl¢ lda #7¢ ldx #$c2¢ ldy #$8a¢ jsr setvbl¢ ldx #$fc¢ ldy #$19¢ stx $209¢ sty $208¢ rts¢¢makepr   lda #0¢ sta mpoz¢_mp1 lda mpoz¢ tay¢ asl @¢ tax¢ lda pr_adr,x¢ sta zer2¢ lda pr_adr+1,x¢ sta zer2+1¢ lda ltablo,y¢ clc¢ adc #rmar¢ sta wart¢ lda >scrmem¢ sta wart+1¢ lda #rmar¢ sta _mp¢_mp2 ldy #0¢ lda #$2e      *פנכ¢ sta (zer2),y¢ iny¢ lda wart¢ sta (zer2),y¢ iny¢ lda wart+1¢ sta (zer2),y¢ lda zer2¢ clc¢ adc #3¢ sta zer2¢ lda zer2+1¢ adc #0¢ sta zer2+1¢ lda wart¢ sec¢ sbc #1¢ sta wart¢ lda wart+1¢ sbc #0¢ sta wart+1¢ dec _mp¢ bpl _mp2¢ lda #$60      *פקצ¢ ldy #0¢ sta (zer2),y¢ ldy mpoz¢ iny¢ sty mpoz¢ cpy #8¢ bne _mp1¢ rts¢¢_mp  dta b(0)¢wart dta a(0)¢mpoz dta b(0)¢pr_adr   equ *¢ dta a(proc),a(proc+$80),a(proc+$100)¢ dta a(proc+$180),a(proc+$200)¢ dta a(proc+$280),a(proc+$300)¢ dta a(proc+$380)¢¢makejs   lda #0¢ sta jpoz¢_mj1 lda jpoz¢ asl @¢ tax¢ lda js_adr,x¢ sta zer2¢ lda js_adr+1,x¢ sta zer2+1¢ lda pr_adr,x¢ sta wart¢ lda pr_adr+1,x¢ sta wart+1¢¢ ldy #0¢ lda #$0e      *IJצכáIJאצ«¢ sta (zer2),y¢ iny¢ lda <newfnt¢ clc¢ adc jpoz¢ sta (zer2),y¢ iny¢ lda >newfnt¢ adc #0¢ sta (zer2),y¢ iny¢ lda #$ea¢ sta (zer2),y¢ iny¢ lda #rmar¢ sta _jp¢ lda #1¢ sta __step+1¢ jmp _mj_2¢_mj2 ldx jpoz¢ ldy #0¢ lda #$ad      *כגIJáIJאצ«¢ sta (zer2),y¢ iny¢ lda ltablo,x¢ sec¢ adc _jp¢ sta (zer2),y¢ iny¢ lda >scrmem¢ sta (zer2),y¢ iny¢ lda #$0a      *IJצכáij¢ sta (zer2),y¢ iny¢_mj_2    lda #$20  *טצפ¢ sta (zer2),y¢ iny¢ lda wart¢ sta (zer2),y¢ iny¢ lda wart+1¢ sta (zer2),y¢ lda zer2¢ clc¢ adc #7¢ sta zer2¢ lda zer2+1¢ adc #0¢ sta zer2+1¢__step   ldx #step¢_mj3 lda wart¢ clc¢ adc #3¢ sta wart¢ lda wart+1¢ adc #0¢ sta wart+1¢ dec _jp¢ beq _mj4¢ dex¢ bne _mj3¢ lda #step¢ sta __step+1¢ jmp _mj2¢_mj4 lda #$60  *פקצ¢ ldy #0¢ sta (zer2),y¢ ldy jpoz¢ iny¢ sty jpoz¢ cpy #8¢ beq *+5¢ jmp _mj1¢ rts¢¢_jp  dta b(0)¢jpoz dta b(0)¢js_adr   equ *¢ dta a(_jsr),a(_jsr+$80)¢ dta a(_jsr+$100),a(_jsr+$180)¢ dta a(_jsr+$200),a(_jsr+$280)¢ dta a(_jsr+$300),a(_jsr+$380)¢¢txt  dta a(0)¢ dta d'GRTX 2 all "BARYMAG" readers, and '¢ dta d'especially 2: SLIGHT, SHADOWS, TAQUART, '¢ dta d'USG.      '¢ dta d'LBS of APC             '¢ dta b($9b)¢¢glowne   equ *¢ jsr _jsr¢ jsr _jsr+$80¢ jsr _jsr+$100¢ jsr _jsr+$180¢ jsr _jsr+$200¢ jsr _jsr+$280¢ jsr _jsr+$300¢ jmp _jsr+$380¢¢scrrol   dec _new¢ lda $d20f¢ and #%00001000¢ beq s0¢ lda #$20¢ cmp $d40b¢ bne *-3¢s0   lda #$44¢ sta $d40a¢ sta $d01a¢ lda #0¢ sta $d40a¢ sta $d01a¢ jsr glowne¢s1   lda #$88¢ sta $d40a¢ sta $d01a¢ lda #0¢ sta $d40a¢ sta $d01a¢ lda _new¢ bne *+5¢ jsr new¢ rts¢¢new  jsr inatxt¢_n2  tax¢ and #$80¢ beq _n3¢ lda #$00¢ beq _n4¢_n3  lda #$ff¢_n4  sta _eor+1¢ txa¢ asl @¢ asl @¢ asl @¢ sta achr¢ txa¢ and #%01111111¢ pha¢ txa¢ and #%01100000¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ adc >fnt8¢ sta achr+1¢ ldy #7¢_n5  lda (achr),y¢_eor eor #$80¢ sta newfnt,y¢ dey¢ bpl _n5¢ pla¢ tay¢ lda pr_tab,y¢ sta _new¢ rts¢¢inatxt   inc atxt¢ bne *+4¢ inc atxt+1¢ ldy #0¢ lda (atxt),y¢ cmp #$9b¢ beq *+3¢ rts¢ lda <txt¢ sta atxt¢ lda >txt¢ sta atxt+1¢ jmp inatxt¢¢ltablo   equ *¢ dta b($00),b($20),b($40),b($60)¢ dta b($80),b($a0),b($c0),b($e0)¢¢hlp  dta b(0)¢hlp2 dta b(0)¢_new dta b(0)¢newfnt   dta d'¯¯¯¯¯¯¯¯'¢¢makbig   equ *¢ lda <___big¢ sta zer4¢ lda >___big¢ sta zer4+1¢ lda #0¢ sta hlp¢ sta zer1¢ lda >scrmem¢ sta zer1+1¢¢_mb1 lda hlp¢ asl @¢ tax¢ lda btbtab,x¢ sta zer5¢ lda btbtab+1,x¢ sta zer5+1¢¢ lda #0¢ sta zer2¢ lda hlp¢ and #%100¢ lsr @¢ clc¢ adc >bigmem¢ sta zer2+1¢¢ ldy #0¢_mb2 lda (zer5),y¢ sta zer6¢ iny¢ sty hlp2¢ lda (zer5),y¢ beq _mb4¢ sta zer6+1¢_mb3 jsr put6¢ ldy zer6¢ cpy zer6+1¢ beq _mb4¢ iny¢ sty zer6¢ bne _mb3¢_mb4 lda zer2¢ clc¢ adc #$20¢ sta zer2¢ bcc *+4¢ inc zer2+1¢ ldy hlp2¢ iny¢ cpy #32¢ bne _mb2¢¢ lda zer1¢ clc¢ adc #$20¢ sta zer1¢ bcc *+4¢ inc zer1+1¢¢ inc hlp¢ lda hlp¢ cmp #8¢ bne _mb1¢¢ ldy #0¢ lda #$60¢ sta (zer4),y¢¢ rts¢¢put6 ldy #0¢ lda #$ad¢ sta (zer4),y¢ iny¢ lda zer1¢ clc¢ adc zer6¢ sta (zer4),y¢ iny¢ lda zer1+1¢ sta (zer4),y¢ iny¢ lda #$8d¢ sta (zer4),y¢ iny¢ lda zer2¢ clc¢ adc zer6¢ sta (zer4),y¢ iny¢ lda zer2+1¢ sta (zer4),y¢¢ lda zer4¢ clc¢ adc #6¢ sta zer4¢ bcc *+4¢ inc zer4+1¢ rts¢¢btbtab   dta a(btb0),a(btb1),a(btb2),a(btb3)¢ dta a(btb4),a(btb5),a(btb6),a(btb7)¢btb0 dta b(0),b(7),b(0),b(9),b(0),b(11),b(0),b(13)¢ dta b(10),b(15),b(12),b(17),b(14),b(19),b(18),b(21)¢ dta b(20),b(23),b(22),b(25),b(26),b(27),b(28),b(29)¢ dta b(30),b(31),c''¢btb1 dta c'',b(0),b(9),b(0),b(11),b(0),b(13),b(0)¢ dta b(17),b(12),b(19),b(14),b(21),b(20),b(25),b(22),b(27)¢ dta b(28),b(29),b(30),b(31),c''¢btb2 dta c''¢ dta b(0),b(11),b(0),b(13),b(0),b(19),b(0),b(21)¢ dta b(14),b(27),b(22),b(29),b(30),b(31),a(0)¢btb3 dta c''¢ dta b(0),b(13),b(0),b(21),b(0),b(29),b(0),b(31)¢btb4 dta b(0),b(31),b(0),b(29),b(0),b(21),b(0),b(13)¢ dta c''¢btb5 dta a(0),b(30),b(31),b(22),b(29),b(14),b(27)¢ dta b(0),b(21),b(0),b(19),b(0),b(13),b(0),b(11)¢ dta c''¢btb6 dta c'',b(30),b(31),b(28),b(29),b(22),b(27),b(20)¢ dta b(25),b(14),b(21),b(12),b(19),b(0),b(17),b(0),b(13)¢ dta b(0),b(11),b(0),b(9),c''¢btb7 dta c'',b(30),b(31),b(28),b(29),b(26),b(27)¢ dta b(22),b(25),b(20),b(23),b(18),b(21),b(14),b(19)¢ dta b(12),b(17),b(10),b(15),b(0),b(13),b(0),b(11)¢ dta b(0),b(9),b(0),b(7)¢¢set_pr   lda #8¢ sta pr_tab¢ ldy #1¢_spr_1   sty hlp¢ jsr prop¢ ldy hlp¢ lda akt_sz¢ sta pr_tab,y¢ iny¢ cpy #128¢ bne _spr_1¢ rts¢¢prop tya¢ asl @¢ asl @¢ asl @¢ sta zer2¢ tya¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ and #%00000011¢ clc¢ adc >fnt8¢ sta zer2+1¢¢ ldy #0¢pr_1 lda (zer2),y¢ jsr szer¢ sta newfnt,y¢ iny¢ cpy #8¢ bne pr_1¢¢ lda #0¢ ldy #0¢pr_2 cmp newfnt,y¢ bpl *+5¢ lda newfnt,y¢ iny¢ cpy #8¢ bne pr_2¢¢ cmp #8¢ bne *+4¢ lda #7¢ clc¢ adc #1¢ sta akt_sz¢ rts¢¢szer tax¢ bne *+5¢ lda #0¢ rts¢ ldx #1¢sz_1 asl @¢ beq sz_2¢ inx¢ bne sz_1¢sz_2 txa¢ rts¢¢akt_sz   dta b(9)¢¢VBLK_1   equ *¢ inc $14¢ bne *+4¢ inc $13¢ bne *+4¢ inc $12¢ ldy #8¢_vb1 lda $2c0,y¢ sta $d012,y¢ dey¢ bpl _vb1¢ lda $22f¢ sta $d400¢ lda $230¢ sta $d402¢ lda $231¢ sta $d403¢ lda $2f4¢ sta $d409¢ lda $26f¢ sta $d01b¢ lda $d300¢ and #$0f¢ sta $278¢ lda $d010¢ sta $284¢VBLK_2   equ *¢ pla¢ tay¢ pla¢ tax¢ pla¢ rti¢¢SETVBL   equ *¢ asl @¢ sta $22d¢ txa¢ ldx #5¢_setv1 sta $d40a¢ dex¢ bne _setv1¢ ldx $22d¢ sta $217,x¢ tya¢ sta $216,x¢ rts¢¢SETKEY   equ *¢ lda <vkey¢ sta $208¢ lda >vkey¢ sta $209¢ rts¢¢VKEY equ *¢ lda $d209¢ cmp $2fc¢ beq _vk1¢ lda $d209¢ sta $2f2¢ sta $2fc¢_vk1 pla¢ rti¢¢romram   equ *¢ sei¢ lda #0¢ sta $d40e¢ tay¢ sta zer1¢ lda #$c0¢ sta zer1+1¢ lda #$ff¢ sta $d301¢_r1  lda (zer1),y¢ dec $d301¢ sta $d01a¢ sta (zer1),y¢ inc $d301¢ iny¢ bne _r1¢ inc zer1+1¢ lda zer1+1¢ cmp #$c4¢ bne _r1¢¢ lda #$fc¢ sta zer1+1¢_r2  lda (zer1),y¢ dec $d301¢ sta $d01a¢ sta (zer1),y¢ inc $d301¢ iny¢ bne _r2¢ inc zer1+1¢ bne _r2¢¢ lda #$fe¢ sta $d301¢¢ lda #$40¢ sta $d40e¢ cli¢ rts¢¢dli  equ *¢ pha¢ txa¢ pha¢ tya¢ pha¢¢ sta $d40a¢ lda #$40¢ sta $d000¢ lda #$58¢ sta $d001¢ lda #$6c¢ sta $d002¢ lda #$80¢ sta $d003¢ lda #$94¢ sta $d007¢ lda #$9c¢ sta $d006¢ lda #$a4¢ sta $d005¢¢ ldx #32¢_dl1 stx $d40a¢ txa¢ asl @¢ asl @¢ asl @¢ sta $d01a¢ dex¢ bne _dl1¢¢ lda #0¢ sta $d40a¢ sta $d000¢ sta $d001¢ sta $d002¢ sta $d003¢ sta $d007¢ sta $d006¢ sta $d005¢ sta $d01a¢¢ pla¢ tay¢ pla¢ tax¢ pla¢ rti¢¢ opt %10111¢ opt %10101¢¢_mydl1   dta b($80)¢ dta b($4f),a(bigmem)¢ dta d'///////////////////////////////'¢ dta b($01),a(_mdl2)¢¢ org dl¢ dta d'pp'¢_mdl1    dta b($01),a(_mydl1)¢_mdl2 dta b($41),a(dl)¢¢ org delmem¢ sta _de1+1¢ stx _de2+2¢ sty _de3+1¢ ldy #0¢_de1 lda #0¢_de2 sta $b000,y¢ dey¢ bne _de2¢ inc _de2+2¢ lda _de2+2¢_de3 cmp #$b1¢ bne _de1¢ rts¢¢ org my_fnt¢ dta c'ijijijijijןןןl³ll³l'¢ dta c'⑧|ס|⑥ⁿ0הכ⑧0fה8l8p∧כvijijij'¢ dta c'pαijijαpαp00pαl8³8l00ⁿ00'¢ dta c'``ijⁿijij╱⑧0`ij'¢ dta c'|מ∧÷µ|⑧x⑧⑧⑧³|ה╱|ij³³xה|'¢ dta c'ijijככ³³ijⁿ╱ה||ijⁿהה|³╱800'¢ dta c'|ה|הה||ה~╱xijijijij````ij'¢ dta c'⑧0`ij`0⑧ⁿⁿij`0⑧0`ijxכ⑧00'¢ dta c'|ה∧∧ij~8lה³ההⁿהⁿההⁿ|הijijה|'¢ dta c'ⁿההההⁿ³ijⁿijij³³ijⁿijijij|הij∧ה|'¢ dta c'הה³הההⁿ0000ⁿ~כxהכ°°כה'¢ dta c'ijijijijij³ה∈³שהההµ÷∧מה|הההה|'¢ dta c'ⁿההⁿijij|הההמ|ⁿההⁿכה|ij|╱ה|'¢ dta c'³⑧⑧⑧88ההההה|הההl8⓪ההש³∈ה'¢ dta c'הl88lההה³⑧⑧8³⑧0`³°ijijijij°'¢ dta c'60ⁿ0³°⑧⑧⑧⑧°0xכ¯'¢ dta c'l³³|8⓪|╱~ה~⇨⇨⇨⇨⇨⇨⇨⇨⑧~ijijij~'¢ dta c'⑧⑧⑧°°⑧⑧⑧|ה³ij|⑧⇨◆8pαijijαp8◆⇨'¢ dta c'⇧⇨◆?¯Çijα≡°ⁿ³¯⑧³⑧0`³'¢ dta c'p08p0°⑧שµ÷∧מה⑧ⁿהההה⑧|ההה|'¢ dta c'⑧|הההה|8lה³הה³ijⁿijij³⑧|ij|╱ⁿ'¢ dta c'|ש³ה|¯¯¯¯⑧|הijijה|⑧|ij|╱ה|'¢ dta c'⑧⑧⑧¯¯³x<`³⑧³8`³≡ij≡ijⁿ0<'¢ dta c'0xⁿœ0000œⁿx00`ⁿⁿ`00⑧ⁿⁿ⑧0'¢ dta c'⓪8|³|8⓪|╱~ה~ijץ÷ההⁿ~ijijij~'¢ dta c'╱v∧הה~|ה³ij|⑧⑧³⑧⑧~הה~╱ⁿ'¢ dta c'ijץ÷הההp≡00°╱╱µ<ijijכ°כה'¢ dta c'p0000°ה∈³שהⁿהההה|ההה|'¢ dta c'ⁿההⁿijij~הה~╱◆ⁿמijijij|ij|╱ⁿ'¢ dta c'⑧⑧³⑧⑧הההה|ההl8⓪הש³∈ה'¢ dta c'הl8lהההה~╱|³8`³ijן≡αij³'¢ dta c'````````ⁿ≡°ץכ⓪0p≡p0⓪Çijα≡αijÇ'¢¢ org 623¢ dta b(%100)¢¢ end¢