src/jobdat.mac

   1 TITLE JOBDAT - JOB DATA AREA ASSIGNMENTS\r
   2 \r
   3           DEFINE BLK (A,B)\r
   4 <JOBPRO=B\r
   5 A=0\r
   6 ENTRY A\r
   7 DEFINE BLK (C,D)\r
   8 <C=JOBPRO\r
   9 JOBPRO=JOBPRO+D\r
  10 ENTRY C>>\r
  11 \r
  12           BLK JOBAC,20          ;SYSTEM USE AC STORAGE\r
  13           BLK JOBDAC,20         ;USER'S AC STORAGE WHILE JOB IS INACTIV\r
  14 JOBDHI=JOBDAT+17    ;HIGHEST AC SAVED WHILE INACTIVE\r
  15           BLK JOBUUO,1          ;UUO SAVE AND TRAP LOCATIONS\r
  16           BLK JOB41,1           ;UUO JSR LOCATION\r
  17           BLK JOBPC,1           ;BITS 0-5=APR FLAGS, C(RH)=PC\r
  18           BLK JOBPDP,1          ;PUSH DOWN POINTER FOR SYSTEM USE\r
  19 JOBPRT=JOBPDP                   ;FIRST LOC PROTECTED FROM ITNERRUPT SER\r
  20 JOBPR1=JOBPRT+1                 ;FIRST LOC+1\r
  21           BLK JOBREL,1          ;C(LH)=0, C(RH)=RELOCATION ADDRESS\r
  22           BLK JOBUXT,1          ;EXIT FROM UUO AT BREAK\r
  23           BLK JOBLEV,1          ;C(40) WHEN INACTIVE\r
  24           BLK JOBSAV,1          ;TEMPOARY STORAGE FOR UOO HANDLER\r
  25           BLK JOBPOV,1          ;PUSH DOWN OVERFLOW TRAP\r
  26           BLK JOBTEM,1          ;(UNUSED)TEMPORARY SYSTEM STORAGE\r
  27           BLK JOBTM1,1          ;"\r
  28           BLK JOBINF,1          ;UNUSED\r
  29           BLK JOBJDA,20         ;JOB IO DEVICE CHANNEL ASSIGNMENTS\r
  30           BLK JOBDDT,1          ;ADDRESS OF USER'S DDT\r
  31 JOBPFI=JOBDDT-1                 ;LAST LOC PROTECTED FROM IO SERVICE\r
  32 JOBPFU=JOBDDT                   ;LAST LOC PROTECTED FROM USER\r
  33           BLK JOBCDP,1          ;(UNUSED)POINTER TO COMMAND STRING\r
  34           BLK JOBTRP,20         ;(UNUSED)TRAP LOCATIONS\r
  35           BLK JOBSYM,1          ;SYMBOL TABLE POINTER\r
  36           BLK JOBUSY,1          ;(UNUSED)POINTER TO UNDEFINED SYMBOL TA\r
  37           BLK JOBSA,1           ;C(RH)=STARTING ADDRESS\r
  38                                 ;C(LH)=HIGHEST LOCATION USED\r
  39           BLK JOBFF,1           ;FIRST FREE LOCATION\r
  40 JOBDAT=140          ;LENGTH OF JOB DATA AREA\r
  41 JOBHGH=JOBDAT-1                 ;HIGHEST LOC IN JOB DATA AREA\r
  42 JOBPDL=JOBPRO-1                 ;FIRST LOC. -1 OF PD LIST\r
  43 JOBPD1=JOBPDL+1                 ;FIRST LOC. IN PD LIST\r
  44 MJOBPD=JOBPDL-JOBHGH            ;- LENGTH OF PD LIST\r
  45 JOBS41=JOBPRO                   ;PLACE WHERE SAVE-GET SAVES USER LOC 4\r
  46 JOBDA=JOBDAT\r
  47 ENTRY JOBPFI,JOBPFU,JOBPDL,JOBPRO,MJOBPD,JOBHGH\r
  48 ENTRY JOBDHI,JOBPRT,JOBPR1,JOBDA,JOBS41,JOBPD1\r
  49 \r
  50           END,\r