PASSEM DCK/ I,H PPPASS1 DCK/ I,H PPPA1PR2 DCK/ I,H PP DEL/ 1 PP NAM PA1PR2 DECK-ID A03 MACRO ASSEMBLER SUMMARY-120 PP DEL/ 1008,1016 PP LDA* ZONSIZ CHECK FOR FIRST ENTRY 120*4631 PP SAZ RDSK 120*4631 PPCHKIN LDA* GFW1 FW OF SKELETON IN CORE 120*4631 PP TRA Q 120*4631 PP ADD* ZONSIZ SIZE IN CORE 120*4631 PP RTJ* COMPV4 CHECK IF SUM EXCEEDS 65K 120*4631 PP INA 0 120*4631 PP SAN CHKIN1 120*4631 PP ENA -2 UPPER BOUND IF SUM EXCEEDS 65K 120*4631 PP JMP* CHKIN2 120*4631 PPCHKIN1 LDA* GFW1 120*4631 PP ADD* ZONSIZ 120*4631 PPCHKIN2 LDQ* SKLNUM 120*4631 PP RTJ* COMPV4 COMPARE WITH UPPER BOUND 120*4631 PP INA 0 120*4631 PP SAN OKHI IN BOUNDS 120*4631 PPRDSK JMP* READSK TOO HIGH, READ IN NEW BLOCK 120*4631 PPOKHI LDQ* GFW1 FW OF SKELETON IN CORE 120*4631 PP LDA* SKLNUM INDEX OF SKELETON 120*4631 PP RTJ* COMPV4 COMPARE WITH LOWER BOUND 120*4631 PP SAZ OKISIN LOW BOUND OK 120*4631 PP INA 0 120*4631 PP SAN OKISIN LOW BOUND OK 120*4631 PP JMP* READSK TOO LOW, GO READ IN NEXT BLOCK 120*4631 PPOKISIN ADD* ADZONE ADDRESS OF SOURCE 120*4631 PP INS/ 1027 PPCOMPV4 NOP 0 SECTION TO COMPARE ADDRESSES 120*4631 PP SAM AUPPER A IN UPPER BANK 120*4631 PP SQP BTHSAM BOTH IN LOWER BANK 120*4631 PP JMP* QBIGR A IN LOWER, Q IN UPPER 120*4631 PPAUPPER SQM BTHSAM BOTH IN UPPER 120*4631 PP TCQ Q A IN UPPER, Q IN LOWER 120*4631 PP AAQ A GET DIFFERENCE IN A 120*4631 PP JMP* ABIGR 120*4631 PPBTHSAM TCQ Q 120*4631 PP AAQ A SUBTRACT Q FROM A 120*4631 PP SAP ABIGR 120*4631 PPQBIGR SET A Q IS BIGGER 120*4631 PPABIGR JMP* (COMPV4) 120*4631 PP SPC 3 120*4631 PPPASS2 DCK/ I,H PPPA2PR2 DCK/ I,H PP DEL/ 1 PP NAM PA2PR2 DECK-ID A05 MACRO ASSEMBLER SUMMARY-120 PP DEL/ 411 PP INA -8 CHECK FOR END PSEUDO OP 120*4481 PP DEL/ 418 PP INA -9 CHECK FOR EMC (CODE = 17) 120*4481 PPPASS3 DCK/ I,H PPPA3PR2 DCK/ I,H PP DEL/ 1 PP NAM PA3PR2 DECK-ID A07 MACRO ASSEMBLER SUMMARY-120 PP DEL/ 71 PP INA -8 CHECK FOR END PSEUDO OP 120*4481 PP DEL/ 78 PP INA -9 CHECK FOR EMC 120*4481 PPPA3PR3 DCK/ I,H PPTABLST DCK/ I,H PPXREF DCK/ I,H PPLIBMAC DCK/ I,H PP DEL/ 1 PP NAM LIBMAC DECK-ID A11 MACRO ASSEMBLER SUMMARY-120 PP DEL/ 31,32 PP ORG $C7 120*4680 PP ADC MINZRO $C7 120*4680 PP ADC READIM $C8 120*4680 PP ADC MCHPR $C9 120*4680 PP ADC MACDEF $CA 120*4680 PP ADC MER $CB 120*4680 PP ADC DOUT $CC 120*4680 PP ADC DIN $CD 120*4680 PP ADC GETOP $CE 120*4680 PP ADC CHPU $CF 120*4680 PP ADC MDEX $D0 120*4680 PP ADC 0 $D1 120*4680 PP ADC MOVIMG $D2 120*4680 PP ADC SKLOUT $D3 120*4680 PP ADC CHRPIC $D4 120*4680 PP ADC NEWPUT $D5 120*4680 PP ADC CRPUT $D6 120*4680 PP ADC RECV $D7 120*4680 PP ADC MV1 $D8 120*4680 PP ADC EOF $D9 120*4680 PP DEL/ 67 PP ENA 20 16 DEFINITIONS/SECTOR TIMES 120*4680 PP* 20 SECTORS = 320 DEFINITIONS MAXIMUM 120*4680 PP INS/ 68 PP LDA- I 120*4680 PP STA* SAVEI 120*4680 PPTAG101 RTJ- ($F4) STATUS STD. OUTPUT DEVICE 120*4680 PP NUM $4600 120*4680 PP VFD N3/0,N1/0,N2/2,X10/STDOUT 120*4680 PP NUM 0 120*4680 PP SQP TAG100 120*4680 PP JMP* TAG101 120*4680 PPTAG100 TRQ A 120*4680 PP AND =N$3800 GET TYPE CODE 120*4680 PP ARS 11 120*4680 PP INA -3 120*4680 PP SAZ TAG102 IS OUTPUT DEVICE CARDS 120*4680 PP JMP* TAG103 NO 120*4680 PPSAVEI NUM 0 120*4680 PPTAG102 RTJ- ($F4) UNLOAD FUNCTION TO RESET 120*4680 PP NUM $5C00 SEQUENCE COUNT 120*4680 PP ADC 0 120*4680 PPTHREAD ADC 0 120*4680 PP VFD N4/0,N2/2,X10/STDOUT 120*4680 PP NUM $4000 120*4680 PPTAG104 LDA* THREAD 120*4680 PP SAZ TAG103 120*4680 PP JMP* TAG104 120*4680 PPTAG103 LDA* SAVEI 120*4680 PP STA- I 120*4680 PP DEL/ 76 PP JMP* MDX2A BLANK LABEL FIELD. 120*4680 PP DEL/ 87,89 PP SAN MDX1A CARD IS NOT A MAC DEFINATION CARD 120*4680 PP JMP- (MCDEF) CARD IS MAC DEFINATION. PROCESS IT. 120*4680 PPMDX1A ENA $31 LIBMAC ERROR 01. 120*4680 PP JMP- (MERROR) NO MAC DEFINATION CARD. 120*4680 PPMDX2A ENA $33 LIBMAC ERROR 03. 120*4680 PP JMP- (MERROR) LABEL FIELD MISSING OR INCORRECT. 120*4680 PP DEL/ 91 PP SQP GOTMCS IF DIRINX,I = -1, NO MACROS HAVE BEEN 120*4680 PP JMP* MDX1A DEFINED. OUTPUT LIBMAC ERROR 01. 120*4680 PPGOTMCS INQ -5 120*4680 PP DEL/ 123 PP ADC 12 120*4680 PP DEL/ 248 PPMSSG ALF *,MACSKL END. TYPE (CR). * 120*4680 PP DEL/ 249,251 PP* 3 CARDS DELETED 120*4680 PP DEL/ 338,339 PP SAZ MACBL YES, CONTINUE PROCESSING. 120*4680 PP ENA $32 LIBMAC ERROR 02. 120*4680 PP JMP- (MERROR) ADDRESS MODIFIER ON MAC DEFINATION. 120*4680 PPMACBL ENA -1 INITIALIZE CHARACTER COUNT 120*4680 PP DEL/ 342,346 PP SAN GOTNAM THERE IS A MACRO NAME 120*4680 PP ENA $33 LIBMAC ERROR 03. 120*4680 PP JMP- (MERROR) LABEL FIELD MISSING OR INCORRECT. 120*4680 PPGOTNAM LDA- CS,I IS THE TERMINATOR A BLANK. 120*4680 PP SAZ GOODLB YES, CONTINUE PROCESSING. 120*4680 PP ENA $34 LIBMAC ERROR 04. 120*4680 PP JMP- (MERROR) ILLEGAL TERMINATOR ON MACRO NAME 120*4680 PPGOODLB RTJ- (RECV1) CONVERT NAME TO 7 BITS. 120*4680 PP DEL/ 350 PP SAN NOFUL NO 120*4680 PP DEL/ 354 PP TRQ A GET SECTOR OF NEXT DIRECTORY ENTRY 120*4680 PP SUB- SKSCST,I HAS THE SKELETON BEEN REACHED. 120*4680 PP SAM NOOVFL NO 120*4680 PP ENA $44 YES. LIBMAC ERROR 0D. 120*4680 PP JMP- (MERROR) TOO MANY MACRO DEFINATIONS. 120*4680 PPNOOVFL LDA* MD1+1 120*4680 PP DEL/ 356 PPNOFUL LDQ- DIRINX,I PUT AWAY MACRO NAME. 120*4680 PP DEL/ 372 PP RTJ- (MCHPKR) SLEW OPCODE 120*4680 PP DEL/ 425 PP SAM APOERR NO TERMINATION APOSTROPHE. 120*4680 PP DEL/ 429 PPAPOERR SAM APOSER NO TERMINATING APOSTROPHE. 120*4680 PP DEL/ 438 PP SAZ GOODPR PARAMETER IS A VALID 1 CHAR. NAME 120*4680 PP DEL/ 440,443 PP SAP GOODPM PARAMETER NAME HAS 2 CHARACTERS 120*4680 PPAPOSER ENA $41 LIBMAC ERROR 0A. 120*4680 PP JMP- (MERROR) NO TERMINATING APOSTROPHE. 120*4680 PPGOODPM INA -$27 IS THE NEXT CHARACTER AN APOSTROPHE 120*4680 PP SAZ GOODPR YES, PARAMETER IS A VALID 2 CHAR. NAME120*4680 PP JMP* APOSER NO 120*4680 PPGOODPR LDQ- FPRINX,I IS NAME IN THE TABLE 120*4680 PP DEL/ 446 PP SAZ MD14A NAME IS IN TABLE 120*4680 PP DEL/ 448 PP SQM MD14 NAME IS NOT IN THE TABLE. 120*4680 PP DEL/ 450,451 PPMD14 ENA $42 LIBMAC ERROR 0B. 120*4680 PP JMP- (MERROR) NO MATCHING PARA. IN PARA. TABLE 120*4680 PPMD14A TRQ A ALL VALID. SAVE IN SKELETON RECORD 120*4680 PP DEL/ 454,455 PP SAP MD14B RECORD OK 120*4680 PP ENA $43 LIBMAC ERROR 0C. 120*4680 PP JMP- (MERROR) SKELETON EXCEEDS 72 COLS. 120*4680 PPMD14B JMP* MD11 GET NEXT FIELD 120*4680 PP DEL/ 459,461 PP SAZ LOCP1 IS THE TERMINATOR A BLANK 120*4680 PP ENA $39 LIBMAC ERROR 09. 120*4680 PP JMP- (MERROR) ADDRESS MODIFIER ON LOC DEFINATION 120*4680 PPLOCP1 LDA- FPRINX,I SAVE FORMAL PARAMETER INDEX. 120*4680 PP DEL/ 480 PP SAN GOTCHR A CHARACTER HAS BEEN FOUND 120*4680 PP DEL/ 482 PP SAZ INVLAD INVALID CHARACTER 120*4680 PP DEL/ 487 PP SAN INVLAD INVALID CHARACTER 120*4680 PP DEL/ 489,492 PPINVLAD ENA $36 LIBMAC ERROR 06. 120*4680 PP JMP- (MERROR) INVALID SPECIAL CHARACTER ON DEFIN. 120*4680 PPGOTCHR LDA- SY+1,I ARE THERE MORE THAN 2 CHARACTERS. 120*4680 PP SAZ NAMEGD NAME IS VALID 120*4680 PP ENA $35 LIBMAC ERROR 05. 120*4680 PP JMP- (MERROR) MORE THAN 2 CHARS. ON MAC OR LOC DEF. 120*4680 PPNAMEGD RTJ- (RECV1) CONVERT PARAMETER TO 7 BITS 120*4680 PP DEL/ 495 PPNXTPRM LDA* (MCON+4),Q GET NEXT NAME 120*4680 PP DEL/ 497,498 PP SAN NODUPE THIS IS NOT A DUPLICATE NAME 120*4680 PP ENA $37 LIBMAC ERROR 07. 120*4680 PP JMP- (MERROR) DUPLICATE PARAMETER ON MAC OR LOC DEF.120*4680 PPNODUPE INQ -1 CHECK NEXT NAME 120*4680 PP DEL/ 500 PP JMP* NXTPRM GET NEXT NAME 120*4680 PP DEL/ 503,505 PP SAM OKNAME THIS IS A VALID NAME 120*4680 PP ENA $38 LIBMAC ERROR 08 120*4680 PP JMP- (MERROR) INVALID SPECIAL CHAR. IN PARA. STRING 120*4680 PPOKNAME LDA- SY,I GET NAME FIELD 120*4680 PP DEL/ 520,548 PP* 29 CARDS DELETED 120*4680 PP DEL/ 554 PP RTJ- (SKELOT) OUTPUT SKELETON IMAGE 120*4680 PP DEL/ 730,739 PPOVERR ENA $45 LIBMAC ERROR 0E. 120*4680 PP JMP- (MERROR) MORE THAN 65K OF SKELETON DEFINED 120*4680 PP DEL/ 749,750 PPMER EOR =N$3000 ADD 0 TO ERROR CODE 120*4680 PP STA* ERRCOD STORE ERROR IN PRINTOUT 120*4680 PP ENQ 8 PRINT 8 WORDS. 120*4680 PP DEL/ 754,760 PP ENQ 36 OUTPUT CARD THAT CAUSES ERROR 120*4680 PP DEL/ 776 PPERMSG ALF *, LIBMAC ERROR * 120*4680 PPERRCOD NUM $3030 120*4680 PPMACROS DCK/ I,H P