Kocie Flaki/Kocie_Flaki_1_19xx_NG_pl_Disk_3_of_3_Side_A.atr/bledyqa.asm

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

*Ten prog nalezy uruchomic w QA¢*Pokazuje on cala tabele rozkazowa¢*miedzy innymi 'tajemniczy' mnemonik¢*EXT. Tabela jest odszukiwana automa-¢*tycznie, co umozliwia obejrzenie jej¢*bez wzgledu na adres lokacji QA¢¢*W SETUPie:¢*RUN   9000¢*MEMHI 9000¢¢*Potem Assembly i Run...¢¢     opt 21¢     org $9000¢¢adr  equ $fe¢ile  equ $fd¢¢¢     lda #$00¢     sta adr¢     lda #$30    Starszy bajt adresu¢     sta adr+1   poszukiwania¢¢¢szuk ldy #0      Szukanie rozkazu ADC¢     lda (adr),y¢     cmp #'A'    Pierwsza litera¢     beq j1      Jezeli jest to dalej¢¢nie  inc adr     jesli nie to¢     bne szuk    nastepny bajt¢     inc adr+1¢     lda adr+1¢     cmp #$a0    Czy doszlo do $9fff?¢     bne szuk¢     jsr inf1    Jesli tak to wypisz¢     jmp exit    blad¢¢j1   ldy #64     Czy druga litera ?¢     lda (adr),y¢     cmp #'D'¢     bne nie¢¢     ldy #128    Czy trzecia litera ?¢     lda (adr),y¢     cmp #'C'¢     bne nie¢¢     jsr inf0   Wyswietl napisik¢¢     lda #7     Ile linii+1¢     sta ile¢¢¢lop2 ldx #0¢¢lop1 ldy #0        Wyswietlenie¢     lda (adr),y   linii zlozonej z¢     sta print,x   osmiu rozkazow¢     ldy #64¢     lda (adr),y¢     sta print+1,x¢     ldy #128¢     lda (adr),y¢     sta print+2,x¢¢     inc adr¢     txa¢     clc¢     adc #4¢     tax¢     cmp #32¢     bne lop1¢¢     jsr printm¢¢     dec ile       Nastepna linia¢     bpl lop2¢¢     jmp exit      Koniec...¢¢printm ldx <print¢     ldy >print¢     jmp $c642¢¢print dta c'                                    ',b(155)¢¢inf0 ldx <info0¢     ldy >info0¢     jmp $c642¢info0 dta c'}Dostepne mnemoniki w QA:              ',b(155)¢¢¢inf1 ldx <info1¢     ldy >info1¢     jmp $c642¢info1 dta c'}Brak w pamieci QA !!!',b(155)¢¢¢exit ldx <info2¢     ldy >info2¢     jsr $c642¢     lda #255¢     sta 764¢     lda 764¢     cmp #255¢     beq *-5¢     rts¢info2 dta c'Nacisnij dowolny klawisz',b(155)¢¢¢