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
