(FILECREATED "21-Jun-86 14:55:03" ("compiled on " {ERIS}WORK>DT>ASM.;28) "12-Nov-85 14:59:23" recompiled changes: ASM.EATCODE ASM.EATCODE.DOLABEL in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "21-Jun-86 14:53:24" {ERIS}WORK>DT>ASM.;28 342272Q changes to: (VARS ASMCOMS) ( FNS ASM.EATCODE ASM.EATCODE.DOLABEL) previous date: "13-Jun-86 12:27:17" {ERIS}WORK>DT>ASM.;27) ASM D1 (L (3 ERRFILE 2 OPTIONS 1 MACHINE 0 INPUTLIST) P 62Q INITTOS P 61Q MAXPC P 60Q LTSIZE P 57Q FVAROFFSET P 56Q NLOCALS P 55Q NTSIZE P 54Q STARTPC P 53Q PV P 52Q STKMIN P 51Q THEARGLIST P 50Q FNNAME P 47Q FNTYPE P 46Q MAXSTK P 45Q LTVARS P 44Q NTVARS P 43Q FVARS P 42Q PVARS P 41Q IVARS P 40Q DEBUG? P 37Q ERRTOPIC P 36Q ERRPHASEMARK P 35Q ERRPHASE P 34Q LASTERRPHASE P 33Q TOPICERRS? P 32Q ERRSOK? P 31Q TOTALNERRS P 30Q ERRSYMBOL P 27Q OWNENTRYVECTOR? P 26Q LINKINFO P 25Q CODEARRAY P 24Q LJL P 23Q OLT P 22Q TAM.NLAMBDA*EV P 21Q TAM.LAMBDA*EV P 20Q TAM.NLAMBDAEVS P 17Q TAM.LAMBDAEVS P 16Q TAM.OPCODEPROPS P 15Q TAM.ASMFNPROPS P 14Q TAM.JUMPSTYLE P 13Q TAM.OPKSTYLE P 12Q TAM.ALPHASTYLE P 11Q TAM.VARXSTYLE P 10Q TAM.MAXSTACK P 7 TAM.STACKSTYLE P 6 TAM.1STVARSLOT P 5 TAM.VARALLOCSTYLE P 4 TAM.NTSTYLE P 3 TAM.FNHDRSTYLE P 2 TAM.LINKINFO P 1 TAM.OUTPUTSTYLE) 3BBhbgdd```'@ l H H H ` 0A hhAgjiSBo  P%j2@ O&OPOB OD OF OLhO2JO*O,O*(226Q LENGTH 221Q LENGTH 214Q LENGTH 202Q ASM.PVARMAP 171Q ASM.1 153Q INTERSECTION 125Q TAM.GETMACHINE 113Q CLRHASH 101Q HASHARRAY 71Q HASHARRAY 61Q HASHARRAY 47Q LENGTH) (241Q \ASM.STATS 205Q \ASM.PVARMAP 177Q \ASM.OUTPUTLISTING 136Q !**** 110Q \ASM.L2PC 104Q \ASM.L2PC 74Q \ASM.L2STACK 64Q \ASM.LSEEN? 41Q \ASM.L2PC 35Q \ASM.L2STACK 31Q \ASM.LSEEN? 26Q \ASM.STATS 22Q \ASM.PVARMAP 16Q \ASM.OUTPUTLISTING 13Q ??) ( 150Q (D DEBUG)) ASM.1 D1 (I 0 IL F 0 ERRSOK? F 1 OLT) Ag @o (icQ@ g (76Q ASM.PHASEMARK 67Q ASM.EMITCODE 63Q ASM.EMITHDR+NTS 57Q ASM.MAKECODEARRAY 53Q ASM.CODEPASS2 47Q LCONC 44Q ASM.CODEPASS1 41Q \APPEND2 35Q ASM.ENTRYVECTOR 30Q ASM.EATHDR+NTS 17Q ASM.ERR 5 ASM.PHASEMARK) (73Q atEnd 2 atBeginning) ( 14Q "no input") ASM.EATHDR+NTS D1 (F 0 IL F 1 OWNENTRYVECTOR? F 2 TAM.VARALLOCSTYLE F 3 TAM.FNHDRSTYLE) oj PddgPc i P0Pg(PPc P(Pg icPPc g o olc RgSg(220Q ASM.CKDIRVS.T 214Q ASM.CKDIRVS.D 202Q ASM.ALLOCVARS.T 176Q ASM.ALLOCVARS.D 165Q ASM.PHASEMARK 153Q ASM.ERR 143Q ASM.LIST 134Q ASM.LIST 101Q ASM.LIST 52Q ASM.EATVARDECLS 45Q ASM.LIST 20Q ASM.EATVARDECLS 15Q ASM.EATDFNHEADERDECL 12Q ASM.EATFNDECL 7 ASM.PHASEMARK) (207Q D 171Q D 140Q CODE: 113Q OWNENTRYVECTOR: 64Q CODE: 32Q LOCAL:) ( 160Q "after hdr+nts" 150Q "CODE: supplied" 3 "input hdr + nts") ASM.EATFNDECL D1 (F 6 THEARGLIST F 7 IL F 10Q FNNAME F 11Q FNTYPE) WWWdo o Wc !H l'HclWo Hc ddlo n iJV0V8oV gc i,dZ oJ gLKh]K&Mc hHgIggIggcW!gcgcdo ghgc h(351Q MEMB 233Q ASM.ERR 221Q ASM.CKVARNAME 201Q ASM.ERR 151Q ASM.CKVARNAME 144Q ASM.ERR 114Q MEMB 63Q LENGTH 54Q ASM.LIST 36Q ASM.ERR 25Q MEMB) (363Q bad$arg 355Q bad$arg 337Q LAMBDA 332Q bad$fn$name 320Q NLAMBDA 314Q NLAMBDA* 306Q LAMBDA 302Q LAMBDA* 273Q LAMBDA: 237Q bad$arg 205Q bad$arg) ( 346Q (LAMBDA NLAMBDA) 227Q "varname ill-formed" 175Q "nospread arglist ill-formed" 141Q "fn decl ill-formed" 111Q (NIL T) 33Q "no fn decl" 22Q (LAMBDA: NLAMBDA:)) ASM.EATDFNHEADERDECL D1 (F 3 IL) S#SSgSSc !HhHHHZIdggT3oJ gg;Idgg.gg$IdggggoI gJ (226Q SET 216Q ASM.ERR 114Q ASM.ERR 33Q ASM.LIST) (222Q X 205Q FVAROFFSET 200Q FVAROFFSET: 173Q NLOCALS 165Q NLOCALS: 156Q NTSIZE 151Q NTSIZE: 144Q STARTPC 136Q STARTPC: 127Q PV 122Q PV: 76Q STKMIN 67Q STKMIN: 16Q DFNHEADER:) ( 212Q "bad keyword" 110Q "non-num arg") ASM.EATVARDECLS D1 (L (0 LOCAL?) F 4 THEARGLIST F 5 IL F 6 IVARS F 7 PVARS F 10Q FVARS F 11Q FNTYPE F 12Q LTVARS F 13Q NTVARS F 14Q TAM.VARALLOCSTYLE)  @UU@oo hUUc Xo]gZHdgdgg9dgdgg'dgdggdgdggh o hYsH@d [oK K*KV KW KdW oK h[Idg-WdgdgKT KToK h[ug7WgfWdgdgKT gKKTFoK h[:Ig)WdgdgKT KToK h[oI K\KhIdgJVc $gJWcIgJWcoI @WJh cKdlWJh c'(720Q \NCONC2 671Q \NCONC2 656Q ASM.HELP 565Q ASM.HELP 551Q ASM.ERR 532Q MEMB 472Q ASM.ERR 446Q MEMB 377Q ASM.ERR 356Q MEMB 312Q ASM.ERR 300Q ASM.VARLKUP 270Q ASM.VARLKUP 261Q ASM.VARLKUP 246Q ASM.ERR 233Q ASM.CKVARNAME 213Q ASM.ERR 202Q ASM.CKVARALLOCSTYLE 43Q ASM.LIST 26Q MEMB) (635Q FVAR 617Q PVAR 602Q IVAR 522Q NLAMBDA 514Q LAMBDA 503Q FVAR 452Q NLAMBDA* 436Q NLAMBDA 430Q LAMBDA 417Q D 407Q PVAR 346Q NLAMBDA 340Q LAMBDA 326Q IVAR 174Q FVAR 166Q FVAR: 160Q FVARS: 152Q PVAR 144Q VAR: 136Q VARS: 130Q PVAR 122Q PVAR: 114Q PVARS: 106Q IVAR 100Q IVAR: 72Q IVARS: 61Q *) ( 652Q "bad varType" 561Q "bad VARTYPE 1" 545Q "has to be IVAR" 466Q "has to be IVAR" 373Q "IVAR not in arglist" 306Q "var redeclared" 242Q "bad varname" 210Q "not a var decl" 53Q "bad pseudolabel in decl section" 23Q (LOCAL: CODE:) 16Q (CODE:)) ASM.ALLOCVARS.D D1 (F 2 THEARGLIST F 3 IVARS F 4 FNTYPE F 5 PVARS F 6 FVARS F 7 V) TdgRS 8RU 1oR&gRS oRRH!hoW Tdgdg(S YSi IiHXddR SjUjdHdkԸVdHdkԸh(162Q ASM.POSINLIST 136Q ASM.VARLKUP 104Q ASM.ERR 47Q ASM.VARLKUP 24Q ASM.VARLKUP 15Q ASM.VARLKUP) (120Q NLAMBDA 112Q LAMBDA 40Q NLAMBDA* 4 LAMBDA*) ( 77Q "arglist var not declared" 55Q "arglist var not declared" 32Q "arglist var not declared") ASM.CKDIRVS.D D1 (F 7 PV F 10Q NTSIZE F 11Q STKMIN F 12Q NLOCALS F 13Q FVAROFFSET F 14Q NTVARS F 15Q PVARS F 16Q FVARS F 17Q STARTPC F 20Q LTSIZE F 21Q LTVARS F 22Q IVARS) ' W W WWWWWWHkkcI<Wlkll.cJW dj2j5WoJoW WoIoW lcL.W cMWW 1jFWoMoW WoLoW WW W$W lcNW" djjWoNoW lc WdjllW llch(400Q ASM.ERR 344Q LENGTH 326Q LENGTH 323Q INTERSECTION 314Q LENGTH 311Q INTERSECTION 277Q ASM.ERR 251Q ASM.ERR 221Q INTERSECTION 205Q LENGTH 161Q ASM.ERR 133Q ASM.ERR 77Q LENGTH 47Q ASM.NA.D 11Q LENGTH 4 LENGTH) NIL ( 373Q "vs" 366Q "FVAROFFSET: said" 272Q "vs" 265Q "NTSIZE: said" 244Q "vs" 237Q "NLOCALS: said" 154Q "vs" 147Q "PV: said" 126Q "vs" 121Q "STKMIN: said") ASM.ALLOCVARS.T D1 (F 3 THEARGLIST F 4 PVARS F 5 TAM.1STVARSLOT F 6 FNTYPE F 7 INITTOS F 10Q FVARS) S lo Vdgdg"T!H,YS ZIUJHXTdHSHUUlTYWdHHkXIdHHkԸHkc(60Q ASM.POSINLIST 16Q ASM.ERR 3 LENGTH) (32Q NLAMBDA 24Q LAMBDA) ( 13Q "too many arguments") ASM.CKDIRVS.T D1 (F 1 NTVARS F 2 TAM.NTSTYLE F 3 NTSIZE F 4 PVARS F 5 LTSIZE F 6 LTVARS F 7 NLOCALS F 10Q STARTPC F 11Q FVARS F 12Q IVARS F 13Q FVAROFFSET)  ldRgoR Q djjlcT cWQ jHTQ WQ cV djjlc HSdjllUllmc(124Q LENGTH 114Q LENGTH 111Q INTERSECTION 103Q LENGTH 100Q INTERSECTION 65Q INTERSECTION 55Q LENGTH 31Q LENGTH 24Q ASM.HELP) (12Q D) ( 20Q "don't know nametable style") ASM.NA.D D1 (F 0 FNTYPE F 1 IVARS) PgmQ (14Q LENGTH) (3 LAMBDA*) () ASM.CKVARNAME D1 (L (0 VARNAME)) .@Hd l H3HXlHdiH@(13Q LENGTH) NIL () ASM.ENTRYVECTOR D1 (F 0 FNTYPE F 1 THEARGLIST F 2 OWNENTRYVECTOR? F 3 TAM.LAMBDAEVS F 4 TAM.NLAMBDA*EV F 5 TAM.NLAMBDAEVS F 6 TAM.LAMBDA*EV) DRhPdgSQ k dgUQ k dgVgToP (101Q ASM.HELP 50Q NTH 43Q LENGTH 25Q NTH 20Q LENGTH) (65Q NLAMBDA* 56Q LAMBDA* 33Q NLAMBDA 10Q LAMBDA) ( 75Q "bad fnType") ASM.CODEPASS1 D1 (L (0 IL) P 6 NFML P 5 STKFAILURE? P 4 STKPROGRESS? P 3 STACK P 2 OLT F 7 TOTALNERRS F 10Q TAM.MAXSTACK F 11Q ERRSOK? F 12Q MAXSTK) uWldR` hcHc@I IkԹMLlwIicMWHlwI!Hc@I Mo LoI WWWoWoW J(157Q ASM.ERR 125Q ASM.ERR 112Q ASM.ERR 100Q ASM.CODEPASS1.INNER 30Q ASM.CODEPASS1.INNER 14Q CLRHASH) (11Q \ASM.L2STACK) ( 152Q "vs" 144Q "max stack" 121Q "stack modelling didn't terminate at pass" 107Q "stack modelling aborted") ASM.CODEPASS1.INNER D1 (L (1 PASS 0 IL) F 0 OLT F 1 NFML F 2 TAM.STACKSTYLE F 3 STKPROGRESS? F 4 INITTOS F 5 STACK) EoA hhcjc` RgjhThc hc@ PPoo h(100Q ASM.EATCODE 53Q ASM.EATCODE 25Q CLRHASH 7 ASM.PHASEMARK) (31Q D 22Q \ASM.LSEEN?) ( 75Q ((-X-)) 67Q (-X-) 3 "eat code") ASM.EATCODE D1 (L (0 IL) F 5 TAM.ASMFNPROPS) i@AHhYd PgI DUh[h6gI IkJ"ILZLiKdd I HX(141Q ASM.STK.INSTR 127Q ASM.STK.INSTR 123Q ASM.EATCODE.DOLABEL 61Q ASM.LIST 35Q ASM.LIST 21Q ASM.EATCODE.DOLABEL) (54Q * 27Q *) () ASM.EATCODE.DOLABEL D1 (L (0 I)) "@ @`@i` @ (37Q ASM.STK.PASSLABEL 33Q PUTHASH 22Q ASM.ERR.LABELREPEATED 11Q ASM.ERR.NILLABEL 3 ASM.LIST) (30Q \ASM.LSEEN? 15Q \ASM.LSEEN?) () ASM.STK.INSTR D1 (L (0 I) F 1 STACK F 2 TAM.STACKSTYLE) @@dgo@ l@ @ @ @dg jHdghcPd@g@ hc/Hdgm @ g@ m Hdg'@ l@jl k@ g)@ l@jl k@ l Hdg@ g@k Hdg@j g=Rgp@ l$@@dgkgjo@ E@Hdg&@ l@jl j@ k gH3oH  (654Q ASM.STKADD 650Q ASM.STKMAX 644Q ASM.ERR 620Q ASM.ERR.NILFORMAT 612Q ASM.STKADD 601Q ASM.RANGE? 563Q LENGTH 544Q ASM.ERR.JUMPFORMAT 537Q ASM.STKSET.T 534Q ASM.ERR 472Q LENGTH 464Q ASM.ERR.STACKSTYLE 442Q ASM.STKUNBIND.D 422Q ASM.STKUNBIND.D 405Q ASM.STKBIND.D 366Q ASM.ERR.NILFORMAT 356Q ASM.STKADD 344Q ASM.RANGE? 326Q LENGTH 311Q ASM.ERR.FNXFORMAT 303Q ASM.STKADD 272Q ASM.RANGE? 254Q LENGTH 234Q ASM.STKADD 226Q ASM.STK.JUMPTOLABEL 212Q ASM.STK.JUMPTOLABEL 205Q ASM.STKADD 161Q ASM.STK.JUMPTOLABEL 103Q ASM.ERR.NOOPCODE 76Q ASM.GETOPCODE 71Q ASM.STKAPPLYFN.LEVADJ.D 53Q ASM.STKGENCLEVADJ 46Q ASM.LIST 41Q ASM.ERR.NOTLITATOM 36Q ASM.LIST 23Q ASM.HELP) (625Q -X- 553Q POP 520Q DUNBIND 510Q UNBIND 457Q D 450Q TUNBIND 432Q DUNBIND 413Q UNBIND 376Q BIND 317Q SUBRCALL 244Q FNX 220Q NCJUMP 175Q CJUMP 153Q JUMP 115Q RETURN 63Q APPLYFN 10Q *) ( 640Q "unknown LEVADJ" 530Q "bad levadj-TUNBIND opcode" 17Q "non-instr") ASM.STKGENCLEVADJ D1 (L (0 OP)) ~@g@g@g@dgkg@g@g@dgjg@g@g@dgmgg@g@dggg@ggNIL (173Q NCJUMP 165Q NTJUMP 157Q NFJUMP 153Q CJUMP 146Q TJUMP 137Q FJUMP 132Q JUMP 125Q JUMP 115Q VAR_^ 106Q FVAR_^ 100Q PVAR_^ 71Q IVAR_^ 62Q VAR_ 53Q FVAR_ 45Q PVAR_ 36Q IVAR_ 27Q VAR 20Q FVAR 12Q PVAR 3 IVAR) () ASM.STKAPPLYFN.LEVADJ.D D1 (F 1 TAM.STACKSTYLE F 2 OLT F 3 STKFAILURE?) QgRl Hd lHdodoXo 9Ho +mHdgjdgkgHico m(213Q ASM.ERR.STACKSTYLE 205Q ASM.ERR 171Q SHOULDNT 120Q MEMB 102Q MEMB 27Q LENGTH 17Q NLEFT) (156Q SIC 146Q '1 134Q '0 3 D) ( 202Q "cant figure stack effect of APPLYFN" 115Q (IVAR PVAR FVAR GVAR ACONST COPY.N) 77Q ('0 '1 SIC) 63Q (CHECKAPPLY*) 47Q (* forT2D: CHECKAPPLY*)) ASM.STK.PASSLABEL D1 (L (0 LABEL) F 1 STACK F 2 STKPROGRESS?) =@ o `QH icQH HQ QH c@Q ` (72Q PUTHASH 64Q COPYALL 55Q UNION 46Q LDIFFERENCE 40Q LDIFFERENCE 26Q LDIFFERENCE 11Q ASM.HELP) (67Q \ASM.L2STACK 15Q \ASM.L2STACK) ( 6 "NIL label") ASM.STK.JUMPTOLABEL D1 (L (0 INSTR) F 2 STACK F 3 STKPROGRESS?) <@@ l@dH`RI icHIR ` (71Q PUTHASH 63Q COPYALL 60Q UNION 45Q LDIFFERENCE 24Q ASM.ERR.JUMPFORMAT 6 LENGTH) (66Q \ASM.L2STACK 36Q \ASM.L2STACK) () ASM.STKMAX D1 (F 3 MAXSTK F 4 STACK F 5 TAM.STACKSTYLE) &T!HhYUgIIZSJcHXNIL (21Q D) () ASM.STKADD D1 (L (0 DELTA) F 3 STACK F 4 TAM.STACKSTYLE) MS!HYhZ;ITgJg (Jd@Jg Jg J@dg I(105Q ASM.STKOK?.T 70Q ASM.STKOK?.T 57Q ASM.STKOK?.D 35Q ASM.STKOK?.D) (102Q 65Q 54Q 32Q 23Q D) () ASM.STKBIND.D D1 (L (0 I) F 3 TAM.STACKSTYLE F 4 STACK) aSgW@ lJ@@@T!HYhZ-IJg !Jdj@ kJg JJI(136Q ASM.ERR.STACKSTYLE 132Q ASM.ERR.BINDFORMAT 113Q ASM.STKOK?.D 74Q LENGTH 60Q ASM.STKOK?.D 12Q LENGTH) (110Q 55Q 3 D) () ASM.STKUNBIND.D D1 (L (1 NEXTRA 0 I) F 3 STACK F 4 TAM.STACKSTYLE) Tg@ kj SSHhSHh.o hcHXiY S IiHXS!HYhZZIJg NJd koJ h6JdAJoJ hJJJdAk Jg I(311Q ASM.ERR.STACKSTYLE 300Q ASM.STKOK?.D 243Q ASM.ERR 240Q COPY 210Q ASM.ERR 205Q COPY 171Q LENGTH 162Q ASM.STKOK?.D 116Q LENGTH 111Q LENGTH 66Q ASM.ERR 23Q ASM.ERR.NILFORMAT 14Q LENGTH) (275Q 157Q 3 D) ( 234Q "would lose binding mark" 201Q "no binding mark" 63Q "stack ambiguous wrt binding marks") ASM.STKOK?.D D1 (L (1 WHEN 0 S) F 0 TAM.STACKSTYLE) VPgG@@d3oA@ j@o@ @dd@o@ oP (123Q ASM.HELP 112Q ASM.ERR 107Q COPYALL 60Q ASM.ERR 55Q COPYALL 34Q ASM.ERR 31Q COPYALL) (3 D) ( 117Q "bad stack style" 103Q "relative stack underflow" 51Q "stack underflow" 24Q "bad stack") ASM.STKSET.T D1 (L (1 DELTA 0 LABEL) F 1 TAM.STACKSTYLE F 2 STACK) PQgoQ @dd k@d3`HHd kH AHhcdg (115Q ASM.STKOK?.T 74Q ASM.ERR.AMBIGSTACK 65Q LENGTH 61Q ASM.ERR.UNKNOWNSTACK 26Q LENGTH 15Q ASM.HELP) (112Q 43Q \ASM.L2STACK 3 D) ( 11Q "bad stack style") ASM.STKOK?.T D1 (L (1 WHEN 0 S) F 0 TAM.STACKSTYLE F 1 STACK F 2 INITTOS) 0PgoP @3oQ R@oAQ @(53Q ASM.ERR 50Q COPYALL 32Q ASM.HELP 15Q ASM.HELP) (3 D) ( 43Q "stack underflow" 26Q "bad stack" 11Q "bad stack style") ASM.CODEPASS2 D1 (P 2 JGCL? P 1 JGTUD? P 0 JGTUDOK? F 4 LJL) Hi1ol I0T clkػlKo oK hYK IJhKk԰(72Q ASM.REDOJGLENGTHS 62Q ASM.PHASEMARK 51Q ASM.HELP 26Q REVERSE 17Q ASM.ALLCODELENGTHS 14Q ASM.PHASEMARK) NIL ( 56Q "finish jump generics" 46Q "loop goes on & on" 7 "system generics pass") ASM.ALLCODELENGTHS D1 (F 7 LJL F 10Q STARTPC F 11Q MAXPC) WAJ[Hc \d(u`kLHhh` LWcVlKLdgB ]3LH ]L ^-HNkذ!!M KHIhWcHIHM XKr(224Q LENGTH 174Q LENGTH 151Q ASM.GETOPCODE 141Q ASM.JUMPGENC2BL 131Q ASM.VARGENC2BL 113Q ASM.ERR.NOTLITATOM 71Q PUTHASH 53Q ASM.ERR.LABELREPEATED 41Q ASM.ERR.NILLABEL 27Q ASM.TOPIC 7 ASM.OLTAFTERCODE:) (123Q * 66Q \ASM.L2PC 46Q \ASM.L2PC) () ASM.REDOJGLENGTHS D1 (L (0 PASS) F 6 MAXPC F 7 LJL F 10Q JGCL?) jWAI VHc Z+HjJ`\oJ yJHL@h` iHjJHJJ JJ@H [oJ ;K j\J,LJٽjMoLJh icJLHMXIY](231Q ASM.HELP 165Q LENGTH 155Q ASM.HELP 140Q ASM.JUMPGENC2BL 123Q ASM.TOPIC 77Q PUTHASH 57Q ASM.HELP) (74Q \ASM.L2PC 43Q \ASM.L2PC) ( 216Q "jump genc got shorter" 147Q "lost jump genericness" 53Q "lost label") ASM.MAKECODEARRAY D1 (F 0 TAM.OUTPUTSTYLE F 1 MAXPC F 2 STARTPC F 3 CODEARRAY) FPdgQlmRllm #gQlmgjdl oP c(101Q ASM.HELP 70Q ARRAY 36Q \CODEARRAY) (60Q BYTE 43Q B 4 D) ( 75Q "bad outputStyle") ASM.EMITHDR+NTS D1 (F 0 TAM.FNHDRSTYLE) on, Pg(26Q ASM.EMITHDR+NTS.T 22Q ASM.EMITHDR+NTS.D 11Q ASM.PHASEMARK) (15Q D) ( 3 "emit hdr+nts") ASM.EMITHDR+NTS.D D1 (F 33Q CODEARRAY F 34Q NTSIZE F 35Q TAM.OUTPUTSTYLE F 36Q TAM.NTSTYLE F 37Q FNTYPE F 40Q STKMIN F 41Q STARTPC F 42Q NTVARS F 43Q FNNAME F 44Q PV F 45Q FVAROFFSET F 46Q NLOCALS F 47Q LTVARS) # W:goW: Wdgdj(dgkdglgloW> W6W@YIjJǿW6W@l[KkLǿW6WHn__O]MlNǿOOl__OlOǿW6WB__OlOǿW6WBl__OlOǿW6W8_ _Ol O ǿW6W8l_$_"O"l O$ǿW6W6lWLW6W6lWJW6n_0_.O0_(_&O&lO(ǿO.O0l_,_*O*lO,ǿW6dW6lnHl_4_2O2lO4ǿW6l WF lWDl W8jW8d lW8llWNl (1040Q ASM.EMITANNT 1015Q \FZEROP 777Q ASM.EMITANNT 766Q \FIXCODEPTR 562Q ASM.NA.D 125Q ASM.HELP 40Q ASM.HELP 17Q ASM.HELP) (744Q ARRAYP 735Q ARRAYP 702Q ARRAYP 673Q ARRAYP 654Q ARRAYP 645Q ARRAYP 615Q ARRAYP 606Q ARRAYP 545Q ARRAYP 536Q ARRAYP 521Q ARRAYP 512Q ARRAYP 474Q ARRAYP 465Q ARRAYP 435Q ARRAYP 426Q ARRAYP 400Q ARRAYP 371Q ARRAYP 341Q ARRAYP 332Q ARRAYP 304Q ARRAYP 275Q ARRAYP 246Q ARRAYP 240Q ARRAYP 204Q ARRAYP 176Q ARRAYP 153Q ARRAYP 145Q ARRAYP 107Q NLAMBDA* 75Q LAMBDA* 63Q NLAMBDA 47Q LAMBDA 25Q D 4 D) ( 120Q "bad fntype" 33Q "bad nametable style with outputstyle=D" 12Q "bad outputStyle") ASM.EMITHDR+NTS.T D1 (F 6 NTSIZE F 7 STARTPC F 10Q INITTOS F 11Q TAM.NTSTYLE F 12Q CODEARRAY F 13Q FNNAME F 14Q FVAROFFSET F 15Q NLOCALS F 16Q LTVARS F 17Q NTVARS)  W ldBHWHVHWHWHWHW HW HW hg` 235Q <) ( 156Q "ERRTOPIC not tail OLT" 15Q "no args") ASM.LIST D1 (L (0 INSTR) F 0 OLT F 1 ERRTOPIC F 2 TOPICERRS?) P@h hcdc@(6 TCONC) NIL () ASM.SMASHLIST D1 (L (0 NEWINSTR) F 0 OLT F 1 ERRTOPIC) Qo Pdo P@@(26Q ASM.HELP 10Q ASM.HELP) NIL ( 23Q "null OLT" 5 "ERRTOPIC not NIL") ASM.TOPIC D1 (L (0 TAIL) F 0 ERRTOPIC F 1 ERRSYMBOL F 2 TOPICERRS?) @ o@ @cQ@ c@(26Q MEMB 13Q ASM.HELP) NIL ( 7 "arg not list") ASM.SMASHTOPIC D1 (L (0 NEWINSTR) F 0 ERRTOPIC) P o P@@(12Q ASM.HELP) NIL ( 7 "ERRTOPIC not list") ASM.ERR.NILLABEL D1 NIL o (6 ASM.ERR) NIL ( 3 "NIL can't be a label") ASM.ERR.LABELREPEATED D1 NIL o (6 ASM.ERR) NIL ( 3 "label multiply defined") ASM.ERR.LABELUNDEF D1 NIL o (6 ASM.ERR) NIL ( 3 "label undefined") ASM.ERR.NOTLITATOM D1 NIL o (6 ASM.ERR) NIL ( 3 "car of instr not litatom") ASM.ERR.NOOPCODE D1 (F 0 TAM.OPCODEPROPS) oP (7 ASM.ERR) NIL ( 3 "no OPCODE rec in") ASM.ERR.NILFORMAT D1 (L (0 N)) %@j@o@o  o (42Q ASM.ERR 31Q \FZEROP 25Q ASM.ERR) NIL ( 37Q "should have no args" 22Q "of them" 15Q "should have args 0..255 --") ASM.ERR.FNXFORMAT D1 NIL o (6 ASM.ERR) NIL ( 3 "should have 2 args: a 0..255 and an atom") ASM.ERR.BINDFORMAT D1 NIL o (6 ASM.ERR) NIL ( 3 "should have 2 args, each NIL or a list of pvars") ASM.ERR.JUMPFORMAT D1 NIL o (6 ASM.ERR) NIL ( 3 "should have 1 arg, a label") ASM.ERR.STACKSTYLE D1 (F 0 TAM.STACKSTYLE) oP (7 ASM.ERR) NIL ( 3 "illegal instr with this stack style") ASM.ERR.UNKNOWNSTACK D1 NIL o (6 ASM.ERR) NIL ( 3 "stack unknown at label") ASM.ERR.AMBIGSTACK D1 (L (0 LABELSTACK)) o@ (12Q ASM.ERR 7 COPYALL) NIL ( 3 "stack ambiguous at label") ASM.VARLKUP D1 (L (2 DONTADD? 1 VARLIST 0 VAR)) @A d(4 SASSOC) NIL () ASM.GETOPCODE D1 (L (0 OPNAME) F 3 TAM.OPCODEPROPS) 0SYhH@JXJiINIL NIL () ASM.OLTAFTERCODE: D1 (F 2 OLT) *RHYh o  gIiI(31Q ASM.TOPIC 25Q ASM.HELP) (34Q CODE:) ( 22Q "no CODE:") ASM.CKOPNARGS D1 (L (1 SHOULDBE 0 IS)) @dbAo@ h(23Q ASM.HELP) NIL ( 17Q "bad OPNARGS") ASM.CKVARALLOCSTYLE D1 (L (0 VARTYPE) F 0 TAM.VARALLOCSTYLE) %@Pgoo @o@oP (42Q ASM.ERR 22Q MEMB) (4 D) ( 36Q "with varAllocStyle" 31Q "can't use varType" 17Q (PVAR VAR FVAR) 12Q (IVAR PVAR FVAR)) ASM.OPKARGRANGE D1 (L (0 OPNR) F 0 TAM.OPKSTYLE) ,@o Pgj@@h@l@lh(11Q ASM.HELP) (16Q D) ( 6 "non-list OPNR") ASM.MAKEOPKBYTE D1 (L (1 ARG 0 OPNR) F 0 TAM.OPKSTYLE) O@o PgA@@o @@AA@lAd@lo @l(105Q ASM.HELP 42Q ASM.HELP 11Q ASM.HELP) (16Q D) ( 102Q "arg o/r" 37Q "arg o/r" 6 "non-list OPNR") ASM.RANGE? D1 (L (2 MAX 1 MIN 0 X)) @3AA@B@B@hNIL NIL () ASM.POSINLIST D1 (L (1 L 0 X)) )jAIJhH@KKiJHk԰NIL NIL () ASM.CEIL D1 (L (1 GRANULE 0 N)) @AkAANIL NIL () ASM.PVARMAP D1 (F 5 PVARS) HUAHIH oH \LdoLhJ KhZYHXK&Z(27Q SORT) NIL ( 47Q "pvar" 23Q "pvars: oldslot new") ASM.HELP D1 (L (1 MSG2 0 MSG1) F 0 ERRFILE F 1 ERRPHASEMARK) EP@A gP kP QP kP @P kP AP P ko (102Q ERROR! 77Q SETERRORN 67Q TERPRI 62Q PRIN1 54Q SPACES 46Q PRIN1 40Q SPACES 32Q PRIN1 24Q SPACES 16Q PRIN1 6 HELP) (12Q **ASM.HELP**% in% phase) ( 74Q "asm.help") ASM.NEXTLABEL D1 (L (0 TAG) F 0 NFML) @gPdkc (15Q PACK*) (3 $) () (PRETTYCOMPRINT ASMCOMS) (RPAQQ ASMCOMS ((* see associated doc D2T.tedit and AsmInternal.tedit) (FILES TAMGETMACHINE) (* has TAM.GETMACHINE) (LOCALVARS . T) (COMS (* * globals) (* \ASM.OUTPUTLISTING gets the "output listing" when done -- \ASM.PVARMAP gets a map: non-name-table variables -> slot numbers -- \ASM.STATS gets a list ) (GLOBALVARS \ASM.OUTPUTLISTING \ASM.PVARMAP \ASM.STATS) (* hash arrays for processing labels) (GLOBALVARS \ASM.LSEEN? \ASM.L2STACK \ASM.L2PC) ( INITVARS \ASM.LSEEN? \ASM.L2STACK \ASM.L2PC)) (COMS (* * top level flow of control) (FNS ASM ASM.1)) ( COMS (* * input header and name tables) (FNS ASM.EATHDR+NTS ASM.EATFNDECL ASM.EATDFNHEADERDECL ASM.EATVARDECLS) (FNS ASM.ALLOCVARS.D ASM.CKDIRVS.D) (FNS ASM.ALLOCVARS.T ASM.CKDIRVS.T) (FNS ASM.NA.D ) (FNS ASM.CKVARNAME)) (COMS (* * code pass 1 -- IL -> OLT -- do all macro- and generic- expansion that can be done on first pass -- then repeat until stack modelling is finished if possible) (FNS ASM.ENTRYVECTOR) (FNS ASM.CODEPASS1 ASM.CODEPASS1.INNER ASM.EATCODE ASM.EATCODE.DOLABEL) (FNS ASM.STK.INSTR ASM.STKGENCLEVADJ ASM.STKAPPLYFN.LEVADJ.D) (FNS ASM.STK.PASSLABEL ASM.STK.JUMPTOLABEL) ( FNS ASM.STKMAX ASM.STKADD) (FNS ASM.STKBIND.D ASM.STKUNBIND.D ASM.STKOK?.D) (FNS ASM.STKSET.T ASM.STKOK?.T)) (COMS (* * code pass 2 -- on OLT -- do variable-reference generics -- determine length of everything including jump generics -- also uses ASM.VARGENC2BL ASM.JUMPGENC2BL) (FNS ASM.CODEPASS2 ASM.ALLCODELENGTHS ASM.REDOJGLENGTHS)) (COMS (* * emit header and name tables) (FNS ASM.MAKECODEARRAY ASM.EMITHDR+NTS) (FNS ASM.EMITHDR+NTS.D) (FNS ASM.EMITHDR+NTS.T) (FNS ASM.EMITANNT ASM.EMITPARTOFANNT) (FNS ASM.PUTB)) (COMS (* * code pass 3 -- on OLT emitting to CODEARRAY -- final syntax checking and emit byte code) (FNS ASM.EMITCODE ASM.EMITINSTR) (FNS ASM.EMITVANILLAINSTR ASM.EMITBIND.D ASM.EMITUNBIND.T ASM.EMITXBITS.N.FD ASM.EMITTYPEP ASM.EMITXVAR ASM.EMITJUMP.D ASM.EMITJUMP.T) (FNS ASM.EMITB ASM.EMITBS ASM.EMITBL ASM.EMITATOMINDEX ASM.EMITPCONST) (FNS ASM.VARGENC2BL ASM.XPDVARGENC) (FNS ASM.JUMPGENC2BL ASM.XPDJUMPGENC ASM.XPDJUMPGENC.D ASM.XPDJUMPGENC.T ASM.XPDJUMPGENC.X1 ASM.XPDJUMPGENC.X2)) (COMS (* * error handling and the "output listing" -- see AsmInternal.tedit) (FNS ASM.PHASEMARK ASM.ERR) (FNS ASM.LIST ASM.SMASHLIST) (FNS ASM.TOPIC ASM.SMASHTOPIC) (* * specific error messages that can be generated fom more than one place on different passes on the same instruction) (FNS ASM.ERR.NILLABEL ASM.ERR.LABELREPEATED ASM.ERR.LABELUNDEF) (FNS ASM.ERR.NOTLITATOM ASM.ERR.NOOPCODE) (FNS ASM.ERR.NILFORMAT ASM.ERR.FNXFORMAT ASM.ERR.BINDFORMAT ASM.ERR.JUMPFORMAT) (FNS ASM.ERR.STACKSTYLE ASM.ERR.UNKNOWNSTACK ASM.ERR.AMBIGSTACK)) (COMS (* * misc) (FNS ASM.VARLKUP ASM.GETOPCODE ASM.OLTAFTERCODE: ASM.CKOPNARGS ASM.CKVARALLOCSTYLE) (FNS ASM.OPKARGRANGE ASM.MAKEOPKBYTE) (FNS ASM.RANGE? ASM.POSINLIST ASM.CEIL) (FNS ASM.PVARMAP ASM.HELP) (FNS ASM.NEXTLABEL)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA ASM.ERR))))) (FILESLOAD TAMGETMACHINE) (RPAQ? \ASM.LSEEN? NIL) (RPAQ? \ASM.L2STACK NIL) (RPAQ? \ASM.L2PC NIL) (PUTPROPS ASM COPYRIGHT ("Xerox Corporation" 3701Q 3702Q)) NIL