TRUE
3100C2:         MOVE.L #FFFFFFFF,D2 
3100C4:         MOVE.L D2,144(A1) 
#
# 
3100C8:         LEA 498(A4),A3 
3100CC:         MOVE.L A3,D3 
3100CE:         LSR.L #2,D3 
3100D0:         MOVE.L D3,148(A1) 
#
# LET ?? = 0
3100D4:         CLR.L 14C(A1) 
#
# LET ?? = 0
3100D8:         CLR.L 150(A1) 
#
# LET ?? = node = parm.pkt!pkt.arg3
3100DC:         MOVE.L (A1),D4 
3100DE:         LSL.L #2,D4 
3100E0:         MOVE.L 1C(A0,D4.L),154(A1) 
#
# FOR i=0 to IO.blocksize DO IOB!i := 0
3100E6:         CLR.L   158(A1) 
3100EA:         MOVE.L  #1E,D5 
3100EC:         MOVE.L  D5,15C(A1) 
3100F0:         BRA     310106 
3100F4:         MOVE.L  3C(A1),D1 
3100F8:         ADD.L   158(A1),D1 
3100FC:         LSL.L   #2,D1 
3100FE:         CLR.L   0(A0,D1.L) 
310102:         ADD.L   #1,158(A1) 
310106:         MOVE.L  15C(A1),D1 
31010A:         CMP.L   158(A1),D1 
31010E:         BGE     3100F4 

# IF OpenDevice( IOB, devname, 0, 0) = 0
310110:         MOVE.L #0,D4 
310112:         MOVE.L D4,D3 
310114:         MOVE.L 140(A1),D2 
310118:         MOVE.L 3C(A1),D1 
31011C:         MOVE.L #164,D0 
310122:         MOVE.L 7C(A2),A4 
310126:         JSR (A5) 
310128:         TST.L D1 
31012A:         BNE 310134 
#    error := TRUE
31012E:         MOVE.L #FFFFFFFF,D1 
310130:         MOVE.L D1,13C(A1) 
#
# IF error THEN
310134:         TST.L 13C(A1) 
310138:         BEQ 310154 
#    $( returnpkt(parm.pkt, FALSE, error, objectinuse)
31013C:         MOVE.L #CA,D3 
310142:         MOVE.L #0,D2 
310144:         MOVE.L (A1),D1 
310146:         MOVE.L #164,D0 
31014C:         MOVE.L C4(A2),A4 
310150:         JSR (A5)
#    return
310152:         JMP (A6) 
#    $)
#
# // Copy all the necessary info to the Output buffer too.
#
# FOR i=0 TO IO.blocksize DO IOBO!i := IOB!
310154:         CLR.L 158(A1) 
310158:         MOVE.L #1E,D1 
31015A:         MOVE.L D1,15C(A1) 
31015E:         BRA 310180 
310162:         MOVE.L 3C(A1),D1 
310166:         ADD.L 158(A1),D1 
31016A:         LSL.L #2,D1 
31016C:         MOVE.L BC(A1),D2 
310170:         ADD.L 158(A1),D2 
310174:         LSL.L #2,D2 
310176:         MOVE.L 0(A0,D1.L),0(A0,D2.L) 
31017C:         ADD.L #1,158(A1) 
310180:         MOVE.L 15C(A1),D1 
310184:         CMP.L 158(A1),D1 
310188:         BGE 310162
#
# TEST extrainfo = 2 &&         // did they ask for the printer
31018A:         MOVE.L #2,D2 
31018C:         CMP.L 4(A1),D2 
310190:         BNE 3101F8 
#      LEN(openstring < 4) THEN // with a name longer than PRT:?
310194:         MOVE.L 10(A1),D3 
310198:         LSL.L #2,D3 
31019A:         MOVE.L #0,D4 
31019C:         MOVE.B 0(A0,D3.L),D4 
3101A0:         MOVE.L #4,D5 
3101A2:         CMP.L D5,D