Syzygy Magazine 4/Syzygy_Magazine_4_1998_08_07___pl_Disk_2_of_3_Side_B.atr/lekcja3.arc/TESTINT.ASM

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

* Test procedur zawartych w modulach¢* 'INTOP' i 'INTSTR'¢¢     org $9000¢     opt %0100101¢¢     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¢¢     lda #1¢     sta 752¢¢     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¢     jsr putt¢¢     jsr copy¢     jsr isqr      ;Pierwiastek¢     ldx <pierw    ;kwadratowy¢     ldy >pierw¢     jsr istr¢     ldx <_h¢     ldy >_h¢     jsr putt¢     lda #$ff¢     sta 764¢     cmp 764¢     beq *-3¢     sta 764¢     lda #0¢     sta 752¢     rts¢¢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 'M:INTOP.ASM'¢ icl 'M: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 add b = '¢suma org *+7¢¢_d dta c'a sub b = '¢roznica org *+7¢¢_e dta c'a mul b = '¢iloczyn org *+7¢¢_f dta c'a div b = '¢iloraz org *+7¢¢_g dta c'a mod b = '¢reszta org *+7¢¢_h dta c'sqr(a) = '¢pierw org *+7¢¢liczba equ *¢¢ end¢