Syzygy Magazine 3/Syzygy_Magazine_3_19xx___pl_Side_A.atr/lekcja2.arc/TESTINT.ASM

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

* Ustaw w Setup Run i Memhi na $b000,¢* nastepnie zassembluj ten programik i¢* uruchom go...¢* Aby obejrzec efekt jego dzialania,¢* wcisnij shift+control+space.¢¢     org $b000¢     opt %0010101¢¢     ldx <_a¢     ldy >_a¢     jsr putt¢     ldx <liczba¢     ldy >liczba¢     jsr gett      ;Podaj a¢     ldx <liczba¢     ldy >liczba         ,,¢     jsr ival      ;wartosc a¢     lda inta¢     sta a¢     lda inta+1¢     sta a+1¢¢     ldx <_b¢     ldy >_b¢     jsr putt¢     ldx <liczba¢     ldy >liczba¢     jsr gett      ;Podaj b¢     ldx <liczba¢     ldy >liczba         ,,¢     jsr ival      ;wartosc b¢     lda inta¢     sta b¢     lda inta+1¢     sta b+1¢¢     jsr copy      ;przepisz a i b¢     jsr iadd      ;Dodaj¢     lda intc¢     sta inta¢     lda intc+1¢     sta inta+1               ,¢     ldx <suma     ;Przeksztalc¢     ldy >suma     ;wynik w lancuch¢     jsr istr      ;tekstowy¢     ldx <_c¢     ldy >_c          ,¢     jsr putt      ;Wyswietl sume¢¢     jsr copy¢     jsr isub      ;Odejmij¢     lda intc¢     sta inta¢     lda intc+1¢     sta inta+1¢     ldx <roznica¢     ldy >roznica¢     jsr istr¢     ldx <_d¢     ldy >_d¢     jsr putt¢¢     jsr copy           ,.¢     jsr imul      ;Pomnoz¢     lda intc¢     sta inta¢     lda intc+1¢     sta inta+1¢     ldx <iloczyn¢     ldy >iloczyn¢     jsr istr¢     ldx <_e¢     ldy >_e¢     jsr putt¢¢     jsr copy¢     jsr idiv      ;Podziel¢     lda intc¢     sta inta¢     lda intc+1¢     sta inta+1¢     ldx <iloraz¢     ldy >iloraz¢     jsr istr¢     ldx <_f¢     ldy >_f¢     jsr putt¢¢     jsr copy¢     jsr imod      ;Reszta¢     lda intc¢     sta inta¢     lda intc+1¢     sta inta+1¢     ldx <reszta¢     ldy >reszta¢     jsr istr¢     ldx <_g¢     ldy >_g¢     jmp putt¢¢copy ldx a         ;kopiuje liczby¢     ldy a+1       ;a i b do inta i¢     stx inta      ;intb¢     sty inta+1¢     ldx b¢     ldy b+1¢     stx intb¢     sty intb+1¢     rts¢¢help stx $344      ;Procedura pomoc-¢     sty $345      ;nicza; Ustawia¢     lda #40       ;adres w IOCB0,¢     sta $348      ;oraz ustala dlu-¢     ldx #0        ;gosc bufora¢     stx $349¢     rts¢¢putt jsr help         ,¢     lda #9        ;Wyswietl wiersz¢     sta $342      ;tekstu¢     jmp $e456¢¢gett jsr help¢     lda #5        ;Pobierz wiersz¢     sta $342      ;tekstu¢     jmp $e456¢¢ icl 'D:INTOP.ASM'¢ icl 'D:INTSTR.ASM'¢¢a dta a(0)¢b dta a(0)¢¢*------------------*¢¢* odpowiednie komunikaty:¢¢¢_a dta c'Podaj a:',b($9b)¢¢_b dta c'Podaj b:',b($9b)¢¢_c dta c'a + b = '¢suma org *+7¢¢_d dta c'a - b = '¢roznica org *+7¢¢_e dta c'a * b = '¢iloczyn org *+7¢¢_f dta c'a div b = '¢iloraz org *+7¢¢_g dta c'a mod b = '¢reszta org *+7¢¢liczba equ *¢¢ end¢