Serious Magazine 10/Serious_Magazine_10_2001_Dial_pl_Disk_2_of_2_Side_A_a.atr/rc_xms.lzh/CARTGO.ASM

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

* ----------------¢* Pseudo cartridge¢*   by Qcyk/Dial¢*    08.08.2001¢* ----------------¢¢ opt 37¢¢* ---------------------¢* Procka uruchomieniowa¢* ---------------------¢¢ org $600¢¢begn equ *¢ lda #$00¢ sei¢ sta $d40e¢ sta $d500¢ eor #$01¢ bit $d013¢ bne b1¢ lsr $d40e¢ cli¢ jmp ($a)¢b1 equ *¢ lda #$01¢ sta $d500¢ lda <bdli¢ ldx >bdli¢ ldy #$21¢ sta $d402¢ stx $d403¢ sty $d400¢ lda $d01f¢ and #$04¢ bne *-5¢ lda #$03¢ sta $d500¢ jmp $e477¢bdli equ *¢ dta b($70),b($70),b($70)¢ dta b($42),a(btxt)¢ dta b($41),a(bdli)¢btxt equ *¢ dta d'        Nacisnij  OPTION        '¢¢ org $2e0¢ dta a(begn)¢¢¢¢* ----------------¢* Dane cartridge'a¢* ----------------¢¢ org $a000¢¢¢* --------------¢* Glowny program¢* --------------¢¢crun equ *¢ lda <trun¢ ldx >trun¢ ldy <lrun¢ sta $0344¢ stx $0345¢ sty $0348¢ ldx #$00¢ lda #$0b¢ sta $0342¢ stx $0349¢ jsr $e456¢ lda $d01f¢ and #$04¢ bne *-5¢ lda #$01¢ sta $d500¢ jmp $e477¢trun equ *¢ dta c'Cartridge uruchomiony!'¢ dta b($9b)¢ dta c'Klawisz OPTION - wyjscie.'¢ dta b($9b)¢lrun equ *-trun¢¢¢* ---------¢* Inicjacja¢* ---------¢¢cini equ *¢ lda <idli¢ ldx >idli¢ ldy #$21¢ sta $230¢ stx $231¢ sty $22f¢ lda #$0a¢ sta $2c5¢ lda #$e0¢ sta $2f4¢ lda $d20f¢ and #$04¢ bne *-5¢ rts¢idli equ *¢ dta b($70),b($70),b($70)¢ dta b($42),a(itxt),b($02)¢ dta b($41),a(idli)¢itxt equ *¢ dta d'    Inicjacja zakonczona  :)    '¢ dta d'    Dowolny klawisz - dalej.    '¢¢¢* --------¢* Naglowek¢* --------¢¢ org $bffa¢¢ dta a(crun)¢ dta b($00)¢ dta b($04)¢ dta a(cini)¢¢ end¢