Flop Magazin 32/Flop_Magazin_32_1994_06_Raster_cs_Side_A.atr/soucet.lm

Text File | 2023-02-26 | 2KB | 1 lines

10 ;SOUCET.M65¢20 ;Radek Sterba, RASTER 1995.1¢30 ;Zpusob volani:¢40 ;SOUCET=USR($600,CIS1,CIS2)¢50 ;¢60       .OPT NO LIST¢70       *=  $0600   ;RunAdr¢80       PLA         ;Prevezme pocet parametru¢90       CMP #2      ;Jsou 2?¢0100     BNE CHY     ;Nejsou => Skok¢0110 ;Spravny pocet parametru¢0120     PLA         ;HByte_CIS1¢0130     STA RAM1+1  ;Ulozeni HB_CIS1¢0140     PLA         ;DByte_CIS1¢0150     STA RAM1    ;Ulozeni DB_CIS1¢0160     PLA         ;HByte_CIS2¢0170     STA RAM2+1  ;Ulozeni HB_CIS2¢0180     PLA         ;DByte_CIS2¢0190     STA RAM2    ;Ulozeni DB_CIS2¢0200 ;Vlastni soucet¢0210     LDA RAM1    ;DB_RAM1¢0220     CLC         ;Vynuluj CARRY¢0230     ADC RAM2    ;A=A+CARRY+DB_RAM2¢0240     STA SOUC    ;DByte souctu¢0250     LDA RAM1+1  ;HB_RAM1¢0260     ADC RAM2+1  ;A=A+CARRY+HB_RAM2¢0270     STA SOUC+1  ;Hbyte souctu¢0280 ;Naplneni volane promenne¢0290 UKO¢0300     LDA SOUC    ;DB souctu¢0310     STA 212     ;Adresova bunka pro predani dolniho bytu zpet do BASICu¢0320     LDA SOUC+1  ;HB souctu¢0330     STA 213     ;Adresova bunka pro predani horniho bytu zpet do BASICu¢0340     RTS         ;Navrat z podprogramu¢0350 ;¢0360 ;Vybrani dvojic [HB,DB] podle skutecneho poctu parametru¢0370 CHY¢0380     TAX         ;Presun A do X¢0390 CH2¢0400     CPX #0      ;X=0?¢0410     BEQ KON     ;Ano => Skok¢0420     PLA         ;Vyber HB¢0430     PLA         ;Vyber DB - nebudou vubec pouzity¢0440     DEX         ;X=X-1¢0450     JMP CH2     ;Skok na CH2¢0460 KON¢0470     LDA #0      ;A=0¢0480     STA SOUC    ;A do SOUC (=0)¢0490     STA SOUC+1  ;A do SOUC+1 (=0)¢0500     JMP UKO     ;Skok na UKO¢0510 ;¢0520 ;¢0530 ;Vyhrazeni pameti pro promenne¢0540 RAM1 .WORD 0    ;2 byty pro RAM1¢0550 RAM2 .WORD 0    ;2 byty pro RAM2¢0560 SOUC .WORD 0    ;2 byty pro SOUC¢