3.19. Syqequ. Text Thu, Mar 16, 1989 1:02 PH File SYSEQU.TEXT - Macintosh system equates file. MACWORES copy WRITTEN BY: Bud Tribble é-May-81 All system routines include this equate file. MODIFICATION HISTORY: Integrate Lisagraf -- Configured for Alpha release (one heap) -- Moved Lisagraf variables up to allow more room = -- Added system base date & time variables - Allowed 20 bytes for system parameter ram area -- Added ptr for SYSOUTFIB,SYSINFIB,SYSREFNUM(macpasl ib} Added SCC hardware addresses; removed 6551 stuff; pulled MBSTATE and MBTICKS from kbd driver vars -- added SCC write reg 3 globals; clock-keyboard synchronization flags ... -- got rid of VBL queue element “mode” word -- changed KEYREFCOUNT tc KEYREFTIME; added procedural interface variables for key mapping -~ updated for Siz-dots — changed VIA addresses for timing problem - changed IWM addresses for better margin -- updated to 364 current version (0.50) -- added FSinitibg for Fiileri (sysinit, debug) -— added TagData field for twiggy driver - added Orvinstalled field for twiggy driver; changed WarmCold to TwiggyVars -— removed Drvinstalled field; removed FIER pointers, and changed start of system heap; changed loader variable area = added a compare string jump vector -- changed driver definitons, etc. a added VIA equates - added new i/o param bik equates for new fs -— added storage manager error codes -- add disk cal switch error code - added keyboard task vector in #124 (KybdTask); broke error codes out into SysErr.Text added LoadTrap lomem var = put dispatch table where macsbug globals used to be and moved down toolbox vars. - Added DSAlertTab pointer - Added Bootlrive field -- Added FoliStack, PoliProc, ODskEre, UskRtnAdr — Added SonyVars ,PWMBuf2 -- Changed screen, PWM address for 512k proto -- Added Resource def - Added PWMValue -- Added Heap check hooks -- Changed SCC addresses (high bits on) - Added DOFSID, Stretched KeyFadMap to 8 bytes -- Added Mask constant, changed Heap check hooks - Added squates for MinStack, DefltStack for memory manager; moved UnitEntries equate to Startinit; added UnitNtryCnt lomem var instead. - alo ala alo alo alo aio LAK LAK LAK LAK LAK LAK LAK LAK LAK LAK LAK LAK AJH AJH LAK AJH BJH LAK MPH LAK LAK MPH LAK 23-Lec-81 5-Feb-62 10-Feb-B82 13-Feb-82 i-Mar-82 i-Apr-82 10-May-82 27-May-82 04-Jun-82 07-Jun-82 26-Aug-82 17-Sep-82 23-Sep-82 10-Oct-82 19-Oct-82 Oi-Nov-82 02-Nov-Bz i8 . 10 i7 03 E17 £ O04 RO5 Nov Dec Dec Jan Jan Feb Feb Feb Feb Mar Apr Apr Apr May Hay May May May Jun Jun Jun 82 g2 82 53 83 Ex) 83 3.19. Syqequ.Text Thu, Mar 16, 1989 11:02 PM Added “Nolueve" bit definition -- @JH 23 Jun 83 Added “CurlOTrap" (replacing “Filler3" } -- AJH 26 Jun 83 Added “forTwiggy" conditional assembly switch -- AJH 27 Jun 83 Cleaned up: changed unused vars to Fillerx equates; changed ARdCmd ,AWrCmd ,ACt1 Cmd ,AStsCmd to match trap numbers . 4 2 -- LAK 15 Jul 83 Added mmInQk for memory manager checking. -- LAK 24 Ju…

