Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS RM57)}} ====== MACROS RM57 ====== (George Source) <code - MACROS RM57.txt>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 </code> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In