We can write a very small and simple program very quickly to test our Object Deck Loader program.
ABSTEST1 START 0
DC X'02',x'00',X'0000',X'00',X'00FACE'
END ,
To test the loader I created some JCL with two steps. The first step runs the Object Deck Loader program to punch out the 5 cards for our IPL deck. The second step assembles our test program and punches the Object Deck to the punch so it will immediately follow our IPL deck.
//TXXABST1 JOB 5222,'Loader Test',CLASS=A,MSGCLASS=A //* //TXXOSRUN EXEC PGM=ABSLOAD //STEPLIB DD DISP=SHR,DSN=TXXOS.CARD.LOAD //PUNCH DD UNIT=00D //* //ASM EXEC PGM=IFOX00,REGION=1024K,PARM='LINECOUNT(44)' //SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB //SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100)) //SYSUT2 DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50)) //SYSUT3 DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50)) //SYSPRINT DD SYSOUT=* //SYSPUNCH DD UNIT=00D //SYSIN DD DISP=SHR,DSN=TXXOS.CARD.ASM(ABSTEST1)
As before we can run on our MVS system and create a card deck file to IPL from. When we IPL using our Object Deck Loader followed by our ABSTEST1 Object Deck program our Hercules CPU should enter a wait state with X’FACE’ in the low order data.