YaccDesc.Text Thu, Mar 16, 1989 11 :30 PM The YACC is a r meg machine ~:Ji th memory management that al 1m'ils mapping of the memory into 1 kilobyte pages. There are 8 video planes which are 640*480 pi:-~els in size. This is 37.5K of ram per plane; the 1K resolution of the pages force an a 11 ocat ion of 38K for each p1ane. The Video DMA system uses physica1 addresses 19 to 17 for the selection of the 8 planes, thus forcing the division of the physical 1 meg of memory into 8 128K partitions. There is a i6 bit register that is loaded with a physical address that points to the start of the frame buffer in each of the 8 p1anes. The Sound subsystem makes a 11 accesses f ram partition 0, which has addresses 17, 18, and 19 = 0. It also has a 16 bit register ~'ilhich points to the start of the sound buffer. The system vlill fetch a 16 bit value·at the start of video scan line (15.734 KHz horizontal scan rate), of which the lovJ 10 bits are used as input to a PWM circuit. The PWM circuit divides the 1ine into 585 cycles; a value of 585 or higher ~-vill turn on the sound for the entire line whi 1e a value of 0 wi 11 tur·n off the sound for the i ine. The Sound DMA system will continue to fetch successive words of data untii a ~'4ord is read that ha·:; bit 15 = 1, whereupon the circuit ~'iliil reset the starting address to the intial vai ue in the 16 bit register. _ The floppy disk Pl4M circuit for speed control is two 8 bit registers/counters that are written in parallel. When 16 bits are ~~ritten, the low 8 bits are loaded into a F'WM_Lm•J register and the high 8 bits are iaoded into a Pl4M_High register. The cirrni t provides Pulse Width Modulation and Pui se Frequency -Modulation. Each register is fed into a counter that increments at an BMHz rate until it reachs 255, whereupon it ha 1t and re 1oad i tse l f • The other regi stericounter is enab 1ed and it fol i ovJS an identical process. The number of time::; that both counters increment i·; proportional to the square-wave frequency that is produced • ~Ji th a sum of counter increments equal to 256, a square ~'ilave of frequency 3i.25Khz is produced {1000/ \256* ( 1000000/BMHz ! ) ) • The va1 ue in the PviM_Low register/counter divided by 256 is the proportion of the square ~·Jave that will be 1ow and the value of Pi~M_High divided by 256 is the proportion of time that wi 1i square wave ~:.Ji i1 be high. The memory management hard~...;are consists . of 2K ;{ 16 of readiwrite registers. 8 megabytes can be mapped but on 1y 1 megabyte can be mapped at any one time. Any 2 accesses that has the low 19 bits the same and the high 3 bi ts are different vJili cause a memory translation error. To address 1 meg, bits 19-10 are provided by the MMU and 9-1 come directly from the address. The high 3 bits (22-20) are used by the MMU. To write the MMU, the 16 bits are mapped as follows: Bit 15 Bit 14 Bit 13 Bi ts 12 :03 Bits 02 : 00 Referenced bit , = 1 if page has been referenced • - Modified bit, = l if …

i4 beE 83 PAGE - 6&';I'W' • ., ••• .,Ai 0 eon. 88 , Cu~~eftt oe.o~y oVDilDble: 125436 • ABSOLUTE 2 blocks 'o~ procedure code 124262 .ord= leh PAGE 1 ~ISA rILE: 0000, 0000, Cu~reftt 0000, 0000, DODO' PAGE - .PROC LISA 124909 .LlST .TITLE -SOfty DRIVER rOR LISA• INCLUDE VAR rILE: VAR. TEXT SOfty DRIVER rOR LISA oe.o"y ovollDble: 2 DODO' 0000, 0000, DODO' 0000, 00001 00001 00001 00001 00001 00001 00001 0000 00001 0010 00001 0020 00001 0030 00001 0040 00001 0068 00001 PAGE 3 LISA • PACE ;-- ZERO PACE MAPING ,.. ; The '0110.1"1 equote. ore '01" dividi"1 the RAM I"to 101leol oreo.; ho.ever. os the code Irew this eo"ve"t$oft .0: not otrlely odhered to o"d there lore one will 'iftd both "LOCAL" o"d -GLOBAL- vo"iobles .eDttered throulhout the RAM oreo. lOB SHARERAM STATUS IJOB GLOBALS LOCALS LISA rILE: VAR.TEXT .EOU .EOU .EOU ; INPUT OUTPUT BLOCK READIWRITE SHARED RAM. INITIALIZED BY 6504 ON BOOT READ ONLY STATUS rROM THE 6504 INTERNAL lOB 6504 INTERNAL GLOBALS ; LOCAL VARIABLES 00 10 20 30 40 18 Sony DRIVER rOR LISA lOB THE lOB IS ALWAYS COPIED INTO THE INTERNAL lOB (IJOB) AREA BUOAE USACE SO THAT THE 68K CAN STAAT TO BUILD A NEW COMMAND INTO THE lOB AS SOON AS POSSIBLE. ALL RErERENC£S TO THE lOB OR nOB ARE DONE IN THE rou.OWING FORMAT: IJOB lOB GOBYTt DRIVE , DODO' DODO! 0007 00001 0000 OOOO! OOOO! DODO! OOOOJ DODO! .. IOBSIZE GOBYTt • [QU .EOU 07. 00 80-89 80 COMMAND ACCEPTED BY THE 6504. 68K MAY ISSUE A NEW COMMAND COMMAND FROM 18K TO 1504 . NULL. TESTS HANDSHAKE RWTS COMMAND, COMMAND CCIDE IN • COMMAND' SEEK CALL ADORESS IN 1504 CLEAR STATUS SET MASK CLEAR MASK WAIT IN 110M Go Juap to oel' 'orever 84 85 II 87 88 89 01-7r,82,90-" CCMtAND • EQU 00 01 02 03 04 05 06 07 08 09 OA-" OOOO! 00001 0000, 0000, 00001 0000, 00001 0000, 0000, 0000, 0000, OOOO! HASK ; USA ; FILE: VAR. TEXT • EOU , SIZE OF' lOB BLOCK USED FOR PARAMETER PASSING . \ FCC 0 v ; COMMAND BYTE F'AOM 68K 00 ..31 00001 00001 00001 00001 00001 0000, 0000, 0000, 00001 0000, 0000, 0001 0000, 0000! 00001 000.01 .EOU .IOU .EOU • POle 00001 00001 00001 00001 00001 00001 00001 00001 000.01 00001 00001 00001 00001 00001 00001 00001 0000: 0001 0000, 00001 00001 00001 00001 PACE .. - ••• RESERVED ••• AWlS COMMAND CODE 01 READ NUTE UNCLAMP FORMAT VDUrv rORMAT TRACK VERIFY TRACK READBF WRlTE8F' CLAMP COMMAND Reod the Ooto • DrlvelSidelTroeklSeetor Wr'te the Doto • ~ivelSldclTr.cklSeetor Unci . ., the eli.k I" Orlve Foroot the eI,_k in Drive Veri'y the eI,.k 1ft ~Ive For.Dt .'n91c Trock Oft the di.k 1ft ~Ive Vcri'y .'n91c Trock on the eI'ok 'n ~'ve Reod w/o eheek.... vcr,ficotlon WI" Ite .hI check.... o,.eot lOft Cl . ., the Oloktn ~ive ••• RESERVED ••• MASK FDA SETTINGAND.RESETT1NCi IMSK & 1ST 08 SET OR CLEAR I~RuPT MASK FOR uPPER DRIVE 80 SET. OR CLEAR INTERRUPT MASK FOR LONER DRIVE 01 CLEAR OISK INSERTED I~AUPTFOR UPPER DRIVE 10 CLEAR DISK INSERTED INTERRuPT FOR LOWER DRIVE SOfty DRIVER FOR LISA 02 20 04 CLEAR tUTTON PRESSEDfNTERRuPT "DA~E…

Macsbug-syms.text Modification history :3-Sep-84 Added i.Jher·eRm ~ c:ode (shot~ l d ! tgf..e9r·c4te ~-~H code here) 5-Sep-84 t·~od if i ed ~-~hereAm i to search for UNLK RC: - BTS/tJt~1p (RO) rs;.· r-·: ••._-,. ...-_.. 6-Sep-84 ~-~hereAm i buffer stuff) (from D ~ te:=-::t) LookupPC AO ( i npt~t) R1 ( ~ rapt~ t ) the =.}1J i tie of the prc=9rGm CCHJn ter·· to ~ o::t;::.,tip uJhere to mr i te 01_.1 t the chcirac ters to . DO-D2/R2 Uses !J.ihere PC ?S. If in in user space, attempts to do L i SC~ PfJSC:(~ ~ S!Jmbo ! s /'Dui.}Q ~ ! Si:Jmbo ~ s ( e 1.}er~ !JAG! ~ i !J ) if no S!dmbo is found~: sets EQ CC f I ag_; e i se NE Lookt~pEn tr!:J TST . B sh!J!.!JSi::1ms S(~=-..1e some re~~s RO ors s t(~:::k (Are i.!Je di sp ~ Gi:J i n9 SiJmbo ! s? Mo . e}:: i t . .1 1 ;-: __ :-, •___ .{::. .: ne_; :-:,-: nt_~mci:t BLT.S ~ Be ~ O!.uBom AO ·=: Hom => sometohere i n Bam C:LB.L .:; .: ~ ! LGOKt.ipt:.n tr~:1 t·10UE . L (SP)+.; A2 f·10l)EJi . L D3-07/A3-A4,-(SP) t10t.JE ~ L AO_,DO BCLB #0.,DO trashes [HJ /A2 ~! .sc.P...ies std regs.: RO on s tc~ck scp. }e re turn :Jddress s-:1:...;e s~:1me re9s nooJ m;Jke st~r·e r~ddress i s e=.}en D0 AO 1 R0 1 -(SP) S!:JmF::tund reset last procedure f !ag reset name found flag (fi2) c~nd SF t1rst look for L!NK A6 return ~200.:DO *~;4E86_.Di !eek fer L!NK A6 Look 4~-ford search forward by 2·s and try to find it fot.4nd ~ t.t AO pts to LINK Afi t·iciskBC .: AO !:l #2 .. 02 BNE.S @O t·10tJE. L t·10l}E. L #0.=DO #2048.=DO #$4E75 ,D1 c ~ eGr c:ot.;nter sei:Arc:h 2K uJords f c=r BTS set.. seGrch '-}G ~ l~e for HTS set for pos ~ t. i 1.. h~ !.uort:l se:::1rc:h (SP)_: AO set AO = PC 4 r·10t.JEQ MOt)E.L i urge dummy :.)a ! ue ( FFFFFF ) !ocat ion A6 r1·:· :on s:_~ .:. u .._: Look4~·~ord AO pts BNE.S rkt::kBC .= AO A0.%04 ~·10!..JEQ t·10i.)E . ~.J BSH.S BNE.S #2048.!DO #$4EDO.! Di (SP)_, AO set se1=~rc:h t.J(.'~ i ue .= D2 st ~ i ~ .J::-.1 i i d i. set RO = PC search for i t f ct1..~nd .; AO p ts ti:: :Jt·1P (RO ) Look4L-!ord Q·-; ;::.;;:.,. RO.:D4 BGT.S D4 ::- (AO) AO~! D4 .1AO f*IGi:Jbe founfj either BTS or :Jt·1P (f10) .: first cf-1ec:k u.1hether iJJe di !j fl nsj Gn;:Jt!i i r!:;!. see tohet..her ! t: s ; c: i oser: thc:u-; Li t~K A6 ~ f not.: 4 • w or C:MP.L t·1GskBC ·' AO BEO.S LocskupE::< ~ t BGE4S @O AO,,D:::; if AO= FFFFFF uJh i e:h Lookt~pE::-:: i t 4 BT:3 '!i :Jf·iP (AO > or L i NK? D:3 >= AO~' HST /'=Jt·1P (AO ) c i oser then L t NK .= if of rout ~ne i s !_: 1 i_ir::: =::r · .~ +..hen neither Cl ! AO_. -(SP> * 10_;DO #$4E5E}D1 set seG1r·ch !.}::::; i ue to UNLK A6 t·10UEQ #-2~: D2 set_ for b!Jcku.?:J.rds uJ::;rd se:::irc:h ;::-·T""a c-:.:=tn ..;-· :: Look4~·~ord C:-! (. ::;r! }+ ; AO not f otJrgj .: cor:d l t i or1cJ I b:::f i ~ out set AO bs::1ck to pos i t i =::n c: f l cis t Pr En tProe:S1::,tm found, print out string f·10t)E ~ L ( ~;r-: .::+ . RO RODQ #2.~ RO 'Jet i as t_ i ns trt4C: t i c1n bump ·b:~ r-;e…

