We can write a very small and simple program very quickly to test our Object Deck Loader program.<\/p>\n
ABSTEST1 START 0\r\n DC X'02',x'00',X'0000',X'00',X'00FACE'\r\n END ,<\/pre>\nTo 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.<\/p>\n
\/\/TXXABST1 JOB 5222,'Loader Test',CLASS=A,MSGCLASS=A\r\n\/\/*\r\n\/\/TXXOSRUN EXEC PGM=ABSLOAD\r\n\/\/STEPLIB DD DISP=SHR,DSN=TXXOS.CARD.LOAD\r\n\/\/PUNCH DD UNIT=00D\r\n\/\/*\r\n\/\/ASM EXEC PGM=IFOX00,REGION=1024K,PARM='LINECOUNT(44)'\r\n\/\/SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB\r\n\/\/SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))\r\n\/\/SYSUT2 DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(300,50))\r\n\/\/SYSUT3 DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(300,50))\r\n\/\/SYSPRINT DD SYSOUT=*\r\n\/\/SYSPUNCH DD UNIT=00D\r\n\/\/SYSIN DD DISP=SHR,DSN=TXXOS.CARD.ASM(ABSTEST1)<\/pre>\nAs 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.<\/p>\n
[Next – Creating Some Useful Macros]<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
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 … Continue reading