COMMPRIVMACS
(George Source)
- COMMPRIVMACS.txt
22FL ...[??? COORDINA SECT COMM FGN 2 DOC 22^= ...#SKI 23DW ...( 2C7W # 2CCN ...) 2CMG #MAC COORDINATE [THIS MACRO IS USED IN SEGMENT MOPPM 2D76 #STR %A 2DLQ ( 2F6B LDN 0 %A 2FL2 BRN XCOOR 2G5L ) 2GK= #STR %A 2H4W #SKI 2HJG CALL 0 XCOOR 2J46 #NOR 2J83 ...[??? MARK SECT COMM FGN 2 DOC 2J?Y ...#SKI 2JCT ...( 2JHQ # 2JRJ ...) 2K3B #MAC MARK [THIS MACRO IS USED IN SEGMENT ONLINC 2KH2 LDN 0 1 2L2L MOD ADS 0 AEXCO,%A 2LG= #NOR 2LL7 ...[??? PMADD SECT COMM FGN 2 DOC 2LQ4 ...# 2L^W #SKI JSKI25<1$1 2MFG ( 2M^6 # 2NDQ # THIS MACRO ADDS 1 TO THE SYSTEM OVERLOAD COUNT IF NECESSARY 2NYB # 2PD2 #MAC PMADD [THIS MACRO IS USED IN SEGMENT IPBPM 2PXL BNZ 0 M1 2QC= LDN 0 1 2QWW ADS 0 PMCOUNT 2RBG BRN %A 2RW6 M1 2S*Q #NOR 2SKJ ...) 2STB # 2TSL #SKI JSKI25 2W#= ( 2WRW # 2X?G # THIS MACRO ADDS 1 TO THE SYSTEM OVERLOAD COUNT IF NECESSARY 2XR6 # 2Y=Q #MAC PMADD [THIS MACRO IS USED IN SEGMENT IPBPM 2YQB BNZ 0 M1 2^=2 LDN 0 1 2^PL SMO FXPM1 329= ADS 0 PMCOUNT 32NW BRN %A 338G M1 33N6 #NOR 33T# ...) 342G ...[??? PMOLCH SECT COMM FGN 2 DOC 347Q # 3572 #SKI JSKI25<1$1 35LL ( 366= # 36KW # THIS MACRO CHECKS TO SEE IF THE SYSTEM OVERLOAD COUNT IS NON-ZERO, 375G # AND TO SEE IF THE HIGHEST PRIORITY FOR STOPPING OUTPUT IS > 10. 37K6 # IF EITHER OF THESE CONDITIONS EXISTS THE MACRO JUMPS TO %A. 384Q # 38JB #MAC PMOLCH [THIS MACRO IS USED IN SEGMENT IPBPM 3942 LDX 0 PMCOUNT 39HL BNZ 0 %A 3=3= LDX 0 PRIORITY 3=GW SBN 0 11 3?2G BPZ 0 %A 3?G6 #NOR 3?PY ...) 3?^Q # 3#^2 #SKI JSKI25 3*DL ( 3*Y= # 3BCW # THIS MACRO CHECKS TO SEE IF THE SYSTEM OVERLOAD COUNT IS NON-ZERO, 3BXG # AND TO SEE IF THE HIGHEST PRIORITY FOR STOPPING OUTPUT IS > 10. 3CC6 # IF EITHER OF THESE CONDITIONS EXISTS THE MACRO JUMPS TO %A. 3CWQ # 3DBB #MAC PMOLCH [THIS MACRO IS USED IN SEGMENT IPBPM 3DW2 SMO FXPM1 3F*L LDX 0 PMCOUNT 3FT= BNZ 0 %A 3G#W SMO FXPM1 3GSG LDX 0 PRIORITY 3H#6 SBN 0 11 3HRQ BPZ 0 %A 3J?B #NOR 3JDJ ...) 3JKQ ...[??? PMREADCT SECT COMM FGN 2 DOC 3JR2 # 3KQ= #SKI JSKI25<1$1 3L9W ( 3LPG # 3M96 # THIS MACRO GETS THE COUNT OF THE NUMBER OF WORDS READ INTO X6 3MNQ # 3N8B #MAC PMREADCT [THIS MACRO IS USED IN SEGMENT IPBPM 3NN2 LDX 0 PMRW 3P7L ANDN 0 #777 3PM= LDN 6 PMLEN 3Q6W SBX 6 0 3QLG SBN 6 1 3R66 BZE 6 %A [BLOCK STATUS WORD ONLY: ERROR 3RKQ LDN 1 1 3S5B #NOR 3S*8 ...) 3SK2 # 3TJ= #SKI JSKI25 3W3W ( 3WHG # 3X36 # THIS MACRO GETS THE COUNT OF THE NUMBER OF WORDS READ INTO X6 3XGQ # 3Y2B #MAC PMREADCT [THIS MACRO IS USED IN SEGMENT IPBPM 3YG2 SMO FXPM1 3Y^L LDX 0 PMRW 3^F= ANDN 0 #777 3^YW LDN 6 PMLEN 42DG SBX 6 0 42Y6 SBN 6 1 43CQ BZE 6 %A [BLOCK STATUS WORD ONLY: ERROR 43XB LDN 1 1 44C2 #NOR 44J8 ...) 44PB ...[??? PMSTOPR SECT COMM FGN 2 DOC 44WL # 46*G #SKI JSKI25<1$1 46T6 ( 47#Q # 47SB # THIS MACRO RESETS THE PRIORITY FOR STOP OUTPUT IF NECESSARY 48#2 # 48RL #MAC PMSTOPR [THIS MACRO IS USED IN SEGMENT IPBPM 49?= BNZ 0 M1 49QW LDX 0 PMADDR+1(1) 4==G STO 0 PRIORITY 4=Q6 BRN %A 4?9Q M1 4?PB #NOR 4?^8 ...) 4#92 # 4*8= #SKI JSKI25 4*MW ( 4B7G # 4BM6 # THIS MACRO RESETS THE PRIORITY FOR STOP OUTPUT IF NECESSARY 4C6Q # 4CLB #MAC PMSTOPR [THIS MACRO IS USED IN SEGMENT IPBPM 4D62 BNZ 0 M1 4DKL SMO FXPM1 4F5= LDX 0 PMADDR+1(1) 4FJW SMO FXPM1 4G4G STO 0 PRIORITY 4GJ6 BRN %A 4H3Q M1 4HHB #NOR 4HNJ ...) 4HTQ ...[??? PMSUB SECT COMM FGN 2 DOC 4J32 # 4K2= #SKI JSKI25<1$1 4KFW ( 4K^G # 4LF6 # THIS MACRO SUBTRACTS 1 FROM THE SYSTEM OVERLOAD COUNT IF NECESSARY 4LYQ # 4MDB #MAC PMSUB [THIS MACRO IS USED IN SEGMENT IPBPM 4MY2 BNZ 0 M1 4NCL LDX 0 PMCOUNT 4NX= BZE 0 %A 4PBW LDN 0 1 4PWG SBS 0 PMCOUNT 4QB6 BRN %A 4QTQ M1 4R*B #NOR 4RK8 ...) 4RT2 # 4SS= #SKI JSKI25 4T?W ( 4TRG # 4W?6 # THIS MACRO SUBTRACTS 1 FROM THE SYSTEM OVERLOAD COUNT IF NECESSARY 4WQQ # 4X=B #MAC PMSUB [THIS MACRO IS USED IN SEGMENT IPBPM 4XQ2 BNZ 0 M1 4Y9L SMO FXPM1 4YP= LDX 0 PMCOUNT 4^8W BZE 0 %A 4^NG LDN 0 1 5286 SMO FXPM1 52MQ SBS 0 PMCOUNT 537B BRN %A 53M2 M1 546L #NOR 54L= # 555W ) 55KG # ^^^^ ...634157620003