Fi LE Mac£bug-print.text Modification history 6-Sep-84 NeuJ Todci;:J 8-Sep-84 Added Pr ; n t ( N )He::< roiJ t ~ nes .· mor...zed B i n2Cha:4r rot~ t i ne from i n i t 1t:-~:;ep-·B4 t·1o;~}ed t·iE i gh t t·1Err:::ir f rc:m t r¥ i t to here .?; 14-Nov-84 Move register printing code from !nit to nere ..·----------------------------------------------------------------- AO = Ptr to PGsc:c1 i str in=~~ print st1Jf f I e(~d ~ n:~ nn i.-··-· n t·iOUEQ t·1CU..JE. B :i+i i <AO)+,DO cleGr DO get the !ength byte AND~B *:£;:3F ~DO cons trG i n DBFiA <RO)+_, (fl6 )+ DO_,€t0 ptfsh to buffer ¥:.eep i oop i rii;t @1 · - · .1 #' " ' ~ enid th to . : e~4 (fi(: )+ Display Y~i 11~1es trGshes D1/D2 PNTZH::( s ~ :~r¥ed d j sp i ::~1::i TST . L DO BPL.S @;iO NEG.L DO #1;2D ·' ( R6 )+ PNT8!-[:( DO BHA.S DO FNT4H::( •=·!!wC' ._:s-·-1: u DO PNT6HX BSH.S PNT2H):: DO PNT4HX MOUE. t-~ BO)::B. t~~ DO .• D1 #8.;DO PNT2H::( Di.:DO PNT2HX UU ... UL #4}00 PU THE):: D2.:DO PUTHE::< ANDI .8 ORi .B Ct·1P ~ . 8 BlE.S test number #:f;OF;DO ii:$;:30_,DO #$39.: DO f:o stuff ;~ ADOQ. l-J DO_, (R6 )+ r·1ot.JE. 8 BTS The fol lowing routines have a hex value ( ::;p )+ .• A2 R6}-(SP) to A1 : ..Hf1 ..... ·- sci=t}e oid f C! buffer pointer set A6 (current.. i 0 i npu t i oc:a t i on ) tci ne1.o (fi2) A6_.A1 bi..J.mp Ai t..c' rre1.t1 s.}Ci i t~e (SP )+ .:Af! restore AC; HTS PEA PMTBHX PER BHA . S PEA Pr ~ n t2He::-:: PNT2H):: BBA.S Pr~ nt 1He:=< PEA PUTHEX BBR.S Bin2Chc-tr DO.B ~--------------------------------------------------------------------------------------­ ·' '_,DO #' : .:DO DO . (Af! )+ #: i t1Error Pr i n t out four charae: ter·:=: i nd::;:;.::ed OD byte::: f r-·iJm Mte::-:: t .~ f o ! l c.!!!Jad by ' EAR' Fix8t.!f riFOUH !·iFOUF; LEA tite::<t_, AO DO*,AO (RO) .• S::A6 )+ ADD HTS ·--------------------------------------------------------------------------------------- -' DO <inpiJt) AO ( tr(7!Sh) word offset from MText of text string LEA J·i te:=-=: t...: RO ADD DD_,AO (RO)+·' (fi6 )+ (RO ) . A6 )+ t ( HTS ... Heg~sters • -- - . t •.. 1st c:har :... innI.!T J - .. ·;-- pos~t~on SUBQ.B ADD . H R5.:AO #1_,DO DO_.AO i;te t i n i ti a ! s t::Ar t p::ss i t i on 1:-.1dj ;_~st pc•s it ion ;:-n··e U..ie G1 t Car p=::iS t Ct1P. L the end p:::S i t. j or1 '? no.= er-;d 1-u_::::.. > ~ 0 1-==-=:::. .: (A6 )+ BBA.S @O stuff o spoce cind loop PNTCLS CLH.L Fl:X:BUF Dt: BSH.S PNTREG BNE.S PNTCLS2 #4.,D6 !-Jr~ tel i ne C;f..Jli-·i C -i :i ! ii! ;_..i,_._t. : PNTCLS2 CMP! .B BNE.S PNTCLSi i-~r i tel i ne MOUE.8 D7.: (A6 )+ f·10t.JE. B BSB PUT HEX PNTREG 06.=DO # : = : .= ( ACs )+ D6.~DO LSL.L RDD4L *1:2 .• DO A:3.: DO DO.;A4 RDDQ RTS F ~)::BUF ADDQ #2;A6 t·iOt)E. B # : = : .: ( A6 )+ pntrer;a i

