Thanks all for the help with this one. I have known for a long time that the assembler could generate absolute addresses, but never asked why. For those still following, here is the program that reads the object deck:
BASR 11,0 -2: 0DB0 XIO 78(19,11),80 0: D012B04E0050 BCR 5,11 6: 075B TIOB 8(11),16 8: 9A10B008 TIOB 68(11),1 C: 9A11B044 CLI 78(11),2 10: 9502B04E BNER 11 14: 077B LH 12,84(11) 16: 48C0B054 CLI 80(11),X'D5' 1A: 95D5B050 BER 15 1E: 078F CLI 80(11),X'E7' 20: 95E7B050 BNER 11 24: 077B LH 15,88(11) 26: 48F0B058 AH 15,74(11) 2A: 4AF0B04A STH 15,50(11) 2E: 40F0B032 MVC 0(28,12),94(11) 32: D21BC000B05E BASR 15,11 38: 0DFB XIO 76(21,11),1 3A: D014B04C0001 BCR 5,15 40: 075F BR 12 42: 07FC HPR 2 44: 99000002 BR 11 48: 07FB DC X'D1FF' 4A: D1FF which runs on a real 360/20, though not, so far, with a real card reader. (Instead, I have an FPGA based virtual card reader.) I didn't write this one, it seems that it is related to HASP, and a program to make a 360/20, or larger 360, into an RJE station. (There is a different loader for other 360's, which I didn't disassemble. For those following such things, the PSW in the 360/20 does have an A bit, and I have run some decimal instructions with it set. -- glen