COLD 
  RSC-FORTH V1.7
 ASSEMBLER VLIST 
  3FD7 END-CODE      3FC6 0<            3FBB 0=            3FB0 VS           
  3FA5 CS            3F96 NOT           3F6E ELSE,         3F5E THEN,        
  3F32 ENDIF,        3F19 IF,           3EF7 REPEAT,       3EE1 AGAIN,       
  3EC8 WHILE,        3EA7 UNTIL,        3E94 BEGIN,        3E74 BITCLR       
  3E46 BITSET        3E24 RMB,          3DEC SMB,          3DDC BIT,         
  3DCC JMP,          3DBC JSR,          3DAC STY,          3D9C LDY,         
  3D8C LDX,          3D7C CPY,          3D6C CPX,          3D5C STX,         
  3D4C ROR,          3D3C ROL,          3D2C LSR,          3D1C INC,         
  3D0C DEC,          3CFC ASL,          3CEC STA,          3CDC SBC,         
  3CCC ORA,          3CBC LDA,          3CAC EOR,          3C9C CMP,         
  3C8C AND,          3C7C ADC,          3C6E TXS,          3C60 TYA,         
  3C52 TXA,          3C44 TSX,          3C36 TAY,          3C28 TAX,         
  3C1A SEI,          3C0C SED,          3BFD SEC,          3BEF RTS,         
  3BE1 RTI,          3BD3 PLP,          3BC5 PLA,          3BB7 PHP,         
  3BA9 PHA,          3B9B NOP,          3B8D INY,          3B7F INX,         
  3B71 DEY,          3B63 DEX,          3B55 CLV,          3B47 CLI,         
  3B39 CLD,          3B2B CLC,          3B1D BRK,          3A4E RP)          
  3A3E SEC           3A2E TOP           3A21 )             3A16 )Y           
  3A0A X)            39FD ,Y            39F1 ,X            39E5 MEM          
  39D8 #             39CD .A            399A SETUP         398C BINARY       
  397D PUT0A         396F PUSH0A        3960 POPTWO        3951 POP          
  3945 PUT           3939 PUSH          392C NEXT          391F XSAVE        
  3911 UP            3906 W             38FC IP            38F1 N            
  