{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS RM57)}}
====== MACROS RM57 ======
(George Source)
222D ...[??? SINMAC1 SECT FILE FGN 6 DOC
222W ...#MAC SINMAC1
223# ...[ SECURITY INTERFACE MACRO
223Q ...#NOR
2248 ...[
224L ...[??? SINMAC2 SECT FILE FGN 6 DOC
2254 ...#MAC SINMAC2
225G ...[ SECURITY INTERFACE MACRO
225H ...[ MACRO EXPANDS FOR G3 USER GROUP SECURITY
225J ...[ INTERFACE ENHANCEMENT
225K ...#SKI G3UGSI
225L ...(
225M ... MHUNTW 3,FILE,ADICTENT
225N ... LDX 2 FX2
225P ... LDCT 0 #600
225Q ... ANDX 0 CONTEXT(2)
225R ... BZE 0 MS1 [JUMP NOT SYSTEM ISSUED
225S ...MS2
225T ... FREECORE 3
225W ... BRN MS3
225X ...MS1
225Y ... SECHECK 3,MS2,MXNOR
225^ ... LDX 0 CONTEXT(2)
2262 ... ANDN 0 #10
2263 ... BNZ 0 MS4 [HIGH SECURITY OK IF MOP
2264 ... ERROR HSECURE
2265 ... BRN %A
2266 ...MXNOR
2267 ... LDX 0 CONTEXT(2)
2268 ... ANDN 0 #10
2269 ... BZE 0 MS2 [J NOT MOP
226= ...MS4 CHEKPASW %B,MS5
226? ... BRN MS3
226# ...MS5 ERROR IMPASSE
226* ... BRN %A
226B ...MS3
226C ...)
226D ...#NOR
226F ...[
226S ...[??? SINMAC3 SECT FILE FGN 6 DOC
227= ...#MAC SINMAC3
227N ...[ SECURITY INTERFACE MACRO
2286 ...#STR LF,%A
228J ...#SKI
2292 ...#EXIT
229D ...#STR OL,%A
229W ...#SKI
22=# ...#EXIT
22=Q ...! ILLEGAL PARAMETER
22?8 ...#NOR
22?L ...[
22#4 ...[??? SINMAC4 SECT FILE FGN 6 DOC
22#G ...#MAC SINMAC4
22#Y ...[ SECURITY INTERFACE MACRO
22*3 ...#SKI G3UGSI
22*6 ...#SKI
22*9 ...(
22*B ...#STR MOP,%A
22*S ...#SKI
22B= ...#EXIT
22BN ...#STR BACK,%A
22C6 ...#SKI
22CJ ...#EXIT
22D2 ...! ILLEGAL PARAMETER
22D9 ...)
22DD ...#NOR
22DG ...[??? SINM551 SECT FILE FGN 6 DOC
22DJ ...#MAC SINM551
22DL ...[ MACRO TO PREVENT M551 AND SECURITY INTERFACE CLASH
22DN ...#SKI G3UGSI
22DQ ...(
22DS ...#UNS G551
22DW ...(
22DY ...! M551 AND SEC INTERFACE CLASH
22F2 ...#ALT G551=0
22F4 ...#ALT G3UGSI=0
22F6 ...! G551 AND G3UGSI ZEROISED
22F8 ...)
22F= ...)
22F# ...#NOR
22FB ...[
22FL ...[??? TGU SECT FILE FGN 6 DOC
29#T ...#MAC TGU
29*# ...[ RESTORE TIME MACRO TO GIVE TRAPS TO A SPECIFIED USER WHENEVER
29*R ...[ A FILE IS CREATED AT RUN TIME.
29B= ...#SKI AUSERTRAP-ATRAPEND
29BP ...#SKI
29C8 ...(
29CM ...#CON TGU USED TOO OFTEN
29D6 ...#EXI
29DK ...)
29F4 ...#ALT CERASET=CERASE
29FH ...#ALT CERASE=#20
29G2 ...#MEN MAKEFILE
29GF ...#TRA AUSERTRAP
29GY ... 12H%A
29G^ ...#DEF 21?=0
29H2 ...#DEF 22?=0
29H3 ...#STR %B
29H4 ... TGUPARAM %B
29H5 ...#STR %C
29H6 ... TGUPARAM %C
29H7 ...#STR %D
29H8 ... TGUPARAM %D
29H9 ...#STR %E
29H= ... TGUPARAM %E
29H? ...#STR %F
29H# ... TGUPARAM %F
29H* ...#STR %G
29HB ... TGUPARAM %G
29HC ...#STR %H
29HD ... TGUPARAM %H
29HF ... +22?
29HG ...#SKI 21?
29HH ...! ERROR(S) IN TRAP MODES
29HW ... +0
29HY ...#TRA AUSERTRAP
29J2 ...#DEF 20?=34?+0?+0]@L-23$1
29J4 ...#SKI 20?
29J6 ...! %A IS NOT IN THE REQUIRED FORMAT
29J8 ...#SKI 20?^21?
29J= ... +0
29J* ...#TRA K93MAKEFILE
29JS ... LDN 6 ANOTRAPS
29K? ...#END
29KG ...#SKI 20?^21?$1
29KQ ...#ALT AUSERTRAP=AUSERTRAP+4
29L9 ...#ALT CERASE=CERASET
29LN ...#ALT CERASET=#20
29M7 ...#NOR
29M8 ...[??? TGUPARAM SECT FILE FGN 6 DOC
29M9 ...#MAC TGUPARAM
29M= ...#UNS C%A
29M? ...#DEF 22?=22?^C%A
29M# ...#UNS C%A
29M* ...#SKI
29MB ...(
29MC ...! %A IS NOT A VALID TRAP MODE
29MD ...#DEF 21?=1
29MF ...)
29MG ...#NOR
29MH ...[??? TSU SECT FILE FGN 6 DOC
29ML ...#MAC TSU
29N5 ...[ RESTORE TIME MACRO TO CANCEL EFFECT OF TGU MACRO.
29NJ ...#ALT AUSERTRAP=ATRAPEND-(ANOTRAPS*4)
29P3 ...#MEN MAKEFILE
29PG ...#TRA K93MAKEFILE
29P^ ... BRN K94MAKEFILE
29QD ...#END
29QX ...#NOR
29QY ...[??? SSTRAP SECT FILE FGN 14 DOC
29Q^ ...#MAC SSTRAP
29R2 ...#STR %A,ON
29R3 ...#SKI
29R4 ...(
29R5 ...#MEN TRAPCHEC
29R6 ...#TRA K90TRAPCHEC
29R7 ... BRN K91TRAPCHEC
29R8 ...#END
29R9 ...#EXI
29R= ...)
29R? ...#STR %A,OFF
29R# ...#SKI
29R* ...(
29RB ...#MEN TRAPCHEC
29RC ...#TRA K90TRAPCHEC
29RD ... NULL
29RF ...#END
29RG ...#EXI
29RH ...)
29RJ ...#STR %A,SS
29RK ...#SKI
29RL ...(
29RM ...#MEN TRAPCHEC
29RN ...#TRA K90TRAPCHEC
29RP ... BRN K92TRAPCHEC
29RQ ...#END
29RR ...#EXI
29RS ...)
29RT ...! PARAM MUST BE ON OFF OR SS
29RW ...#NOR
29RX ...[??? TESTTRAP SECT FILE FGN 6 DOC
29S2 #MAC TESTTRAP
2=?L SETREP OK
2=R= SMO FX2
2?=W LDX 0 EXEC1
2?QG ANDN 0 C%A+C%B+C%C+C%D [PICK UP MODES
2#=6 SBN 0 C%A+C%B+C%C+C%D
2#PQ BZE 0 NTESTREP [J IF OKAY
2*9B SETREP NOTRAP
2*P2 NTESTREP
2B8L #NOR
2BDD ...[??? TRAPOPEN SECT FILE FGN 6 DOC
2BN= #MAC TRAPOPEN
2C7W CHECKTRAP
2CMG TESTTRAP %A,%B,%C,%D
2D76 #NOR
2DBY ...[??? CHECKTRA SECT FILE FGN 6 DOC
2DLQ #MAC CHECKTRAP
2F6B #STR %A
2FL2 #SKI
2G5L DOWN TRAPCHEC,5
2GK= #STR %A
2H4W (
2HJG SMO FX2
2J46 STO %A ACOMMUNE3
2JHQ DOWN TRAPCHEC,7
2K3B )
2KH2 #NOR
2PMS ...[??? TRAPADD SECT FILE FGN 6 DOC
2PXL #MAC TRAPADD
2QC= DOWN TRAPGO,7
2QWW #NOR
2^^D ...[??? SAVEACTF SECT FILE FGN 6 DOC
329= #MAC SAVEACTF
32NW # SAVES THE FILES OF A JOB BEING SAVED BY THE HLS
338G DOWN SAVEFILE,1
33N6 #NOR
33XY ...[??? RESTACTF SECT FILE FGN 6 DOC
347Q #MAC RESTACTF
34MB # RESTORES FILES TO A JOB BEING UNSAVED BY THE HLS
3572 DOWN SAVEFILE,2
35LL #NOR
^^^^ ...02004555001900000000