~lL£NAM£: CMOS.TEXT Change Lcn;i 16-Au9-84 22-AU!;J-84 3D-At49-84 31-Rug-B4 5-Sep-84 8-Sep-84 ifi-Sep-84 17-Sep-84 22-Sep-84 2::~-Sep-84 Added H ~ de ~/Shoi.uCursc:r ( c:::1n: t de: A- tr Gp i ns i de debtJ:;.l:;_ler ) F t ::.;:::d re-en trGr£C:IJ prc:b f em ( fit·l ~ ~.uh i i e i n debug:;ier ) He-d i sp i\ t::!a=1s cur. sor on Bf.1 F i ;{ed r8-en tr-·cJnC:i:l on bus error. - ~ r-1 dabuggar t"1(~ke :St4re i L i s Cl t e!. . 1en a:Address Added Loc:kt4pPC to ONEL ~ NE d i s=~ssemb I 1:1 i oop Lor-~9er Co i c1nSp str i r·19_! f i ::.=:ed Or-ieL i ne ptr setup Fixed CU display for '<4 asci i chars~· Added PC: i oca t i on i n ONEL i NE d i S;Jssemb i i:f Bump PC t=u:is t F-trc1p i r1s trt~c: t i on c1n en t..r~:J 24-Sep-84 2Cr-Sep-84 27-Sep-84 8-0c:t-84 iB-Oct-84 Pr~ nt term i n:.::;t i =:!n ! n di s::4ssemb I :d Bi i;j re:;1 sc~=.} i n1;1 in GetS1Jm from p=:Ars ~ n1J cmd i i ne. On i i:J ,~ oc;kup trctpnGmes i n P'Jrs i n9 ~ ciop i f 1:4 t ~ eGs t 3 C:t'IGrs ~ oni;! . P:~r~s ~ n9 f oop does Ge tNum i f r:~ ! ~ chi:Jrs i r1 nc'1me ::?re nums or he::< ~ Trc1pNum s:e t tc: -1 i n F!ecKiT oken . . 1.}a l i d i f pos ." set i n Loo~=.l4pNcHT1e f 1.~ I i 8 i zed .~F .ELSE BFai .EMDC . l' ~~ p OJI tl!U!S HEGPC~iDD ONELjNE TST.8 ni::Ret~S BNE.S TDHTS LEA HEGPC~;A4 should regs b~ printed? TDOO # :: PC : _: ( A6 )+ TDBEG <R6 >+ .•<fie,)+ #4_,R4 # ' SF: ' .. pr i r1t SB :;i: • RDDQ BSH . S t·10t}E . i·~ TDBEG LEA TICKS.~A4 r:u:·Ct ~:­ :_: .._=! ! ..._: BSH # = Tt·1 ; , (Rt: )+ TDFiEG ~lri tel ine #:Di .iD7 HEGS_:A:3 TDBTS BSR t·10tIEQ PNTCLS LEA RFiEGS .. f!3 BSR PNTCLS HTS #SA' .:D7 print time 1n 60ths TOF~EG PA! t-lTA i OUTPUT A7~=F;EGA7 LEA BEGR7.!R7 D0-07/AO-A5,-(A7) SG 1.}e GI : ~ LEA s:iSTACK} A7 HEGA7.:AO (RO )+ ·' F!EGSB+ 2 (AO )+ .. REGPC onC=8000=0 use the st;;:1c.:k t·1G1.)E. L t··1ot)E . ~-~ . ~F r·e!;1s i n to l.iJ~·l ! n the i;i ODO. i c~reGi the ;;l i:·bi:::i ~ oreG t·f Ot.)E . ~-J .EMDC AG;BEGA7 onL i sa Trt~e if TFiAPTO .ENDC f ~ ~ p screens ~ENDC iF TBAPTO c:riL ~ St:J True _Nt·1 i SiJfiC THAPTO .J(e1~Bou Ct·1P. L :f; 1:~6; AO BEQ.S €10 t10~JE ~ L AO.; S(~:.}et=::e;:Jbd $196.1AO _:;etKe:~F~out_ i ne r·10t.JE. L TRAP TO t i ne .: set up kei:Jbc1::Ard hcind i er .: te ~ i COPS Nt·1 i oc:e:ured ;get the key routine ~ s ~ t same aJS i otu- i e:.}e i 1.::1es ·' skip setup no .~ -~ i;ie SG;....=e ~n :;: I obc~ i s t i e=tu- ~ e;,,..Je I r-ou t i ne _; !c~nd set ('.iS h(:;nd ~ er·. . ENDC CLH.B HEGPC 1 ;-,-,. f1R::e::BASE .: RO TEt-iP.!RO (fi0) LE:.r1 ADD.i.J ,Jf"1P SiJJ;::;pSc:reen f i ipSide BSB . ~F onL~sGTrue TBAPTO .ENDC SF .ENDC IF clear n1gn order of f ! i p screens: THAPTO _Se tKe!:;iBou t_ i ne rest.ore TflAf'TO ..J::or==e~e;r:!.nch ff r_.:!;:h Gf ; .j. .; : .. HEGS.:A7 ( A7 )+ ~· DO-D7 /AO-Rt! BEGA7.!R7 ; r• If" ~)t·s6800D=O F:EGFMT .~ - ( A7 ) f!BO 10 ;~:: fi8020 restore the formGt word .ENDC FiEGPC Hl ) REG SB+ 2 A7…

.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…

Memory display uti ities 8-Sep-84 fieoJ TcujG~:J (a] ~ uJc:f~Js f i ::-::bt~ f before pr i n t i ni;i ~ 1t:-Sep-84 t·1or·e DLE s t11 i th count 22-Sep-84 No DBBA cit top of I oop ! ~ ~ 2:3-Sep-84 Added Oi·1bc1 i l out_ for pr i n t i n1;i 26-Sep-84 Added i-l l ND ::lTERC temp ~ (Ates 15-Sep-84 C: l eGnup .· bt~1~ f i xes ) = There c4r·e three debU1;i9er 9 i ob!::: i s used ~n d i sp i (.l!~ i r~1;i memor··!:f . The first is DMmemPtr) UJh i C:h Ni:Jbb ~ e Nt::tme ( e::-:: t.ens i on ni:Jbb l e ) HEX BiJ"te/i-Jor. d/:Lon9 i •.Ja ~ ues Length of asci i field Pr~ nt $2 the f1P Gs 6 he::-:: di i;I its Pr i t-! t ckA 1:1:A ~;t-1P GS ~n:Asc::::~ ~ s tr ~ n:;? TEXT D i sp ~ (.ii:J the f c: i I CdJ.i i n:~ te::.:: t s tr i n=~ Pr i r-¥ t sp::.1c:es Print :~ r1eUJL; ne SP NL Len9 th c1 f te:=-:: t s tr i n·~ Nt4mber of spGic:es 'l'..O pr i n t FWDMP Hmount Bi-lDf·iP Rmot~r-it the to decrement_ f1P -} REPEAT END Nc.unber of Terminate t ~ mes to loop/lemplet~ C:f·1D ~.}:J i ue ) ( ??? f u tt.Ere ) :f;F NOTE ~ n ter-·pr·e ted c1s Ofle mor·e thGn the Ge t1...l:::~ i ras:Jbb i e i r~ the biJ te c:ommcu..td .: comm:::ind to print 4 spaces. AO ( ~ nput) Function ptr to memory template Uses the memor'd temp!;:~ te spec: i f ~ ed t:;;=' HO to G ! sp i ay the memory spec:~ f ~ ed bEd DHmemP tr t.ip to Ot·imemEnd Pm.Tc.xi Ct·1P ~ L BNE.S set up for n1 i ptr test any memory template ptr? iJes ~· t.ise i t A0 DO 1 ~ ~r-ld~t i emp _:AO AO.~ -(SP) Temp ; ::~ teLoop t·10t)E. L CLH.L test f !~ke r-·epe(~ t.. (:i:!un t make sure 10 buffer CmdB~J teLoc1p f·10tiEQ r·10t)EQ :i+O)DG Dt·1cmdP tr.; A 1 (A 1 )+·'DO At·iD.8 A 1~l Dt·1cmdP tr DO .:D1 #:t;OF.! uu ADD. i~ D1,D1 LEA Dr-id i spT .~ H:::: ADD.H Dt·1memP tr·' RO <A2> !bi .L BNE.S clear out extens!on nybble c: i eGr out c:c!mmGnd bid te get the command pointer qe t the c:omm(:ind b1:1 te set neu.1 c:c=mm=:Ar!d pc: ~ n ter· set up c:md rot~t ~ rie offset DO e::< tens i or-·: r-tidbb i e 01 = command nybb!e double it (word offset) ;Jet c;;:•mm.:~r!Ci d ~ sp•::d:;::h tcib i e 9et Gddress of code i t-itO A2 get memory ptr into AO = re ~ ~ c:ommt:And p tr =} Dlk:mdPtr !.:.t1:: re done no, keep looping Dt·imemP tr.: DO ~jet the mem p tr DrimemErid DO _l Temp:::;ateloop ADDQ _~40RD pop memory.template ptr Df·1He:~<-Dt·1d ~ sp T Df1Asc ~ ~ -Df·1d i sp T ~ ~-JOF!D Dt·1f·1P-Dt·1d i spT . i-~OHD Dt~1sTH-Dt·1d i spT .WOBD Df·1T e::.:: t -Dt·1d ~ sp T Ott:;P-Di·1d i sp T Dt·1NL-Dt·1d i spT Dt·lr1t~ ~ i -Dt·id i sp T Dl1F•.>.•df-1P-Dt·ki ! spT Dt·1Bwdt·1P-Dt·1d i spT . t-JOHD - . .. . HOF!D Df·int~ i ! -Dt·kl i sp T . i-~ORD Dt·lHepe:J t-Dt·1d ~ sp T Dt1Er-1d-DMd i sp T Dt·1STACK-Dt·1d i spT Dt·int-i l i -Dt·1d i sp T nMP t-·r·MP-nMd .... - .. - ..~ ·=:n - r T .. ~ CLF!.L D~-1cmdPtr· !-·£Ct ! :_.:_r: . :_ Dt·1memEnd BSH ADDQ (SP)+ :=AO - -· #f; ::;p .: AO.: <SP)+ sa!..Je re tur·n :::iddress pop off d1. .~mmiJ toord c:c•Ut""! t =l c:md ~;tr…

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…