Filename: Heap.TEXT Modification History type> ]) Abor·· t =:: f he Gp pr i n t... UJ /bc~c:kspc:tc:e HT works w/heap mask 24-Sep-84 11-Cc:t-H4 8-Dec-84 Cf-u::u-;ged heclp d i sp i CU;J i i ne f orm(l t_ t·k~de B i oc~:J10 1•.Je NOT t4se sG=..Jed r·c;!J t i r1e GGtJress . it Tu ! E::~ ! zeCI .- : : .-.. . : •MBadHeap-MText DO 1 t·iE i !;;ht A2,DO Pr8 t·JOt.JE. L R1.:DO B8H BSR Prff::;HX the tuJo b ! oc:k Gd.dresses H then spGces #-i-' DO Chec:kHeGp point to current heap ! SUB He:::ip[h:;rtc~ ( R4 ) .: A 1 BufPtr.:RO R2.iA2 t·10t.JE. L AND.L t·ict::kBC ·" DO !""'!-.: l...c.n t·iOUE .L ptr to first block point to top of usGble memon::i previous block ptr ContHec~p BLT LSH t..l~=;iBC (A i ) .: 00 DO~: AO tnJdHeGp #1_,00 see b:.JdHeap toi;tBC ( R 1) DO #T n~;it·iask .: DO ; 4 RND.L BEQ.S Btu1 I . ::~ FreeBiock BHA.S Ne::{tChk free b~oc:k FreeBioe:k BBA.S r·!Ot.JE. L LSB H;:::1nd i e(A 1) .~DO #i_.DO BCS b::~dHeGp tnn --r- H1::1nd i e (A 1 >; DO MOUE.L 0 <A'4.: DO . L >.: DO m::.13 t~r poi n ·ter CMP.L BLT DO .. RO see i f pcis t mem1)rt:J make sure handle iS right t c•p bc~~jHeap SUBO~L ~8.,DO Ct·1P .L DO.iH1 BNE badHe::.:p NextChk ViOUE.L r·iOi...iE. L t- .""'!.-:!'.:'!-. ::..• w 1 ~ AMD.L ADD.L r·11:-iskBC .-: D1 ~-1...p::!£...h_. ~•• ii n i ! .! ••~ ..:. !....: ! block size in DO ca!c ptr to next b!ock Cr-!P'.L Dl.:RO BLT badHei:.:;p bkL i m( A4 ) .: R 1 BNE 9et s i ze/tc~q see if Gt end ContHel~P f'!Oi..JEQ FlTS ·=========================================================================== ·=========================================================================== po ~ n t to he*:4P A4,D7 C:LH.L A~ I oc:Ptr·(A4) LEA D1, D:::; get size t·1GskBC .: D 1 9et.. p1_r to second bi os::k calc ptr to second block ADD.L BEQ D7.=A4 bkL i m( R4 ) .= A i Ad i osc:r-·c~m AND.L D2.=D4 t·ic:lskBC .= LC:: AMD.L BEQ #T c1:r~t·ic=isk .= D:3 Lef tFree see if ;:At end get size 2 isolated iso!c:1t.ed BPL AMD.L BEQ BPL #T1:J1;,Jt·1ct::k} D4 F: i gh ff ree Ne).;:tOne H:::rnd I e(AD) .: A:3 TCT i \ ._i ! . i... 0(A:3;D7 . L) Bt·i I Ne>~:tOne ~~~ if 1st is locked ~-=.:~~~- fuh]r~d j e(A 1 :::.~ A.:3 O<A:3 ~t D?. L > Me::-::tOne see if 2nd is locked see if master is negative ADD.L D2~~ D5 add right length to left lenqth "T'·r·= 1 decrement bi:J 1 toor·d as word count( left length) pre dee:remer? t for DBF SUBQ.L Set for rotc1te r i ';iht Gs if A1 RDDQ.L t·10l)E. L ~·10t}E. L #2_.R1 RO_:A2 :-.u-i A2 poi nt..s :-:. ..-: f.JO t ef t or~e A:::; po~ nts to r- i i~ht one n:J .in...:: RDD.L Ct·1P . L = AO + 2 po ~ tit to ne;-:: t !.O i as t toord BLE . S D1 .=D2 fiotLoop see tuh i ch ctsst.HT!p t ~ on i s tr·ue r· i i;fh t ~ s b i ;;Iger EXG AO.:A1 f:.}... L: A2.~ .83 SuJ i tc:h c~ I ~ the pcd riters for. Ctf..her d i rec t.. i Ot'"i ri . ;;-1i.......iC' 1 !-.. .. :_ D1_:D4 Gc1c • rotates(right length) ASR.L # 1.: D4 ..·.-. :--- …

THUE FALSE .EQU, sizeCmds .EOU .EQU $0000 .EOU _: s ~ ze of screen ful lsize/noterm/withdis) .EQU 70 .EQU n bi:J tes ~ oop i•.Ja i tJe of h i t t i t""u;I ~:.e§:JbC!ard ! oop 1..)::A i ue for tt.h:A it i n9 fc:r· ke1~bocird AO_, -(Sf') .~F .ELSE ,-., 0 i :-·L...Z a. t.... .ENDC .EQU dtu~He;:Jd S\.tSTACK (SP)+ .:AO .; res tore AO onL i sci Tri. .ie $410900 :t;4 i iOOO _; s t;:Jr t_ .;~auk (1 ttum f debu!;J;;ler .: :;1rom do1JJn :.Jboi.}E! dr- i !....:er 9 ~ ob(.~ ~ s .: ~: be i ouJ the d i spG t..c:h tab ! e _; number of b?::I tes f c!r d f sp i i:l!J .EQU ;add some slop so eight bytes .: ~ mmed i Cf te i !;J j:u::is t end of screer-~ y=:: !_ - - ..l, dGf fset ;offset bytes for display .: The f o I ~ coJ i niJ equ:J r..es 1Ar·e used i::J commun i c:ci te iJJ ~ tn r_ne L t sci h;:4rduJGre i f'¥ r.er r Gee . .: The techn ! que is !..::= use the TRAPTO rrtc::]c:r·o uJ i th c:ne of the fo i i CdJ.i i riq equ:::1tes .~ l::i f ter set_ ti t""1!~ t~p the (~ppri:1pr·. ~?:Ate re9 ! s ters . Ai registers without exp! icit .: r·e +JJrn '. )G i ues c~r·e preser:.}ed . .:NOTE .,11 . EQU J<ei;:!fk1p _J<e1::JbdE }en t i .. C"ni j .. ;,_;-:;-.:; 58 .EQU .EQU 140 i .•.-. P'tL .EQU ~EQU 170 r:r.1nc- _; ( kili~:. ) _; +_1.!.im • ~i n..:i_.. . iF dSp:~e:e ~EQU dOf fset screenA for 128K) .EQU . EQU -:: Sc:rr-iS i ze ::- +2-dSpc1ce $FA700 nf - . -h!iti=a·::: ::: --_;offset b!Jtes for di sp i Cild .; base address t:J f screen ( for 5 12K .: ~.uraps .EQU ~EQU .ENDC sc:reenA ;stack grows down .~ (kiJ.tk) - toJm on\·J•J•::c: True _; f_l.i.i!T! .: rH.~mber of bi:J tes for d ~ sp I G~:J .EOU dlines*S*(LineLen> <ScrnSize>+2-dSpace .EQU ::;z::reer-!L1:!a.u ..Ji•:·:."""' .r...: .. ..."'"! ..- ••-~ .EQU dOf fset :=:c:reenA _:f-~r_.;i_:: psuedo-absolute for Yacc .EQU OispatchTab-$800 dbgHer1d .. i::rn ;....,·-:·-·! SVSTACK D ~ spc~ tch Tc;b-:t50 ;offset bytes for display .: bc~se :Jddres:s c1 f screen ;hardwired global area ;stack grows down skip DeepShit .ENDC on68000=0 HTr·opFmt tr~Jp ' 1010 · . Ef·1DC .EQU HEGPC saved value of user's PC S!::!=...::ed :.)(~ i t~e HEGPC+4 HEGS ~EQU HEGSH+4 .EQU .EQU BEGFMT+2 of user : s BtG tus t=~e=~ ~ s ter . EL:3E e::{cep t i or; f ormc£ t 1.}Cl i ue S•J=.}ed t};:). ~ tjes C; f t~::::er s (iG tG reid, ~ s ters t .EQU ABEGS registers <AO-A4) USEHR5 ~EQU REGAfi .EQU REGA? . C"nii . EQU FiEGA7+4 DDBG1 . EQU F!EGUS+4 DDBG2 . EQU .EQU DDEG1+4 DDBG2+4 :......~-::_: AHEGS+20 ABEGS+24 AHEGS+28 sG~ied 1.}::A l t4e of tJ.ser ~ s A6 r·eg si::fa.}ed !...JG ; t~e of user ~ s R7 re:d DDBG ~=~8i:;it·l::l i t ke~~Rc; i f c:r one l Ctt""1?; temp _; Gno ther debL~!di~ i n!;J the debt.11;i9er temp ke1:Jtn::=:lr-·d e:c:ns tan t ( UJ('l i t ~ fi:~ for +..o~:.er-; ) ke~JbO(Jrd c:::ns tGn f.. (de i G!J c:r· re: ~ i o!..)er .~ spn:.1ce . EQU t_ ~me) ~ c.lstCmd f (JstCmd .EQU .ELSE .EQU .rnoc BEGUS+4 BPADO i=rn ! .. ;;....·-:·-· iGstCmd+2 BPTiL…

DBugEqu.Text Thu, Mar FILENAME: 16, 1989 11 :03 PM DBUGEQU LmaJ Memory ( i e $400 -- $600) !----------------------! I RTNADDR !----------------------! is as f o11 ows: <-- $400 <-- GLOBSTRT Assembly Language Globals i !----------------------! i I I I I <-- GLOBEND Pascal Gi obal Variables !----------------------! i Free 1----------------------i Debuggers <-- GLOBEND+PGLOBSZ <-- $600 data. area below the screen !----------------------! <-- HEAPPTF: Debuggers Heap I I l----------------1-----i I I I l I <-- SYMBEG Users Symbol Table i----------------------1 <-- SYMEND I Free j 1------·---------------- ! <-- A7 Debuggers Stack ; DATASIZ . . !----------------------! (-- ($110) EQU size of debuggers 4096 ' ; Assemb I y Language ; Globals RTNADDR EQU $0400 TRAPSR SYMBBEG SYMBEND EQU EQU EQU RTNADDR+4 TRAPSR+2 SYMBBEG+4 .' ; Assembly Language Globals Initialized data area bei ow the screen by STARTUP return address for taik value to set into SR on next trap ptr to symbol tab1 e begin ptr to symbol table end Zeroed by STARTUP, Initialized ; GLOBSTF:T EQU RUNFLAG EQU SYMBEND+4 GLOBSiHT g1oba 1 area start running the user boolean by INITDBUG OBugEqu.Text G02DBUG NOTALK DBGMODE USERREGS TRAPNUMB FCODE ACCADDR INSTR USERA5 NEWCPU NEW IO MEMOFS VIA2PTR IXAREA IXPTR SETV IDL OLDSETT MSBASE UNUSED .JUMP3PTR .JUMP2PTR .JUMP 1PTR MAINPC MAINSP EQU EQU EQU EG!U EQU EQU EQU EQU EQU EG!U EQU EQU EQU EQU EQU EG!U EQU EG!U EQU EQU EQU RUNFLAG+2 G02DBUG+2 NOTAU<+l DBGMODE+l USEF:REGS+80 TRAPNUMB+2 FCODE+2 ACCADDR+4 INSTR+2 USERA5+4 NEWCPU+l NEWI0+1 MEMOFS+4 VIA2PTR+4 IXAREA+10 IXPTR+4 SETVIDL+l OLDSETT+1 MSBASE+4 UNUSED+4 JUMP3PTR+4 mu .JUMP2Prn+4 EQU MAINPC+4 MAINSP+4 MAINA6+4 COPSFLAG+l COPSFLAG+2 TWGDONE+2 BPTINIT+4 BPTCREAT+4 BPTSET+4 BPTCLEAR+4 ADDRDCT+4 ADDRBPT+4 HEAPPTF:+4 TENTRY+4 EQU EQU COPSFLAG EQU COPSBYTE EG!U TWGDONE EQU BPTINIT EQU BPTCREAT EQU BPTSET rnu BPTCLEAR EQU ADDRDCT EQU ADDRBPT EQU HEAPPTR EQU TENTF\Y EQU TEX IT mu PHBASE EG!U OLDATRAP EQU ATRACEON mu ATRACESE EQU BLKMOVE EQU GLOBEND EQU MAINA6 BPTCOUNT BPTTABLE PPTCOUNT PPTTABLE RTNCOUNT RTNSTACK Thu, Mar .JUMP1PTR+4 TEXIT+4 PRBASE+4 OLDAiRAP+4 ATF:ACEON+2 ATRACESE+2 BLKMOVE+4 EQU 0 EQU BPTCOUNT+2 BPTTABLE+160 PPTCOUNT+2 PPTTABLE+56 RTt~COUNT +2 RTNSTACK+32 16, 1989 , 11:03 PM 2 indicates we trapped in user indicates no talk program (since $120 was 0) (normal ,tracing,ixtracing,assembling,heapfault> save area for user registers the short address passed a1ong to the user the function code the access address the instruct ion User A5 register recorded by the Loader Feb82 CPU board Feb82 IiO board offset to start of memory contains @VIA2, note: @vial is at $134 5 word save area for IX command pointer to Pc-10 for IX command boo! ean, video page i atch needs to be set o1 d screen setting, O=primary, 1=alternate four bytes of screen contra 1 ptr to jump table for Lisabug3.obj ptr to jump table for Lisabug2.…

{MRCSBUG 1/0 HOUTiNES} Filename: 10.TEXT 20-Rt49-84 23-Au:;!-a4 27-Aui;,i-84 10-Sep-84 23-Sep-84 18-0c:t-84 Added SUhJP f f G9 set i r! f ~ i pp i n9 code Un f i ::-::ed ss..aJGP f ~ G';i .· 1::;dded f ~ t.ish of keiJup ( L i sG > Ft~r ther f i ::{ of kei:::t~p f ~ ush i n9 .: G i m::1s t uJor·ks Added ke!JboGrd de ! Gi:J OUTPUT tests for..- abort.. of pr i n;:. t r-ig Term i t""iG j bc~sed debuggers 1J l so de; test (Ctr I C ) for Gbc~r t er f 8-Dec-84 :..J.-e.-•. -. 1:.•.•;:_}'_ .~F (SP)l· •-·u .._:t ' <SP) CC• ._:; 1296ns 12 * 108 ns 4 108 ns = 4:32ns * .ELSE } .. L (SP)_, <SP) !F ncT:rm .EQU Kbd!.);~rs after keyboard shifts some th ~ ni;l ; r~ S tdEri tr!:i #64.:D7 t i cks c:ot~n t..er..· f orc:e i mmed . REAOBUF BSH !MCHNE HERDBUF swGpSc:reeri *$60.~DO swap char Ctilda) 8ME . S F ~ ipS ~de *$C=0 .=DD BEQ . S @2 .amc #8 .• DO BACKSPACE? . . BNE.S ~;o no.: Keep go i r-u;} A6.:A5 BHS.S BEADBUF SUBQ.L #1.,Ati ANii CHAH~:; TO DELETE? NO·' i GNOHE BACKSPACE :/es.: remc::.}e c:hcu-· f r·om buffer DO_: -(SP) BSB M01...'E C:!"lPI .B BACKSPACE? •8_,DO BEADBUF k;:::epi t ~ s ! t =:1 C:~rr j ct:~e Beturr1? no, stuff into 10 buffer #' otherwise stuff a space ±£::!·f""! iUi ~· •.j._Z!...,l .t !....~::_,: UpLoop res tore post e 1...=en t s tJJ ff pos tE 5......=er1 t ~ HU #:t;2F .~DO _Set Trc1pAddre:ss (SP)+ .: $28 (SP )+} DO-D7 /RO-A~3 restore RTS 'r~ r ; wait for al~ keys to be up (kwk) TBAPTO __J~·=OLL i;je t CLB. i-J DO set up for ~:.et:JCZ:n:Je TRAP TO TST. ~-~ BME.S pend i ni~ ke;~ e1.}en ts *$48 .=DO BETUBN kei:JC:ode = :i;4f! _r:. _e!:1 ! SUOUJn test the keiJ i s the r·e turn kei.J st j !Jes; keep test i ri=~ :: ..- : r-. 01 t~pLoop THAPTO now f !ush the key up event no r-epeci ts - ch:!r; : t !J.h:.i i t... for e ._h::r-d:. 1 TRAP TO the _ELSE BSH.S ~nchNE wait for post up •KeyOwnEvt,keyEvt i_IJ(4S ~!G no, keep checking i +.. Ci keydCdlin? MULH-! *4~: SP BRA Deci ! i-i~:.ei::1 SUBQ #Ke!JUpE :.} +.. .• ke1::1Et} t upLi:•i:ip no, keep looping DO~, (Afi )+ stuff into buffer BNE.S ilh~S j t G kei:JUP? .ENDC keepit BSB.S Uploop 17 - - ..:.. BBA ~NPUT HEAD8UF A CHAH (NO ECHO) iF t·1Dt)E. L .. .-. onLiSi:Jirue=u : ~ ,-= .-,, -i ! : i :...,..: ! n.~ n z did 24/60ths sec rol BEQ . S r~1cn}E. B #02 .~ t} i FH(A 1) RDDQ ii; n- ; n'? _,~·; DDBG .EMDC BLT.S 9c:Ke!J *O.tD7 KbdT::A I ked fiAke the keyboGrd non-t::~ Jk i omem ;.}ee:tc1r .EMDC CLFi. i·i iF THRPTO _f 0LL r·iOi..JEO t·Kli..JEQ TF!RPTG #0 . ~ DO iiO .: D1 1 TST.B DO p;::-n .::: :;._•,,_·-:. ·-· Got.Ke!:4 TST.B BEQ.S Ct1P. B Got..Ke1::1 #1 .rD2 BEQ . S D2 s s nee ~ nterrt~pts off.= poi key repeG ts n1) t. okc~u:J dor-;: t ?.!J!:-4 ! t for e;. .;er-!t_ QE: t_ the ~:. ei:Jboard ei.}en t has cu··11::: th i ng hc1ppened? no e!.}en t. d i sk ilpouJer e=.}en t ~? ( Gsc: i 0) iJes .: i 9nore i) GotJ:~e!:i from CLH D2.; ke!JH it .ELSE <ki.uk) ~.}~A.=R1 BTST…

.ASC! i .RSC~ =]-·f n•=·c ,_.:_:_:._:..._ :BEAD .RSCi iCGNTF:OL .ASCi .ASCi :STATUS .ASC:i ;KfLLiO : GETt.JOL ! NFO .RSC~ 'FlLEDELETE' t :F~LECHEATE: :-i~-·r· ! • .!:?-::~_.. ; .RSCi .RSC~ .RSC! :GETFiLE~NF: ;SETFiLEjNF: .RSC~ .ASCi ~F~LEA.LLOCA~ .RSC~ :GETEOF =:3ETEOF :FLUSHt)OL .RSC~ ~FiN~TQUEUE; .RSCi .RSC! .ASCi : I Ni TZONE :GETZONE .RSC! ; FHEEt·1Ef·1 t·1fi):JiEf·1 : NEJlPTF~ ' ;;cTcnnc· :_:a_! l : =-~--: .ASCi tSETZONE 1 =oiSPOSEPTFii .ASC:I =GETPTF:SIZE .RSCI .RSC! : NEt-~HANDLE .RSC:~ 2 ;DSPOSEHA'ND= i :=;ETHANDLES = GETHANDLES; :HANDLEZONE: =HERLLOCHAN: 1 .ASCI ft RSC~ .ASCl .ASCi . R::~Ci 'HLOCK 'HUNLOCK .RSC~ : iNiTAPPLZO: .RSC! 'SETAPPLLl!"l' .RSC~ .RSC! = POSTE!)ENT 2 : OSEt.JEMTAt}A : : GETOSEt.JENT ~ :FLUSHEUENT~ .RSC~ .ASC~ .ASCl .ASCi 1 .ASCl t .ASG~ = 0FFL~NE ~~H ! TEPABRt·1 ' BEADDATET ~ = .ASCi 1 DRt.JR i NSTAL ~ .ASC~ ~NiTUTiL .R8Cl : F!ESEBt.J~·iEf·1 : .RSC! =sETF!LLOCK: ,F!STFiLLDCKS :SETFiLTVPE; :SETFPOS ~FLUSHFiL ;GETTFiAPRDD= :SETTHRPRDD= .ASCl =prHZONE 1 .RSC! HPtJHGE 1 HNOPUHGE 1 ::;ETGHOi-lZON : .ASCl .RSC~ ~ RDDDH i t.}E .RSCi s I NSTALLBDB 1 ' ~ ii l TCURSOR = :SETCUBSOH :H~DECUHSOB! .RSC! .RSC:i .ASCi 'SHiELDCURS' =oBSCUHECUR: ;SETAPPLBAS= 8~TAND .RSCi i 1 .ASCi ·Bt TXOFi '8lTNOT 'B!T!JR .RSCi .ASCl i :_=: i i : .._:: .ASCl i 'OITT•::·T :81TSET .ASCl .ASCl 'BITCLH .HSCl :THAP AXfiO .RSCi ! :FOAECOLOR . Aea::! ~ ,BACKCOLOFi .ASCl t :COLOF!BIT .RSCl l .RSCi I : GETP ~ ::(EL 'STUFFHEX 'FiXBAT!O :LO~·JOHD .RSCt .RSCf :F1XROUND .RSCl ; iNITPOFiT We:·;-.,i t .. i ;._n_. i i .RSC~ !OPENPOBT .ASC~ :LOCRLTOGLOZ :GLOBRLTGLO~ .ASC:l 'SETPOFff :GETPORT .RSC~ j :PORTS~ZE ~SETCL~P .RSC~! ~GETCL~P 1 CL~PBECT .ASC1 'BACKPfff .RSC! =cLOSEPOHT .ASCf l 'RDDPT .RSC~ :SUBPT .RSC! I .ASC~ =EQUALPT = STDTE:X~T .RSC~ .RSC!! DFa:n.jTE>::r ' TEXT~-i i DTH = :TEXTFOMT t TE::CfMODE : TC""·::·"TC· ! 7C' -: !... ....... : ._: ! ~!- : GETFOMT i NF: .A::;c CHARt-J i DTH ' : SPACEE:::::TBA .RSC :THAP AXBF 2 .RSC i :STDLiME :L!NETO .MSC! .ASCf =Mo1.)ETO .RSC! .ASC! 1 THAP HX95 :HiDEPEN .ASCi .RSC~ :GETPENSTRT~ .ASCi l :PENSiZE .RSCi 'PEMPAT .ASCf !THAP Ff(9F =GETPEM =srDBECT .ASC~ :PRiNTBECT :ERASEBECT .RSC! :FiLLRECT .ASCI :EQUALRECT i:3ETBECT . ASCI tOFFSETBECTi .RSC~ i ~NSETBECT :SECTBECT .RSC~ 2 .R::;C! .RSCI .ASC~ PT2HECT ' £:•T l i"·JC•C:-·T i ! ! t Hu,_:_.. i : Ef·1PT 1·/HECT : t:·-'. TnC:Oc:-·T ! _L:! U H-•-· i ~FHAMEBOUND: .RSC! ~ERASEBDUND= ' i Ml)ERTROUN' . ASCi tF~LLHOUNDH~ 1 = TBAP AXB5 STDOt.JRL ~ FHAt·iECK.iAL 'PA~NTOURL 'EFiASE!Ji..JAL ~ ! Mi..)EF;TOi..JRL : F iLLOl.JRL .ASCi I 2 .RSC~ : SLOPEFF;Ot·1A .RSC! =sTDAHC .RSC! 1 PAiNTRRC =EBASEABC .ASC~ a .RSC! i : C" 1 ? i WC::-· : ~ t..i-! Hp_.. .ASC! 1 ~PTTORMGLE I :STDPOL=·/ : FHAMEPOLl.l .ASC! .RSC~ .ASCi .RSC~ .ASC! 'PRCKB~TS = Ut·iPACKB ! T::~ i =sTDBGN .ASC…

3:20 #4.H .---------------------------------------------·------------------------- .' 40 Th~s Gdded 01 /:30/85 l ' ont·1Gc: True ': . . onL ~ sci True equG t..es for i·/ACC cn·-1d ::lbot.}e ~ c~n68000 , .:. on=·/:Jcc: True l i 1: ·---------------------------------------------------------------------- .• .EQU .EQU NOT on G r·!Gc: i n tosh tiOT on e1 L 1sG ( MGc: ::(L ) t.tnder H::.:1e:f~Jor~:$s Yes, it's on a Yacc on68000 noTer·m .EQU ~APc:rt_ ~EQU set to 0 if RS232 s/b used use A Port for terminof stJJc;pS:::reen .EQU .EQU .EQU set if disassembf er full command set UJi thDis fui !Sized 0 set i f .sc:reen su.1::1p r-:-1i; .C..i:..!U .EQU ~EQU DDBG .EQU Ti'"li:Aiif8S ~EQU NOT debt~=;l:~ i n9 the debu:~1;Jer :::. ; ;u:.:J tr·(".lP r·u::Ui'i.eS .PBOC INCLUDE iNCLUDE iNCLUDE mc~c/t ~ ~::fsm-Gr1::4fEQU. TE)::T mGc ;l t i ctsm- Toc: i EQU . TEX:T mete/+..~ asm-HeapDefs. TEXT mac/' ti (~sm-si:JSm::Acs . TEXT .ENDC onL i s.::i True ~NCLUDE iNCLUDE INCLUDE t.. i t:~sm-Gr~:A fEQU . TEXT !NCLUDE t!asm-ToolEQU.TEXT tlasm-HeapOefs.TEXT t i c1sm-s1;:1smi:K:s . TEXT . Et·iDC iF onVGce:True ~NCLUDE !MCLUDE ~NCLUOE INCLUDE ~NCLUDE t_ ! 1:Asm-8:·/SEQU . TEXT t i ::1sm-Gra fEQU . TEXT t i c1sm- Ti:10 i EQU . TEXT t ~ Gsm-He::::1pDe f s . TEXT t IGsm-s,::1smac:s . TEXT .ENDC .LIST INCUJDE equates/global defs !NCLUDE db9-rmri4EQU . TEXT dtu;i- i r! i t . TE)::T dtu;t-cmds . TE)::T iNCLUDE dbg-io.TEXT INCLUDE dtu;1-1J trGp . TE):~T rs2:32/'d ~ sp i.at:_l stt~ff a::r tr=~p s: tu ff iNCLUDE dtu;i-he1:::ip . TEXT db9-dm. te::-::t heGp stuff ~NCLUDE INCLUDE dba-orint.TEXT printing uti !ities INCLUDE memc1ri:J d f sp I Gi:J code 2 fF f?...fi IS ized iNCUJOE :jtu;1-SiJmS . te::-:: t .ENDC . f·iOL i ST F . J . iMCLUDE .ENDC IC' ll ~NCLUDE .ENDC .END UJi thDis dbg-D.TEXT TnGmes d ~ sc.1ssemb i er

Debu99er for the Mo t_or··o ~ G fi8000 This tlavor is terminal base APort~ 20 ines with disassembler 2/ ~ ! /85 GPort suJ1:ApScreen !}Ji thDi s .EQU .EQU . EQU .EQU .EQU . EQU i·iOT on G L ~ sci ::: t·1cic.: XL ) ur!der t·iac!. .~orks \·'es.; ~ t = s on (~ ~l::.7ic:c 0 t·iOT on G t·tc~c or L ~ s::A set to 0 i f RS232 s /b t4sed use A Port for term i n=:.:1 i .EQU .EQU set set if disassemb;er f u l ~ command set .EQU hecipPr ~ r1 t dL~nes .EQU .EQU .EGU 20 20 .EQU 0 DDBG rat4mt=er or ~ i nes to d i sp ~ GiJ f'"it~mber c=f i i ries tc: i L (def GU~ t) t·10T debu9!;1 ~ n9 the debt~!;J9er DONT shouJ tr·Gp n=~mes 0 .PHOC ~NCLUDE ~NCLUDE ~NCLUDE ~NCLUDE ~NCLUDE mcic: / t ~ (Asm-He1JpDe f s . TE::<T mGc / t ~ 1:lsm-s1:f::m1Jcs . TEXT .ELSE ~NCLUDE ~NCLUDE jfiCLUDE tlasm-ToolEQU.TEXT iNCLUOE t i asm-HeapDe f s . TE:KT t ! asm-s!:tsmacs . TE)::T ~NCLUDE .ENDC equates/global defs jNCLUDE dbi~-rom4EQU . TE):~T INCLUDE INCLUDE db!;;- ~ rj i t . TE::(T db=;i-cmds . TE:::::T dtu;;J- i o . TE):~T db;;i-c~ trctp . TE)::T ~NCLUDE :JD1;1-nei:4p . i t:.}... i hecip stuff INCLUDE dbg-dm. te::.::t memi:ir-~;:J ..-i!-...-:-:-.::...~ ; .:..-.. .f. printing ut1 I ities IMCLUDE ~NCLUDE :1 ! .n..::::f pt 1••• !F iNCLUDE . ENDC lNCLUDE .ENDC -:"'::--•••·-:"" 1~·:··-r ! ! t :_ • ! !..-..··~.. I more e:ommGn(iS rs2:32;ld i sp i CUJ stuff d i sp ¥ a;:J code iNCLUDE .ENDC .END

F!LEMRME: !nit.TEXT 12-Ru=;i-84 i :3-Aui;i-84 1C:-AuQ-B4 20-AUi;l-84 24-Au•;:-B4 1-Sep-84 8-Sep-84 9-Sep-84 10-Sep-B4 14-Sep-84 22-Sep-84 2:~;-Sep-84 25-Sep-84 i-Ni:;;.}-84 1-No:.}-84 Adc!ed ~ n i t of t·it·1 ~ keiJ for L i sci Added Fit·1 cc1mmc~nd (re tt~rn tc1 t·1(:tC: ) Bemc!t.Jed hGnd i ~ rI:~ of ~ e'.)e i s 4-C: j r1 ter·r·up ts F i ::-::ed F i r·;d Lon9 ( mi sses i f out of word pni:Jse ..! Added Exit-to-she! Added Lisa check cmd, Find now goes to Disp!ayMem routine, Be- i fiS t(~ i i ed 4-6 i n t '-}ec tors i f on f·1::JC; Ad:je!j s tcK::k c:rG!JJ 2 c:::1mmG:nd S t=:Jc:k c:r(~~JJ i morks ,: ei. .hE!t-t t..r ~ es to 1;ie t 1;ocu:J re turn c.iddres.s l c:hec:ks Chcin:;ied CS e:md tc~ t4s:e t1JJ0 Gddresses c~s (~r·:;tt~mer1 ts Added ~ OPB/~-~ I ND/TEHC: temp f (~tes F ~ ::-::ed i.JH cmd tu :lpr1 tched tra.Aps .= Gi so cons i s tGn t lJ i sp ~ Gs~ F i ::-::ed ~~H nor1-res tore of A-trGp d i spG tcher Gddr·ess Hemc:1.....1ed in~ ti ci i s::::p.}e of PostEi.}ent/B i c;c~:Jio 1..}e !:.iddress (eou id be + 9 for a magic location. use the =;1 j obci ~ siJs tem :.}::~ i t~e MOf..JEQ ADD . L Di .. Ai #$FF_. (R 1) onL. i S•:A True . !F are we on a Lisa? @O BEQ.S cg c·c . !-L..·-'i- BNE. S *"'-d= ru-: ~:._:._! ·' LH_! :iA9C;;i t·10t)EQ "=""" . t~ORD LEA BUSEBH . =AO f·iOi.)E ~ L . -....-. •+••-.. MU . ;~=V LEA ADDHEHF~ ·' AO AO_,:t:c LEA ~ LLEGAL .: AO r~101..JE. L RO.~ $10 LEA DIl..JZHO .• RO LER AO_, $14 CHK I MST_: AO RO.i$18 LEA nUHFi ...... -·t.J·::.·Rn ·- LEH AO_.$K THACE .:AO A0 .. $24 - t·10t.JE. L LEA MOUE.L LEA to ABORTB.:AO interrupt for lF AO_. i;?O level 4 interrupt vector ~ e:.}e i 5 i n ter·rup t 1.}ec tor I e•.)e i 6 ~ nt...errupt 1.)ector A0.:~£;74 i·iOt.JE. L A0.=$78 ~ EfiDC level 7 interrupt vector LER trap F :...i!;:c tor f c~r brr=:cikpe: i n ts CHKBP,AO AO_. :!;Bi:: LEA SAi..JEA .• AO LEA $28.: <AO) 5=] 1.ie ct~r~ren t T:.-: in . . rt:u get trap intercept AO.J$2H ~ fiS i.1:.i i i HEGPC.lAO #db9i-lrdC:n t- 1) DO (twm) c!ear out globals -.:-u-li A trcsp ours (f!O)+ DBFiA DO.: lMiT rsoTerm screeni. .J(:n..·s .: RO LEA CLB~L (AO>+ .._,,. #:dOf fset . . <RO)+ #dL i ties.! (RO) offset .··.l, ·= ·-· !.!=r! iF Ni·1i key = t·mUEQ THAPTO .ENDC (~t-id set ~ t . . -r ~- .:i ! ! C'U '-i-: i rS!:JSC:mds A 1 #0.iDO #s j zeCmds .•DO .1 ll:' i! nr1C1t"7: i..:i-::....:::_: set up keyboard constants #~:.bdRo i I .= KE:i:JHO x/50 ro! lover va ue for #kbdi·k:i i t . Kei::1l·k~ .ENDC BTS This al This 1s the command table which gets moved into the top of the global area. i f i:JOiJ Gdd or si.~b t.:rcK: t a commc~nd _, remember to Gd j us t the S i zeCmds constGnt in EOt·14EQU. '!!M' .A:3C! l ! ;~ r :i ,_-.:-·: :_....:: .ENDC ,,.... n- ODBG !r,n :-n...: . 1 .A8Ci i =KRt . ASCl l , K!-J • . ~-~ORO C"t·lni-~ .. L-: u...u_. Register commands .RSC! i . i-JOHD .RSCi l -~·40RD .ASCi ~ :D€:' SETD-S lSCt·iDS 1 .. 'F@' ::;ETA-S\':3CMD…

·------------------------------------------------------------·---------F i LE D . t.e:;d. ·' lc::Jkt~p CG~ is ADD . t·J t·10t)E . !·J EA *+$HHHH pr i n ts abso i u te t'.:1ddress .: :;g2 ;~:3 0 ( :~:3 .: ~t2 ) ;:{;4 .i .2 \.JPB LEA CLB. i-l ~~ 1,; :;g:3 MOUE.B 0(13,12),14 LEA ~~5 .t ~~:3 ~~4 ~LLEGRL . f·1RCHD BSET i LLEGRL #i5.tD7 . EtiDt·i APPCHAH e:hGr . i"i!iCRO RPPCHAF; fw10t.JEQ ii=:~ 1.t DO BSB APPCH ,-Ir-on USE8!FO ._,. -·::s USE8!FO t·10t.JE . i~J TST. i·J BNE.S DO LocrktJpPC L ~ ne A i ns tr·t4i:: t i ons ·tJ···ans ~ :::t te i n to 27-Sep-84 18-0c:t-84 PC byte RDDQ . t·1ACEO B6T07 r·10t}E . i.J D4 .: ~t AND . L·l #:3 .~ !;g t·iOt.JEQ AND . ENDt·1 #:;: ·' :~ i D4;J :;g 1 DHTRHEG dreg . r·1ACRO t·10t.JE . l-l BSR ct..£ru.; DATAHEG :~ 1.~ - ( R7 > DB . :....! n.n; t·10t)E . i.4 ;~ 1.~ - ( R? ) BSF~ AH . t1ACBO fiOt)E. i-~ :~ 1_, -<R7) f·iO(JE . ~-J . iF fc10t}EQ AND C:t·iP . ~.J ;~2 .~ -( R? ) :::t'..C! = ~==~ i == LONG .ENDC I ;~:3 : = #FALSE -(ff{) .ENDC . iF :3T = #:3 .= DO D4_.00 #2 .= DO -( R7 ) -<A7) .ENDC BSB RPPNDSZ stze 1 I . Mf1CRO APPMDSZ f·10t.JE. i.~ :~ 1.i -(A7) BSH APPSiZE . ENDri t-101..JE. i.~ #:;s 1_.-(Fi?) BSH APP .ELSE .ASC:i ! :~2 .ENDC BSB RSC~ OPC2 ~~2 .ENDC !F BSB :~1 =4 DPC4 .RSC! .ENDC iF 5 CPC5 .ASCi .ENDC .RSC! .ENDC :~1 BSR =7 OPC7 .RSC!! ~ENDC MO!..JE. ~-i #~;g i _, -(H7) BSB OPC 0 .ELSE .ASC i .ENDC .EMDM ErYter tu i th : R5 ~:is pc~ i ri ter t::i the code to d i s:::1ssemb i e R4 c~s pc: i n ter to strinq for opcode !en A:;; (JS po ~ n ter· 1en for operGrid He~~ ~ s ter·s : 07 1s first word of opcode D6 ! s td ts0to2 D5 is bi t..s:3to5 r~1ot)E ~ L t·10t¥E _L and restore new PC DO.; A5 A5 .• -(SP) TEMP SWAP D7 ·-·: . !::-·..;! ,....,=~! :: MOt}E. L ~as Di SRStt:( <SP)+, fi5 ADDQ CLH.B CLH.B *~·::: OPCODE HTS 4; : $$$$: diassemb!y val id ? no, get old PC address bump PC one word Qt:; ....... 4:: ;1;·-~ <A4) reset opcode Gifid oper::AnG s t_r-·· i n9s (ft:3) push 'bad disassembly sign nope stuff long lengtn TC·T 1 :: ._·q • ;_ LOOKUP (R7)+ i n S!Jmbo ~ tc1b ~ e ~" s t:::;ck hGs Ci!_.£ tpu t. s tr i ra:;t p tr !Jddress to ! Cn:!kup . ~ c:okup i~ddress (U...;d LOOKUP . iF f·iOt.JE. L (R? )+.i HL <H7 )+.:A 1 (fi7)_,AO Fu i ~ S ~ zed H2., -(SP) BSR LookupPC push rettJrr·i 1Jddress pr i n t out tuhG t_ pr·oc: the ~Jser t·10i.)E. L (SP)+~! A2 res tore re turn ciddr·ess iJ.ihere t.:, pr i r-, t s1Jmbo i Ioc:Gtion of FC ~ENDC ~ iF LEA LEA 0 STHS1·lt·1.: AO (AO).: AO ENDs=-lt·1.~ A 1 symbol taoie base imit is l t"°! (81).~Ri CMP.L AO_lt11 BEQ.S CfiP~L BEQ.S ADD 8(80).: DO #$C_.AO t·10i.}E. L €: 1 #P- .-:.-iHi- SUBQ # ~i_;DO BBR.S (f!O)+ (fi1)+ ~EMDC APPCH APPCH t·10t.JE ~ B DO_; -(A7) f·10t)E . L R:3 AO (RO)+_.DO .I ( A7 )+ -~ 0 (AO} DO ) APPCHAB 44 TRBOEST TABDEST APPC:HRB 32 f·1Gt)E . S <A:3 ) _, DO CMP ~ 8 BLT . ;:; # i 5 -~ DO TA8DE:3…

2/11/85 ·---------------------------------------------------------------------- . NOT Ofi ;] .EQU onL i si:::iTrue .EQU 0 Ci-t!! MOT on G L i s;:l 1_.1r1der t·lacJJorks \-'es.= on l::f '.bJcc \/Gee i s (=i 680 10 ... L-;;-::_; .EQU .EQU GPort 0 use A Port for terminal stoc~pSc:reen .EQU U.! ~ thD ~ s ~EQU set set fu f IS j zed .EQU .EQU .EQU nt.anber· o T ~ ~ nes .EQU number of lines to IL (default) heGpPrint dLines DDBG .EQU 0 i f screen s1.1.iGp to d i sp i GiJ NOT debu!;iz~ i n9 the debu1;J1~er· DONT shotu trGp r1Gmes .PHOC .NOL~ST iNCLUDE mGc/'t... i 1:=1sm-GrofEQU. TEXT iNCLUDE mac/tlasm-Too!EQU.TEXT mGc/tlGsm-HeGpDefs.TEXT mc.tc: l. t i osm-s1:Jsm;:.1c:s . TE):~T INCLUDE iNCLUDE .ELSE iNCLUDE tlasm-GrafEQU.TEXT ~NC:LUDE t~Gsm-TooiEQU.TEXT INCLUDE t i 1:lsm-He::::pDe f s . TEXT t ~ a:=:m-s1Jsmacs . TE)::T iNC:LUDE bENDC .Li ST iNCLUDE iNCLUDE dbg-rom4EQU.TEXT dbg- i ri i t . TEXT dbg-cmds.TEXT ~NCLUDE dtu~- ~ o . TE::(T equates/global defs basic debuqqer. init more c:ommcinds rs232/d i sp ! 1Ji:J sh~f f INCLUDE dbg-c~ tr:::ip . TE)::T ;~trap INCLUDE INCLUDE dbg-he:Jp. TEX~T dt:u;i-dm . te::,.:: t hea~p ~NCLUDE st.tiff s tt.i ff memor1::1 d i sp ~ Gi;:! code ~NCLUDE iF iNCLUDE symbols code/table .ENDC: i.sJi thDis ~NCLUDE .ENDC d ! :=:ctssemb I er 2 lF Tnames !MCLUDE dbg-trapname5.t~xt .END t~.om :Added '! = CJrt:.i::lC:C: .EQU .EQU .EQU .-.:_1 on68000 . t:.L!U 0 no Term . c.=-~u: onia/:Je:c Trt-ie i ,.'"')t...• .._., i.:.:..t··•• i nes uJ i th disassembier for :.:: 40 This or1CaBOOO' ont·hicTr·t4e' ~ oriL i sciTr·ue = ,.; Gnd Tr··ue = equ::::I tes for r./ACC and cd:uJiv=e :r NOT or·1 (:f t·iar.: i ntosh MOT on G L ! s;:~ (Mete: :::::L ) t~nch2r UGc~·~or~=~s 0 r-r.d' ::~Pc:r·t.. ~EQU stuapScreen uJ i thD is .EQU .EQU .EQU h~GpPr~nt .EQU dL ~ t-feS t·ium ~ L .EQU .EQU use A Port for terminal set i f screen st~Jap set if di s1::issemb i er f u i ~ c:omm:And set 40 DDBG nt~mber of numt=er-~ of .. : .; : •. !..OeTi:.".lU l T_} ~ MO.: r!O t debt~!;l1;l ! ni;l tne debU!;l:~er shouJ trGp n(Ames 0 Tnc.!mes .PHOC .t·iOLiST !F :_!f ~NCLUOE ffK~c: l t.. i i:ism-S\.!::;EQU . TEXT iNCLUDE mi~c: / t ~ :Jsm-GrG fEQU . TEXT m=Jc: / t ~ Gsm-Too ! EQU . TE::(T mc~c / t i Gsm-HeGpDe f s . TE)::T mGc: ,l t i Gsm-s1:Jsm::~c:s . TE:::::T -.- .. t.o!- - T .. -· · - ~NCLUDE INCLUDE INCLUDE u ~;_.n..: i r ·:_-1t: .ENDC ~NCLUDE t ! ==~sm-S\-=sEQU . TE:::::T ! t i (ls:m-Gr!::l f EQU ~ TE):~T tlasm-TooiEQU.TEXT t I iJsm-HeGpDe f s . TE)::T t ~ 1:lsm-s1:Jsma:.ic:s . TE>::T :.. : . -.. :.: : !!"-.. :"""'- i ril...LUUt. iNCLUDE ~MCLUOE iNCLUDE . ENDC JC !l INCLUDE iNCLUDE iNCLUDE on\.ti::;cc: True t I c1sm-s=·lSEQU. TEXT t i (lsm-Grc~ fEQU . TE)::T t_ l i:.'.ism- Too i EQU . TEXT !MCLUDE tiasm-HeapDefs~TEXT ~NCLUDE t i Gsm-si.Jsmc1c:s . TE:KT .ENDC : :,.-.. .Lf:: i ~ 1 dbs~-r~:!m4EQU ~ TE)::T db9- i n i t. . TE)::T eqt~(~ tes i~ !~…