From: joemonk64@gmail.com   
      
   > COPY PDPTOP   
   > CSECT   
   > * Program text area   
   > @@LC3 EQU *   
   > DC C'finished'   
   > DC X'15'   
   > DC X'0'   
   > @@LC2 EQU *   
   > DC C'failed to allocate %lu bytes'   
   > DC X'15'   
   > DC X'0'   
   > @@LC0 EQU *   
   > DC C'usage: pdptest '   
   > DC X'15'   
   > DC X'0'   
   > @@LC1 EQU *   
   > DC C'fills up memory as a speed test'   
   > DC X'15'   
   > DC X'0'   
   > DS 0F   
   > COPY PDPMAIN   
   > * X-func main prologue   
   > MAIN PDPPRLG CINDEX=0,FRAME=104,BASER=12,ENTRY=YES   
   > B @@FEN0   
   > LTORG   
   > @@FEN0 EQU *   
   > DROP 12   
   > BALR 12,0   <------ 64 bit instruction in AM64   
   > USING *,12   
   > @@PG0 EQU *   
   > LR 11,1   
   > L 10,=A(@@PGT0)   
   > * Function main code   
   > L 2,0(11)   
   > LA 3,1(0,0) <-------- 64-bit instruction in AM64   
   > CR 2,3   
   > BNH @@L12   
   > L 2,4(11)   
   > MVC 88(4,13),4(2)   
   > MVC 92(4,13),=F'0'   
   > MVC 96(4,13),=F'10'   
   > LA 1,88(,13)  <---------- 64-bit instruction in AM64   
   > L 15,=V(STRTOUL) <---------- V-CON is 31-bit in AM64   
   > BALR 14,15  <---------- 64-bit instruction in AM64   
   > LR 3,15   
   > ST 15,88(13)   
   > LA 1,88(,13)  <---------- 64-bit instruction in AM64   
   > L 15,=V(MALLOC) <---------- V-CON is 31-bit in AM64   
   > BALR 14,15   <---------- 64-bit instruction in AM64   
   > LTR 15,15   
   > BE @@L13   
   > SLR 2,2   
   > CLR 2,3   
   > BNL @@L10   
   > LR 4,2   
   > @@L8 EQU *   
   > STC 4,0(2,15)   
   > A 4,=F'5'   
   > A 2,=F'1'   
   > CLR 2,3   
   > BL @@L8   
   > @@L10 EQU *   
   > MVC 88(4,13),=A(@@LC3)   
   > LA 1,88(,13)  <---------- 64-bit instruction in AM64   
   > L 15,=V(PRINTF) <---------- V-CON is 31-bit in AM64   
   > BALR 14,15  <---------- 64-bit instruction in AM64   
   > SLR 15,15   
   > B @@L1   
   > @@L13 EQU *   
   > MVC 88(4,13),=A(@@LC2)   
   > ST 3,92(13)   
   > @@L11 EQU *   
   > LA 1,88(,13)   <---------- 64-bit instruction in AM64   
   > L 15,=V(PRINTF) <---------- V-CON is 31-bit in AM64   
   > BALR 14,15   <---------- 64-bit instruction in AM64   
   > LA 15,12(0,0)   
   > B @@L1   
   > @@L12 EQU *   
   > MVC 88(4,13),=A(@@LC0)   
   > LA 1,88(,13)   
   > L 15,=V(PRINTF) <---------- V-CON is 31-bit in AM64   
   > BALR 14,15   <---------- 64-bit instruction in AM64   
   > MVC 88(4,13),=A(@@LC1)   
   > B @@L11   
   > @@L1 EQU *   
   > * Function main epilogue   
   > PDPEPIL   
   > * Function main literal pool   
   > DS 0F   
   > LTORG   
   > * Function main page table   
   > DS 0F   
   > @@PGT0 EQU *   
   > DC A(@@PG0)   
   > END @@MAIN   
      
   Joe   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)