PMT
(GIN Macro)
Defined in: PMACS
Used in: DUMMYB867, LOADERR70, LOADFIN860, SWITCH867
- PMT.mac.txt
LPNG [??? PMT SECT DIAG FGN 104 DOC LQ7C #MAC PMT [M.C.D. MANN LQL# [ LR59 [ LRJ6 [ ********* LS33 [ * PMT * LSFY [ ********* LSYT [ LTCQ [ LTWM [ THIS MACRO INSERTS TYPES AND SUBTYPES IN TABLES LW*J [ LWSF #SKI %A/#100>64$64 LX?B ?%A TYPE VALUE GREATER THAN 64 LXQ? #SKI %A/#100<64$64 LY98 ( LYN5 #SKI NUMBER [SKI IF INSERTING SUBTYPES L^72 ( L^KX #STR %B,C M24S ( M2HP ...#TRA %A/#100*3+INDEXPM [GET THE ADDRESS TO INSERT TYPE NEMO M32L ... 8H%A [INSERT TYPE NEMONIC M3FH #STR %B [SKI IF NO 2ND PARAMETER M3YD ( M4C* #STR %C M4W= ( M5*7 +TRA [IF SUBTYPES INSERT THEIR ADDRESS M5S4 PMCOUNT %C,%E,%G,%I M6=^ ...#FID 3 11 +3 [UPDATE WORD COUNT OF SUBTYPE ENTRI M6PW ...#DEF TRA1=TRA+3 [UPDATE POINTER POINTING TO SUBTYPE M78R #FREE TRA M7MN #DEF TRA=TRA1 M86K #FREE TRA1 M8KG ) M94C #STR %C M9H# #SKI [SKIP IF 3RD PARAMETER M=29 ( M=F6 #SKI %B<1$1 M=Y3 #SKI [SKIP IF %B=ZERO OR IS UNSET M?BY +%B+DPMTABLEA.2 [IF NO SUBTYPES INSERT DRUM ADDRESS M?TT ) M##Q ) M#RM ) M*=J #STR %B,C M*PF #SKI MB8B PMCOUNT %C,%E,%G,%I [IF CONTINUATION MACRO MBM? ) MC68 #SKI NUMBER<1$1 [SKI IF INSERTING TYPES MCK5 ( MD42 #STR %C MDGX ( MF2B PMTZ %A,%B,%C,%D,%E,%F,%G,%H,%I,%J MFDS #STR %B,C MFX= ( MG*N ... 8H0 MGS6 +0 MH=J #STR %B MHP2 #SKI %B<1$1 MJ7D #SKI MJ*8 ...( MJGY ...#DEF 0?=0?-1 MJNN ... +DPMTABLEA+%B [INSERT DISC ADDRESS MJWD ...) MK4# ) MKGQ ) MK^8 ) MLCL ) MLW4 #NOR