0000 ;       FROM RAE - DC FOD RETURNS TO FODS COMMAND MODE
                0005 ;       FROM BASIC - .DC,"FOD" RETURNS TO FODS COMMAND MODE
                0010 ;       SYSTEM RAM LOCATIONS
                0020  
                0030 TECHO      .DE $A653
                0040 INVEC      .DE $A661
                0050 OUTVEC     .DE $A664
                0060  
                0070 ;       MON LOCATIONS
                0080  
                0090 INTCHR     .DE $8A58
                0100 TOUT       .DE $8AA0
                0110 ACCESS     .DE $8B86
                0120  
                0130 ;       FODS LOCATION
                0140  
                0150 FODS_WARM  .DE $7380
                0160  
                0170  
                0180            .BA $6D00
                0190            .OS
                0200  
6D00- 20 86 8B  0210 START      JSR ACCESS
6D03- A9 B0     0220            LDA #$B0
6D05- 8D 53 A6  0230            STA TECHO
6D08- A9 58     0240            LDA #L,INTCHR
6D0A- 8D 61 A6  0250            STA INVEC
6D0D- A9 8A     0260            LDA #H,INTCHR
6D0F- 8D 62 A6  0270            STA INVEC+1
6D12- A9 A0     0280            LDA #L,TOUT
6D14- 8D 64 A6  0290            STA OUTVEC
6D17- A9 8A     0300            LDA #H,TOUT
6D19- 8D 65 A6  0310            STA OUTVEC+1
6D1C- 4C 80 73  0320            JMP FODS_WARM
                0330  
                0340            .EN
              
0000,6D1F,6D1F
>