home *** CD-ROM | disk | FTP | other *** search
/ Arena Bzdur / Arena_Bzdur_1_1995_Banklan_pl_Side_A.atr / memdisk.asm next >
Assembly Source File  |  2023-02-26  |  2KB  |  1 lines
  1.          opt 21¢         org $9000¢¢sektor   equ $0064 |od ktorego sektora¢¢         lda $230¢         pha¢         lda $231¢         pha¢         lda <dl¢         ldx >dl¢         sta $230¢         stx $231¢¢* glowna procedura¢¢         lda <sektor¢         ldx >sektor¢         sta sek¢         stx sek+1¢¢l3       lda $d01f | czekaj na START¢         cmp #$06  |¢         bne l3    |¢¢* zapis pamieci¢¢         lda #$50¢         sta $302¢         lda #$07¢         sta $306¢         lda #$80¢         sta $303¢         sta $308¢         lda #$00¢         sta $309¢bank     ldx ile¢         lda banki,x¢         cmp #$ff¢         beq l2¢         sta $d301¢save     lda adr¢         sta $304¢         lda adr+1¢         sta $305¢         lda sek¢         sta $30a¢         lda sek+1¢         sta $30b¢         jsr $e453¢         inc sek¢         bne l1¢         inc sek+1¢l1       lda adr¢         clc¢         adc #$80¢         sta adr¢         lda adr+1¢         adc #$00¢         sta adr+1¢         cmp #$80¢         bne save¢         lda #$40¢         sta adr+1¢         inc ile¢         jmp bank¢l2       lda #$ff¢         sta $d301¢         pla¢         sta $231¢         pla¢         sta $230¢         rts¢¢* tablica bankow do zapisu¢¢banki    dta b($c1),b($c5),b($c9),b($ff)¢¢* zmienne pomocnicze¢¢adr      dta a($4000)  zawsze !!!¢sek      dta a($0000)¢ile      dta b($00)¢¢* 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'       memdisk      '¢         dta d' Wloz dysk do stacji i nacisnij áצקIJפקá '¢¢         org $2e0¢         dta a($9000)¢