Energy 1/Energy_1_1996_Taquart_pl_Side_A_a.atr/gedstuff.arc/GEDVIEW.ASM

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

* Pokazywaczka GED'ow¢*   Jaskier/Taquart¢¢ opt 6¢ org $2000¢¢* adres programu na poczatek strony¢*   i za programem zostawic 10KB¢¢plik equ $5330   gdzie ladowac dane¢*        zmieniac tylko 1-sza cyfre¢¢tb0  equ plik¢tb1  equ plik+$c8¢tb2  equ plik+$190¢tb3  equ plik+$258¢tb4  equ plik+$320¢tb5  equ plik+$3e8¢tb6  equ plik+$4b0¢tb7  equ plik+$578¢tb8  equ plik+$640¢tb9  equ plik+$708¢¢pmg  equ plik+$7d0¢dane equ plik+$cd0¢obr1 equ plik+$ce0¢obr2 equ plik+$1cd0¢¢addr equ $80¢word equ $82¢¢*--- program¢¢start lda #$40¢ sta $d40e¢ lda 20¢ cmp 20¢ beq *-2¢ ldx #31¢ lda #0¢ sta $d000,x¢ dex¢ bpl *-4¢ sta $22f¢ lda #3¢ sta $d01d¢ lda >pmg-$300¢ sta $d407¢¢ lda <end¢ sta addr¢ lda >end¢ sta addr+1¢ lda dane+14¢ asl @¢ asl @¢ adc #3¢ tax¢ ldy #3¢s1 lda proc3,x¢ sta (addr),y¢ dex¢ dey¢ bpl s1¢¢ lda <end+4¢ sta addr¢ lda >end+4¢ sta addr+1¢ lda #0¢s2 pha¢ tax¢ lda tb0,x¢ sta zm0¢ lda tb1,x¢ sta zm1¢ lda tb2,x¢ sta zm2¢ lda tb3,x¢ sta zm3¢ lda tb4,x¢ sta zm4¢ lda tb5,x¢ sta zm5¢ lda tb6,x¢ sta zm6¢ lda tb7,x¢ sta zm7¢ lda tb8,x¢ sta zm8¢ lda tb9,x¢ sta zm9¢¢ lda <proc1¢ sta word¢ lda >proc1¢ sta word+1¢ ldx <proc2-proc1¢ ldy #0¢s3 lda (word),y¢ sta (addr),y¢ inc word¢ bne *+4¢ inc word+1¢ inc addr¢ bne *+4¢ inc addr+1¢ dex¢ bne s3¢¢ pla¢ clc¢ adc #1¢ cmp #$66¢ bne s4¢ pha¢ dec addr+1¢ ldy #$fe¢ lda #$a5  (lda 0)¢ sta (addr),y¢ inc addr+1¢ pla¢s4 cmp #$c8¢ bne s2¢¢ ldy <proc3-proc2¢s5 lda proc2,y¢ sta (addr),y¢ dey¢ bpl s5¢¢ lda dane+5¢ ldx #0¢ ldy #$ff¢s6 iny¢s7 lsr @¢ bcc s9+1¢ lsr @¢ bcc s8¢ inx¢ inx¢ inx¢ inx¢s8 inx¢ inx¢s9 bit $4a (lsr @)¢ inx¢ inx¢ pha¢ txa¢¢ cpy #0¢ bne s10¢ clc¢ adc #$30¢ sta zm11¢s10 cpy #1¢ bne s11¢ clc¢ adc #$30¢ sta zm12¢s11 cpy #2¢ bne s12¢ clc¢ adc #$30¢ sta zm13¢s12 pla¢ cpy #3¢ bne s6¢¢ lda 20¢ cmp 20¢ beq *-2¢ lda dane+8¢ sta $2c8¢ lda #$3e¢ sta $22f¢ lda <dlist¢ sta $230¢ lda >dlist¢ sta $231¢ lda <dl¢ sta $200¢ lda >dl¢ sta $201¢ dec $d40e¢¢ lda #$ff¢ sta $2fc¢ lda $2fc¢ cmp #$ff¢ beq *-5¢¢ lda #$40¢ sta $d40e¢ lda 20¢ cmp 20¢ beq *-2¢ lda #0¢ ldx #8¢ sta $2c0,x¢ dex¢ bpl *-4¢ sta $22f¢ sta $26f¢ ldx #31¢ sta $d000,x¢ dex¢ bpl *-4¢ rts¢¢*--- dane¢¢dlist dta d'ppá@',b($4e),a(obr1)¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'.....',b($4e),a(obr2)¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'................'¢ dta d'.................'¢ dta b($41),a(dlist)¢¢proc1 lda #0¢zm0 equ *-1¢ ldx #0¢zm2 equ *-1¢ ldy #0¢zm3 equ *-1¢ sta $d01e¢zm1 equ *-2¢ stx $d016¢ sty $d017¢ lda #0¢zm4 equ *-1¢ sta $d018¢ lda #0¢zm5 equ *-1¢ ldx #0¢zm6 equ *-1¢ ldy #0¢zm7 equ *-1¢ sta $d016¢ stx $d017¢ sty $d018¢ lda #0¢zm8 equ *-1¢ sta $d016¢ lda #0¢zm9 equ *-1¢ sta $d017¢ inc 0¢¢proc2 lda #0¢ sta $d008¢ sta $d009¢ pla¢ tay¢ pla¢ tax¢ pla¢ rti¢¢proc3 lda 0¢ lda #0¢¢ lda 0¢ lda 0¢¢ nop¢ nop¢ lda 0¢¢ nop¢ nop¢ nop¢ nop¢¢ pha¢ pla¢ lda #0¢¢ pha¢ pla¢ lda 0¢¢ pha¢ pla¢ nop¢ nop¢¢ pha¢ pla¢ inc 0¢¢*--- przerwanie¢¢dl pha¢ txa¢ pha¢ tya¢ pha¢ lda dane+6¢ sta $d01b¢ sta $d40a¢ lda dane+7¢ sta $d019¢ lda dane+5¢ sta $d00c¢¢ lda dane+13¢ clc¢ adc #$30¢ sta $d004¢ lda dane+13¢ adc #$32¢zm11 equ *-1¢ sta $d005¢ lda dane+13¢ adc #$34¢zm12 equ *-1¢ sta $d006¢ lda dane+13¢ adc #$36¢zm13 equ *-1¢ sta $d007¢ lda dane+11¢ adc #$30¢ sta $d002¢ lda dane+12¢ adc #$30¢ sta $d003¢¢ ldx #11¢ dex¢ bne *-1¢ lda (0,x)¢ lda 0¢ ldy #3¢ lda dane+4¢dl1 tax¢ and #3¢ sta $d008,y¢ lda dane,y¢ sta $d012,y¢ txa¢ lsr @¢ lsr @¢ dey¢ bpl dl1¢¢ clc¢ lda dane+9¢ adc #$30¢ sta $d000¢ lda dane+10¢ adc #$30¢ sta $d001¢¢end equ *¢¢ end¢