PAGE 1    ›                                                                 ››››                10 ; SOURCE CODE FOR ECHO.COM›                20 ;›                30 ; by Jim Johnson›                40 ;›                50 ; works with any Atari DOS which supports COMTAB›                60 ; i.e., SpartaDOS, DOS XL, and OS/A+›                70 ; However, works best with SpartaDOS X›                80 ;›                90 ;›                0100 ; CIO and IOCB equates›    =E456       0110 CIOV .EQU $E456›    =0342       0120 ICCOM .EQU $0342›    =0344       0130 ICBAL .EQU $0344›    =0345       0140 ICBAH .EQU $0345›    =0348       0150 ICBLL .EQU $0348›    =0349       0160 ICBLH .EQU $0349›    =0009       0170 WRITE .EQU $09›                0180 ; SpartaDOS equates›    =000A       0190 COMTAB .EQU 10›    =003F       0200 LBUF .EQU 63›                0210 ;›                0220 ; The Program›0000            0230     *=  $4000   ;or wherever›                0240 ;›                0250 ;Set up CIO to print text at LBUF›                0260 ;›4000            0270 INIT›4000 A200       0280     LDX #0      ;IOCB 0 (E:)›4002 A93F       0290     LDA #63     ;set for max buffer›4004 9D4803     0300     STA ICBLL,X›4007 A900       0310     LDA #0›4009 9D4903     0320     STA ICBLH,X›400C A50A       0330     LDA COMTAB  ;store comtab+68 at icba›400E 18         0340     CLC ›400F 6944       0350     ADC #[LBUF+5]›4011 9D4403     0360     STA ICBAL,X›4014 A50B       0370     LDA COMTAB+1›4016 6900       0380     ADC #0›4018 9D4503     0390     STA ICBAH,X›401B A909       0400     LDA #WRITE  ;'print string' command›401D 9D4203     0410     STA ICCOM,X›4020 2056E4     0420     JSR CIOV    ;print it›4023 60         0430     RTS ›4024            0440     *=  $02E0›02E0 0040       0450     .WORD INIT  ;run vector››ASSEMBLY ERRORS: 0   26615 BYTES FREE›PAGE 2    ›SYMBOLS                                                          ›››››=E456 CIOV          #  1,110       1,420    ›=000A COMTAB        #  1,190       1,330       1,370    ››=0345 ICBAH         #  1,140       1,390    ›=0344 ICBAL         #  1,130       1,360    ›=0349 ICBLH         #  1,160       1,320    ›=0348 ICBLL         #  1,150       1,300    ›=0342 ICCOM         #  1,120       1,410    › 4000 INIT          #  1,270       1,450    ›=003F LBUF          #  1,200       1,350    ›=0009 WRITE         #  1,170       1,400    ›