L X LdSyms DORADOBASEROM
L B4 Addr DOCALLPTR
L B5 Addr CALLPTR
L B6 Addr CALLPTR
R B6 A+1 CALLPTR
L B6 Val 0
L B5 Val F0
L B8 Addr $ABSOLUTE F0
MR B8 FillC $ABSOLUTE F0
L B8 Val A2
L B9 Val 0A
L B10 Val 20
L B11 Val 9C
L B12 Val F4
L B13 Val 78
L B14 Val 4C
L B15 Val F6
L B16 Val 0
L B4 Val 1
L X Exit 1