Testing The Absolute Loader

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.

[Next – Creating Some Useful Macros]

Leave a Reply

Your email address will not be published. Required fields are marked *