ADDR

80000: 02D9D ! Program
80005: 1592D ; Set last RPL token to <0h> and verify DEPTH >= 1
8000A: [...] ! # 00000h
80019: 06657 ; Internal NEWOB
8001E: 02DCC ! Code
80023: 00028 ! 40 nibbles (next RPL at 8004B)
80028: 8FB9760    GOSBVL 0679B          ; MC: save D0,D1,B,D (uses C,D0), clear carry
8002F: 174        D1=D1+ 5            
80032: 143        A=DAT1 A            
80035: 1C4        D1=D1- 5            
80038: 147        C=DAT1 A            
8003B: 137        CD1EX               
8003E: 179        D1=D1+ 10           
80041: 141        DAT1=A A            
80044: 8D34150    GOVLNG 05143          ; MC: restore D,B,D1,D0 (C=D0), clear carry and continue RPL
 . . . . . . ! End of Code
8004B: 60F9B ; drop level two object
80050: 0312B ! End Marker