)DЯЯ
 PROGRAM REGDUMP PASS 2;GOSUB 60 PASS 1;GOSUB 60( EXIT2 ;< ASM-BF .OPTION #40P .LISTZ .CODE #9000d .IF B=1 .GOTO 180n \x :OSWRCH = #FFF4┌ :OSRDCH = #FFE3▄ :OSZEND = #FFC8√ :OSLEES = #FFC5═ .GOTO 230╙ \Є :OSWRCH = #1FEEЎ :OSRDCH = #1FE0х :OSZEND = #1FC8р :OSLEES = #1FCBэ \Ф :ZP = #80П \З :REGDUMP     PHP           \ SAVE REGISTERS              PHA              TXA              PHA"              TYA,              PHA6              JSR PRINT     \ DRUK TEKST AF@              .BY 17,15J              .AS "Regdump   (c) Roland Leurs",#0D,#0A,#0A,#EAT              JMP DUMPREG   \ TOON REGISTERS^ :MAINLOOP    JSR PRINT     \ DRUK VOLGENDE TEKST AFh              .BY 13,10,10,17,13r              .AS "Command (",17,14,"R",17,13,"egisters "|              .AS 17,14,"Z",17,13,"eropage "├              .AS 17,14,"S",17,13,"tack "░              .AS 17,14,"E",17,13,"xit)?: ",#EA  :WAIT4KEY    JSR OSRDCH    \ LEES TOETSє              ORA @#20      \ KLEINE LETTERў              JSR OSWRCH    \ DRUK AF╦              CMP @CH"r"    \ TEST OP REGISTERSб              BEQ DUMPREGл              CMP @CH"z"    \ TEST OP ZEROPAGEж              BEQ DUMPZPЮ              CMP @CH"s"    \ TEST OP STACKЙ              BEQ DUMPSTACKТ              CMP @CH"e"    \ TEST OP EXITЧ              BEQ EXIT              LDA @#7F      \ VERWIJDER TEKEN              JSR OSWRCH              JMP WAIT4KEY  \ LEES NIEUWE TOETS& :EXIT        JSR PRINT     \ AFSLUITING0              .BY 13,10,10,17,2,#EA:              PLA           \ HERSTEL REGISTERSD              TAYN              PLAX              TAXb              PLAl              PLPv              RTS─ \┼ :DUMPSTACK   LDA @#01      \ LAADT MSB STACK■              BNE DUMPZP1   \ SPRING ALTIJD· \╗ :DUMPZP      LDA @#00      \ LAADT MSB ZEROPAGE╡ :DUMPZP1     STA ZP+1╪              LDA @#00      \ LAADT LSBф              STA ZPп              JMP DUMPMEM   \ GA NAAR DUMPROUTINEз \Д :DUMPREG     JSR PRINTН              .BY 17,7,13,10,10Ь              .AS "PC   SP   A  X  Y  NV-BDIZC",#0D,#0A,#EA              TSX           \ STACKPOINTER NAAR INDEXREGISTER              SEC           \ ZET CARRY VOOR AFTREKKEN              LDA #105,X    \ LAADT PROGRAM COUNTER               SBC @2        \ TREK ER 2 VAN AF*              PHA           \ EFFE VASTHOUDEN4              LDA #106,X    \ LAADT HOGE BYTE PC REGISTER>              SBC @0H              JSR PRTHEX    \ DRUK AFR              PLA           \ LAADT LAGE BYTE PC REGISTER\              JSR PRTHEX    \ DRUK AFf              LDA @CH" "    \ PRINT SPATIEp              JSR OSWRCHz              LDA @#01      \ LAADT HOGE BYTE STACK POINTER└              JSR PRTHEX    \ DRUK AF▌              TXA           \ LAADT LAGE BYTE STACK POINTER≤              JSR PRTHEX    \ DRUK AF╒              LDA @CH" "    \ PRINT SPATIE╛              JSR OSWRCHІ              LDA #103,X    \ LAADT ACCUю              JSR PRTHEX    \ DRUK AFй              LDA @CH" "    \ PRINT SPATIEт              JSR OSWRCHч              LDA #102,X    \ LAADT X REGISTERХ              JSR PRTHEX    \ DRUK AFР              LDA @CH" "    \ PRINT SPATIEЭ              JSR OSWRCH              LDA #101,X    \ LAADT Y REGISTER              JSR PRTHEX    \ DRUK AF              LDA @CH" "    \ PRINT SPATIE$              JSR OSWRCH.              LDA #100,X    \ LAADT STATUSREGISTER8              LDY @8        \ LAADT TELLERB :DUMPREG2    LSR A         \ SCHUIF BIT 7 IN CARRYL              PHA           \ BEWAAR ACCUV              LDA @CH"0"    \ LAADT '0' IN ACCU`              ADC @0        \ TEL CARRY ERBIJ OPj              JSR OSWRCH    \ DRUK BIT AFt              PLA           \ HERSTEL ACCU~              DEY           \ VERLAAG TELLER┬              BNE DUMPREG2  \ DOE DIT 8 KEER▓              JMP MAINLOOP  \ EINDE ROUTINE°  \і :DUMPMEM     LDX @16       \ LAADT TELLER╟              JSR PRINT     \ STEL KLEUR IN╨              .BY 10,13,17,7,#EAд :DUMPMEM1    LDA ZP+1      \ DRUK ADRES AFн              JSR PRTHEXь              LDA ZPБ              JSR PRTHEXЛ              LDY @0        \ LAADT INDEXЖ :DUMPMEM2    LDA @CH" "    \ DRUK SPATIE AF              JSR OSWRCH
              LDA (ZP),Y    \ LEES DATA              JSR PRTHEX    \ DRUK AF              INY           \ VERHOOG INDEX(              CPY @16       \ 16 ADRESSEN GEHAD2              BNE DUMPMEM2  \ NEE, DAN VOLGENDE<              LDY @0        \ RESET INDEXF              LDA @CH" "    \ DRUK SPATIE AFP              JSR OSWRCHZ              JSR OSWRCHd              JSR OSWRCHn :DUMPMEM3    LDA (ZP),Y    \ LEES DATAx              BMI DUMPMEM4  \ SPRING INDIEN NEGATIEF┌              CMP @CH" "    \ TEST OP SPATIE▄              BMI DUMPMEM4  \ SPRING INDIEN KLEINER√              CMP @127      \ TEST OP BACKSPACE═              BNE DUMPMEM5╙ :DUMPMEM4    LDA @CH"."    \ LAADT PUNTJEЄ :DUMPMEM5    JSR OSWRCH    \ DRUK AFЎ              INY           \ VERHOOG INDEXх              CPY @16       \ 16 ADRESSEN GEHADр              BNE DUMPMEM3  \ NEE, DAN VOLGENDEэ              JSR PRINT     \ CURSOR NAAR VOLGENDE REGELФ              .BY 10,13,#EAП              CLC           \ CLEAR CARRY VOOR OPTELLENЗ              LDA ZP        \ ZET ADRESPOINTER 16 PLAATSEN VOORUIT              ADC @16              STA ZP              LDA ZP+1"              ADC @0,              STA ZP+16              DEX           \ VERLAAG TELLER@              BNE DUMPMEM1J              JMP MAINLOOP  \ EINDE ROUTINET \^ :PRINT       PLA           \ HAAL ADRES VAN STACKh              STA ZP+3      \ ZET IN WERKRUIMTEr              PLA|              STA ZP+4├              LDY @0        \ RESET INDEX░ :PRINT1      INC ZP+3      \ VERHOOG POINTER               BNE PRINT2є              INC ZP+4ў :PRINT2      LDA (ZP+3),Y  \ LEES TEKEN╦              BMI PRINT3    \ SPRING BIJ EINDE STRINGб              JSR OSWRCH    \ DRUK TEKEN AFл              JMP PRINT1    \ VOLGEND TEKENж :PRINT3      JMP (ZP+3)    \ EINDE ROUTINEЮ \Й :PRTHEX      PHA           \ SAVE ACCUТ              LSR A         \ SCHUIF VIERMAAL RECHTSЧ              LSR A              LSR A              LSR A              JSR PRTHEX2   \ DRUK NIBBLE AF&              PLA           \ HAAL ACCU TERUG0 :PRTHEX2     AND @#0F      \ ALLEEN LAGE NIBBLE NODIG:              CMP @#0A      \ TEST OP HEX DIGITD              BCC PRTHEX3   \ SPRING INDIEN <10N              ADC @#06      \ HEX DIGIT VAN MAKENX :PRTHEX3     ADC @#30      \ OMZETTEN NAAR ASCIIb              JMP OSWRCH    \ ZET OP SCHERMl .ENDv RETURNЪ88 :PRINT1      INC ZP+3      \ VERHOOG POINTER
  888              BNE PRINT2
  888              INC ZP+4
  888 :PRINT2      LDA (ZP+3),Y  \ LEES TEKEN
  888              BMI PRINT3    \ SPRING BIJ EINDE STRING
  888              JSR OSWR