{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMMPRIVMACS)}}
====== COMMPRIVMACS ======
(George Source)
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