Kaszel/Kaszel_1_19xx_Mad_Team_pl.atr/comp.asm

Assembly Source File | 2023-02-26 | 2KB | 1 lines

 opt 37¢ org $2000¢¢__ad equ $80¢¢comp jsr _bat¢¢ lda >bf1¢ sta cl+2¢ sta cm+2¢¢ ldx #141¢ ldy #0¢ sty _gat+1¢ tya¢cl sta bf1,y¢ dey¢ bne cl¢ inc cl+2¢ dex¢ bne cl¢¢ jsr _drv¢ jsr open¢ jsr __r¢ lda <bf1¢ ldy >bf1¢ ldx #$10¢ jsr __a¢ lda <36000¢ ldy >36000¢ jsr __l¢ lda #7¢ ldy #4¢ jsr __r¢¢ jsr __gp¢ jsr _drv¢ jsr open¢ jsr __r¢¢lp ldy #0¢ tya¢ sta bf,y¢ dey¢ bne *-4¢¢ lda <bf¢ ldy >bf¢ ldx #$10¢ jsr __a¢ lda <$100¢ ldy >$100¢ jsr __l¢ lda #7¢ ldy #4¢ jsr __r¢¢ ldy #0¢cm lda bf1,y¢ cmp bf,y¢ beq *+5¢ jsr prn¢ iny¢ bne cm¢ inc cm+2¢¢ tya¢ cmp <bf1+36000¢ lda cm+2¢ sbc >bf1+36000¢ bcc lp¢¢ ldx #$10¢ lda #$c¢ jsr __r¢¢_gat lda #0¢ bne *+9¢ ldx <_t2¢ ldy >_t2¢ jsr $c642¢ rts¢¢prn tya¢ pha¢ clc¢ adc cm+1¢ tay¢ lda cm+2¢ adc #0¢ tax¢¢ tya¢ sec¢ sbc <bf1¢ tay¢ txa¢ sbc >bf1¢ tax¢ jsr hex¢ ldx <code¢ ldy >code¢ jsr $c642¢ sty _gat+1¢¢ pla¢ tay¢ rts¢¢hex ldx #0¢ jsr phex¢ tya¢phex pha¢ lsr @¢ lsr @¢ lsr @¢ lsr @¢ jsr pxdig¢ pla¢pxdig and #$f¢ clc¢ adc #48¢ cmp #$3a¢ bcc *+4¢ adc #6¢ sta code,x¢ inx¢ rts¢¢open ldx #$10¢ lda #$c¢ jsr __r¢ lda __ad¢ ldy __ad+1¢ jsr __a¢ lda #3¢ ldy #4¢ rts¢¢*------------------*¢* Pobiera parametry*¢*------------------*¢_bat lda $344¢ sta __ad¢ lda $345¢ sta __ad+1¢ ldy $348¢ dey¢ lda #$9b¢ sta (__ad),y¢¢__gp ldy #$ff¢ iny        ;wycina wyrazy¢ lda (__ad),y¢ cmp #$9b¢ beq *+18¢ cmp #' '¢ bne *-9¢ iny¢ lda (__ad),y¢ cmp #$9b¢ beq *+7¢ cmp #' '¢ beq *-9¢ inx¢ pha¢ tya¢ clc¢ adc __ad¢ sta __ad¢ bcc *+4¢ inc __ad+1¢ pla¢ rts¢¢ rts¢_drv ldy #1¢ lda (__ad),y¢ cmp #':'¢ beq *-7¢ iny¢ lda (__ad),y¢ cmp #':'¢ beq *-14¢ lda __ad¢ sec¢ sbc #3¢ sta __ad¢ bcs *+4¢ dec __ad+1¢ ldy #0¢ lda #'D'¢ sta (__ad),y¢ iny¢ lda $301¢ clc¢ adc #48¢ sta (__ad),y¢ iny¢ lda #':'¢ sta (__ad),y¢ rts¢¢__a sta $344,x ;adres¢ tya¢ sta $345,x¢ rts¢¢__l sta $348,x ;dlugosc¢ tya¢ sta $349,x¢ rts¢¢__r sta $342,x ;wywolanie¢ tya¢ sta $34a,x¢ jsr $e456¢ bmi err¢ rts¢¢err cpy #136¢ bne *+3¢ rts¢ pla¢ pla¢¢ lda #0¢ jsr hex¢ ldx <ier¢ ldy >ier¢ jsr $c642¢¢ lda $301¢ asl @¢ asl @¢ asl @¢ asl @¢ tax¢ sta $342,x¢ jsr $e456¢¢ ldx <_t1¢ ldy >_t1¢ jsr $c642¢ rts¢¢ier dta c'Error: '¢code dta c'    ',b($9b)¢_t1 dta c'COMPARE V1.0 (c) ',b($27),c'97 by Madteam'¢ dta c'Usage: COMP.EXE file1 file2',b($9b)¢_t2 dta c'The two files appear to be identical.',b($9b)¢¢bf org *+$100¢bf1 equ *¢