Arena Bzdur/Arena_Bzdur_1_1995_Banklan_pl_Side_A.atr/memfile.asm

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

         opt 21¢         org $9000¢¢sektor   equ $0004 |od ktorego sektora¢¢         lda $230¢         pha¢         lda $231¢         pha¢         lda <dl¢         ldx >dl¢         sta $230¢         stx $231¢¢* glowna procedura¢¢l3       lda $d01f | czekaj na START¢         cmp #$06  |¢         bne l3    |¢¢* zapis pamieci¢¢         jsr open¢         bpl bank¢         jmp l2¢bank     ldx ile¢         lda banki,x¢         cmp #$ff¢         beq l2¢         sta $d301¢         jsr save¢         bpl no_err¢         jmp l2¢no_err   inc ile¢         jmp bank¢l2       jsr close¢         lda #$ff¢         sta $d301¢         pla¢         sta $231¢         pla¢         sta $230¢         rts¢¢* procedury I/O¢¢open     ldx #$10¢         lda #$03¢         sta $342,x¢         lda <name¢         sta $344,x¢         lda >name¢         sta $345,x¢         lda #$08¢         sta $34a,x¢         jmp $e456¢close    ldx #$10¢         lda #$0c¢         sta $342,x¢         jmp $e456¢save     ldx #$10¢         lda #$0b¢         sta $342,x¢         lda #$00¢         sta $344,x¢         sta $348,x¢         lda #$40¢         sta $345,x¢         sta $349,x¢         jmp $e456¢¢* tablica bankow do zapisu¢¢banki    dta b($c1),b($c5),b($c9),b($ff)¢¢* zmienne pomocnicze¢¢adr      dta a($0000)¢sek      dta a($0000)¢ile      dta b($00)¢name     dta c'D:MEMORY.DTA'¢¢* nowy dl i txt¢¢dl       dta a($7070),a($7070)¢         dta b($46),a(txt),b($70)¢         dta b($02)¢         dta b($41),a(dl)¢¢txt      dta d'       memfile      '¢         dta d' Wloz dysk do stacji i nacisnij áצקIJפקá '¢¢         org $2e0¢         dta a($9000)¢