' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u`0:(A$,1)"0"6100&:8t&"DO YOU WISH TO RESET THE OPTIONS WHICH TAKE PLACE AT BREAKPOINT: "&" (KEYPRESS, TIMES THRU, DELAY, ETC.) "::" ANSWER (Y/N) ";&13:19::"";ANSW$&AN$"Y"6100&AN$"N"ı'198: THE DEBUG- GING PROGRAM.""%:% "THIS IS PROVIDING OF COURSE THAT YOU HAVE ALREADY DEFINED YOU LABELS - IF SO JUST HIT RETURN (ON NEXT QUESTION)%%o5000,5998:%p----CONTROL HEADER---%q:XXXXXXXXXXXXXXXXXXXXXXXXXXX&R10:12LLAS, TEXAS":10$"SO YOU WILL KNOW WHAT I AM DOING, I AM BINARY LOADING JOHN'S DEBUGGER INTO THE HEX MEMORY POSITIONS $8600 TO $95FF.%:"AS SOON AS THIS IS COMPLETED YOUR SELF DEFINED LABELS AND CORRESPONDING MEMORY POSITIONS WILL BE POKED INTOMEP,((CHAR$,P,1)) #b::::P/#jN11N10>#lN21N20R#rME9,N1: HEX`#tME10,N2r#vMEMRYME15:#4400,4498:#4000,4300:#4000,4997:#:2:13:"JOHN'S DEBUGGER":::19:"BY"#$12::"JOHN BRODERICK,CPA":15:"DA6"L$(HEX$,1)'":::4380:N2N2L9"::::::::::::T"(L$)57L(L$)55:e" L(L$)48:"0---POKE INTO MACH LANG"1 160= SPACE 'A0'":P13";::ME3P,160"<::::P"D(N11)(N21)āP18:MEP,160:P:4458"N:::P18#XDRBEGINNING!|Q14+!::ADDRQ,?!::ADDRQ4,S!::ADDRQ8,^!::::Q!CONVERT HEX$ 03A5 INTO N1 & N2 03 165!L$(HEX$,1)!:::4380:N1L16!L$(HEX$,2,1)!:::4380:N1N1L!L$(HEX$,3,1)":::4380:N2L14400:POK LAB ::I% I21046 :::R1I:300H ::4300:4400Q ::I_ I3114p :::R1I:300 ::4300:4400 ::I I4124 :::R1I:300 ::4300:4400 "::I ,140:150:900 - USED TO BE GOTO 670 ^:!hAD::::::::3200& HITRET1:2000:6007 3200,3224:H 3200,3298:_9001:3000,3996:{----POKE INTO MEMORY-- $3150=12624MEMRY34640MEMRYME2IMEME240:I,0:I194:::R1I:300::4300:HEX-N1N2 ::$R1$:3040% (R1$)2Č198:3230n R1(R1$):(R11)(R112)Č198:"ENTER NUMBER FROM 1 TO 12"::3230 UP$"DELETE"CHAR$" ":HEX$" ":3265 1100: CHAR CHAR$"END"3280 1200: HEX 350:DISKOUT HITRET1 : 3000,3197:- ------ADDING LABELS-- @ HITRET1:2000J H%22P  "------------ ";UP$;" LABELS--------------" "ENTER 'END' WHEN FINISHED": UP$;" LABEL NUMBER";:H%:"";R1$ R1$"END"3280  R1$"A"R1$"C"R1$"D"ANAN$"C"UP$"CHANGE":3200; AN$"D"UP$"DELETE"::3200A Q 198:3020j "STOPPED AT 3091": UP$;" LABEL NUMBER ";& 99990 21:"";R1: 300: READD :R1;::" ";HEX$;" ";CHAR$;} UU$~ 3000,3049:4:"$";HEX$(I6);" ";LA$(I6)#p/z:::::I<:::::::S 9001:2000,2120:j 9001:2000,2996: ----UPDATE LABELS-----  9999: 37 CURSER "ENTER A=ADD C=CHG D=DELETE ";:"";ANSW$ AN$"A"UP$"ADD":3200 9999 ";::::Y:"-"$ R1112:120=LABEL$(R1)(A$,2,8)U HEX$(R1)(A$,10,4)`*:::R1k4I16>I3Ğ:I;:21:I6;::2130H:I;:22:I6;:RHEX$(I)" "2140W3:"$";HEX$(I);" ";LA$(I);\HEX$(I6)" "ĺ:2160f21400,1499:&9001:1000,1099:=9001:1200,1260:T9001:1000,1994:n---PRINT LABELS-----MUSTSETUP1ĺ"BREAKPOINT FILE CAN NOT BE LISTED UNTIL IT IS FIRST SETUP -- PRESS S":600"-----";FI$;Y111(NAME$):"-::C$(TABHEX$,P,1)1250/:::P:198:1200G:::L::: Z"STOP 1290":k1100,1298:x PUT OUT BLANKSyMUSTSETUP0: OKR1I12CHAR$" ":HEX$" "A$"L"CHAR$HEX$130: WRITE:::R1::::::::4" HEX MEMORY # ";R1;" $";:H%:"";HEX$FHEX$""1210o((HEX$)1)((HEX$)4)Č198:1200HEX$"0000"HEX$HEX$(HEX$,4) TEST EACH CHAR MUST BE 0-9 OR A-FL14C$(HEX$,L,1)P116:Ҡ)[@p(ӮˠŠ)[@p(ΠŠ)[@p(ؠΠ)[ @p(ȠԠŠ٠)[@p(ԠҠ)[@p(Ġ)[@p(Ƞ)[@p(׮Π)[@p(àΠ))[@p(ήؠŠ)[@p(ήٮ٠)[@p(ήîȠ)[@p(ήˠˠ)[@p(ϠӠ)[@p(٠)[@p(Ǡ͠)[@p(Ǡ)[ @p(ҮĠŠ)[@p(Ӯ(ӠΠ)[@p(ȠǠ)[@p(ΠԠ̠)[@p(ӠΠ)[$@p(ɠΠ٠)[@p(Ԡ)[@p(ҠΠ)[@p(֠Π٠)[@p(ήРĠ)[@p(ήʮՠ)[@p(ϠŠ)[@p(̠Ġ)[@p(ĠӠ)[@p(ӠӠ)[@p(Ӡ)[@p(٠Ԡ)[@p(ΠŠ)[@p(Š)[@p(ĠӠ)[@p)[@p(ՠ)[@p(ڠؠ)[@p(ˠŠˠ)[@p(ƠϠ)[@p(ϠҠ)[@p(ΠĠ)[@p(Ҡ)[@p(Š)[@p()[@p(ɠ̠ŠӠŠ)[,@p(Ҡ٠ӠΠҠ)[*@p(ԠӠӠŠ٠)[-@p(ԠӠӠŠҠ)[-@p(Ҡ٠͠ӠΠӠ)[@p()[q_@p(٠@p(ŠŠĠӠΠ)[-@p(ŠŠŠӠԠ)[*@p(٠Š̠Š٠)['@p(̠ɠ̠ŠϠՠ)[$@p(٠ŠԠŠ)['@p(٠ŠӠĠ)[*@p(٠)['@p(נɠ̠ՠϠϠ)[*@p(ĠɠŠ͠ΠŠ)[)@p(ҠӠĠР)[+@p(ҠŠԠΠҠŠ)[*@p(̠ӠĠǠ)[*@p(ŠӠ٠Ԡ)[*)[+@p(РŠРΩŠٮ)[@p()[,@p(ԠɠԠŠӠĠ)[#@p(Ġɠ͠Ơծ)['@p(ԠŠӠΠΠ)[&@p(ҠɠĠǠ)[(@p(נӠŠ$@p( ɠԩҮ)[%@p(РˠΩŠĮ)["@p(ΠũӠũ)[,@p(ЭΠ٠̠ӠԮө)[(@p(íΠŠĩĠŮ)[%@p(ʠŠĩΠĮ)[$@p(֠ŠŠD11000::+'2+'Z(222):"ERR CODE ---# ";Zg+'Y(218)(219)256:" LAST LINE #---";Y:198m+ '+'37,(37)1:+aC0+aX0+aI87151300015+a::::CC1+a:::C12Ā+aI,03:I1,X+a:::XX8+aC4ĹI,00:I1,00+aI3 TIME3:* B$" "M*>!P11: "L" b*H!P22: 8 LABELz*R!P310: 4 ADDRESS*!:::::*"8000,8887:*'#33,33:*(#34,0:255::35,23::33,40:::255::*)#34,0:35,24::33,40::::::255:: +%BB994:)W6000,6997:)@3)B----FOR SCROLL---=)C8010G)D9001S)JD$(4)l)TLABEL$(14),HEX$(14)})hTABHEX$(17))rTABHEX$"0123456789ABCDEF")O11: 0=NOT SET)O22: 3 FUNCTION)O35: 3 TIME1)O48: 3 TIME2*O411: ( ((6800,6898:3( COMPUTE SECONDSP("ENTER SECONDS ";SEC\( FRASECk(SEC(SEC){(SEC16950(I1300( :::FRAFRA1:FRA16950(":::I(&SEC,FRA(+FRAFRA255:FRA(FRA)(0SEC,FRA(:6900(D)S6900,66046!'-----RESET OPTIONS-----+'A$:D'---PRINT OPTIONS---n':"--------OPTIONS SET AT----------"z'FUNC24'FUNC00ĺ"BREAK UPON KEYPRESS":'"BREAK THE ";FUNC;" TIME THRU"'"TIMING DELAY SET AT ";'SOMETIMING(UVW;@ro8rP&;@ra@*#rY1:UVW;@ro8rP(a@*#rY[!P]Ƞ֤ҠĠ-Rqױq@B;@rrp@*#;@rrTUVW;@rXW` ;@r%[!X@p@*# rqc׳qY`@9@()GMz o8rPqqa@*#r`(%[`@*#r:()$z [B]ӠŠӠΠ ϠԠή2UȱVW ȱqȱq/?Ҵr`-r%Yȱ0o8rP-ɸrq-r-rqɸqɸ[?0׹qJ qqqqR @Brp@*#rqNS ]ΠҠŠΠΠԠĠΠŠŠӠҠΠ!X `@*#r9()$\ _R \ @B;@rrp@*#;@rr:` @Brp@qo8rP` %PbEӠӮ' q`$ `-r%Yȱ_  q]Š͠ϮA UȱVW ȱqȱq`$ `-r%Yȱ-rq4 \[]ҠŠӠՠĠРŠ. ]ҠŠӠՠĠРŠŮH ]ĠͤŤТ 0 q`@9()%[Y : \D qN `@9()%[X Y4 qqҴ`׳$ q-rq_ L UȱVW ȱqȱq/?Ҵrҵ`ײ$ ײq-rq_  q6 ]ˠҠ)q_ z ]ŠԠŠӠԠĠŠŠŠԠȠҤТΠԠԠŠՠҠΠӮ _  [ qUVW d& \]ҠŠӠԠՠĠԠŠŠԠŠƠҠŠӠ ]ƠӣΠʤҠŢ½Ϡ3 `$ @p(ӠƠ)q_ 8 `$ @p(ӠĠ)qC_ . `$ @p(Ġ)q_ 8 `$ @p(ӠĠ@:@$  @p(ΠȠϠ) `;@r$  cc a(ҠŠƠ׺)# a(ӠĠӮ) a(ĠŮ)" a(ӠĠӮ) a(ӠƠȮ) ]ԢҠŮ T?ҠŠ)\R@_Mo8rPa@*#rGAo8rP a(Ž)FG`@:()%[`%q`%[9o8rPa(ŠŽ)F888 rrr G[ o8r ] `׷$ ׷q cS(Ҡ̠Š)&@ `@*#rGo8rP a()G`@9@$o8rP a()GqҴײq`׹%Y^`ײ$>o8ҴrPa(ԭ)q8ҴҴrUVWM6Y[o8rPa@*#xr\o8rPa(ԠΠҴ$>o8rPa(ǠĮ)W`M$ %Y`@9()$Zo8rPR@_Z\ `@9()$Z\P\\\d_>tײqq6UVW88ҴrrX@p@*#rqq-rq-rq8r8r@p׳q@p@\_>UVWo8rPa@*#&rY\o8rPa(ҠŠ͠)FҴE()G/J`@9()$Lo8rPT`d$T_ML\ `d$TMҵqҵҴ_1T`c$`M$ `X$V׳q_`;@r;@r%[>]ӠŠӠŠŠ٠ǠΠפU q8r8r@B;@rrp@*#;@rr@p@*z#???     Š7ӱ̠Ҡ%Ǡ̧ŠΧӠҠϠϠϠҠ&ǠϧŠϠŠԠ ӠŠ (! THIS IS THE HELLO PROGRAM'L,1) +$(14):LL# ,$(DT$,LL,1)1 5$(16):LLB 6$(CP$,LL,1)P ?$(18):LLa @$(AR$,LL,1)i S$LLw T$BB1800 ^$BB h$LL4011 r$A6182 |$(A):LL $(BK$,LL,1) $A:LL $ '33,33: '33,40: '0,9150:E "5 #DT$" DALLAS TEXAS "h #CP$" COPYRIGHT, 1980 " #AR$" ALL RIGHTS RESERVED " #LL136 $(6):LL $(ED$,LL,1) $(10):LL $(BY$,LL,1) !$(12):LL "$(JB$,L d9000f#"CATALOG":00,998:6(#i#ED$" JOHN'S DEBUGGER "#BK$" "#BY$" BY " #JB$" JOHN BRODERICK, CPA   04:::::R18:::600/J1000,1035:FK9001:1000,1097:sL"ENTER LABEL # ";R1;" ";:H%:"";CHAR$QCHAR$"END"ıV(CHAR$)8Č198:"CAN NOT BE GREATER THEN 8 CHARACTERS"::1100[CHAR$CHAR$" "\CHAR$(CHAR$,8) 34,7 BLANK OUT DISKHR1112:A$"L ":130:R1UR1112m IR1: SAV FOR 1400wH%201100: INPUT CHARCHAR$"END"İ1400:6001200: INPUT HEX$ 350: WRITEOUT$SR1R1(HITRET1:2000,R1SR1AK OPTIONS TO ZERO*R113:A$"END":1300"I WILL NOW ASK YOU TO ENTER THE LABEL NAME AND THEN THE CORRESPONDING MEMORY ADDRESS FOR 12 LABELS. ENTER 'END' IF YOU FINISH EARLY. THANKS.:"LABELS CAN BE UP TO 8 CHARACTERS ONLY":AVE LOADED INTO HEX 4000"l"JUST ENTER '4000' AND ANY OF THE OPTIONS LISTED ON THE INSIDE COVER.":"TO RESTART - HIT RESET *9000G":2034304900,997:-----SET UP-----------R10:A$"0001001001001":130:SET BRES DEBUGGER - MACHINE LANGUAGE PROGRAM HAS NOW BEEN LOADED INTO MEMORY $8600 TO $9600 AND IS READY TO TRACE OR STEP ANY MACHINE LANGUAGE INSTRUCTIONLOCATED ANYWHERE IN MEMORY."::"LET ME SHOW YOU HOW IT CAN TRACE OR STEPA DEMO WHICH I HOSE & LOCK 'LABEL' FILE"&"";ANSW$:ANSW$"S"1000NANSW$"U"3000bANSW$"D"5000}ANSW$"P"İ6000:4000ANSW$"L"İ2000::620ANSW$"E"İ140:150:900198:600600,639:600,697:::"JOHN':X---------MENU--------+Z34,0::Pb"--------------MENU-----------"^l"ENTER:"yp" L=LIST ALL LABELS"r" S=SET UP ALL NEW LABELS"t" U=UPDATE LABEL (ADD,CHANGE OR DELETE)"w" P=POKE LABELS INTO DEBUGGER"x" E=END (CLOULD BE READING LABELS-PLEASE SET UP THE LABELS AGAIN.":HT:::::e^-----ASSEMBLE A$-------{hA$"L"CHAR$HEX$v130: WRITE:::::::::::::::300,397:------MAIN ROUTINE------ADD,DEL,OR CHANGE--W9001:500,598$;"CLOSE";FI$:)-----LOCK FILE------>D$;"LOCK";FI$:M100,198:j,----DISASSEMBLE A$------ MUST READ A$ FIRST6120:CHAR$(A$,2,8)<HEX$(A$,10,4)=@(CHAR$"END")(CHAR$"END ")ĺ"I REACHED THE END OF FILE WHEN I SHK";FI$:" n -----OPEN FILE-----< pD$;"OPEN";FI$;",L20"Q qD$::::::::::::k x -----READ FILE----- }D$;"READ";FI$;",R";R1 ~A$ D$: -----WRITE FILE----- D$;"WRITE";FI$;",R";R1 A$:D$:: -----CLOSE FILE-----D:4 T14& U"JOHN'S DEBUGGER"::. X12K Z"UPDATE PROGRAM FOR":T [:8w \"LABELS AND MEMORY POSITIONS" ]:14 ^"COPYRIGHT, 1980" _15:"DALLAS, TEXAS" `:::: b0,75: c:41,98: d -----UNLOCKFILE----- hD$;"UNLOCIRST AND THEN POKE THEM INTO THE DEBUGGER."5 28S 5" ANSWER (Y/N) ";[ 664 738336,09:38337,255:38338,255 938342 <QUEST$:66 @"";QUEST$ B(QUEST$"Y")(QU$"")İ6000:4000 C:600 D600,639: R HEADING  S)" #9990 $8000- (D$;"NOMON C,I,O"N )FI$"DEBUGGING 'DEMO' FILE"a *110:100:110q +6000:4000 ,"WOULD YOU LIKE YOUR LABELS TO BE POKED INTO JOHN'S DEBUGGER ?". -::20::"ANSWER NO 'N' IF YOU WANT TO UPDATE YOUR LABELS F *# * DEMO *A * MANAGER *_ * *} * COPYRIGHT, 1980 * * ALL RIGHTS RESERVED * ************************ 82 !"BLOAD JOHN'S DEBUGGER" ""BLOAD DEMO (TRACE AT 4000#12288: = 2FFF3 ************************Q * *o * JOHN'S DEBUGGER ** ** BY ** ** JOHN BRODERICK, CPA * *               čŠРҠγӠϠ٠ԠӠΠٳŠ̭Ӡ̭Ӡ̭ΧӭҰ CCChhlC(@h9JJJJ9 CL@x`,  9i>998909M9990,9JJJJ9 C*jH(LB9P @      LEAVE A SPACE @Brp@*#;@rr o8 rPa@ d6?eY `$\!`%Y q@Brp@*#r& !d6?eo8rPa@qY\!qM6[ӠϠҠΠԠؠŠƠؽΠ$ q`$ qq+ UVWq.?6?r.?6?rY_ ? o8rP qbE()F E()Gq.?6@r `$ q o8rPa@*#rϠΠĠԠĠΠפ? `$ qN@"rC@"FrC@"r@p()I @p(ڠޠ)' qd6?e@p()qq UVWY ]ҠŠؽq8r`%_q8 r)o8rPbE()o8rP[%a(ԠԠ)cccR\R@q_]U ]ŠϠԠĠ*#rY1UVW;@r`;@r%q`;@r%Y&`@*#r:@*#r%qY7ccM6a()FE(ӠԠ)_.M6a()FE()E(Ԡ)]Š$q8rq;@r`$Y]]٠Ơ͠M6qq ]ԠԠq]ԠԠo8 rPa@\ o8rP`@9@$]]ŠӠ,UV;@rW;@r@Brp@Š)ccR@_dQZ@p(נӠŠŠҠ̠ĠΠϠŠϠŠĠƠҠٮ)9dM6cqa(ՠŠǠĠǠ)Kxca(ŠŠԠŠǠΠŠΠӠԠӠՠ)!UVWΠ¸ӠӠŠŠӠΠ٠Ԡפ:]ĭΠԠŠĠԠΠŠΠ(N@"rM6d!e$BPS(ϠՠȠϠŠРҠΠԠŠٯΠ)&@?T`@:()$Zca(ҠԠx ]ĠǠԭΠ٠ΠˬîЮӬj]ŠŠӠƠĠԠŠˠa]Šֽ Խ      ֠Ӡ٩)[*@p(íΠ٠ǩӠĭǠ)[#@p(ʠɠŠĩӮ)[(@p(֠ŠӠҩΠɮ)[+@p(РҠӠǩŠή)[(@p(ʠ̠ӠҩΠɮ)[#@p(֠٩ɠΠϮ)[ҩ)['@p(РŠ٩ŠŮ)['@p(ʠ٠Š̩)[&@p(֠ԠӠ٩ϠϮ)[(@p( ٠͠ĩŮ)[$@p(РŠԠũŮ)[#@p(Π٩Ԡҩ)[&@p(ЭΠ٠ɠĩԠҮ)[(@p(Р̠ՠϠȩŮ)['@p(ΠũŠȠө)[&@p(ЭΠũӠŮ)[)@p(íΠŠĠŠ٩)[(@p(ʠՠŠ٩Ӯ)[)@p(֠٠ŠȠϠ)[&@p(íΠɠנŠө)['@p(ʠӠũԠĮ)[%@p(֠٠Π٩)[+@p(РŠĠԩŠٮ)[)@p(ʠ͠Ӡũή)[)@p(֠ϠҠˠ٩)[(@p(p(٠ϠŠ)[o@p(ŠԠ)[p@p(ҠϠŠ)[q@p()[(@p( ŠˠӠΩ)[*@p(Р٠͠ϩŠԮ)[(@p(ΠũŠǠǮ)[&@p(ЭΠǠĠӠө[$e@p(Ӡ̠٠)[f@p(ΠϠԠ)[g@p(ԠŠ)[h@p( Ҡ)[i@p(Ҡ٠)[j@p(٠Ӡ)[k@p(٠ϠԠ)[l@p(٠٠٠)[m@p(ĠϠΠ)[!n@ԠƠР)[%^@p(ŠϠРҠԠ)[)_@p(ԠԠƠ͠Š)["`@p(Ӡ̠ҠР)['a@p(ԠϠҠǠ)[b[(c@p(ŠϠĠŠҠϠ)[)d@p(ŠŠŠҠ)@p(ŠϠŠԠ)['W@p(ŠǠ٠Ġ)[!X@p(ŠŠ)[Y@p(ŠӠ)[#Z@p(ŠϠŠҠ)[%[@p(ҠϠŠ٠)[)\@p(ԠԠҠŭҠ)[#]@p(Ҡ͠ŠĠҠǠ)["O@p(Š̠Р)[P@p(ŠĠ)[Q@p(Π̠)[!R@p(ĠϠŠҠ)[%S@p(ĠϠˠԭϠŠ)[T@p(ҠҠ)[)U@p(Š̠͠)[(VŠŠ)['H@p(ŠϠԠϠӠ)[$I@p(ŠΠҮ)[#J@p(Š٠̠Ӡ)[,K@p(ҠΠǠԠ)[*L@p(ǠРԠƠ٠)["M@p(ҠŠҠ)[)N@p(̠ΠŠ"5]ԢΠԠͿΤ#6]ҵΤ٢Πҵí<_,C@p(ԠǠӠϠ٠)["D@p(ĠԠΠ)[/E@p(٠ĭԠϠҠŠ)[F@p(ɠϠ)[&G@p(ŠϠТ=#]ŠŠӠ͠ϠҠҮ $]ŠנŠԠ%]ԠŠ٠θ=&]ˠԠӠǠԠK)]ƠՠΧԠԠϠΠԠ͠ΠŬŠҵӠҠǠӮ4]ŠŠӠԠŠΠ? ]ŠԠŠҠΠӠҠӮ7!] ԠŠԠϠŠŠ7"]ԠŠԠŠҤ]ŠΠԠŠ ]ŠϠŠٮ d!e( \(#\l ]̭̽ҽ!]ӠҠŭ9]ĠΠԠŠҠΠӮ]ŠҠŠ<]ҠŠ5]ĠԠ ] ] ]٠Πˠ ]Ӭؠ ] ] ] ]&                  LEAVE A SPACEHE LABELS HAVE BEEN POKED INTO JOHN'S DEBUGGER AND IS READY TO TRACE & STEP ORTO USE IN THE BREAKPOINT PROGRAM":"REMEMBER TRACE CAN BE ACTIVATED FROM THE MONITOR BY *8600G OR *9000G"8"NOW WHERE WOULD YOU LIKE TO GO":"ENTER AFILE)""";ANSW$(ANSW$"S"1000<ANSW$"U"3000PANSW$"D"5000kANSW$"P"İ6000:4000ANSW$"L"İ2000::620ANSW$"E"İ140:150:900198:600600,639:600,697: END STMT33,40p"TNU--------Z34,0::=b"--------------MENU-----------"Kl"ENTER:"fp" L=LIST ALL LABELS"r" S=SET UP ALL NEW LABELS"t" U=UPDATE LABEL (ADD,CHANGE OR DELETE)"w" P=POKE LABELS INTO DEBUGGER"x" E=END (CLOSE & LOCK 'LABEL' ELS-PLEASE SET UP THE LABELS AGAIN.":5T:::::R^-----ASSEMBLE A$-------hhA$"L"CHAR$HEX$yv130: WRITE:::::::::::::::300,397:------MAIN ROUTINE------ADD,DEL,OR CHANGE--W9001:500,598: X---------ME-----LOCK FILE------+D$;"LOCK";FI$::100,198:W,----DISASSEMBLE A$-----p- MUST READ A$ FIRSTy6120:CHAR$(A$,2,8)<HEX$(A$,10,4)*@(CHAR$"END")(CHAR$"END ")ĺ"I REACHED THE END OF FILE WHEN I SHOULD BE READING LAB-OPEN FILE-----) pD$;"OPEN";FI$;",L20"> qD$::::::::::::X x -----READ FILE-----s }D$;"READ";FI$;",R";R1{ ~A$ D$: -----WRITE FILE----- D$;"WRITE";FI$;",R";R1 A$:D$:: -----CLOSE FILE----- D$;"CLOSE";FI$:"JOHN'S DEBUGGER":: X12; Z"UPDATE PROGRAM FOR":A [d \"LABELS AND MEMORY POSITIONS"n ]:14 ^"COPYRIGHT, 1980" _15:"DALLAS, TEXAS" `:::: b0,75: c:41,98: d -----UNLOCKFILE----- hD$;"UNLOCK";FI$: n ---- *# * LABEL FILE *A * MANAGER *_ * *} * COPYRIGHT, 1980 * * ALL RIGHTS RESERVED * ************************ 5810 !"BLOAD JOHN'S DEBUGGER" "33,40 #9990 $800#12288: = 2FFF3 ************************Q * *o * JOHN'S DEBUGGER ** ** BY ** ** JOHN BRODERICK, CPA * * č͠čԠ̠̠̠̠̠̠̠̠̠̠ HH` +,+,+i+, +,ɛ k`   ƕ` LLLLLihh`:; `hhh@ ,HH`hh@HH+,+,+i+, 3+,ɛ p` , % 3  ƕ ` LLLLLihh`:; `hhh@ ,HH`hh@H 瓭HH ēhiLL hh ēiLL  bL   ɛ  p`hi"# !g  Le ݒ !h !i` .)i`F =ɰ951(L 瓭H ēLL h ēL^`h0_LYimLL_LY88LLLLLl0"# ! !LL L L @C`?ɺɚLi ELmL` h ēL 瓭H (LgLtH(LLWL% MɖML L m b LܐL= 瓭H( h h ēL 瓭 H ēLHhȭM0IPEpAɐ   퍭     `0 L/  `m  -    `Q `  &% ,+ 76 A@`HJJJJ ԏh) ԏ` i`i` ``LDA BTEMOS \` ` `  ǠҠˠà РҠ٠Π˺à٩ˠ,;8+:+;,` 荠 ,   +   `x     `  `` 4[3\2[ PQL@ QPiɦL$\\  ύ\ Ǎ) ލ\8 ύ\G ǍV ލ\e ύ\t Ǎ ލ\ ύ\ Ǎ \А ` \   \\\`  `\P `m`m`  ) sȹ ɍ ߎ 4 ] L 퍭 i0   0 .  0 ` L       `ȹC   `  `  `  `  ` 03LiΧӠҠҠϠΠŠ : Xȹ ɍ 5ɰǰ׍ i )өm     @HH (`+:,;8::; `IN DISPL JMP DONT BREAK  * TEST KEYPRESS( KEY LDA $C0002 CMP KEYPRS (ESC)< BEQ NORMALF LDA FUNCTP CMP #$02Z BEQ DELCONd CMP #$;0L=# %L=  ƕL@  L@  ƕLLi Չ L҉ Չ)0L҉"0 Չ)iL҉ L҉ 物 •0L҉L=L)ɰ0ɺ8``LehhELAY ONLY$ hh@ * LISPLAY8 CMP #$04B `:;L 9 9 9:;L 9 9 9` CMP #$06%j i` w_84  QL=! "L) #1 STA BCOUNT BCC B22 INC BCOUNT+1 RTS---LLL00 > LDA `H INYR JSR STAS RTST%U .OR $88B0 INC KOUNTER XYZ\* INCREMENT KOUNTER fINCK CLC INCREMENT#p LDA BCOUNT BREAKCOUNTERz ADC