diff --git a/Config/CLOCK.S b/Config/CLOCK.S
new file mode 100644
index 0000000..593e4fc
--- /dev/null
+++ b/Config/CLOCK.S
@@ -0,0 +1,135 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* reconfigure clocks
+*-------------------------------
+
+            REL
+point0      =     $11
+point1      =     $14
+clkdrv      =     $a00
+
+            DSK   REL/CLOCK
+
+TopBox      EXT               ; routines external to this file
+print       EXT
+cls         EXT
+start       EXT
+escape      EXT
+inpnum      EXT
+chinit      EXT
+wrtchg      EXT
+
+gsclock     EXT               ;gs clock driver
+serialpro   EXT               ;serialpro driver
+thunder     EXT               ;thunderclock/timemaster driver
+iicsys      EXT               ;iic system clock
+mountain    EXT               ;mountain clock
+prodos      EXT               ;standard prodos stuff
+nullclk     EXT               ;no clock
+noslot      EXT               ;no slot clock
+versa       EXT               ;prometheus versacard
+ultra       EXT               ;ultra clock driver
+
+re_clk      ENT
+            JSR   TopBox
+            JSR   print
+            DB    1,2,30
+            ASC   '- Reconfigure Clock -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix C of your user'
+            ASC   ' manual for more information.'00
+
+            JSR   cls
+            LDX   #<start     ; setup esc handler
+            LDA   #>start
+            JSR   escape
+
+            LDA   #<clkdrv    ;tell it to move the modem
+            STA   point1      ;driver
+            LDA   #>clkdrv
+            STA   point1+1
+
+IIeClk      JSR   print
+            DB    1,7,0
+
+            ASC   ' 1 - Thunderclock Compatible               '
+            ASC   ' 7 - ProDOS Compatible Clock'0D
+            ASC   ' 2 - A.E. Timemaster II H.O.               '
+            ASC   ' 8 - Mountain Hardware Clock'0D
+            ASC   ' 3 - A.E. Serial Pro                       '
+            ASC   ' 9 - Prometheus Versacard'0D
+            ASC   ' 4 - A.E. //c Ultra Clock                  '
+            ASC   '10 - Apple IIgs System Clock'0D
+            ASC   ' 5 - A.E. //c System Clock                 '
+            ASC   '11 - No Clock in System'0D
+            ASC   ' 6 - SMT No-Slot Clock'0D0D
+
+            ASC   'Which? [1-11] '00
+
+            LDX   #11
+            JSR   inpnum
+
+            PHA
+            ASL
+            TAX
+            LDA   :clktbl,X
+            STA   point0
+            INX
+            LDA   :clktbl,X
+            STA   point0+1
+
+            PLA
+            CMP   #4          ;no slot clock
+            BEQ   :noslot
+            CMP   #5          ;no slot clock
+            BEQ   :noslot
+            CMP   #6          ;no clock in system
+            BEQ   :noslot
+            CMP   #10
+            BEQ   :noslot
+            CMP   #11
+            BNE   :slot
+            PHA               ; save fake slot
+            PHA               ; save fake mode
+            JMP   :done
+
+:slot       JSR   print
+            DB    1,16,0
+            ASC   'Which slot/port does the clock use? [1-7] ',00
+
+            LDX   #7          ; get slot
+            JSR   inpnum
+            ASL
+            ASL
+            ASL
+            ASL
+:noslot     PHA               ;save slot
+
+:done       LDY   #0          ;move the single page
+:loop       LDA   (point0),Y  ;source
+            STA   (point1),Y  ;destination
+            INY
+            BNE   :loop
+
+            LDY   #0
+            PLA               ;get the slot back
+            STA   (point1),Y
+
+            JSR   chinit      ; check for init
+            JMP   wrtchg      ; write the changes
+
+:clktbl     DA    0
+            DA    thunder
+            DA    thunder
+            DA    serialpro
+            DA    ultra
+            DA    noslot
+            DA    iicsys
+            DA    prodos
+            DA    mountain
+            DA    versa
+            DA    gsclock
+            DA    nullclk
+
diff --git a/Config/CLOCKS/CLK.IIC.SYS.S b/Config/CLOCKS/CLK.IIC.SYS.S
new file mode 100644
index 0000000..266c8d0
--- /dev/null
+++ b/Config/CLOCKS/CLK.IIC.SYS.S
@@ -0,0 +1,155 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* //c System Clock - 24 hr
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   rel/iicsys
+
+lnbuf       equ   $200
+
+ZBUF        EQU   $41
+PTR         EQU   $42
+
+stat1       equ   $c099
+comm1       equ   $c09a
+stat2       equ   $c0a9
+comm2       equ   $c0aa
+
+bytcnt      equ   $0e03
+nullptr     equ   $0a
+
+
+iicsys      ent
+
+            org   $0a00
+
+*-------------------------------
+
+slot        hex   20
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+; get the date in prodos/gbbs format
+getdate     jsr   $bf00       ; read date from MLI
+            hex   82
+            hex   0000
+
+            ldx   $bf90
+            lda   $bf91
+
+setdate     rts
+
+; get the current time
+gettime     jsr   rdclock     ; read the clock
+
+            lda   #':'
+            sta   timestr+2   ; put time dividers in
+            sta   timestr+5
+
+            ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+; read the date time from clock
+rdclock     lda   slot
+            cmp   #$10
+            beq   init1
+
+            lda   #<stat2     ; set status port to slot 2
+            sta   init3_2+1
+            lda   #<comm2     ; set comm port to slot 2
+            sta   init1_3+1
+            sta   init2+1
+            sta   init3_3+1
+
+init1       lda   #64
+init1_1     pha
+init1_2     sbc   #1
+            bne   init1_2
+            pla
+            sbc   #1          ; give plenty of setup delay
+            bne   init1_1
+
+            php
+            sei
+init1_3     lda   comm1       ; get current setting
+            pha
+
+            ldy   #3
+            ldx   #22
+            lda   #8
+init2       sta   comm1       ; send init sequence to clock
+
+init2_1     dex               ; intra-bit delay
+            bne   init2_1
+
+            eor   #$a         ; toggle back and forth
+            ldx   #11
+            dey
+            bne   init2       ; keep looping
+
+            ldy   #4
+            ldx   #8
+            bne   init3_2     ; skip initial delay
+
+init3       lda   #$34
+            sta   timer       ; delay while clock sets up
+init3_1     dec   timer       ; to send the date/time
+            bne   init3_1
+
+init3_2     lda   stat1       ; shift bit data into nibble
+            rol
+            rol
+            rol
+            ror   datestr
+            dex
+            bne   init3       ; go back to delay
+
+            lda   datestr
+            eor   #0          ; save the nibble
+            sta   datestr,y
+
+            ldx   #8
+            dey
+            bpl   init3
+
+            pla
+init3_3     sta   comm1       ; retore uart to initial settings
+
+            ldy   #15
+            ldx   #4
+
+init4       lda   datestr,x
+            pha
+            and   #$f         ; process digit (make into ascii)
+            ora   #$30
+            sta   datestr,y
+
+            dey
+            pla
+            lsr
+            lsr
+            lsr               ; process top of nibble
+            lsr
+            ora   #$30        ; turn into ascii
+            sta   datestr,y
+
+            dey
+            dey
+            dex
+            bpl   init4
+            plp
+            rts
+
+timer       hex   00
+datestr     asc   '00 00 00'
+timestr     asc   '00:00:00   '
+date        hex   0000
+
diff --git a/Config/CLOCKS/CLOCKS.HDR.S b/Config/CLOCKS/CLOCKS.HDR.S
new file mode 100644
index 0000000..3beddaf
--- /dev/null
+++ b/Config/CLOCKS/CLOCKS.HDR.S
@@ -0,0 +1,54 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Clock Driver Header Block
+*-------------------------------
+* Revised Date: 08/01/87
+*-------------------------------
+*
+* driver load info
+*
+* $0800 = header block                  ;offset
+* $0a00 = Thunder/Timemaster            ;2
+* $0b00 = A.E. Serial Pro               ;3
+* $0c00 = SMT No Slot clock             ;4
+* $0d00 = //c System Clock              ;5
+* $0e00 = Apple //gs Clock              ;6
+* $0f00 = A.E. Ultra Clock              ;7
+* $1000 = prodos compatible             ;8
+* $1100 = Mountain Clock                ;9
+* $1200 = Versacard                     ;a
+* $1300 = no clock in system            ;b
+
+            rel
+            dsk   rel/clocks.hdr
+
+            org   $800
+
+clocks      hex   0201
+            asc   'Thunderclock Compatable       '
+            hex   0201
+            asc   'A.E. Timemaster II H.O.       '
+            hex   0301
+            asc   'A.E. Serial Pro               '
+            hex   8401
+            asc   'SMT No Slot Clock             '
+            hex   0501
+            asc   'A.E. //c System Clock         '
+            hex   8601
+            asc   'Apple //GS built-in clock     '
+            hex   8701
+            asc   'A.E. Ultra Clock              '
+            hex   8801
+            asc   'ProDOS Compatible Clock       '
+            hex   0901
+            asc   'Mountain Hardware Clock       '
+            hex   0a01
+            asc   'Prometheus Versacard          '
+            hex   8b01
+            asc   'No Clock in System            '
+
+            hex   0000
+            ds    \
+
diff --git a/Config/CLOCKS/IIC.SYS.S b/Config/CLOCKS/IIC.SYS.S
new file mode 100644
index 0000000..7657c22
--- /dev/null
+++ b/Config/CLOCKS/IIC.SYS.S
@@ -0,0 +1,213 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* //c System Clock - 24 hr
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/iicsys
+
+iicsys      ent
+
+            org   $0a00
+
+lnbuf       equ   $200
+
+ZBUF        EQU   $41
+PTR         EQU   $42
+
+stat1       equ   $c099
+comm1       equ   $c09a
+stat2       equ   $c0a9
+comm2       equ   $c0aa
+
+bytcnt      equ   $0e03
+nullptr     equ   $0a
+
+mli         equ   $bf00
+date        equ   $bf90
+time        equ   $bf92
+get_time    equ   $82
+
+
+slot        hex   20
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            rts               ; jmp setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+
+getdate     jsr   mli         ; mli call
+            db    get_time    ; get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* read time from clock
+*-------------------------------
+
+rdtime      jsr   rdclock     ; read the clock
+
+            lda   #':'
+            sta   timestr+2   ; put time dividers in
+            sta   timestr+5
+
+            ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+; read the date time from clock
+rdclock     lda   #64
+init1_1     pha
+init1_2     sbc   #1
+            bne   init1_2
+            pla
+            sbc   #1          ; give plenty of setup delay
+            bne   init1_1
+
+            php
+            sei
+init1_3     lda   comm1       ; get current setting
+            pha
+
+            ldy   #3
+            ldx   #22
+            lda   #8
+init2       sta   comm1       ; send init sequence to clock
+
+init2_1     dex               ; intra-bit delay
+            bne   init2_1
+
+            eor   #$0a        ; toggle back and forth
+            ldx   #11
+            dey
+            bne   init2       ; keep looping
+
+            ldy   #4
+            ldx   #8
+            bne   init3_2     ; skip initial delay
+
+init3       lda   #$34
+            sta   timer       ; delay while clock sets up
+init3_1     dec   timer       ; to send the date/time
+            bne   init3_1
+
+init3_2     lda   stat1       ; shift bit data into nibble
+            rol
+            rol
+            rol
+            ror   datestr
+            dex
+            bne   init3       ; go back to delay
+
+            lda   datestr
+            eor   #0          ; save the nibble
+            sta   datestr,y
+
+            ldx   #8
+            dey
+            bpl   init3
+
+            pla
+init3_3     sta   comm1       ; retore uart to initial settings
+
+            ldy   #15
+            ldx   #4
+
+init4       lda   datestr,x
+            pha
+            and   #$0f        ; process digit (make into ascii)
+            ora   #$30
+            sta   datestr,y
+
+            dey
+            pla
+            lsr
+            lsr
+            lsr               ; process top of nibble
+            lsr
+            ora   #$30        ; turn into ascii
+            sta   datestr,y
+
+            dey
+            dey
+            dex
+            bpl   init4
+            plp
+            rts
+
+* convert time to 12hr format
+*----------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$0f
+            tay
+            txa
+            and   #$0f
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+timer       hex   00
+datestr     asc   '00 00 00'
+timestr     asc   '00:00:00   '
+
+            ds    \
+
diff --git a/Config/CLOCKS/IIGS.S b/Config/CLOCKS/IIGS.S
new file mode 100644
index 0000000..59b9f76
--- /dev/null
+++ b/Config/CLOCKS/IIGS.S
@@ -0,0 +1,170 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* GS Clock driver bios
+* Written by Andy Nicholas - 07/30/87
+* rewritten by Andy 3/11/88
+*-------------------------------
+
+            xc                ; goto 65816 mode
+
+            rel
+            dsk   CLOCKS/rel/gsclock
+
+gsclock     ent
+
+            org   $A00
+
+* Jump Table
+*-------------------------------
+
+dow         db    0
+mode        db    0
+
+            jmp   getdate     ;call to get the date
+            jmp   gettime     ;call to get the time (formatted)
+            jmp   setdate     ;known return point
+
+* Read Clock from ProDOS
+*-------------------------------
+
+mli         equ   $bf00
+date        equ   $bf90
+
+getdate     jsr   mli         ;read the clock into
+            hex   82          ;buffer at $200
+            da    0
+
+            ldx   date        ;read date in compressed form
+            lda   date+1      ;into A & X
+setdate     rts
+
+* get the current time
+*-------------------------------
+
+gettime     jsr   rdtime
+            ldy   #8
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+            ldy   #11
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* read time from clock
+*-------------------------------
+
+rdtime      clc               ;go to native mode
+            xce
+            rep   #'0'        ;and 16 bit A, X, and Y
+
+            pha               ;stack space for results
+            pha
+            pha
+            pha
+            ldx   #$D03       ;ReadTimeHex
+            jsl   $E10000     ;Tool Locater
+            sec
+            xce               ;emulation mode
+
+            pla               ; seconds
+            jsr   bindec8     ; convert to two byte
+            sta   timestr+6
+            stx   timestr+7
+            pla               ; minutes
+            jsr   bindec8     ; convert to two byte
+            sta   timestr+3
+            stx   timestr+4
+            pla               ; hour
+            jsr   bindec8     ; convert to two byte
+            sta   timestr
+            stx   timestr+1
+            pla               ; year
+            pla               ; day of month
+            pla               ; month
+            pla               ; unused byte
+            pla               ; day of the week
+            sta   dow
+
+            lda   #' '
+            sta   timestr+9
+            sta   timestr+10
+
+            rts               ;bye..
+
+* convert time to 12hr format
+*----------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$F
+            tay
+            txa
+            and   #$F
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+* translate a binary to text [0-99]
+*-------------------------------
+
+bindec8     cmp   #60         ; put limit of 59
+            bcc   bin8
+            lda   #59
+
+bin8        ldy   #0          ; start 10's counter
+bin8a       cmp   #10
+            bcc   bin8b       ; less than 10, were done
+
+            sbc   #10         ; minus 10
+            iny               ; add 1 to the 10's counter
+            bne   bin8a       ; loop
+
+bin8b       adc   #'0'        ; make 1's into text
+            tax               ; save
+            tya
+            adc   #'0'        ; make 10's into text
+            rts               ; were done
+
+*              '01234567890
+timestr     asc   '12:00:00   '
+
diff --git a/Config/CLOCKS/MAKE.CLOCKS.S b/Config/CLOCKS/MAKE.CLOCKS.S
new file mode 100644
index 0000000..bee8405
--- /dev/null
+++ b/Config/CLOCKS/MAKE.CLOCKS.S
@@ -0,0 +1,40 @@
+            asm   thunder
+            ds    \
+            asm   serialpro
+            ds    \
+            asm   no.slot
+            ds    \
+            asm   iic.sys
+            ds    \
+            asm   iigs
+            ds    \
+            asm   ultra
+            ds    \
+            asm   prodos
+            ds    \
+            asm   mountain
+            ds    \
+            asm   versa
+            ds    \
+            asm   null
+
+            link  rel/thunder
+            ds    \
+            link  rel/serialpro
+            ds    \
+            link  rel/no.slot
+            ds    \
+            link  rel/iic.sys
+            ds    \
+            link  rel/iigs
+            ds    \
+            link  rel/ultra
+            ds    \
+            link  rel/prodos
+            ds    \
+            link  rel/mountain
+            ds    \
+            link  rel/versa
+            ds    \
+            link  rel/null
+
diff --git a/Config/CLOCKS/MOUNTAIN.S b/Config/CLOCKS/MOUNTAIN.S
new file mode 100644
index 0000000..39019e7
--- /dev/null
+++ b/Config/CLOCKS/MOUNTAIN.S
@@ -0,0 +1,160 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Mountian Hardware Driver
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/mountain
+
+mountain    ent
+
+            org   $0a00
+
+mli         equ   $bf00
+date        equ   $bf90
+time        equ   $bf92
+get_time    equ   $82
+
+
+slot        hex   40
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+getdate     jsr   mli         ; mli call
+            db    get_time    ; get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* get time routine
+*-------------------
+rdtime      jsr   rdclock
+            lda   #':'        ; clean up format
+            sta   timestr+2
+            sta   timestr+5
+            rts
+
+* read time from clock
+*----------------------
+rdclock     lda   $38
+            pha
+            lda   $39         ; save zp addresses
+            pha
+            lda   slot
+            lsr
+            lsr
+            lsr
+            lsr
+            ora   #$c0
+            sta   $39         ; point to clock entry
+            sta   callclk+2
+callclk     jsr   $c000       ; call clock
+            pla
+            sta   $39
+            pla               ; restore zp
+            sta   $38
+
+            ldx   #$0d
+            ldy   #0
+movtime     lda   $286,x      ; move returned string
+            and   #$7f
+            sta   datestr,y
+            iny
+            dex
+            bpl   movtime
+            rts
+
+* convert time to 12hr format
+*----------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$0f
+            tay
+            txa
+            and   #$0f
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+; convert a 2 byte decimal number to binary
+decbin8     and   #$7f
+            sec
+            sbc   #'0'
+            sta   decbyte     ; save 10's digit
+            txa               ; move 1's into A
+            and   #$7f
+            sec
+            sbc   #'0'
+
+            ldy   #10
+dec8a       clc
+            adc   decbyte     ; add the 10's digit, 10 times
+            dey
+            bne   dec8a
+            rts               ; return with result
+
+decbyte     hex   00
+datestr     asc   '00/00/00'
+timestr     asc   '00:00:00   '
+
+            ds    \
+
diff --git a/Config/CLOCKS/NO.SLOT.S b/Config/CLOCKS/NO.SLOT.S
new file mode 100644
index 0000000..4f29938
--- /dev/null
+++ b/Config/CLOCKS/NO.SLOT.S
@@ -0,0 +1,191 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* No Slot Clock - 24 hr
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/noslot
+
+ZBUF        EQU   $41
+PTR         EQU   $42
+
+YEAR        EQU   $44
+HOURS       EQU   $48
+TEMP        EQU   $2F0
+
+date        equ   $bf90
+get_time    equ   $82
+
+
+noslot      ent
+
+            org   $0a00
+
+*-------------------------------
+
+            db    $00
+MODE        dfb   $00
+            JMP   getdate
+            JMP   getime
+            JMP   setdate
+
+*
+* TIME OUTPUT BUFFER
+*
+
+TIME        ASC   '00:00:00   '
+*
+* DEFINE RECOGNITION SEQUENCE FOR NO-SLOT CLOCK
+*
+
+RECSEQ      db    $5C,$A3,$3A,$C5,$5C,$A3,$3A,$C5
+
+*
+* FORMAT NO-SLOT CLOCK DATE
+*
+
+* get the date in prodos gbbs format
+*-------------------------------
+
+getdate     jsr   $bf00       ; mli call
+            db    get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+*
+* FORMAT NO-SLOT CLOCK TIME
+*
+
+getime      JSR   RDCLOCK
+            LDY   HOURS
+            LDA   MODE
+            BEQ   FMT24
+            LDA   #'M'
+            STA   TIME+10
+            LDX   #'A'
+            SED
+            SEC
+            TYA
+            SBC   #$12
+            CLD
+            BCC   SETHOUR
+            TAY
+            BNE   NOTNOON
+            LDY   #$12
+NOTNOON     LDX   #'P'
+SETHOUR     STX   TIME+9
+            TYA
+            BNE   FMT24
+            LDY   #$12
+FMT24       TYA
+            LDY   #0
+            LDX   #0
+FMT         PHA
+            AND   #$F0
+            LSR
+            LSR
+            LSR
+            LSR
+            CLC
+            ADC   #'0'
+            STA   TIME,Y
+            INY
+            PLA
+            AND   #$F
+            ADC   #'0'
+            STA   TIME,Y
+            INY
+            INY
+            INX
+            LDA   HOURS,X
+            CPX   #3
+            BNE   FMT
+            JSR   ZRECALL
+*
+            LDX   #<TIME
+            LDA   #>TIME
+            RTS
+*
+* RECALL PG ZERO BUFFER (ACCESS VIA JMP)
+*
+ZRECALL     LDY   #$A
+ZRECALL1    LDA   TEMP,Y
+            STA   PTR,Y
+            DEY
+            BNE   ZRECALL1
+            RTS
+*
+* READ THE NO-SLOT CLOCK AND RETRIEVE DATE/TIME
+*
+RDCLOCK     LDY   #$A
+STORBUF     LDA   ZBUF,Y
+            STA   TEMP,Y
+            DEY
+            BNE   STORBUF
+            SEI
+            LDA   $C015
+            PHA
+            STA   $C007
+            LDA   $C804
+            LDA   #<RECSEQ
+            STA   PTR
+            LDA   #>RECSEQ
+            STA   PTR+1
+            LDY   #7
+RECOG1      LDA   (PTR),Y
+            SEC
+            ROR
+RECOG2      PHA
+            LDA   #0
+            ROL
+            TAX
+            LDA   $C800,X
+            PLA
+            LSR
+            BNE   RECOG2
+            DEY
+            BPL   RECOG1
+            LDX   #7
+NEXTREAD    LDY   #7
+READBIT     LDA   $C804
+            ROR
+            ROR   YEAR,X
+            DEY
+            BPL   READBIT
+            CPX   #3
+            BPL   STORDATE
+            LDA   YEAR,X
+            PHA
+            AND   #$F
+            STA   YEAR,X
+            PLA
+            AND   #$F0
+            LSR
+            LSR
+            LSR
+            LSR
+            TAY
+            BEQ   STORDATE
+            LDA   #0
+ADDTENS     ADC   #10
+            DEY
+            BNE   ADDTENS
+            ADC   YEAR,X
+            STA   YEAR,X
+STORDATE    DEX
+            BPL   NEXTREAD
+            PLA
+            ROL
+            BCS   RDEND
+            STA   $C006
+RDEND       RTS
+
+            ds    \
+
diff --git a/Config/CLOCKS/NULL.S b/Config/CLOCKS/NULL.S
new file mode 100644
index 0000000..43eb487
--- /dev/null
+++ b/Config/CLOCKS/NULL.S
@@ -0,0 +1,147 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* No Clock Driver
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/null
+
+bytcnt      equ   $0e03
+nullptr     equ   $0a
+
+nullclk     ent
+
+            org   $D00
+
+*-------------------------------
+
+slot        hex   00
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos/gbbs format
+*-------------------------------
+
+getdate     ldx   date
+            lda   date+1
+            rts
+
+* set the date manually
+*-------------------------------
+
+setdate     cpy   #8           ; is it 8 chars long?
+            bne   setdt2       ; nope
+
+            stx   nullptr      ; point to string
+            sta   nullptr+1
+
+            ldy   #7
+            lda   (nullptr),y
+            tax                ; process year
+            dey
+            lda   (nullptr),y
+            jsr   decbin8
+            sta   date+1       ; save year
+
+            ldy   #4
+            lda   (nullptr),y
+            tax                ; process day
+            dey
+            lda   (nullptr),y
+            jsr   decbin8
+            and   #%00011111
+            sta   date         ; save day
+
+            ldy   #1
+            lda   (nullptr),y
+            tax                ; process month
+            dey
+            lda   (nullptr),y
+            jsr   decbin8
+            and   #%00001111   ; get rid of extra junk
+            asl
+            asl
+            asl
+            asl
+            asl
+            rol   date+1       ; put bit into year field
+            ora   date
+            sta   date         ; put rest into day field
+setdt2      rts
+
+* get the current estimated time
+*-------------------------------
+
+gettime     lda   bytcnt+2     ; show hours
+            jsr   bindec8
+            sta   timestr
+            stx   timestr+1
+
+            lda   bytcnt+1     ; show minutes
+            jsr   bindec8
+            sta   timestr+3
+            stx   timestr+4
+
+            lda   bytcnt+0     ; show seconds
+            jsr   bindec8
+            sta   timestr+6
+            stx   timestr+7
+
+            ldx   #<timestr    ; point to string
+            lda   #>timestr
+            rts
+
+* convert a 2 byte decimal number to binary
+*-------------------------------
+
+decbin8     and   #$7f
+            sec
+            sbc   #'0'
+            sta   decbyte      ; save 10's digit
+            txa                ; move 1's into A
+            and   #$7F
+            sec
+            sbc   #'0'
+
+            ldy   #10
+dec8a       clc
+            adc   decbyte      ; add the 10's digit, 10 times
+            dey
+            bne   dec8a
+            rts                ; return with result
+
+decbyte     hex   00
+
+* translate a binary to text [0-99]
+*-------------------------------
+
+bindec8     cmp   #60          ; put limit of 59
+            bcc   bin8
+            lda   #59
+
+bin8        ldy   #0           ; start 10's counter
+bin8a       cmp   #10
+            bcc   bin8b        ; less than 10, were done
+
+            sbc   #10          ; minus 10
+            iny                ; add 1 to the 10's counter
+            bne   bin8a        ; loop
+
+bin8b       adc   #'0'         ; make 1's into text
+            tax                ; save
+            tya
+            adc   #'0'         ; make 10's into text
+            rts                ; were done
+
+timestr     asc   '00:00:00 ET'
+date        hex   0000
+
+            ds    \
+
diff --git a/Config/CLOCKS/PRODOS.S b/Config/CLOCKS/PRODOS.S
new file mode 100644
index 0000000..f287357
--- /dev/null
+++ b/Config/CLOCKS/PRODOS.S
@@ -0,0 +1,144 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* ProDOS Clock Driver
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/prodos
+
+mli         equ   $bf00
+date        equ   $bf90
+time        equ   $bf92
+get_time    equ   $82
+
+prodos      ent
+            org   $0a00
+
+*-------------------------------
+
+            db    0
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+getdate     jsr   mli         ; mli call
+            db    get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* read time from prodos
+*-------------------------------
+rdtime      jsr   getdate     ; update time
+
+            lda   time+1      ; get current hour
+            jsr   bindec8     ; translate to ascii
+            sta   timestr     ; save hour
+            stx   timestr+1
+
+            lda   time        ; get minutes
+            jsr   bindec8     ; translate to ascii
+            sta   timestr+3   ; save minute
+            stx   timestr+4
+
+            lda   #' '        ; clear out any possible am/pm
+            sta   timestr+9
+            sta   timestr+10
+
+            rts
+
+* convert time to 12hr format
+*----------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$0f
+            tay
+            txa
+            and   #$0f
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+* translate a binary to text [0-99]
+*-------------------------------
+bindec8     cmp   #60         ; put limit of 59
+            bcc   bin8
+            lda   #59
+
+bin8        ldy   #0          ; start 10's counter
+bin8a       cmp   #10
+            bcc   bin8b       ; less than 10, were done
+
+            sbc   #10         ; minus 10
+            iny               ; add 1 to the 10's counter
+            bne   bin8a       ; loop
+
+bin8b       adc   #'0'        ; make 1's into text
+            tax               ; save
+            tya
+            adc   #'0'        ; make 10's into text
+            rts               ; were done
+
+*              '01234567890
+timestr     asc   '12:00:00   '
+
+            ds    \
+
diff --git a/Config/CLOCKS/SERIALPRO.S b/Config/CLOCKS/SERIALPRO.S
new file mode 100644
index 0000000..c313215
--- /dev/null
+++ b/Config/CLOCKS/SERIALPRO.S
@@ -0,0 +1,135 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Serial Pro Driver - 12 hrs
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/serialpro
+
+lnbuf       equ   $200
+mli         equ   $bf00
+date        equ   $bf90
+get_time    equ   $82
+
+serialpro   ent
+
+            org   $0a00
+
+*-------------------------------
+
+slot        hex   40
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+
+getdate     jsr   $bf00       ; mli call
+            db    get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* read the current time from clock
+*-------------------------------
+
+rdtime      bit   initbyt     ; has routine been called before?
+            bmi   clock1      ; yep
+
+            lda   slot        ; get clock slot
+            lsr
+            lsr
+            lsr
+            lsr
+            ora   #$C0        ; make into $Cn form
+
+            sta   clock2+2    ; modify code for slot
+            sta   clock3+2
+            dec   initbyt     ; show routine has been init'ed
+
+clock1      lda   #"&"        ; use "&" mode
+clock2      jsr   $C020       ; modified ($c420)
+clock3      jsr   $C01D       ; modified ($c4ld)
+
+            ldy   #12
+            ldx   #0
+clock4      lda   lnbuf,y
+            sta   timestr,x
+            iny
+            inx
+            cpx   #8
+            bne   clock4
+            rts
+
+* convert time to 12 hour format
+*-------------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+conv        and   #$F
+            tay
+            txa
+            and   #$F
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+
+            ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+initbyt     hex   00
+timestr     asc   '00:00:00 AM'00
+
diff --git a/Config/CLOCKS/THUNDER.S b/Config/CLOCKS/THUNDER.S
new file mode 100644
index 0000000..0ff2947
--- /dev/null
+++ b/Config/CLOCKS/THUNDER.S
@@ -0,0 +1,133 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Thunderclock Driver - 24 hrs
+*-------------------------------
+* Date Revised: 08/04/87
+*-------------------------------
+
+            REL
+            DSK   CLOCKS/REL/THUNDER
+
+lnbuf       =     $200
+
+thunder     ENT
+            ORG   $A00
+
+*-------------------------------
+
+slot        HEX   40
+mode        DB    0
+
+            JMP   getdate
+            JMP   gettime
+            JMP   setdate
+
+; get the date in prodos/gbbs format
+getdate     JSR   $BF00
+            HEX   82
+            DW    0
+
+            LDX   $BF90
+            LDA   $BF91
+setdate     RTS
+
+* get the current time
+*-------------------------------
+gettime     JSR   rdtime
+            LDA   mode
+            BPL   gtime1
+            JSR   convert
+
+gtime1      LDX   #<timestr   ; point to string
+            LDA   #>timestr
+            RTS
+
+* read time from clock
+*-------------------------------
+rdtime      BIT   initbyt     ; has routine been called before?
+            BMI   clock1      ; yep
+
+            LDA   slot        ; get clock slot
+            LUP   4
+            LSR
+            --^
+            ORA   #$C0        ; make into $Cn form
+
+            STA   clock2+2    ; modify code for slot
+            STA   clock3+2
+            DEC   initbyt     ; show routine has been init'ed
+
+clock1      LDA   #"#"        ; use "&" mode (24 hour)
+clock2      JSR   $C00B       ; modified ($C40B)
+clock3      JSR   $C008       ; modified ($C408)
+
+            LDY   #0
+clock4      LDA   lnbuf+9,y   ; get time from input buffer
+            STA   timestr,y
+            INY
+            CPY   #8
+            BNE   clock4
+            LDA   #":"        ; put colens back into string
+            STA   timestr+2
+            STA   timestr+5
+            LDA   #' '
+            STA   timestr+9   ; make sure that the am/pm is reset
+            STA   timestr+10
+            RTS
+
+* convert time to 12 hour format
+*-------------------------------
+
+convert     LDA   timestr     ;convert to 12 hour
+            LDX   timestr+1
+
+            AND   #$F
+            TAY
+            TXA
+            AND   #$F
+
+            DEY
+            BMI   conv2
+            CLC
+            ADC   #10
+            DEY
+            BMI   conv2
+            ADC   #10
+
+conv2       CMP   #12
+            BNE   conv2a
+            LDA   #24
+conv2a      TAY
+            BNE   conv3
+            LDA   #12
+
+conv3       LDX   #'A'
+            CMP   #13
+            BCC   conv4
+
+            SBC   #12
+            LDX   #'P'
+
+conv4       LDY   #'0'
+conv5       CMP   #10
+            BCC   conv6
+
+            SBC   #10
+            INY
+            BNE   conv5
+
+conv6       ORA   #'0'
+            STA   timestr+1
+            STY   timestr
+            STX   timestr+9
+            RTS
+
+* data area
+*-------------------------
+initbyt     HEX   00
+timestr     ASC   '00:00:00   '00
+
+            DS    \
+
diff --git a/Config/CLOCKS/ULTRA.S b/Config/CLOCKS/ULTRA.S
new file mode 100644
index 0000000..636e51a
--- /dev/null
+++ b/Config/CLOCKS/ULTRA.S
@@ -0,0 +1,153 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Z-RAM Ultra 2-3 - 12 hour
+*-------------------------------
+* Date Revised: 05/05/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/ultra
+
+ultra       ent
+
+            org   $A00
+
+*-------------------------------
+
+get_time    equ   $82
+mli         equ   $bf00
+date        equ   $bf90
+
+            hex   00
+mode        db    0
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+
+getdate     jsr   mli         ; mli call
+            db    get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* read the current time from clock
+*-------------------------------
+
+rdtime      lda   #$C060
+holdclk     lda   #%00000101
+            sta   $C06D
+            sta   $C06D
+            sta   $C06D
+            ldy   #30
+loop        lda   $C06D
+            and   #%00000010
+            beq   readtime
+            dey
+            bne   loop
+            lda   #%00000100
+            sta   $C06D
+            sta   $C06D
+            sta   $C06D
+            bne   holdclk
+
+readtime    lda   $C065       ; 10's of hour
+            and   #$F
+            ora   #'0'
+            sta   timestr
+            lda   $C064       ; 1's of hour
+            and   #$F
+            ora   #'0'
+            sta   timestr+1
+            lda   $C063       ; 10's of minute
+            and   #$F
+            ora   #'0'
+            sta   timestr+3
+            lda   $C062       ; 1's of minute
+            and   #$F
+            ora   #'0'
+            sta   timestr+4
+            lda   $C061       ; 10's of seconds
+            and   #$F
+            ora   #'0'
+            sta   timestr+6
+            lda   $C060       ; 1's of seconds
+            and   #$F
+            ora   #'0'
+            sta   timestr+7
+            rts
+
+* convert time to 12hr format
+*----------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$F
+            tay
+            txa
+            and   #$F
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+* variables
+*-------------------------------
+
+timestr     asc   '00:00:00   '00
+
+            ds    \
+
diff --git a/Config/CLOCKS/VERSA.S b/Config/CLOCKS/VERSA.S
new file mode 100644
index 0000000..024e842
--- /dev/null
+++ b/Config/CLOCKS/VERSA.S
@@ -0,0 +1,184 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Promethus Versacard Driver
+*-------------------------------
+* Revised Date: 08/02/87
+*-------------------------------
+
+            rel
+            dsk   CLOCKS/rel/versa
+
+versa       ent
+
+            org   $A00
+
+*-------------------------------
+
+get_time    equ   $82
+mli         equ   $bf00
+date        equ   $bf90
+
+slot        hex   40
+mode        db    0
+
+            jmp   getdate
+            jmp   gettime
+            jmp   setdate
+
+* get the date in prodos gbbs format
+*-------------------------------
+
+getdate     jsr   mli         ; mli call
+            db    get_time
+            hex   0000        ; no pramater table
+
+            ldx   date
+            lda   date+1
+setdate     rts
+
+* get the current time
+*-------------------------------
+
+gettime     jsr   rdtime
+            lda   mode
+            bpl   gtime1
+            jsr   convert
+
+gtime1      ldx   #<timestr   ; point to string
+            lda   #>timestr
+            rts
+
+* figure the current time
+*-------------------------------
+
+rdtime      jsr   rdclock
+            lda   timestr
+            pha               ; fix hour (remove) am/pm info)
+            and   #%00110011
+            sta   timestr
+            pla
+
+            lsr
+            lsr
+            lsr               ; move am/pm bit into carry
+            bcc   gettim2     ; it is am (default)
+
+            lda   #'P'        ; change to pm
+            sta   timestr+9
+
+gettim2     lsr               ; move 12/24 hour bit into carry
+            bcc   gettim3     ; in 12 hour mode, all is well
+
+            lda   #' '        ; in 24 hour mode kill am/pm
+            sta   timestr+9
+            sta   timestr+10
+
+gettim3     rts
+
+* read the date from clock
+*----------------------------
+
+rdclock     ldx   #0
+            ldy   slot        ; get slot offset
+rdclk2      lda   clkparm,x   ; get function
+            beq   rdclk4
+            bmi   rdclk3      ; just ascii data
+
+            and   #%00111111  ; kill high status info
+            sta   $C082,y     ; point to data
+
+            lda   $C083,y     ; load in data
+            and   #%00001111  ; get rid of extra
+            ora   #'0'        ; make into numeric digit
+rdclk3      and   #$7F        ; kill high (from ascii)
+            sta   timestr,x
+            inx
+            jmp   rdclk2      ; go until out of data
+
+rdclk4      rts
+
+* convert time to 12hr format
+*--------------------------------
+
+convert     lda   timestr     ;convert to 12 hour
+            ldx   timestr+1
+
+            and   #$F
+            tay
+            txa
+            and   #$F
+
+            dey
+            bmi   conv2
+            clc
+            adc   #10
+            dey
+            bmi   conv2
+            adc   #10
+
+conv2       cmp   #12
+            bne   conv2a
+            lda   #24
+conv2a      tay
+            bne   conv3
+            lda   #12
+
+conv3       ldx   #'A'
+            cmp   #13
+            bcc   conv4
+
+            sbc   #12
+            ldx   #'P'
+
+conv4       ldy   #'0'
+conv5       cmp   #10
+            bcc   conv6
+
+            sbc   #10
+            iny
+            bne   conv5
+
+conv6       ora   #'0'
+            sta   timestr+1
+            sty   timestr
+            stx   timestr+9
+            ldx   #'M'
+            stx   timestr+10
+            rts
+
+* convert a 2 byte decimal number to binary
+*--------------------------------
+
+decbin8     and   #$7F
+            sec
+            sbc   #'0'
+            sta   decbyte     ; save 10's digit
+            txa               ; move 1's into A
+            and   #$7F
+            sec
+            sbc   #'0'
+
+            ldy   #10
+dec8a       clc
+            adc   decbyte     ; add the 10's digit, 10 times
+            dey
+            bne   dec8a
+            rts               ; return with result
+
+decbyte     hex   00
+
+* variables
+*-------------------------
+
+timestr     asc   '00:00:00 AM'00
+
+clkparm     hex   1514
+            asc   ":"
+            hex   1312
+            asc   ":"
+            hex   1110
+            asc   " AM"
+            hex   00
+
diff --git a/Config/CMD.S b/Config/CMD.S
new file mode 100644
index 0000000..692c0c7
--- /dev/null
+++ b/Config/CMD.S
@@ -0,0 +1,36 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+            REL
+            DSK   REL/CMD
+
+cls         EXT
+sv_drvs     EXT
+start       EXT
+init        EXT
+
+*-------------------------------
+* write the changes back into the drivers file
+*-------------------------------
+
+wrtchg      ENT
+            JSR   cls
+            JSR   sv_drvs     ; write configuration back to disk
+            JMP   start
+
+*-------------------------------
+* check to see if in init mode
+*-------------------------------
+
+chinit      ENT
+            BIT   init        ; in init mode?
+            BPL   :chinit2    ; nope
+
+            PLA               ; return to init routine
+            PLA
+:chinit2    RTS               ; return to caller
+
diff --git a/Config/DEFAULTS.S b/Config/DEFAULTS.S
new file mode 100644
index 0000000..5b26cda
--- /dev/null
+++ b/Config/DEFAULTS.S
@@ -0,0 +1,37 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Date: 12/1/89
+*-------------------------------
+* system defaults
+*-------------------------------
+
+            REL
+            DSK   REL/DEFAULTS
+
+TopBox      EXT
+print       EXT
+cls         EXT
+get_cr      EXT
+start       EXT
+
+                              ; change system defaults
+do_dflts    ENT
+            JSR   TopBox
+            JSR   print
+            DB    1,2,27
+            ASC   '- Edit System Defaults -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix D of your user'
+            ASC   ' manual for more information.'00
+            JSR   cls
+
+            JSR   print
+            DB    1,10,10
+            ASC   'code for editing the system defaults'
+            ASC   ' will go here.'00
+
+            JSR   get_cr
+            JMP   start
+
diff --git a/Config/DISK.S b/Config/DISK.S
new file mode 100644
index 0000000..bea7d16
--- /dev/null
+++ b/Config/DISK.S
@@ -0,0 +1,361 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Disk stuff for config
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+            REL
+cr          =     $D
+
+lnbuf       =     $200
+drvbuf      =     $800
+flname      =     $300
+fbuf1       =     $1C00
+fbuf2       =     fbuf1
+fnam1       =     $1E00
+msgbuf      =     fbuf1
+mli         =     $BF00
+
+            DSK   REL/DISK
+
+p_pfx2      EXT
+logprg      EXT
+drvname     EXT
+movname     EXT
+msgref      EXT
+
+*-------------------------------
+* verify a that a disk is online
+
+verify      ENT
+            STX   verify_p+1  ; point to wanted path
+            STA   verify_p+2
+
+            JSR   mli
+            DB    $C6         ; set prefix
+            DA    verify_p
+            BCS   :error
+
+            JSR   mli         ;get prefix for source volume
+            DB    $C7         ;get prefix
+            DA    p_pfx2      ;point to path
+:error      RTS
+
+verify_p    DB    1
+            DA    0           ;address of path to set
+
+*-------------------------------
+* load config/acos.obj from disk
+
+ld_drvs     ENT
+            JSR   logprg      ; log to the program disk
+            LDX   #<drvname
+            LDA   #>drvname
+            JSR   movname     ; move filename
+            JSR   open        ; open 'LLUCE.DRIVERS'
+            BCS   :error      ; error
+
+            LDX   #<drvbuf    ; load config part into buffer
+            LDA   #>drvbuf
+            LDY   #18         ; read 9 pages (4 blocks)
+            JSR   rdblk
+            JSR   close       ; close file
+            CLC
+:error      RTS
+
+*-------------------------------
+* write config/acos.obj back to disk
+
+sv_drvs     ENT
+            JSR   logprg      ; log to program disk
+            LDX   #<drvname
+            LDA   #>drvname
+            JSR   movname     ; move filename
+            JSR   open
+            BCS   :error
+
+            LDX   #<drvbuf    ; write config back to disk
+            LDA   #>drvbuf
+            LDY   #18         ; write 9 pages (4 blocks)
+            JSR   wrblk
+            JSR   close
+            CLC
+:error      RTS
+
+refnum      ENT
+            DB    0
+
+create      ENT
+            STY   p_creat+4   ; save filetype
+            JSR   mli
+            DB    $C0
+            DA    p_creat
+            RTS
+
+open        ENT
+            LDY   #0
+bfopen      ENT
+            LDA   bufadr,y    ; point at buffer
+            STA   p_open+4
+
+            JSR   mli
+            DB    $C8         ; open
+            DA    p_open
+            BNE   :open2
+
+            LDA   p_open+5    ; save refnum
+            STA   refnum
+            CLC
+            RTS
+
+:open2      LDA   #-1         ; make sure refnum is illegal
+            STA   refnum
+            SEC
+            RTS
+
+bufadr      DB    >fbuf1,>fbuf2,>msgbuf
+
+close       ENT
+            LDA   refnum      ; use refnum
+            STA   p_close+1
+            JSR   mli
+            DB    $CC         ; close
+            DA    p_close
+            RTS
+
+flush       ENT
+            LDA   refnum      ; use refnum
+            STA   p_close+1
+            JSR   mli
+            DB    $CD         ; flush
+            DA    p_close
+            RTS
+
+; setup for single line read
+rdlnset     ENT
+            LDA   refnum
+            STA   p_new0+1    ; save refnum
+            STA   p_new1+1
+            STA   p_rdln+1
+
+            JSR   mli
+            DB    $C9         ; enable newline
+            DA    p_new1
+            RTS
+
+; read a line from a file
+rdline      ENT
+            JSR   mli
+            DB    $CA         ; read
+            DA    p_rdln
+            BNE   :rdline2    ; read error
+
+            LDX   p_rdln+6    ; is there a cr at end of line?
+            LDA   lnbuf-1,x
+            AND   #$7F
+            CMP   #cr
+            BNE   :rdline2    ; no more stuff
+            CLC
+            RTS
+
+:rdline2    LDA   #0          ; no data in line
+            STA   lnbuf
+            SEC               ; eof
+            RTS
+
+; read a single byte
+rdbyte      ENT
+            LDA   refnum      ; save refnum
+            BEQ   :rdbyte2
+
+            STA   p_rbyt+1
+            JSR   mli
+            DB    $CA         ; read 1 byte
+            DA    p_rbyt
+            BNE   :rdbyte2
+
+            LDA   p_byte      ; get byte
+            CLC               ; were done
+            RTS
+
+:rdbyte2    LDA   #0          ; fake data
+            SEC
+            RTS
+
+; write a block for the msg routines
+wrblk       ENT
+            PHA
+            LDA   #$CB        ; use write call
+            STA   rwtype      ; --- does modify
+            PLA
+            BRA   rwblk
+
+; read a block for the msg routines
+rdblk       ENT
+            PHA
+            LDA   #$CA        ; use read call
+            STA   rwtype      ; --- does modify
+            PLA
+
+rwblk       STX   p_rdblk+2
+            STA   p_rdblk+3   ; save read address
+
+            LDA   #0
+            STA   p_rdblk+4
+            STY   p_rdblk+5   ; save number of blocks to read
+
+            LSR   p_rdblk+5   ; divide by 2 and
+            ROR   p_rdblk+4   ; put remainder
+
+            LDA   refnum      ; get refnum
+            STA   p_rdblk+1
+
+            JSR   mli         ; call mli
+rwtype      DB    $CA         ; *** modified ***
+            DA    p_rdblk
+            RTS
+
+; write a byte of data
+wrbyte      ENT
+            STA   p_byte      ; save data
+            PHA
+            LDA   refnum
+            BEQ   :wrbyte2    ; if no refnum
+
+            STA   p_rbyt+1
+            JSR   mli
+            DB    $CB         ; write byte
+            DA    p_rbyt
+            CLC               ; all is well
+            BEQ   :wrbyte3
+
+:wrbyte2    SEC               ; opps, problem
+:wrbyte3    PLA               ; get back data
+            RTS
+
+; position file
+posmsg      ENT
+            LDY   msgref      ; save refnum
+            STY   refnum
+
+            LSR               ; setup Y,A,X w/exact byte
+            TAY
+            TXA
+            ROR
+            PHA
+            LDA   #16
+            ROR
+            TAX
+            PLA
+            JMP   setpos
+
+; find the end of file
+geteof      ENT
+            LDA   refnum      ; save refnum
+            STA   p_mark+1
+            JSR   mli
+            DB    $D1         ; get eof
+            DA    p_mark
+            LDX   p_mark+2
+            LDA   p_mark+3    ; get length
+            LDY   p_mark+4
+            RTS
+
+; set a mark into a file
+setmark     ENT
+            LDY   #0
+; do actual position set within file
+setpos      ENT
+            STX   p_mark+2
+            STA   p_mark+3    ; point to new location
+            STY   p_mark+4
+
+            LDA   refnum
+            STA   p_mark+1    ; save refnum
+
+:setpos2    JSR   mli
+            DB    $CE         ; set mark
+            DA    p_mark
+            CMP   #$4D        ; check for out-of-range
+            BNE   :setpos3
+
+            JSR   mli
+            DB    $D0         ; set eof
+            DA    p_mark
+            BEQ   :setpos2    ; position again
+
+:setpos3    RTS
+
+; get current file marker
+getmark     ENT
+            LDA   refnum      ; save refnum
+            STA   p_mark+1
+            JSR   mli
+            DB    $CF         ; get mark
+            DA    p_mark
+            SEC
+            BNE   :getmrk2    ; opps, error
+
+            CLC
+            LDX   p_mark+2    ; all is well
+            LDA   p_mark+3
+:getmrk2    RTS
+
+; ------ parms ------
+p_open      DB    3
+            DA    flname
+            DA    fbuf1
+            DB    0
+
+p_close     DB    1
+            DB    0
+
+p_rbyt      DB    4
+            DB    0
+            DA    p_byte
+            DA    1
+            DA    0
+
+p_byte      DB    0
+
+p_mark      DB    2
+            DB    0
+            DB    0,0,0
+
+p_new0      DB    3
+            DB    0
+            DB    0
+            DB    0
+
+p_new1      DB    3
+            DB    0
+            DB    $7F
+            DB    $D
+
+p_rdln      DB    4
+            DB    0
+            DA    lnbuf
+            DA    $FF
+            DA    0
+
+p_rdblk     DB    4
+            DB    0
+            DA    0
+            DA    $80
+            DA    0
+
+p_del       DB    1
+            DA    flname
+
+p_creat     DB    7
+            DA    flname
+            DB    $c3
+            DB    0
+            DA    0
+            DB    1
+            DA    0
+            DA    0
+
diff --git a/Config/EQUATES.S b/Config/EQUATES.S
new file mode 100644
index 0000000..8f64d9d
--- /dev/null
+++ b/Config/EQUATES.S
@@ -0,0 +1,83 @@
+            LST   OFF
+            tr
+            tr    adr
+********************************
+*                              *
+*   Config Program - Equates   *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+bs          =     8
+lf          =     $A
+up          =     $B
+cr          =     $D
+fs          =     $15
+can         =     $18
+esc         =     $1B
+del         =     $7F
+
+; memory allocation / buffers
+
+*index = $200 ; offset to skip over lluce header info
+lnbuf       =     $200
+flname      =     $300
+fltext      =     $301
+reset       =     $3f2
+dvrbuf      =     $800        ; start of driver buffer space
+prdrv       =     $900        ; printer driver is at $900-$9ff
+clkdrv      =     $A00        ; clocks driver is at $a00-$aff
+mdmdrv      =     $B00        ; modem driver is at $b00-$fff
+pfilter     =     $1000       ; profanity filter is at $1000-$10ff
+cdbyte      =     $10BF       ; carrier detect byte
+ansstr      =     $10C0       ; modem answer string
+initstr     =     $10D0       ; modem init string
+hdrbuf      =     $1100       ; buffer for editing the profanity filter
+
+cdtype      =     $1FFD
+modemtype   =     $1FFE
+serialtype  =     $1FFF
+
+mli         =     $BF00
+
+initbuf     =     $1800
+ansbuf      =     $1830
+fbuf1       =     $1C00
+fnam1       =     $1E00
+
+sortbuf     =     $8000
+copybuf     =     $6000
+copymax     =     $5800
+; zero page usage
+
+temp        =     0
+temp2       =     2
+temp3       =     4
+temp4       =     6
+x_save      =     9
+y_save      =     $A
+chrptr      =     $B
+base        =     $D
+maxlen      =     $F
+inverse     =     $10
+point0      =     $11
+point1      =     $14
+prn         =     $16         ; [4 bytes]
+numptr      =     $1A
+psave       =     $1C
+prnt        =     $1E
+
+ch          =     $24
+cv          =     $25
+
+fmparm      =     $60
+doszero     =     $62
+dosptr      =     $64
+part        =     $66
+dosbyt      =     $68
+
+point3      =     $FD
+
diff --git a/Config/FILTER.S b/Config/FILTER.S
new file mode 100644
index 0000000..dbfeeca
--- /dev/null
+++ b/Config/FILTER.S
@@ -0,0 +1,246 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+            REL
+temp2       =     $02
+
+ch          =     $24
+cv          =     $25
+
+lnbuf       =     $200
+filtbuf     =     $1000
+hdrbuf      =     $1100
+
+            DSK   REL/FILTER
+
+TopBox      EXT
+print       EXT
+cls         EXT
+cout        EXT
+maxlen      EXT
+inpmode     EXT
+inpln       EXT
+inpyn       EXT
+cleos       EXT
+start       EXT
+get_cr      EXT
+
+*-------------------------------
+* profanity filter
+*-------------------------------
+
+; change profanity filter (yuk)
+
+do_filt     ENT
+            JSR   TopBox
+            JSR   print
+            DB    1,2,27
+            ASC   '- Edit Profanity Filter -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix E of your user'
+            ASC   ' manual for more information.'00
+            JSR   cls
+
+            LDX   #0          ; move table to a different space
+:loop       LDA   filtbuf,X   ; so we don't change it if they abort
+            STA   hdrbuf,X
+            DEX
+            BNE   :loop
+
+filt2       LDA   #0          ; start at #1
+            STA   temp2
+
+:filt3      LDX   temp2       ; get entry number
+            JSR   fndword     ; find the word
+            BCS   filt5       ; opps, end of table
+
+            LDA   ch          ; save current horiz
+            PHA
+
+            LDA   temp2       ; print entry letter
+            CLC
+            ADC   #'A'
+            JSR   cout
+            INC   temp2       ; goto next entry next pass
+
+            LDA   #')'        ; show a border
+            JSR   cout
+            INC   ch          ; move over 1 space
+
+:filt4      LDA   hdrbuf,Y    ; get data
+            PHP
+            JSR   cout        ; print data
+            INY
+            PLP
+            BPL   :filt4      ; keep showing
+
+            PLA
+            CLC
+            ADC   #19
+            STA   ch          ; move over horiz position
+
+            LDA   #' '        ; either wrap or move 1 space
+            JSR   cout
+            JMP   :filt3
+
+filt5       JSR   print
+            DB    1,20,0
+            ASC   'Cmd: A=Add, D=Delete, Q=Quit ? '00
+
+            LDA   #1
+            STA   maxlen      ; get command
+            LDA   #%10000000
+            STA   inpmode
+            JSR   inpln
+
+            LDA   lnbuf
+            CMP   #'A'
+            BNE   :tryd
+            JMP   fl_add
+
+:tryd       CMP   #'D'
+            BEQ   fl_del
+:tryq       CMP   #'Q'
+            BNE   filt5
+            JMP   fl_quit
+
+*-------------------------------
+* delete a word from list
+
+fl_del      LDX   #20
+            JSR   cleos       ; clear line
+            JSR   print
+            DB    1,20,0
+            ASC   'Delete [A-'00
+
+            CLC
+            LDA   temp2
+            ADC   #'@'
+            JSR   cout        ; print range
+
+            JSR   print
+            ASC   '] ? '00
+
+            LDA   #%10000000
+            STA   inpmode     ; set mode
+
+            JSR   inpln       ; get data
+            LDA   lnbuf
+            CMP   #'A'
+            BCC   filt5       ; move back, error
+
+            SEC
+            SBC   #'A'        ; make into [0-xxx] range
+            CMP   temp2
+            BCC   *+5
+            JMP   filt5       ; out of range
+
+            PHA
+            TAX
+            INX
+            JSR   fndword     ; locate second word
+            STY   temp2+1     ; save offset
+            PLA
+            TAX
+            JSR   fndword     ; locate first word
+            LDX   temp2+1     ; point to second word
+
+:fl_del2    LDA   hdrbuf,X    ; move data
+            STA   hdrbuf,Y
+            INY
+            INX
+            BNE   :fl_del2    ; loop
+            JMP   filt2       ; show new screen
+
+; add a word to list
+fl_add      LDX   #20
+            JSR   cleos       ; clear line
+            JSR   print
+            DB    1,20,0
+            ASC   'Enter new word: '00
+
+            LDA   #16         ; 16 chars max length
+            STA   maxlen
+            LDA   #%10000000
+            STA   inpmode     ; set input mode
+
+            JSR   inpln       ; get the data
+            LDA   lnbuf
+            CMP   #'A'
+            BCC   :fl_add4    ; abort
+
+            LDX   temp2       ; get last word
+            JSR   fndword     ; find end
+            STY   temp2+1     ; save current end
+
+            LDX   #0
+:fl_add2    LDA   lnbuf,X
+            CMP   #'A'
+            BCC   :fl_add3
+
+            STA   hdrbuf,Y    ; add byte
+            INX
+            INY
+            BNE   :fl_add2    ; and loop
+
+            LDA   #0
+            LDY   temp2+1     ; mark old end of table
+            STA   hdrbuf,Y
+
+            JSR   print
+            DB    1,20,0
+            ASC   'Error: Filter Table Overrun.   Press [RETURN] '00
+            JSR   get_cr      ; wait for cr
+:fl_add4    JMP   filt5       ; get new data
+
+:fl_add3    LDA   #0          ; mark end of table
+            STA   hdrbuf,Y
+            DEY
+            LDA   hdrbuf,Y    ; mark as last char
+            ORA   #$80
+            STA   hdrbuf,Y
+            JMP   filt2       ; show new table
+
+; quit from filter changer
+fl_quit     LDX   #20
+            JSR   cleos       ; clear bottom of screen
+            JSR   print
+            DB    1,20,0
+            ASC   'Is the above table correct [Y/N] ? '00
+            JSR   inpyn
+            BCS   :fl_q1      ; nope!
+
+            LDX   #0          ; put new table in place over
+:loop       LDA   hdrbuf,X    ; the old table and return
+            STA   filtbuf,X
+            BNE   :loop
+:fl_q1      JMP   start
+
+; locate a word [indexed by x]
+fndword     LDY   #0
+            CPX   #0          ; we done?
+            BEQ   :fndwd2     ; yep
+
+:fndwd1     LDA   hdrbuf,Y    ; loop until next word
+            BEQ   :fndwd4     ; end of table
+
+            INY               ; goto next byte
+            ASL               ; check high bit
+            BCC   :fndwd1
+
+            DEX               ; count down entries
+            BNE   :fndwd1
+
+:fndwd2     LDA   hdrbuf,Y
+            BEQ   :fndwd4     ; opps, that is end marker
+
+:fndwd3     CLC
+            RTS               ; we are done
+
+:fndwd4     SEC               ; opps, end of table
+            RTS
+
diff --git a/Config/GLOBALS.S b/Config/GLOBALS.S
new file mode 100644
index 0000000..744cd6f
--- /dev/null
+++ b/Config/GLOBALS.S
@@ -0,0 +1,78 @@
+            LST   OFF
+            TR
+            TR    ADR
+            TTL   'LLUCE - Global page'
+            PAG
+*-------------------------------
+* History:
+*
+* 11/07/89 AMW
+* 1. Added history section
+* 2. Added segment titles
+* 3. Renamed this section to GLOBALS
+*
+* 11/10/89 AMW
+* Added AppleShare flag
+*
+* 11/14/89 AMW
+* Added ProDOS entry point vector
+*
+* 11/21/89 AMW
+* Moved startup filename to LLUCE
+*
+* 11/23/89 AMW
+* Added CRC16 location
+*
+* 11/28/89 AMW
+* Added time display flag
+*-------------------------------
+
+; to be created by the config program
+NODENUM     DB    0
+            DW    SEG_NAME
+MODULE      DW    0
+
+VERSION     DDB   version
+
+STPCHR      DB    ' '                    ; stop message char
+NXTCHR      DB    'N'                    ; next message char
+
+WIDTH       DB    4                      ; index for default
+            DB    32,40,64,80
+
+FILTLOC     DB    0
+
+WWFLAG      DB    -1                     ; word-wrap flag for editor
+
+REFNUM      DB    0
+MSGREF      DB    0
+            DW    FBUF2
+
+SHWTXT      DB    0
+SHWTRC      DB    0                      ; show program trace
+
+TOCONST     DW    159
+
+EDLOC       DW    EDBUF
+EDITLEN     DW    EDBUF+EBUFEND
+EDMEMORY    DB    0                      ; if negative, buffer in aux
+FILTFLAG    DB    1
+
+ASHARE      DB    0                      ; AppleShare flag
+PDOSVEC     DA    0
+
+CRC         DA    0
+
+TIMEDISP    DB    $80                    ; 0=24 hour, $80=12 hour
+
+                                         ; modem(0) commands in LLUCE
+M_QUIT      DB    'Q'-ctrl               ; quit
+M_LOGIN     DB    'G'-ctrl               ; enter
+M_ANSWER    DB    'A'-ctrl               ; answer
+
+            DS    $840-*
+
+FLNAME      DS    $40                    ; last filename used
+SEG_NAME    DS    $40                    ; start up segment pathname
+SYSPFX      DS    $40                    ; system files prefIX
+
diff --git a/Config/INIT.S b/Config/INIT.S
new file mode 100644
index 0000000..e45ff34
--- /dev/null
+++ b/Config/INIT.S
@@ -0,0 +1,803 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* config/init
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+            REL
+cr          =     $D
+
+temp        =     0
+temp2       =     2
+temp3       =     4
+temp4       =     6
+
+confbuf     =     $800
+devnam      =     $815
+
+copybuf     =     $6000
+copymax     =     $5800
+
+mli         =     $BF00
+
+            DSK   REL/INIT
+
+begin       EXT
+escape      EXT
+cls         EXT
+print       EXT
+maxlen      EXT
+inpmode     EXT
+inpln       EXT
+copyinp     EXT
+ucopyinp    EXT
+prstr       EXT
+inpyn       EXT
+re_mdm      EXT
+re_pr       EXT
+re_clk      EXT
+TopBox      EXT
+inpnum      EXT
+get_cr      EXT
+chkspc      EXT
+bindec8     EXT
+setspec     EXT
+get_ok      EXT
+setdrv      EXT
+setsys      EXT
+settac      EXT
+makesys     EXT
+maketac1    EXT
+maketac2    EXT
+dstpfx      EXT
+do_quit     EXT
+verify      EXT
+p_crpth     EXT
+copy        EXT
+movname     EXT
+logdst      EXT
+open        EXT
+wrblk       EXT
+close       EXT
+create      EXT
+logcon      EXT
+cout        EXT
+
+do_init     ENT
+            LDX   #<begin     ; setup esc handler
+            LDA   #>begin
+            JSR   escape
+
+            JSR   cls
+
+            LDA   #30
+            STA   maxlen
+            LDA   #%00000000
+            STA   inpmode
+
+            JSR   print
+            ASC   'What are you going to call your system?'0D
+            ASC   ':'00
+            JSR   inpln
+
+            LDX   #<datadef
+            LDA   #>datadef
+            LDY   #cr
+            JSR   copyinp     ; copy name into file
+            STX   temp4
+            STA   temp4+1
+
+            LDA   #20         ; limit length
+            STA   maxlen
+
+            JSR   print
+            HEX   0D
+            ASC   'Enter your FULL name (20 characters max)'0D
+            ASC   ':'00
+            JSR   inpln       ; get name
+
+            LDX   #<user      ; copy line uppercase
+            LDA   #>user
+            LDY   #cr
+            JSR   ucopyinp
+            LDY   #cr
+            JSR   copyinp     ; copy the line
+            STX   temp3
+            STA   temp3+1
+
+            LDX   temp4
+            LDA   temp4+1
+            LDY   #cr
+            JSR   copyinp
+            STX   temp4
+            STA   temp4+1
+
+            LDY   #0
+init1d      LDA   user,Y
+            INY
+            CMP   #$20
+            BNE   init1d
+            DEY
+            LDA   #','
+            STA   user,Y
+
+init2       LDA   #%11000000
+            STA   inpmode
+
+            JSR   print
+            HEX   0D
+            ASC   'Enter your telephone number'0D
+            ASC   '(XXX-XXX-XXXX): '00
+
+            JSR   inpln       ; get tele number
+            CPY   #12
+            BNE   init2
+
+            LDX   #<usrtele
+            LDA   #>usrtele
+            LDY   #0
+            JSR   copyinp     ; copy the line
+
+            LDA   #16
+            STA   maxlen      ; set length for city
+
+            JSR   print
+            HEX   0D
+            ASC   'What city do you call from (16 char)'0D
+            ASC   ':'00
+
+            JSR   inpln       ; get where from
+            LDX   temp3
+            LDA   temp3+1
+            LDY   #','
+            JSR   copyinp     ; copy the input
+            STX   temp2
+            STA   temp2+1
+
+            LDA   #2
+            STA   maxlen      ;set length for state
+
+init2a      JSR   print
+            HEX   0D
+            ASC   'What state do you call from (XX):'00
+
+            JSR   inpln       ;get state
+            CPY   #2
+            BNE   init2a
+            LDX   temp2
+            LDA   temp2+1
+            LDY   #cr
+            JSR   copyinp     ;copy to date area
+
+            LDA   #8
+            STA   maxlen
+
+init3       JSR   cls
+            JSR   print
+            ASC   'Enter a 4-8 char password:'00
+
+            JSR   inpln
+            CPY   #4
+            BCC   init3
+
+            LDX   #<usrpass
+            LDA   #>usrpass
+            LDY   #0
+            JSR   copyinp     ; copy the line
+
+            LDA   #20
+            STA   maxlen
+
+            JSR   print
+            HEX   0D
+            ASC   'Enter a second password for remote logon (1-20 chars)'0D
+            ASC   ':'00
+
+            JSR   inpln       ; get second password
+            LDX   temp4
+            LDA   temp4+1
+            LDY   #cr
+            JSR   copyinp     ; copy password into data file
+            STX   temp4
+            STA   temp4+1     ; save new pointers
+
+            LDY   #0
+init3a      LDA   xdata,Y     ; copy rest of the data file
+            STA   (temp4),Y
+            INY
+            CMP   #0
+            BNE   init3a
+
+            JSR   cls         ; clear screen
+            JSR   print
+            DB    1,7,30
+            ASC   '- System Information -'0D0D
+            ASC   'System Name: '00
+
+            LDX   #<datadef
+            LDA   #>datadef
+            LDY   #cr+128
+            JSR   prstr       ; show system name
+            STX   temp4
+            STA   temp4+1
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Sysop Name: '00
+
+            LDX   temp4
+            LDA   temp4+1
+            LDY   #cr+128
+            JSR   prstr       ; show sysop name
+            STX   temp4
+            STA   temp4+1
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Sysop Phone Number: '00
+
+            LDX   #<usrtele
+            LDA   #>usrtele
+            LDY   #13
+            JSR   prstr       ; show tele number
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Sysop is From: '00
+
+            LDX   temp3
+            LDA   temp3+1
+            LDY   #cr+128
+            JSR   prstr       ; show where from
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Logon Password:  '00
+
+            LDX   #<usrpass
+            LDA   #>usrpass
+            LDY   #9
+            JSR   prstr       ; show main password
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Remote Password: '00
+
+            LDX   temp4
+            LDA   temp4+1
+            LDY   #cr+128
+            JSR   prstr       ; show remote password
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Is this information correct? [Y/N] '00
+
+            JSR   inpyn
+            BCC   init4
+            JMP   do_init
+
+*-------------------------------
+
+init4       LDA   #-1
+            STA   init        ; set init mode
+
+einit1      JSR   re_mdm
+einit2      LDX   #<einit1
+            LDA   #>einit1    ; if esc, go back 1 level
+            JSR   escape
+            JSR   re_pr
+einit3      LDX   #<einit2
+            LDA   #>einit2
+            JSR   escape
+            JSR   re_clk
+
+*-------------------------------
+
+            LDY   #<devnam
+            LDA   #0
+:loop       STA   confbuf,Y   ; zero out pathname buffer
+            INY
+            BNE   :loop
+
+*-------------------------------
+* start the hardware config
+
+hard1       LDX   #<einit3
+            LDA   #>einit3    ; backup 1 level
+            JSR   escape
+
+            JSR   TopBox
+            JSR   print
+            DB    1,2,22
+            ASC   '- Copy Files to Mass Storage Device -'
+            DB    1,4,13
+            ASC   'Please refer to your user manual for more information.'00
+
+            JSR   cls
+            JSR   print
+            ASC   'Please enter the slot and drive of your '
+            ASC   'mass storage device. If your media is'0D0D
+            ASC   'removable, then please make sure there '
+            ASC   'is formatted media in place.'0D0D0D
+            ASC   '     Slot? [1-7] '00
+            LDX   #7
+            JSR   inpnum
+            STA   slot        ; save the slot
+
+            JSR   print
+            HEX   0D
+            ASC   '    Drive? [1-2] '00
+            LDX   #2
+            JSR   inpnum
+            STA   drive       ; save the drive
+            DEC   drive       ; make into [0-1] range
+
+            JSR   print
+            HEX   0D0D0D
+            ASC   'Is the above correct [Y/N] ? '00
+            JSR   inpyn
+            BCC   *+5
+            JMP   hard1       ;nope
+
+            JSR   cls
+            JSR   print
+            ASC   'If you continue, 2 subdirectories will'
+            ASC   ' be created on your mass storage'0D0D
+            ASC   'device. (MPRO.SEGS and MPRO.SYS) All'
+            ASC   ' needed files will be copied into'0D0D
+            ASC   'these subdirectories.  No existing files will be destroyed.'00
+            JSR   get_cr
+
+            LDA   #0          ; no more turning away..
+            JSR   escape      ; [p. floyd]
+
+            JSR   chkspc      ; check drive space
+            CMP   #3          ; are there are at least 768 blocks free?
+            BCC   *+5         ; not enough room
+            JMP   hard2
+
+            JSR   cls
+            JSR   print
+            ASC   'The storage device checked does not '
+            ASC   'contain enough storage space to run'0D0D
+            ASC   'the system. You need to make some '
+            ASC   'more room on the device, or'0D0D
+            ASC   'choose another device.'00
+
+            JSR   get_cr
+            JMP   hard1       ; goto hard/floppy question
+
+hard2       JSR   cls
+            JSR   print
+            ASC   'Should the MultiPro transfer system be installed'
+            ASC   'onto this device? [Y/N] '00
+
+            JSR   inpyn
+            BCC   :trans
+            LDA   #0
+            STA   settrans
+            STA   superlist   ;mark the end of the supertac list as such
+            JMP   :notrans
+
+:trans      LDA   #1
+            STA   settrans
+
+            JSR   print
+            HEX   0D0D0D
+            ASC   'Please enter the number of volumes that '
+            ASC   'should be allocated to the MultiPro'0D0D
+            ASC   'file transfer system.'0D0D0D
+            ASC   'Number of volumes? [1-99] '00
+
+            LDX   #99         ;max is 99
+            JSR   inpnum
+            STA   volumes
+
+            JSR   bindec8
+            STA   stacacc+2   ;sysop high (10's)
+            STX   stacacc+3   ;sysop high (1's)
+            STA   stacacc+7   ;user high
+            STX   stacacc+8   ;user high
+            STA   stacacc+12
+            STX   stacacc+13  ;elite high
+            STA   stacacc+17
+            STX   stacacc+18  ;priv high
+            STA   stacacc+22
+            STX   stacacc+23  ;board manager high
+
+:notrans    JSR   setspec
+            JSR   chkspc      ;reset
+
+            JSR   cls
+            JSR   print
+            ASC   'The configuration program is now going to '
+            ASC   'copy over all the files needed'0D0D
+            ASC   'to run MultiPro onto your mass storage device.'00
+
+            JSR   get_ok      ; get permission
+            JSR   cls
+
+            JSR   setdrv      ;create & log xxx/mpro.segs
+            JSR   make1       ;do copy in 3 parts
+            JSR   make2
+
+            JSR   chkspc      ;reset path to original drive
+
+            JSR   setsys      ;create & log xxx/mpro.sys
+            JSR   make3
+
+            LDA   settrans    ;did they want a transfer system?
+            BNE   :doit       ;yes, set it up
+            JMP   noxfer      ;nope, skip the next step
+
+:doit       JSR   settac      ;create & log xxx/mpro.sys/transfer/vol.
+            JSR   make4
+
+*-------------------------------
+* setup supertac volumes
+
+            JSR   chkspc      ;reset path to /xxx/
+            JSR   makesys     ;add /xxx/mpro.sys/
+            JSR   maketac1    ;add /xxx/mpro.sys/stac
+            JSR   maketac2    ;add /xxx/mpro.sys/stac/vol.
+
+            LDA   #0
+            STA   curvol      ;start at volume 1
+            INC   dstpfx      ;add one to length of destination prefix
+
+:loop       INC   curvol      ;++current volume
+            LDA   curvol      ;which volume are we at?
+            CMP   #10         ;did we do 10 yet?
+            BCC   :less10     ;nope, we have less than 10
+            CMP   #11         ;more than 9, but how much more?
+            BCS   :over10     ;>= 11, so we not right on 10
+            INC   dstpfx      ;smack dab on 10, so length is one greater
+
+:over10     JSR   bindec8     ;convert volume we're on to decimal
+
+            LDY   dstpfx      ;get current length
+            DEY               ;character before the end
+            STA   dstpfx,Y    ;store 10's
+            TXA               ;get 1's
+            INY               ;next character forward
+            STA   dstpfx,Y    ;store 1's
+
+            JSR   mli         ; create /xxx/mpro.sys/stac/vol.XX
+            DB    $C0         ; create new path
+            DA    p_crpth
+            JMP   :over
+
+:less10     LDX   dstpfx      ;add single number to end of prefix
+            CLC
+            ADC   #'0'        ;make it ascii
+            STA   dstpfx,X
+
+            JSR   mli         ; create /xxx/mpro.sys/stac/vol.X
+            DB    $C0         ; create new path
+            DA    p_crpth
+
+:over       LDA   curvol      ;how many volumes done
+            CMP   volumes     ;done 'em all yet?
+            BNE   :loop       ;nope, do some more
+
+*-------------------------------
+
+noxfer      JSR   cls
+            JSR   print
+            ASC   'Your system is now configured and is '
+            ASC   'ready to run. To bring up your system'0D0D
+            ASC   'for operation, do the following:'0D0D0D
+            ASC   'Boot up your mass storage device and '
+            ASC   'type "PREFIX MPRO.SEGS".'0D0D
+            ASC   'Type "-ACOS" to start your system running.'00
+
+            JSR   get_cr
+            JMP   do_quit
+
+volumes     DB    0
+curvol      DB    0
+
+*-------------------------------
+* copy boot stuff over
+*-------------------------------
+
+make1       LDX   #<disk1     ; is first disk online?
+            LDA   #>disk1
+            JSR   verify
+            BCC   :online     ; yes, it is
+
+            JSR   cls
+            JSR   print
+            ASC   'Please place MultiPro Disk #1, /CONFIG, online.'00
+
+            JSR   get_ok      ; wait for ok
+            JMP   make1       ;check it to make sure
+
+:online     JSR   cls
+            JSR   print
+            ASC   'Copying MultiPro...'00
+
+            LDX   #<list1     ; copy acos & acos.obj
+            LDA   #>list1
+            JSR   copy
+
+*-------------------------------
+
+            JSR   logdst      ; log to destination
+            LDX   #<gname2
+            LDA   #>gname2    ; open file
+            JSR   movname
+            JSR   open
+
+            LDX   #<confbuf
+            LDA   #>confbuf   ; write configured system out
+            LDY   #18         ; write 9 pages (16.5 blocks)
+            JSR   wrblk
+            JSR   close       ; close file
+
+            LDX   #<program
+            LDA   #>program   ; create file named "PROGRAM"
+            JSR   movname
+            LDY   #$F5        ; make into special type
+            JMP   create
+
+*-------------------------------
+* copy second set of files into XXX/MPRO.SEGS
+
+make2       LDX   #<disk2     ; is second disk in place?
+            LDA   #>disk2
+            JSR   verify
+            BCC   :online     ; yes, it is
+
+            JSR   cls
+            JSR   print
+            ASC   'Please place MultiPro Disk #2, /SEGS, online.'00
+
+            JSR   get_ok      ; wait for ok
+            JMP   make2
+
+:online     JSR   cls
+            JSR   print
+            ASC   'Copying MultiPro program segments...'00
+
+            LDX   #<list2     ; copy segments to xxx/mpro.segs
+            LDA   #>list2
+            JMP   copy
+
+*-------------------------------
+* make main part of disk in XXX/MPRO.SYS
+
+make3       LDX   #<disk3     ; is third disk in place?
+            LDA   #>disk3
+            JSR   verify
+            BCC   :online     ; yes, it is
+
+            JSR   cls
+            JSR   print
+            ASC   'Please place MultiPro Disk #3, /FILE, online.'00
+
+            JSR   get_ok      ; wait for ok
+            JMP   make3
+
+:online     JSR   cls
+            JSR   print
+            ASC   'Copying MultiPro system files...'00
+
+            LDX   #<list3     ; copy last 4 files
+            LDA   #>list3
+            JSR   copy
+
+            JSR   logdst      ; log to seg sub
+            LDX   #<usrname   ; open user file
+            LDA   #>usrname
+            JSR   movname
+            JSR   open
+
+            LDX   #<user-128  ; write out sysop data
+            LDA   #>user-128
+            LDY   #2          ; write 1 page (2 blocks)
+            JSR   wrblk
+
+            JSR   close       ; finish up
+
+            LDX   #<dtanam1
+            LDA   #>dtanam1   ; open data1 file
+            JSR   movname
+            JSR   open
+
+            LDX   #<datadef
+            LDA   #>datadef
+            LDY   #4          ; write 2 pages (4 blocks)
+            JSR   wrblk
+            JSR   close
+            JMP   logcon      ; log back
+
+*-------------------------------
+* make supertac segments
+
+make4       LDX   #<list4     ;copy protocol up/down
+            LDA   #>list4     ;and xdos
+            JSR   copy
+
+:loop       LDX   #<disk4     ; is fourth disk in place?
+            LDA   #>disk4
+            JSR   verify
+            BCC   :online     ; yes, it is
+
+            JSR   cls
+            JSR   print
+            ASC   'Please place MultiPro Disk #4, /STAC, online.'00
+
+            JSR   get_ok      ; wait for ok
+            JMP   :loop
+
+:online     JSR   cls
+            JSR   print
+            ASC   'Copying MultiPro transfer system files...'00
+
+            LDX   #<list5     ;copy supertac files
+            LDA   #>list5
+            JSR   copy
+
+* copy the access file to the supertac stuff
+
+            JSR   logdst      ;log to supertac seg parts
+            LDX   #<access    ;open user file
+            LDA   #>access
+            JSR   movname
+            JSR   open
+
+            LDX   #<stacacc   ;write out sysop data
+            LDA   #>stacacc
+            LDY   #1          ;write 128 bytes
+            JSR   wrblk
+
+            JSR   close       ;finish up
+            JSR   logcon      ;log back to config
+            RTS               ;oi, we be done!
+
+*-------------------------------
+* print the slot or drive
+
+prslot      LDA   slot
+            CLC
+            ADC   #'0'        ; print slot
+            JMP   cout
+
+prdriv      LDA   drive
+            CLC               ; print drive
+            ADC   #'1'
+            JMP   cout
+
+*-------------------------------
+* variables
+*-------------------------------
+
+init        ENT
+            DB    0
+
+diskid      DB    $A2,$20,$A0,0
+
+gname2      STR   'ACOS.OBJ'
+program     STR   'PROGRAM'
+access      STR   'ACCESS'
+
+slot        ENT
+            DB    0
+drive       ENT
+            DB    0
+dtanam1     STR   'DATA1'
+
+user        DS    70
+usrpass     ASC   '        '
+usrtele     ASC   'xxx-xxx-xxxx'
+            DA    0           ;when$
+            DB    %11111110,%11111111,%11111111
+            DB    %11111111,%00000111
+            DB    $50,0,0,0,0,0,0,0,0,0
+            DS    20          ;bytes
+
+datadef     ASC   'System Name'0D
+            ASC   'Sysop Name'0D
+            ASC   'Second Password'0D
+
+            DS    120
+
+xdata       ASC   '---------------------------------------'0D
+            ASC   'Ctrl-S Stop/Start  Spacebar to Exit'0D
+            ASC   'Press N for Next Bulletin'0D
+            ASC   '1,0'0D
+            DB    0
+
+condata     ASC   ' '
+            ASC   'N'
+            DB    2
+            DB    32,40,64,80
+
+stacacc     ASC   '1'0D       ;sysop low access
+            ASC   '50'0D      ;sysop high access
+            ASC   '1'0D       ;user low access
+            ASC   '50'0D      ;user high access
+            ASC   '1'0D       ;elite low access
+            ASC   '50'0D      ;elite high access
+            ASC   '1'0D       ;priv low access
+            ASC   '50'0D      ;priv high access
+            ASC   '1'0D       ;board manager low access
+            ASC   '50'0D      ;board manager high access
+            HEX   0D0D
+
+*-------------------------------
+* lists for identifying files
+
+disk1       STR   '/CONFIG'00
+disk2       STR   '/SEGS'00
+disk3       STR   '/FILE'00
+disk4       STR   '/STAC'00
+
+usrname     ASC   'system/sys.users'00
+
+list1       ASC   'lluce.system'00
+            ASC   'lluce.druvers'00
+            DB    00
+
+list2       ASC   'logon.seg.s'00
+            ASC   'main.seg.s'00
+            ASC   'msg.seg.s'00
+            ASC   'system.seg.s'00
+            ASC   'maint.seg.s'00
+            ASC   'mail.seg.s'00
+
+* supertac segments
+* a 00 is placed here if they don't want to include the
+* transfer system's segments
+
+settrans    DB    0
+superlist   ASC   'supertac.s'00
+            ASC   'supertac.sys.s'00
+            ASC   'supertac.aux.s'00
+            ASC   'purge.seg.s'00
+            DB    00
+
+list3       ASC   'bbs'00
+            ASC   'data'00
+            ASC   'data1'00
+            ASC   'data2'00
+            ASC   'g1'00
+            ASC   'g1.1'00
+            ASC   'g1.2'00
+            ASC   'g1.3'00
+            ASC   'hlp.edit'00
+            ASC   'hlp.main'00
+            ASC   'hlp.msg'00
+            ASC   'hlp.user'00
+            ASC   'mnu.val.40'00
+            ASC   'mnu.val.80'00
+            ASC   'mnu.new'00
+            ASC   'sys.newinfo'00
+            ASC   'sys.news'00
+            ASC   'sys.info'00
+            ASC   'sys.questions'00
+            ASC   'users'00
+            ASC   'v1.1'00
+            ASC   'v1.2'00
+            ASC   'v1.3'00
+            ASC   'v1.4'00
+            ASC   'b1'00
+
+list4       ASC   'protocol.up'00
+            ASC   'protocol.down'00
+            ASC   'xdos'00
+            DB    00
+
+list5       ASC   'access'00
+            ASC   'xshow'00
+            ASC   'xcat'00
+            ASC   'menu.supertac'00
+            ASC   'menu.sysop'00
+            ASC   'menu.aux'00
+            ASC   'menu.batch'00
+            DB    00
+
diff --git a/Config/INITSTR.S b/Config/INITSTR.S
new file mode 100644
index 0000000..2acf5d1
--- /dev/null
+++ b/Config/INITSTR.S
@@ -0,0 +1,38 @@
+            LST   OFF
+            TR
+            TR    ADR
+
+            REL
+            DSK   REL/INITSTR
+
+*-------------------------------
+* init strings for modems
+*-------------------------------
+
+usr2400     ENT
+            ASC   'ATX2S0=0S2=128E0V0F1Q0'0d00
+
+usr9600     ENT
+            ASC   'ATX6&S1&D2V0S0=0S2=128E0F1Q0'0d00
+
+cts         ENT
+            ASC   'ATX3S0=0S2=128V0E0F1Q0&C1&D2S10=3'0D00
+
+apl1200     ENT
+            ASC   'ATX1S0=0S2=128V0'0D00
+
+hayes1200   ENT
+            ASC   'ATS0=0S2=128S18=0V0'0D00
+
+hayes2400   ENT
+            ASC   'ATX3S0=0&C1&D2S2=128V0'0D00
+
+pro2400     ENT
+            ASC   'ATX5S0=0S2=128V0'0D00
+
+generic     ENT
+            ASC   'ATS0=0S2=128V0'0D00
+
+epic        ENT
+            ASC   'ATS0=0S2=128&S1&D2V0'0D00
+
diff --git a/Config/MAKE.CONFIG.S b/Config/MAKE.CONFIG.S
new file mode 100644
index 0000000..75c3eba
--- /dev/null
+++ b/Config/MAKE.CONFIG.S
@@ -0,0 +1,92 @@
+
+*m_vers = '1' ; make into ascii # (Main Version)
+*s_vers = '0' ; make into ascii # (Sub Version)
+*p_vers = '5' ; make into ascii # (Patch Version)
+
+            ORG   $2000                  ; org to where you want it
+            TYP   $FF
+
+            ASM   START
+            ASM   ROUTINE
+            ASM   DISK
+            ASM   OSPJUNK
+            ASM   VIDEO
+            ASM   CMD
+            ASM   MODEM
+            ASM   PRINTER
+            ASM   CLOCK
+            ASM   FILTER
+            ASM   DEFAULTS
+            ASM   INIT
+
+            ASM   INITSTR
+            ASM   MODEMS/NULLMDM
+            ASM   MODEMS/CAT103
+            ASM   MODEMS/CAT212
+            ASM   MODEMS/MM2
+            ASM   MODEMS/SSC
+            ASM   MODEMS/GSPORT.SLOT1
+            ASM   MODEMS/GSPORT.SLOT2
+            ASM   MODEMS/SINGLESPD
+            ASM   MODEMS/MULTISPD
+            ASM   MODEMS/NOCAR
+
+            ASM   CLOCKS/THUNDER
+            ASM   CLOCKS/SERIALPRO
+            ASM   CLOCKS/ULTRA
+            ASM   CLOCKS/NO.SLOT
+            ASM   CLOCKS/IIC.SYS
+            ASM   CLOCKS/PRODOS
+            ASM   CLOCKS/MOUNTAIN
+            ASM   CLOCKS/VERSA
+            ASM   CLOCKS/IIGS
+            ASM   CLOCKS/NULL
+
+            ASM   PRINTERS/NULL
+            ASM   PRINTERS/PARALLEL
+            ASM   PRINTERS/SERIAL
+            ASM   PRINTERS/GRAPPLER
+
+            LINK  REL/START
+            LINK  REL/ROUTINE
+            LINK  REL/DISK
+            LINK  REL/OSPJUNK
+            LINK  REL/VIDEO
+            LINK  REL/CMD
+            LINK  REL/MODEM
+            LINK  REL/PRINTER
+            LINK  REL/CLOCK
+            LINK  REL/FILTER
+            LINK  REL/DEFAULTS
+            LINK  REL/INIT
+
+            LINK  REL/INITSTR
+            LINK  MODEMS/REL/NULLMDM
+            LINK  MODEMS/REL/CAT103
+            LINK  MODEMS/REL/CAT212
+            LINK  MODEMS/REL/MM2
+            LINK  MODEMS/REL/SSC
+            LINK  MODEMS/REL/GSPORT1
+            LINK  MODEMS/REL/GSPORT2
+            LINK  MODEMS/REL/SINGLESPD
+            LINK  MODEMS/REL/MULTISPD
+            LINK  MODEMS/REL/NOCAR
+
+            LINK  CLOCKS/REL/THUNDER
+            LINK  CLOCKS/REL/SERIALPRO
+            LINK  CLOCKS/REL/ULTRA
+            LINK  CLOCKS/REL/NOSLOT
+            LINK  CLOCKS/REL/IICSYS
+            LINK  CLOCKS/REL/PRODOS
+            LINK  CLOCKS/REL/MOUNTAIN
+            LINK  CLOCKS/REL/VERSA
+            LINK  CLOCKS/REL/GSCLOCK
+            LINK  CLOCKS/REL/NULL
+
+            LINK  PRINTERS/REL/NULL
+            LINK  PRINTERS/REL/PARALLEL
+            LINK  PRINTERS/REL/SERIAL
+            LINK  PRINTERS/REL/GRAPPLER
+
+            SAV   CONFIG.SYSTEM
+
diff --git a/Config/MISC/PSTOR.S b/Config/MISC/PSTOR.S
new file mode 100644
index 0000000..fe1ea4b
--- /dev/null
+++ b/Config/MISC/PSTOR.S
@@ -0,0 +1,252 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+* GBBS Config - Prodos Storage *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+re_stor     JSR   cls         ; clear screen
+
+            LDA   #<hdrbuf
+            STA   temp
+            LDA   #>hdrbuf
+            STA   temp+1
+
+            LDX   #0          ; start pointers
+            LDY   #0
+            STY   temp2       ; set device count at zero
+stor2       LDA   devnam,x    ; get drive info
+            STA   temp2+1
+
+stor3       LDA   devnam,x    ; copy pathname
+            STA   (temp),y
+            INX
+            INY
+            DEC   temp2+1
+            BPL   stor3
+
+            CLC
+            LDA   temp        ; go to next address
+            ADC   #128
+            STA   temp
+            LDA   temp+1
+            ADC   #0
+            STA   temp+1
+
+            LDY   #0
+            INC   temp2       ; inc number of pathnames
+            LDA   temp2
+            CMP   #12         ; done all 12?
+            BNE   stor2       ; nope
+
+stor4       JSR   TopBox
+            JSR   print
+            DB    1,2,21
+            ASC   '- Edit Drive Specifier Allocation -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix D of your user'
+            ASC   ' manual for more information.'00
+            JSR   cls
+
+            LDX   #-1
+stor5       INX
+            JSR   shwpfx      ; show drive
+            LDA   #cr         ; add end of line
+            JSR   cout
+            CPX   #11
+            BCC   stor5       ; show all 12 entries
+
+stor6       JSR   print
+            DB    1,20,0
+            ASC   'Edit: [A-L] or Q=Quit ? '00
+
+            LDA   #%10000000
+            STA   inpmode     ; set mode 0
+            LDA   #1
+            STA   maxlen      ; set length to 1
+
+            JSR   inpln       ; get input
+            LDA   lnbuf
+            CMP   #'Q'        ; quit?
+            BNE   stor7       ; yep
+
+            JMP   stor9       ; handle quit
+
+stor7       SEC
+            SBC   #'A'        ; make into range
+            CMP   #12         ; is it ok?
+            BCS   stor6       ; nope
+
+            PHA
+            TAX
+            JSR   finddrv     ; find the drive location
+
+            LDX   #20
+            JSR   cleos       ; claer last line
+
+            LDX   #20         ; position
+            STX   cv
+            LDX   #0
+            STX   ch
+
+            PLA
+            CLC
+            ADC   #'A'        ; show drive specifier
+            JSR   cout
+            JSR   print
+            ASC   ': /'00
+
+            LDA   #30         ; make max length 32 total
+            STA   maxlen
+            LDA   #%10100001
+            STA   inpmode
+
+            JSR   inpln
+            LDA   lnbuf-1,y
+            CMP   #'/'        ; check for ending slash
+            BNE   stor7f
+
+            LDA   #cr         ; delete ending slash
+            STA   lnbuf-1,y
+
+stor7f      LDA   lnbuf       ; did they just do a return?
+            CMP   #cr
+            BNE   stor8       ;nope
+
+            JSR   print
+            DB    1,20,0
+            ASC   'Clear contents of this line [Y/N] ? '00
+
+            JSR   inpyn       ; get answer
+            BCS   stor7a      ; nope
+
+            LDY   #0
+            TYA               ; nullify an entry
+            STA   (temp4),y
+stor7a      JMP   stor4       ; do another
+
+stor8       LDX   #0
+            LDY   #2
+stor8a      LDA   lnbuf,x     ; copy pathname
+            STA   (temp4),y
+            INX
+            INY
+            CMP   #cr
+            BNE   stor8a
+
+            LDY   #0          ; save length
+            TXA
+            STA   (temp4),y
+            INY
+            LDA   #'/'        ; add leading slash
+            STA   (temp4),y
+            JMP   stor4       ; show results
+
+stor9a      JMP   start       ; abort out
+
+stor9       LDX   #20
+            JSR   cleos       ; clear bottom
+            JSR   print
+            DB    1,20,0
+            ASC   'Is the above correct [Y/N] ? '00
+            JSR   inpyn
+            BCS   stor9a      ; nope
+
+            LDA   #<hdrbuf
+            STA   temp        ; point at pathnames
+            LDA   #>hdrbuf
+            STA   temp+1
+
+            LDX   #0
+            LDY   #0
+            STY   temp2       ; start with drive A:
+stor9b      LDA   (temp),y
+            STA   temp2+1     ; save length
+
+stor9c      LDA   (temp),y    ; get data
+            STA   devnam,x
+            INX
+            CPX   #$f0        ; is table ok?
+            BEQ   stor9d      ; nope, it is too big
+
+            INY
+            DEC   temp2+1     ; count down length
+            BPL   stor9c
+
+            CLC
+            LDA   temp
+            ADC   #$80        ; go to next field
+            STA   temp
+            LDA   temp+1
+            ADC   #0
+            STA   temp+1
+
+            LDY   #0          ; reset pointer within field
+            INC   temp2
+            LDA   temp2       ; done all 12 yet?
+            CMP   #12
+            BNE   stor9b      ; nope, loop
+            JMP   wrtchg      ; write changes to disk
+
+stor9d      JSR   cls
+            JSR   print
+            ASC   'ERROR !',0d,0d
+            ASC   'Overflow error. Too much data within '
+            ASC   'drive table. Cut down on the amount',0d,0d
+            ASC   'of data within the table.'
+            DB    1,20,0
+            ASC   'Press [RETURN] to continue... ',00
+
+stor9e      JSR   rdkey       ; wait for a return
+            CMP   #cr
+            BNE   stor9e
+            JMP   stor4       ; get new stuff
+
+; point to the pathname of a device
+finddrv     LDA   #0          ; set lower to 0
+            STA   temp4
+            TXA
+            LSR
+            ROR   temp4       ; put extra into low
+            CLC
+            ADC   #>hdrbuf
+            STA   temp4+1     ; setup high
+            RTS
+
+; show a pathname of a device
+shwpfx      JSR   finddrv     ; position
+            TXA
+            CLC
+            ADC   #'A'        ; show drive name
+            JSR   cout
+
+            LDA   #':'        ; add colon
+            JSR   cout
+
+            LDA   #' '        ; put in space
+            JSR   cout
+
+            LDY   #0          ; check for data
+            LDA   (temp4),y
+            STA   temp2+1
+            BEQ   prdrv3      ; nope, there isnt any
+
+prdrv2      INY
+            LDA   (temp4),y   ; get byte of name
+            JSR   conv
+            JSR   cout        ; show it
+            DEC   temp2+1
+            BNE   prdrv2      ; keep going
+
+            CLC
+            RTS
+
+prdrv3      SEC               ; no data
+            RTS
+
diff --git a/Config/MISC/USER.S b/Config/MISC/USER.S
new file mode 100644
index 0000000..2173e75
--- /dev/null
+++ b/Config/MISC/USER.S
@@ -0,0 +1,764 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*   Config - Print Userlist    *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 11/29/86
+*-------------------------------
+
+usrlist     LDX   #<start
+            LDA   #>start        ; setup esc handler
+            JSR   escape
+
+            JSR   TopBox
+            JSR   print
+            DB    1,2,27
+            ASC   '- Sort and Print Userlist -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix F of your user'
+            ASC   ' manual for more information.'00
+
+            JSR   cls
+            JSR   print
+            DB    1,7,0
+            ASC   '  1 - Sort by user name'0D
+            ASC   '  2 - Sort by the user number'0D
+            ASC   '  3 - Sort by user password'0D
+            ASC   '  4 - Sort by phone number'0D
+            ASC   '  5 - Sort by last date on'0D
+            ASC   '  6 - Sort by security level'0D
+            ASC   '  7 - Return to main menu'0D0D
+            ASC   'Which? [1-7] '00
+
+            LDX   #7             ; get there choice
+            JSR   inpnum
+            STA   sortyp
+            CMP   #7             ; check for abort
+            BNE   :over
+            JMP   start
+
+:over       LDX   #<usrlist      ; setup esc handler
+            LDA   #>usrlist
+            JSR   escape
+
+list0       JSR   cls
+            JSR   print
+            HEX   0D
+            ASC   'Show users with which security flags:'0D0D
+            ASC   '[0]   = Un-Verified Users'0D
+            ASC   '[1]   = Verified Users'0D
+            ASC   '[34]  = Sysop Status'0D
+            ASC   '[RET] = Print all users'0D0D
+            ASC   'List which users [CR,0-34]: '00
+
+            LDA   #%00100000
+            STA   inpmode        ; set input mode
+            LDA   #2
+            STA   maxlen         ; set input length
+
+            LDA   #-1            ; default to all users
+            STA   seclvl
+            JSR   inpln          ; input their choice
+            LDA   lnbuf
+            CMP   #cr            ; show all users?
+            BEQ   list0a         ; get password status
+
+            LDX   #<lnbuf        ; change to number
+            LDA   #>lnbuf
+            JSR   numin
+            STX   seclvl         ; save the level
+            CPX   #35
+            BCC   list0a         ; out of range
+            JMP   list0
+
+list0a      JSR   print
+            HEX   0D
+            ASC   'Display Passwords [Y/N] ? '00
+            JSR   inpyn
+            LDA   #0
+            ROR
+            STA   shwpass        ; save password status
+
+            JSR   print
+            HEX   0D0D
+            ASC   'Make sure printer, config disk, and '
+            ASC   'system disk are on-line and ready.'00
+:oops       JSR   getcr
+            LDA   #1             ; log to system disk
+            JSR   logspec
+            BCS   :oops          ; opps, error
+
+            JSR   cls            ; clear screen
+            JSR   print
+            DB    1,8,12
+            ASC   'Reading data...'00
+
+            LDX   #<usrname      ; setup user file name
+            LDA   #>usrname
+            JSR   movname
+
+            LDX   #1             ; start user number at 1
+            STX   temp
+            DEX
+            STX   temp+1
+
+            LDA   #<sortbuf
+            STA   temp2          ; point to buffer
+            LDA   #>sortbuf
+            STA   temp2+1
+
+            JSR   open           ; open userfile
+            BCC   list1a         ; all is well
+
+            JSR   close
+            JSR   cls
+            JSR   print
+            ASC   'Error: Unable to open file USERS'00
+            JSR   getcr
+            JMP   usrlist        ; start over
+
+list1a      LDX   #<hdrbuf       ; gobble user #0
+            LDA   #>hdrbuf
+            LDY   #128           ; 128 byte records
+            JSR   rdpart
+
+list_2      LDA   #0             ; clear buffer
+            STA   hdrbuf
+            LDX   #<hdrbuf
+            LDA   #>hdrbuf       ; read in a user
+            LDY   #128           ; 128 byte records
+            JSR   rdpart
+            BCS   list2c         ; opps, end of file
+
+            LDA   hdrbuf
+            AND   #$7F
+            BEQ   list2c         ; no more users
+
+            CMP   #','
+            BEQ   list2a         ; opps, no user in that slot
+
+            LDA   seclvl         ; show all users?
+            BMI   list2e         ; yep
+            BEQ   list2d         ; show non-verified
+
+            PHA
+            LSR
+            LSR                  ; divide by 8
+            LSR
+            TAX                  ; and make into byte offset
+            PLA
+            AND   #%00000111
+            TAY                  ; get bit offset
+            LDA   hdrbuf+92,X    ; get byte
+            AND   secmap,Y       ; check bit
+            BEQ   list2a         ; nope, dont show
+            BNE   list2e         ; show it
+
+list2d      LDA   hdrbuf+92      ; check for non-verified
+            AND   #%00000010
+            BNE   list2a         ; user is verified, dont show
+
+list2e      JSR   list_5         ; handle sort dispatch
+
+list2a      INC   temp
+            BNE   *+4            ; inc user number
+            INC   temp+1
+            JMP   list_2         ; loop
+
+list2c      LDY   #0
+            TYA                  ; mark last entry
+            STA   (temp2),Y
+
+            LDA   sortbuf        ; check for no entries
+            BNE   list2f         ; there is data
+
+            JSR   close          ; close user file
+            JSR   cls
+            JSR   print
+            ASC   'No users fit parameters'00
+            JSR   getcr
+            JMP   usrlist        ; restart
+
+list2f      LDA   sortbuf+12     ; only 1 user in list?
+            BEQ   list2g         ; yep
+
+            JSR   print
+            DB    1,8,12         ; change on-screen operation
+            ASC   'Sort'00
+            JSR   list6          ; sort data
+
+list2g      JSR   print
+            DB    1,8,12
+            ASC   'Printing data...'00
+
+            LDA   #<sortbuf      ; point to data
+            STA   temp2
+            LDA   #>sortbuf
+            STA   temp2+1
+            LDA   #0             ; count the page display
+            STA   prinit         ; set printer to init
+            STA   pagecnt
+
+list_3      LDY   #0
+            LDA   (temp2),Y
+            BEQ   list_4         ; opps, end of list
+
+            LDY   #10
+            LDA   (temp2),Y      ; get user number
+            STA   hdrbuf+128
+            TAX
+            INY
+            LDA   (temp2),Y
+            STA   hdrbuf+129     ; save user number as data
+            JSR   gouser
+
+            LDX   #<hdrbuf
+            LDA   #>hdrbuf       ; read in user record
+            LDY   #128
+            JSR   rdpart
+
+            bit   shwpass        ; show passwords?
+            BPL   list3b         ; yep
+
+            LDA   #'*'
+            LDX   #7
+list3a      STA   hdrbuf+70,X    ; cover password with *'s
+            DEX
+            BPL   list3a
+
+list3b      JSR   pruser         ; print users data
+
+            CLC
+            LDA   temp2
+            ADC   #12
+            STA   temp2          ; goto next record
+            LDA   temp2+1
+            ADC   #0
+            STA   temp2+1
+            JMP   list_3         ; do next user
+
+list_4      JSR   close          ; close user file
+list4a      DEC   pagecnt        ; check page count
+            BEQ   list4b
+
+            LDA   #cr            ; advance page
+            JSR   prcout
+            JMP   list4a
+
+list4b      LDA   #cr            ; add 4 last lines
+            JSR   prcout
+            JSR   prcout
+            JSR   prcout
+            JSR   prcout
+            JMP   usrlist        ; we are done
+
+*-------------------------------
+* handle moving data for sort
+
+list_5      LDY   #9
+            LDA   #' '
+list5f      STA   hdrbuf+$100,Y  ; fill with blanks just in case
+            DEY
+            BPL   list5f
+
+            JSR   list5b         ; get into 10 byte form
+
+            LDY   #11            ; save user record number
+            LDA   temp+1
+            STA   (temp2),Y
+            DEY
+            LDA   temp
+            STA   (temp2),Y
+
+            DEY
+list5a      LDA   hdrbuf+$100,Y  ; copy over data
+            STA   (temp2),Y
+            DEY
+            BPL   list5a
+
+            CLC
+            LDA   temp2          ; go to next record
+            ADC   #12
+            STA   temp2
+            LDA   temp2+1
+            ADC   #0
+            STA   temp2+1
+            RTS
+
+sortyp      DB    0
+
+*-------------------------------
+
+list5b      LDA   sortyp
+            ASL
+            TAX
+            LDA   displist,X
+            STA   prn
+            INX
+            LDA   displist,X
+            STA   prn+1
+            JMP   (prn)
+
+displist    DA    0
+            DA    sname          ; sort user name
+            DA    sunum          ; sort by user number
+            DA    spass          ; sort by password
+            DA    sfone          ; sort by phone number
+            DA    sdate          ; sort by last user
+            DA    ssec           ; sort by sec level
+
+*-------------------------------
+
+sname       LDY   #-1
+sname2      INY
+            LDA   hdrbuf,Y       ; search for divider
+            AND   #$7F
+            CMP   #' '           ; control char?
+            BCC   sunum          ; hmm, just blank out
+            CMP   #','
+            BNE   sname2
+
+            LDX   #-1
+sname3      INX
+            INY
+            LDA   hdrbuf,Y       ; move byte
+            STA   hdrbuf+$100,X
+            AND   #$7F
+            CMP   #' '
+            BCS   sname3         ; loop and finish
+
+            LDY   #-1
+sname4      INY
+            LDA   hdrbuf,Y       ; add on first name
+            STA   hdrbuf+$100,X
+            AND   #$7F
+            INX
+            CMP   #','           ; done?
+            BNE   sname4         ; nope
+
+sunum       RTS                  ; leave data as blanks
+
+spass       LDY   #7
+spass2      LDA   hdrbuf+70,Y    ; move password
+            STA   hdrbuf+$100,Y
+            DEY
+            BPL   spass2
+            RTS
+
+sfone       LDX   #0
+            LDY   #0
+sfone2      LDA   hdrbuf+78,Y    ; get phone number
+            STA   hdrbuf+$100,X
+            INX
+            INY
+            CPY   #3
+            BNE   *+3            ; skip if not at 3
+            INY
+            CPY   #7
+            BNE   *+3
+            INY
+            CPY   #12            ; done?
+            BNE   sfone2         ; nope
+            RTS
+
+sdate       LDA   hdrbuf+91      ; move date into sort field
+            AND   #%00011111     ; get rid of extra stuff
+            STA   hdrbuf+$101
+            LDA   hdrbuf+90
+            STA   hdrbuf+$102
+            RTS
+
+ssec        LDY   #3
+ssec2       LDA   hdrbuf+92,Y    ; move sec level in
+            STA   hdrbuf+$101,Y
+            DEY
+            BPL   ssec2
+            RTS
+
+; sort all the records into order
+list6       LDA   #<sortbuf
+            STA   temp           ; point to buffer #1
+            LDA   #>sortbuf
+            STA   temp+1
+
+            LDA   #<sortbuf+12
+            STA   temp2          ; point to buffer #2
+            LDA   #>sortbuf+12
+            STA   temp2+1
+
+list6a      LDY   #0
+list6b      LDA   (temp),Y       ; get first byte
+            CMP   (temp2),Y      ; check againt second
+            BEQ   list6c         ; all is well
+            BCS   list6e
+            BCC   list6d         ; order is correct
+
+list6c      INY                  ; go to next char
+            CPY   #10            ; there yet?
+            BNE   list6b         ; nope
+
+list6d      CLC
+            LDA   temp           ; advance pointer #1
+            ADC   #12
+            STA   temp
+            LDA   temp+1
+            ADC   #0
+            STA   temp+1
+
+            CLC
+            LDA   temp2          ; advance pointer #2
+            ADC   #12
+            STA   temp2
+            LDA   temp2+1
+            ADC   #0
+            STA   temp2+1
+
+            LDY   #0             ; we done?
+            LDA   (temp),Y
+            BEQ   list6q         ; yep
+
+            LDA   (temp2),Y      ; done?
+            BNE   list6a         ; nope, do next record
+list6q      RTS
+
+list6e      LDY   #11
+list6f      LDA   (temp),Y
+            PHA
+            LDA   (temp2),Y      ; swap data
+            STA   (temp),Y
+            PLA
+            STA   (temp2),Y
+            DEY
+            BPL   list6f         ; do 12 bytes
+
+            LDA   temp+1
+            CMP   #>sortbuf      ; at record #1 ?
+            BNE   list6g         ; nope
+
+            LDA   temp
+            CMP   #<sortbuf      ; at record #1 ?
+            BEQ   list6h         ; yep
+
+list6g      SEC
+            LDA   temp           ; backup record #1
+            SBC   #12
+            STA   temp
+            LDA   temp+1
+            SBC   #0
+            STA   temp+1
+
+            SEC
+            LDA   temp2          ; backup record #2
+            SBC   #12
+            STA   temp2
+            LDA   temp2+1
+            SBC   #0
+            STA   temp2+1
+list6h      JMP   list6a
+
+*-------------------------------
+; print out a user record
+pruser      DEC   pagecnt        ; count down list
+            BMI   pruser0
+            BNE   pruser1
+
+            LDA   #cr
+            JSR   prcout         ; advance page
+            JSR   prcout
+            JSR   prcout
+            JSR   prcout
+
+pruser0     LDX   #<prthdr
+            LDA   #>prthdr
+            LDY   #-1            ; print page header
+            JSR   prdata
+
+            LDA   sortyp
+            LUP   4
+            ASL
+            --^
+            TAX
+pruser3     LDA   sortnam-16,X
+            INX
+            JSR   prcout
+            ASL
+            BNE   pruser3
+
+            LDX   #77            ; move over to col 77
+            JSR   gocol
+
+            LDX   #<prthdr2      ; print rest of header
+            LDA   #>prthdr2
+            LDY   #-1
+            JSR   prdata
+
+            LDA   #58
+            STA   pagecnt        ; reset page counter
+
+pruser1     LDX   #<hdrbuf       ; point to buffer with data
+            LDA   #>hdrbuf
+            LDY   #","           ; print first name
+            JSR   prdata
+            STX   prn            ; save location
+            STA   prn+1
+
+            LDA   #' '           ; put a space between first & last
+            JSR   prcout
+
+            LDX   prn            ; pick up last location
+            LDA   prn+1
+            LDY   #cr+128        ; print last name
+            JSR   prdata
+
+            LDX   #25            ; move over to col 25
+            JSR   gocol
+
+            LDX   #<hdrbuf+78    ; point buffer to data
+            LDA   #>hdrbuf+78
+            LDY   #12
+            JSR   prdata         ; print phone number
+
+            LDX   hdrbuf+128
+            LDA   hdrbuf+129     ; translate number
+            JSR   decmem
+
+            SEC
+            LDA   #43
+            SBC   txtnum         ; move over to print user number
+            TAX
+            JSR   gocol
+
+            LDY   txtnum
+            LDX   #<txtnum+1
+            LDA   #>txtnum+1
+            JSR   prdata         ; print user number
+
+            LDA   #'-'           ; add in a dash
+            JSR   prcout
+
+            LDX   #<hdrbuf+70    ; point buffer data
+            LDA   #>hdrbuf+70
+            LDY   #8
+            JSR   prdata         ; print password
+
+            LDX   #54            ; move over to col 54
+            JSR   gocol
+
+            LDA   hdrbuf+92
+            LSR                  ; dont show guest/user flag
+            LDX   #7
+pruser2     LSR
+            PHA
+            LDA   #0             ; show 1 or 0 flag status
+            ADC   #'0'
+            JSR   prcout
+            PLA
+            DEX                  ; print 7 flags
+            BNE   pruser2
+
+            LDX   #63            ; move over to col 63
+            JSR   gocol
+
+            LDA   hdrbuf+90      ; get most of month
+            LSR   hdrbuf+91      ; shift last bit into carry
+            ROR                  ; move bit in
+            LUP   4
+            LSR
+            --^
+            JSR   bindec8
+            JSR   prdec8         ; print it out
+            LDA   #'/'
+            JSR   prcout
+
+            LDA   hdrbuf+90
+            AND   #$1F           ; translate month
+            JSR   bindec8
+            JSR   prdec8         ; print out
+            LDA   #'/'
+            JSR   prcout
+
+            LDA   #'8'           ; print out /8x
+            JSR   prcout
+
+            LDA   hdrbuf+91      ; get year
+            AND   #%00001111     ; just use last digit
+            CLC
+            ADC   #'0'           ; make ascii
+            JSR   prcout
+
+            LDA   hdrbuf+99
+            AND   #%00001111
+            TAX                  ; display time limit
+            LDA   #0
+            JSR   decmem
+
+            SEC
+            LDA   #75
+            SBC   txtnum         ; move over to print time limit
+            TAX
+            JSR   gocol
+
+            LDY   txtnum
+            LDX   #<txtnum+1
+            LDA   #>txtnum+1
+            JSR   prdata         ; print time limit
+
+            LDA   #'0'           ; add on zero (time * 10)
+            JSR   prcout
+            LDA   #cr            ; end of line data
+            JMP   prcout
+
+; print out selected data
+prdata      STX   prn            ; point to data
+            STA   prn+1
+            STY   prn+2          ; save delimeter
+            STY   prn+3          ; save length
+
+            LDY   #0
+prdata2     LDA   (prn),Y        ; get data
+            INC   prn
+            BNE   *+4            ; goto next byte
+            INC   prn+1
+
+            ORA   #$80           ; set high for ascii check
+            CMP   prn+2          ; we done?
+            BEQ   prdata3        ; yep
+
+            JSR   prcout         ; print data
+            DEC   prn+3          ; count down length
+            BNE   prdata2        ; keep going
+
+prdata3     LDX   prn
+            LDA   prn+1          ; get new address
+            RTS
+
+; go to a specified column
+gocol       STX   prn            ; save end address
+gocol2      LDA   prcol          ; are we done?
+            CMP   prn
+            BCS   gocol3         ; yep
+
+            LDA   #' '           ; move over a space
+            JSR   prcout
+            JMP   gocol2         ; keep going
+
+gocol3      RTS
+
+; print out a 2 byte number [xx]
+prdec8      JSR   prcout         ; call
+            TXA                  ; ... fall into ...
+
+; print character: A = character
+prcout      PHA                  ; save all reg's
+            STX   prsv_x
+            STY   prsv_y
+
+            LDX   #$13
+prcout1     LDA   $24,X          ; save zero page stuff
+            STA   przero,X
+            DEX
+            BPL   prcout1
+
+            BIT   prinit         ; has printer been used?
+            BMI   prcout3        ; yep
+
+            LDA   #$10
+            STA   $26            ; setup slot pointer
+            LDA   #>$C100
+            STA   $36+1          ; point ($0036) at $c100
+            LDA   #0             ; init printer card
+            STA   prcol          ; reset column
+            TAX
+            TAY
+            STA   $24
+            STA   $27            ; zero character buffer
+            STA   $36
+
+            JSR   $C100
+            LDA   $36            ; point to output routine
+            STA   jpcout2+1
+            LDA   $36+1
+            STA   jpcout2+2
+            DEC   prinit         ; show we have done init
+
+            LDA   #'I'-$40       ; send ctrl-I 80 n
+            JSR   jpcout
+            LDA   #'8'
+            JSR   jpcout
+            LDA   #'0'
+            JSR   jpcout
+            LDA   #'N'
+            JSR   jpcout
+
+prcout3     LDA   #0             ; set ch over to border
+            STA   $24
+            INC   prcol          ; move over 1 col
+            PLA                  ; get byte to print
+            PHA
+            AND   #$7F           ; print with high-bit off
+            CMP   #cr
+            BNE   prcout5
+
+            LDX   #0             ; reset column
+            STX   prcol
+prcout5     JSR   jpcout
+
+            LDX   #$13
+prcout4     LDA   przero,X       ; restore zero page
+            STA   $24,X
+            DEX
+            BPL   prcout4
+
+            LDX   prsv_x         ; restore reg's
+            LDY   prsv_y
+            PLA
+            RTS
+
+jpcout      ORA   #$80
+jpcout2     JMP   $C000          ; do output routine
+
+prinit      DB    0
+prsv_x      DB    0
+prsv_y      DB    0
+przero      DS    $14
+
+; position to a user
+gouser      STX   temp+1         ; reset scratch bytes
+            LDX   #0
+            STX   temp
+
+            LSR                  ; do multipication
+            ROR   temp+1
+            ROR   temp
+            LDX   temp
+            TAY
+            LDA   temp+1
+            JMP   setpos         ; position to user
+
+seclvl      DB    0
+shwpass     DB    0
+secmap      DB    1,2,4,8,$10,$20,$40,$80
+
+prcol       DB    0
+pagecnt     DB    0
+
+prthdr      ASC   '++  MultiPro   Userlist  -  Version 1.4  '
+            ASC   '-  List Sorted By: ',FF
+prthdr2     ASC   '++'0D
+            ASC   '[Name]                     [Phone]    [User] '
+            ASC   '[Pass]    [Sec]    [Last]  [Time]'0D
+            ASC   '[Alias]                    [Number]   [Numb] '
+            ASC   '[Word]    [Lvl]    [Call] [Limit]'0D0D,FF
+
+sortnam     ASC   'User Name     '0000
+            ASC   'User Number   '0000
+            ASC   'User Password '0000
+            ASC   'Phone Number  '0000
+            ASC   'Last Date On  '0000
+            ASC   'Security Level'0000
+
diff --git a/Config/MODEM.S b/Config/MODEM.S
new file mode 100644
index 0000000..3cac223
--- /dev/null
+++ b/Config/MODEM.S
@@ -0,0 +1,454 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Reconfigure modem
+*-------------------------------
+
+            REL
+cr          =     $D
+point0      =     $11
+point1      =     $14
+point3      =     $FD
+lnbuf       =     $200
+mdmdrv      =     $B00
+initbuf     =     $1800
+ansbuf      =     $1830
+cdbyte      =     $10BF       ; carrier detect byte
+ansstr      =     $10C0       ; modem answer string
+initstr     =     $10D0       ; modem init string
+
+            DSK   REL/MODEM
+
+TopBox      EXT               ; routines external to this file
+print       EXT
+cls         EXT
+start       EXT
+escape      EXT
+inpnum      EXT
+chinit      EXT
+wrtchg      EXT
+init        EXT
+do_init     EXT
+maxlen      EXT
+inpmode     EXT
+cout        EXT
+inpln       EXT
+
+
+nullmdm     EXT               ;null modem driver
+cat103      EXT               ;300 baud cat driver
+cat212      EXT               ;1200 baud cat driver
+mm2         EXT               ;micromodem II driver
+ssc         EXT               ;super serial driver
+gsport1     EXT               ;location for gs port driver
+gsport2     EXT               ;loc for gs port slot #2
+singlespd   EXT               ;single speed driver
+multispd    EXT               ;multi-speed <return> driver
+nocar       EXT               ;no carrier driver
+
+*-------------------------------
+* init strings
+
+usr2400     EXT               ;init string for usr 2400
+usr9600     EXT               ;init string for usr 9600
+cts         EXT               ;init string for cts 2424
+apl1200     EXT
+hayes1200   EXT
+hayes2400   EXT
+pro2400     EXT
+generic     EXT
+epic        EXT
+
+re_mdm      ENT
+            BIT   init
+            BMI   :re_mdmx
+
+            LDX   #<start     ; setup esc handler
+            LDA   #>start
+            JSR   escape
+            JMP   :re_mdm0
+
+:re_mdmx    LDX   #<do_init
+            LDA   #>do_init   ; setup aux esc handler
+            JSR   escape
+
+:re_mdm0    LDA   #1          ; set input length at 1
+            STA   maxlen
+            LDA   #%10010000
+            STA   inpmode
+
+:re_mdm3    JSR   TopBox
+            JSR   print
+            DB    1,2,26
+            ASC   '- Reconfigure Modem Driver -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix A of your user'
+            ASC   ' manual for more information.'00
+
+            JSR   cls
+            JSR   print
+            DB    1,7,0
+            ASC   ' 1 - No Modem/Local mode                '
+            ASC   ' External Modem Drivers'0D0D
+            ASC   ' Internal Modem Drivers                 '
+            ASC   ' 8 - Super Serial Card driver'0D
+            ASC   '                                        '
+            ASC   ' 9 - Apple IIgs Serial Port driver'0D
+            ASC   ' 2 - Apple-Cat 103 - 300 baud           '
+            ASC   '10 - Single Speed SSC driver'0D
+            ASC   ' 3 - Apple-Cat 212 - 300/1200 baud      '
+            ASC   '11 - Multiple Speed SSC driver'0D
+            ASC   ' 4 - DC Hayes Micromodem II             '
+            ASC   '12 - No Carrier SSC driver'0D
+            ASC   ' 5 - SSM Modemcard 300'0D
+            ASC   ' 6 - Zoom Modem IIe'0D
+            ASC   ' 7 - Epic 2400 Classic II'0D0D
+            ASC   'Which? [1-12] '00
+
+            LDX   #12         ; get serial device
+            JSR   inpnum
+            STA   serialtype  ;save the device type
+
+            ASL               ;point0 points to the
+            TAX               ;serial device driver
+            LDA   devtable,X
+            STA   point0
+            INX
+            LDA   devtable,X
+            STA   point0+1
+
+            LDA   #<mdmdrv    ;tell it to move the modem
+            STA   point1      ;driver
+            LDA   #>mdmdrv
+            STA   point1+1
+
+            LDA   #12         ;default is generic
+            ASL               ;point init string to the
+            TAX               ;right place
+            LDA   strtable,X
+            STA   point3
+            INX
+            LDA   strtable,X
+            STA   point3+1
+
+            LDA   serialtype  ;is it internal?
+            CMP   #8
+            BCS   getinit     ;nope, get an init string
+            CMP   #7          ;was it the Epic internal?
+            BEQ   :epic24     ;yes, set for epic string
+            CMP   #1          ;nullmodem?
+            BNE   :internal   ;nope, just internal
+            PHA               ;push garbage data
+            PHA
+            JMP   movepage    ;move & fix into place
+
+:internal   JMP   getslot     ;must have been internal, skip next
+
+:epic24     LDA   #1          ;default for epic is &s1&d2
+            ASL               ;point init string to the
+            TAX               ;right place
+            LDA   strtable,X
+            STA   point3
+            INX
+            LDA   strtable,X
+            STA   point3+1
+            JMP   setinit
+
+*-------------------------------
+* get the init string for the modem
+
+getinit     JSR   cls
+            JSR   print
+            DB    1,7,0
+            ASC   'Choose Modem:'0D0D
+            ASC   ' 1 - Epic 2400 Plus'0D
+            ASC   ' 2 - USRobotics Courier 2400'0D
+            ASC   ' 3 - USRobotics Courier HST'0D
+            ASC   ' 4 - CTS 2424'0D
+            ASC   ' 5 - Apple Modem 1200'0D
+            ASC   ' 6 - Prometheus Promodem 1200'0D
+            ASC   ' 7 - Prometheus Promodem 2400'0D
+            ASC   ' 8 - Novation SmartCat'0D
+            ASC   ' 9 - Novation Professional 2400'0D
+            ASC   '10 - Hayes 1200'0D
+            ASC   '11 - Hayes 2400'0D
+            ASC   !12         -
+            ASC   'Which? [1-12] '00
+
+            LDX   #12
+            JSR   inpnum
+            STA   modemtype
+
+            ASL               ;point init string to the
+            TAX               ;right place
+            LDA   strtable,X
+            STA   point3
+            INX
+            LDA   strtable,X
+            STA   point3+1
+
+*-------------------------------
+
+setinit     JSR   cls
+            JSR   print
+            DB    1,7,0
+            ASC   'The initialization string for this modem is: '0D0D00
+
+            LDY   #0
+:loop       LDA   (point3),Y
+            STA   initbuf,Y
+            BEQ   :done
+            JSR   cout
+            INY
+            BNE   :loop
+
+:done       JSR   print
+            HEX   0D
+            ASC   'Press [RETURN] to accept this as'
+            ASC   ' default, or enter a new init string.'0D
+            ASC   ':'00
+
+            LDA   #39         ; only allow 39 chars
+            STA   maxlen
+            LDA   #%10100000
+            STA   inpmode     ;ascii
+            JSR   inpln       ; get the input
+            LDY   lnbuf
+            CPY   #cr
+            BEQ   getans      ; use default
+
+            LDY   #-1
+:loop2      INY               ;move the typed init string
+            LDA   lnbuf,Y
+            STA   initbuf,Y
+            CMP   #cr
+            BNE   :loop2
+
+            INY
+            LDA   #0
+            STA   initbuf,Y
+
+*-------------------------------
+* get the answer string
+
+getans      JSR   cls
+            JSR   print
+            DB    1,7,0
+            ASC   'The default answer string for this modem is: '0D0D00
+
+            LDY   #0
+:loop       LDA   atastr,Y
+            STA   ansbuf,Y
+            BEQ   :done
+            JSR   cout
+            INY
+            BNE   :loop
+
+:done       JSR   print
+            HEX   0D
+            ASC   'Press [RETURN] to accept this,'
+            ASC   ' or enter a new answer string.'0D
+            ASC   ':'00
+
+            LDA   #15         ; only allow 15 chars
+            STA   maxlen
+            JSR   inpln       ; get the input
+            LDY   lnbuf
+            CPY   #cr
+            BEQ   getdcd      ; use default
+
+            LDY   #-1
+:loop2      INY               ;move the typed answer string
+            LDA   lnbuf,Y
+            STA   ansbuf,Y
+            CMP   #cr
+            BNE   :loop2
+
+            INY
+            LDA   #0
+            STA   ansbuf,Y
+
+*-------------------------------
+* get the dcd drop type
+
+getdcd      JSR   print
+            HEX   0D0D
+            ASC   'What type of carrier detect should the'
+            ASC   ' driver use?'0D0D
+            ASC   ' 1 - DSR Carrier Detect [Normal]'0D
+            ASC   ' 2 - DCD Carrier Detect'0D0D
+            ASC   'Which? [1-2] '00
+
+            LDX   #2
+            JSR   inpnum
+            STA   cdtype
+
+*-------------------------------
+* get the proper slot
+
+getslot     JSR   cls
+            LDA   serialtype
+            CMP   #9
+            BEQ   :gsport
+
+            JSR   print
+            DB    1,7,0
+            ASC   'Which slot should the modem driver use? [1-7] '00
+            LDX   #7
+            JMP   :over
+
+:gsport     JSR   print
+            DB    1,7,0
+            ASC   'Which Serial Port? [1-2] '00
+
+            LDX   #2
+:over       JSR   inpnum
+            PHA
+
+            LDX   serialtype
+            cpx   #9          ;was it the IIgs serial port?
+            BNE   :notgsport  ;nope
+
+            CMP   #1          ;was it port #1?
+            BNE   :port2      ;nope, must be port 2
+
+            LDA   #<gsport1   ;move gs port, slot 1
+            STA   point0
+            LDA   #>gsport1
+            STA   point0+1
+            JMP   :notgsport
+
+:port2      LDA   #<gsport2   ;move gs port slot 2
+            STA   point0
+            LDA   #>gsport2
+            STA   point0+1
+
+:notgsport  LDA   serialtype  ;was it an internal?
+            CMP   #7
+            BCS   :external   ;no, init baud needed
+            JMP   :internal   ;yes, init spd not needed
+
+:external   JSR   print
+            DB    1,10,0
+            ASC   'At what baud rate should the port/card be initialized?'0D
+            ASC   '(Choose the maximum baud rate of your modem)'0D0D
+            ASC   ' 1 -   300 baud'0D
+            ASC   ' 2 -  1200 baud'0D
+            ASC   ' 3 -  2400 baud'0D
+            ASC   ' 4 -  4800 baud'0D
+            ASC   ' 5 -  9600 baud'0D
+            ASC   ' 6 - 19200 baud'0D0D
+            ASC   'Which? [1-6] '00
+
+            LDX   #6
+            JSR   inpnum
+:internal   PHA
+
+movepage    LDX   #3          ;move 3 illustrious pages
+:loop2      LDY   #0
+:loop       LDA   (point0),Y  ;source
+            STA   (point1),Y  ;destination
+            INY
+            BNE   :loop
+            INC   point0+1
+            INC   point1+1
+            DEX
+            BNE   :loop2
+
+            LDA   mdmdrv
+            STA   point1+1
+            LDY   #1
+            PLX               ;get init speed
+            DEX               ;one less
+            TXA
+            STA   (point1),Y  ;save it
+
+            dey
+            PLA               ;get the slot
+            ASL
+            ASL
+            ASL
+            ASL               ;a := a*16
+            STA   (point1)    ;store the slot
+
+            DEC   cdtype
+            LDA   serialtype
+            CMP   #9          ;was it the gs?
+            BNE   :notgs      ;nope, go there, SSC
+
+            LDA   cdtype      ;get drop type
+            BNE   :notgsdsr   ;dcd wanted, so stick it
+            LDA   #$20        ;else use dsr drop
+            STA   cdbyte
+            BNE   copyans
+
+:notgsdsr   LDA   #$08        ;setup for dcd drop
+            STA   cdbyte
+            BNE   copyans
+
+:notgs      LDA   cdtype      ;ssc
+            BNE   :notdsr     ;dcd drop wanted, go there
+            LDA   #%01000000  ;check only dsr (normal)
+            STA   cdbyte
+            BNE   copyans
+
+:notdsr     LDA   #%00100000  ;otherwise check DCD
+            STA   cdbyte
+
+*-------------------------------
+
+copyans     LDY   #0
+:loop       LDA   ansbuf,Y    ;copy the answer string
+            STA   ansstr,Y
+            BEQ   copyinit
+            INY
+            BNE   :loop
+
+copyinit    LDY   #0          ;copy the init string
+:loop       LDA   initbuf,Y
+            STA   initstr,Y
+            BEQ   :writeit
+            INY
+            BNE   :loop
+
+:writeit    JSR   chinit      ; check for init
+            JMP   wrtchg      ; write the changes
+
+cdtype      DB    0
+modemtype   DB    0
+serialtype  DB    0
+
+*-------------------------------
+* modem drivers
+
+devtable    DA    0           ;extra for offset 0
+            DA    nullmdm     ;null modem driver
+            DA    cat103      ;300 baud cat driver
+            DA    cat212      ;1200 baud cat driver
+            DA    mm2         ;micromodem II driver
+            DA    mm2         ;SSM modemcard
+            DA    mm2         ;networker
+            DA    ssc         ;epic 2400 classic
+            DA    ssc         ;super serial driver
+            DA    gsport2     ;location for gs port driver
+            DA    singlespd   ;single speed driver
+            DA    multispd    ;multi-speed <return> driver
+            DA    nocar       ;no carrier 300 baud driver
+
+strtable    DA    0
+            DA    epic
+            DA    usr2400
+            DA    usr9600
+            DA    cts
+            DA    apl1200
+            DA    usr2400
+            DA    usr2400
+            DA    usr2400
+            DA    pro2400
+            DA    hayes1200
+            DA    hayes2400
+            DA    generic
+
+atastr      ASC   'ATA'0D00
+
diff --git a/Config/MODEMS/CAT103.S b/Config/MODEMS/CAT103.S
new file mode 100644
index 0000000..8104f97
--- /dev/null
+++ b/Config/MODEMS/CAT103.S
@@ -0,0 +1,270 @@
+            LST   OFF
+            TR
+            TR    ADR
+*--------------------------
+* Internal - Apple Cat 103
+*--------------------------
+* Date 3/18/88 - AEN
+*--------------------------
+
+            rel
+            dsk   MODEMS/rel/cat103
+
+swbyt       EQU   $c080
+shbyt       EQU   $c082
+indata      EQU   $c08b
+spdbyt      EQU   $c08b
+acbyte      EQU   $c08d
+xmtbyt      EQU   $c08d
+outdat      EQU   $c08e
+status1     EQU   $c08f
+
+cat103      ent
+
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+initspd     dfb   0           ;initialize speed
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            rts               ;raise dtr
+
+*-------------------------------
+* init the modem card
+
+init        SEI
+            LDX   slot        ;get slot offset
+            LDY   #0
+init2       LDA   initbyt,y   ;init all 16 bytes
+            STA   $c080,x
+            INX
+            INY
+            CPY   #$10
+            BNE   init2
+            RTS
+
+*-------------------------------
+* setup for the call
+
+ringset     LDA   #0          ;reset time-on
+            STA   bytcnt
+            STA   bytcnt+1
+            STA   bytcnt+2
+            STA   carwait     ;reset wait flag
+            TAY   set         ;300 baud
+            JMP   setspd
+
+*-------------------------------
+* scan for the ring and handle it
+
+ring        LDX   slot        ;get offset
+            BIT   carwait     ;do they want manual-answer?
+            BMI   ring2a      ;yep
+
+            LDA   acbyte,x
+            AND   #%00000001
+            BEQ   ring4       ;nothing
+
+ring2       LDA   acbyte,x    ;wait for ring to clear
+            AND   #%00000001
+            BNE   ring2
+
+ring2a      LDA   #%00000010  ;pick up phone
+            STA   shbyt,x
+
+            LDA   #80         ;setup carrier wait time
+            STA   carwait
+
+            LDA   #60         ;wait for things to settle
+            JSR   wait
+
+ring3       LDA   #0          ;do big wait...
+            JSR   wait
+
+            LDA   swbyt,x     ;do we have carrier?
+            AND   #%00100000
+            BNE   ring5       ;yep
+
+            DEC   carwait     ;loop until count is done
+            BNE   ring3
+
+            JSR   hangup
+ring4       CLC               ;nothing happened
+            RTS
+
+ring5       LDA   #-1         ;reset carrier timing
+            STA   carwait
+            SEC
+            RTS
+
+*-------------------------------
+* send ata
+
+answer      LDA   #-1         ;signal we want manual-answer
+            STA   carwait
+            RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   #0
+            STA   shbyt,x     ;hang up phone
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_x      ;save X
+            LDX   slot        ;get offset
+            LDA   status1,x   ;get status
+            AND   #%00001000
+            CLC
+            BEQ   inp2        ;no data
+
+            LDA   #$20        ;reset char ready byte
+            STA   xmtbyt,x
+
+            LDA   indata,x    ;get data
+            SEC
+inp2        LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down bytes per second
+            BNE   out1        ;not a seconds worth yet
+
+            PHA
+            LDA   callspd     ;reset counter
+            ASL
+            ASL
+            ASL               ;time count = base.rate * 32
+            ASL
+            ASL
+            STA   timecnt
+            PLA
+
+            INC   bytcnt      ;seconds - at 64 yet?
+            BIT   bytcnt
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;minutes - at 64 yet?
+            BIT   bytcnt+1
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;inc hours
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status1,x   ;check status
+            AND   #%00010000
+            BEQ   out2        ;loop until ready
+            PLA
+
+            STA   outdat,x    ;output byte
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* check for carrier
+
+chkdcd      STX   save_x      ;dont kill any reg's
+            PHA
+
+            LDA   carwait     ;do we have carrier?
+            BEQ   chkdcd3     ;nope
+
+            LDX   slot
+            LDA   swbyt,x     ;check carrier
+            AND   #%00100000
+            BEQ   chkdcd2     ;no carrier
+
+            LDA   #-1         ;buffer carrier detect
+            STA   carwait
+            SEC
+            BCS   chkdcd4     ;use return routine
+
+chkdcd2     DEC   carwait     ;count down
+chkdcd3     CLC
+chkdcd4     PLA               ;restore all & return
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* set the rs232 speed
+
+setspd      STX   save_x
+            LDX   slot        ;get offset
+            LDA   speed,y     ;get speed
+            STA   spdbyt,x    ;set speed
+
+            LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            CPY   #0          ;at 300?
+            BEQ   setspd3     ;yep
+
+            ASL   callspd     ;speed = speed * 2
+setspd2     ASL   callspd     ;speed = speed * 2
+            DEY
+            BNE   setspd2     ;loop until correct speed found
+
+setspd3     LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* wait routine
+
+wait        SEC               ;from apple [+ ref man - pg 147]
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+* variables
+
+speed       dfb   %00100010,%00000000  ;handle 300, 1200
+
+save_x      dfb   0
+
+timecnt     dfb   0
+carwait     dfb   0
+
+initbyt     dfb   $00,$81,$00,$06,$00,$80,$00,$06
+            dfb   $00,$64,$07,$22,$05,$10,$00,$00
+
+            asc   'Cat103'
+
diff --git a/Config/MODEMS/CAT212.S b/Config/MODEMS/CAT212.S
new file mode 100644
index 0000000..fbe99d7
--- /dev/null
+++ b/Config/MODEMS/CAT212.S
@@ -0,0 +1,321 @@
+            LST   OFF
+            TR
+            TR    ADR
+*--------------------------
+* Internal - Apple Cat 212
+*--------------------------
+* Date 12/09/86
+*--------------------------
+
+            rel
+            dsk   MODEMS/rel/cat212
+
+swbyt       EQU   $c080
+byt212      EQU   $c080
+squbyt      EQU   $c081
+shbyt       EQU   $c082
+indata      EQU   $c08b
+spdbyt      EQU   $c08b
+acbyte      EQU   $c08d
+xmtbyt      EQU   $c08d
+outdat      EQU   $c08e
+status1     EQU   $c08f
+devbyt      EQU   $c08f
+
+cat212      ent
+
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+initspd     dfb   0           ;initialize speed
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            rts               ;raise dtr
+
+*-------------------------------
+* init the modem card
+
+init        SEI
+            LDX   slot        ;get slot offset
+            LDY   #0
+init2       LDA   initbyt,y   ;init all 16 bytes
+            STA   $c080,x
+            INX
+            INY
+            CPY   #$10
+            BNE   init2
+            RTS
+
+*-------------------------------
+* setup for call
+
+ringset     LDA   #0          ;reset time-on
+            STA   bytcnt
+            STA   bytcnt+1
+            STA   bytcnt+2
+            STA   carwait     ;reset wait flag
+            TAY               ;set 300 baud
+            JMP   setspd
+
+*-------------------------------
+* scan for ring and handle it
+
+ring        LDX   slot        ;get offset
+            BIT   carwait     ;do they want manual-answer?
+            BMI   ring2a      ;yep
+
+            LDA   acbyte,x
+            AND   #%00000001
+            BEQ   ring4       ;nothing
+
+ring2       LDA   acbyte,x    ;wait for ring to clear
+            AND   #%00000001
+            BNE   ring2
+
+ring2a      LDA   #%00000010  ;pick up phone
+            STA   shbyt,x
+
+            LDA   #80         ;setup carrier wait time
+            STA   carwait
+
+            LDA   #%10000001  ;disable 212 mode
+            STA   squbyt,x
+
+            LDA   #128        ;wait
+            JSR   wait
+
+            LDA   #%00000001  ;enable 212 mode
+            STA   squbyt,x
+
+            LDA   #60         ;wait for things to settle
+            JSR   wait
+
+ring3       LDA   #0          ;do big wait...
+            JSR   wait
+
+            LDA   swbyt,x     ;do we have carrier?
+            AND   #%00100000
+            BNE   ring5       ;yep
+
+            LDA   acbyte,x    ;do we have 212 carrier
+            AND   #%00000100
+            BNE   ring6       ;yep
+
+            DEC   carwait     ;loop until count is done
+            BNE   ring3
+
+            JSR   hangup
+ring4       CLC               ;nothing happened
+            RTS
+
+ring5       LDA   #%00010000  ;reset xmtbyt
+            STA   xmtbyt,x
+            STA   xmtdata
+            LDA   #%10000001  ;disable 212 card
+            STA   squbyt,x
+            LDA   #%00000000  ;send uart to 103 board
+            STA   devbyt,x
+            JMP   ring7       ;finish connect
+
+ring6       LDA   #%00000101  ;reset 212 card
+            STA   byt212,x
+            LDA   #%00000001  ;re-enable 212 card
+            STA   squbyt,x
+            LDA   #%00001010  ;send uart to 212 card
+            STA   devbyt,x
+            LDA   #%00011111  ;reset xmtbyt
+            STA   xmtbyt,x
+            STA   xmtdata
+            LDY   #1          ;set speed to 1200
+            JSR   setspd
+
+ring7       LDA   #-1         ;reset carrier timing
+            STA   carwait
+            SEC
+            LDA   #0          ;do delay last
+            JMP   wait
+
+*-------------------------------
+* send ata
+
+answer      LDA   #-1         ;signal we want manual-answer
+            STA   carwait
+            RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   #%00011111
+            STA   xmtbyt,x    ;turn off 103 carrier
+            LDA   #%10000001
+            STA   squbyt,x    ;turn off 212 carrier
+            LDA   #0
+            STA   shbyt,x     ;hang up phone
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_x      ;save X
+            LDX   slot        ;get offset
+            LDA   status1,x   ;get status
+            AND   #%00001000
+            CLC
+            BEQ   inp2        ;no data
+
+            LDA   xmtdata     ;reset char ready byte
+            STA   xmtbyt,x
+
+            LDA   indata,x    ;get data
+            SEC
+inp2        LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down bytes per second
+            BNE   out1        ;not a seconds worth yet
+
+            PHA
+            LDA   callspd     ;reset counter
+            ASL
+            ASL
+            ASL               ;time count = base.rate * 32
+            ASL
+            ASL
+            STA   timecnt
+            PLA
+
+            INC   bytcnt      ;seconds - at 64 yet?
+            BIT   bytcnt
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;minutes - at 64 yet?
+            BIT   bytcnt+1
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;inc hours
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status1,x   ;check status
+            AND   #%00010000
+            BEQ   out2        ;loop until ready
+            PLA
+
+            STA   outdat,x    ;output byte
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* check for carrier
+
+chkdcd      STX   save_x      ;dont kill any reg's
+            PHA
+
+            LDA   carwait     ;do we have carrier?
+            BEQ   chkdcd3     ;nope
+
+            LDX   slot
+            LDA   callspd     ;check calling speed
+            CMP   #4          ;at 1200 baud?
+            BEQ   dcd212      ;yep
+
+            LDA   swbyt,x     ;check carrier
+            AND   #%00100000
+            BEQ   chkdcd2     ;no carrier
+
+chkdcd1     LDA   #-1         ;buffer carrier detect
+            STA   carwait
+            SEC
+            BCS   chkdcd4     ;use return routine
+
+dcd212      LDA   acbyte,x    ;check 212 carrier
+            AND   #%00000100
+            BNE   chkdcd1     ;all is well
+
+chkdcd2     DEC   carwait     ;count down
+chkdcd3     CLC
+chkdcd4     PLA               ;restore all & return
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* set the rs232 speed
+
+setspd      STX   save_x
+            LDX   slot        ;get offset
+            LDA   speed,y     ;get speed
+            STA   spdbyt,x    ;set speed
+
+            LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            CPY   #0          ;at 300?
+            BEQ   setspd3     ;yep
+
+            ASL   callspd     ;speed = speed * 2
+setspd2     ASL   callspd     ;speed = speed * 2
+            DEY
+            BNE   setspd2     ;loop until correct speed found
+
+setspd3     LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+
+*-------------------------------
+* wait routine
+
+wait        SEC               ;from apple ][+ ref man - pg 147
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+
+speed       dfb   %00100010,%00000000  ;handle 300, 1200
+
+save_x      dfb   0
+
+timecnt     dfb   0
+carwait     dfb   0
+xmtdata     dfb   0
+
+initbyt     dfb   $04,$81,$00,$06,$04,$80,$00,$06
+            dfb   $00,$64,$07,$22,$05,$1f,$00,$00
+
+            asc   'Cat212'
+
diff --git a/Config/MODEMS/EPIC.DVR.S b/Config/MODEMS/EPIC.DVR.S
new file mode 100644
index 0000000..4a0a35e
--- /dev/null
+++ b/Config/MODEMS/EPIC.DVR.S
@@ -0,0 +1,338 @@
+            TR
+            TR    ADR
+*-------------------------------
+* USRobotics 2400 driver written by Andy Nicholas
+* January 19, 1988
+*-------------------------------
+
+            dsk   epic.dvr
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+*-------------------------------
+
+ssc         ent
+
+            org   $e00
+
+* jump table
+*-------------------------------
+
+slot        hex   20          ;serial card slot*16
+            hex   00
+
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+* init the serial card
+*-------------------------------
+
+init        lda   #0          ;reset bytes
+            ldx   slot
+            sta   status,x    ;reset uart
+            sta   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     ldx   slot        ;get offset
+
+            lda   #%00000000  ;kill DTR, RTS
+            sta   command,x
+
+            lda   #0          ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+
+            sei
+
+            ldy   #2          ;set init speed (2400)
+            jsr   setspd
+
+            lda   data,x      ;clear data strobe
+
+            lda   #0          ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #0
+:loop       lda   #$80
+            jsr   wait
+            lda   Initstr,x   ;get modem init string
+            beq   rset3
+            jsr   out         ;output
+            inx
+            bne   :loop
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'        ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts   return
+
+jring       jmp   ringset     ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp         ;check for a char
+            bcc   ring5       ;nope...
+
+            and   #$7f        ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5       ;keep checking
+
+ring2       jsr   inp         ;check for char
+            bcc   ring2
+
+            ldy   #0          ;def = 300 baud
+            and   #$7f        ;strip high
+
+            cmp   #'R'        ;oops, "No Carrier" message
+            beq   jring
+
+            cmp   #cr         ;connect 300
+            beq   ring3
+
+            cmp   #'3'        ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'        ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'        ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'        ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'        ;connect 9600
+            bne   ring2
+
+ring3       jsr   setspd      ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0          ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec               ;we have a connection!
+ring5       rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #0
+answer2     lda   ansstr,x    ;get text
+            beq   answer3     ;we are done
+
+            jsr   out         ;send it
+
+            lda   #$80
+            jsr   wait
+
+            inx
+            bne   answer2     ;loop
+
+answer3     rts
+
+* hangup phone
+*-------------------------------
+
+hangup      ldx   slot        ;get offset
+            lda   #0
+            sta   command,x   ;hang up phone
+            rts
+
+* input data
+*-------------------------------
+
+inp         stx   save_x      ;save X
+            ldx   slot        ;get offset
+            lda   status,x    ;get status
+            and   #%00001000
+            clc
+            beq   inp2        ;no data
+
+            lda   data,x
+            sec
+inp2        ldx   save_x      ;restore & return
+            rts
+
+* output data
+*-------------------------------
+
+out         stx   save_x      ;save x
+            dec   timecnt     ;count down 1 section
+            bne   out1
+
+            inc   bytcnt      ;1 second gone by
+            bit   bytcnt
+            bvc   out1
+
+            ldx   #0          ;reset seconds
+            stx   bytcnt
+
+            inc   bytcnt+1    ;1 minute gone by
+            bit   bytcnt+1
+            bvc   out1
+
+            ldx   #0          ;reset minutes
+            stx   bytcnt+1
+
+            inc   bytcnt+2    ;1 hour gone by
+
+out1        ldx   slot
+
+            pha
+out2        lda   status,x    ;check status
+            and   #%00010000
+            beq   out2        ;loop until ready
+            pla
+
+dataloc     sta   data        ;output byte
+            ldx   save_x
+            rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd      stx   save_x      ;dont kill any reg's
+            pha
+
+            ldx   slot        ;get offset
+            lda   status,x
+            and   cdbyte      ;check carrier
+            clc
+            bne   chkdcd2
+
+            sec
+chkdcd2     pla   restore     ;all & return
+            ldx   save_x
+            rts
+
+* set the rs-232 speed/speed in Y reg
+*-------------------------------
+
+setspd      stx   save_x
+            ldx   slot        ;get offset
+            lda   speed,y     ;get speed
+            sta   control,x   ;set speed
+
+            lda   #1          ;find caller speed (x300)
+            sta   callspd
+            cpy   #0          ;at 300?
+            beq   setspd3     ;yep
+
+            asl   callspd     ;speed = speed * 2
+setspd2     asl   callspd     ;speed = speed * 2
+            dey
+            bne   setspd2     ;loop until correct speed found
+
+setspd3     ldx   save_x      ;restore & return
+            rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei
+
+            ldx   save_x
+            rts
+
+* wait routine
+*-------------------------------
+
+wait        sec
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* global data area
+*-------------------------------
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            dfb   %00011111   ;19200
+
+timecnt     dfb   0           ;1-second counter
+save_x      dfb   0
+countlo     dfb   $FF
+counthi     dfb   $FF
+cdbyte      db    $40         ;mask dsr only (0=connected)
+
+initstr     asc   'ATS0=1S2=128&S1&D2',0d,00
+ansstr      asc   'ATA',0d,00
+
diff --git a/Config/MODEMS/GSPORT.1.VERB.S b/Config/MODEMS/GSPORT.1.VERB.S
new file mode 100644
index 0000000..2a18055
--- /dev/null
+++ b/Config/MODEMS/GSPORT.1.VERB.S
@@ -0,0 +1,446 @@
+            TR
+            TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #1
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+            rel
+            dsk   rel/gsport1
+
+cr          equ   $0d
+lf          equ   $0a
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+* setup for call
+*-------------------------------
+
+gsport1     ent
+
+* Jump Table
+*-------------------------------
+
+            org   $b00
+
+            hex   10           ;serial card slot * 16
+initspd     hex   00           ;init speed for modem
+
+callspd     dfb   0            speed
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp          ;get a byte
+            jmp   out          ;send a byte
+            jmp   getcarr      ;caller there?
+            jmp   setspeed     ;speed of port
+            jmp   raisedtr     ;raise dtr
+
+doinit      jmp   $c100
+doread      jmp   $c100
+dowrite     jmp   $c100
+dostatus    jmp   $c100
+doext       jmp   $c100
+
+* init the serial port pascal locations
+*-------------------------------
+
+init        lda   $c10d        ;get init address
+            sta   doinit+1
+            lda   $c10e        ;get read address
+            sta   doread+1
+            lda   $c10f        ;get write address
+            sta   dowrite+1
+            lda   $c110        ;get status address
+            sta   dostatus+1
+            lda   $c112
+            sta   doext+1
+
+            rts
+
+* input data
+*-------------------------------
+
+inp         phx   save         ;x
+            phy
+            ldx   #$c1         ;are we ready?
+            ldy   #$10
+            lda   #1
+            jsr   dostatus
+            bcc   inp2         ;nope, exit
+
+            ldx   #$c1         ;yes, read
+            ldy   #$10
+            jsr   doread
+
+            sec
+            ply
+            plx   restore      ;& return
+            rts
+
+inp2        lda   #0
+            clc
+            ply
+            plx
+            rts
+
+* output data
+*-------------------------------
+
+out         phx   save         ;x
+            phy   save         ;y
+            pha   save         ;a
+
+out1        ldx   #$c1         ;ready for send?
+            ldy   #$10
+            lda   #$00
+            jsr   dostatus
+            bcc   out1         ;nope
+
+            pla   get          ;a
+            ldx   #$c1
+            ldy   #$10
+            jsr   dowrite      ;send it
+
+            ply   get          ;y
+            plx   get          ;x
+            rts
+
+* init modem for ring
+*-------------------------------
+
+ringset     jsr   hangup
+
+            lda   #0           ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #$00
+            jsr   gsdtr
+
+            ldy   initspd      ;set init speed
+            jsr   setspeed
+
+            lda   #0           ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #$FF
+rset2       inx   do           ;pre-inc
+            lda   initstr,x    ;get modem init string
+            beq   rset3        ;we are done
+
+            jsr   out          ;output
+            bra   rset2        ;loop (Z-bit set after wait)
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'         ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt       ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts                ;return
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp          ;check for a char
+            bcc   ring5        ;nope...
+
+            and   #$7f         ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5        ;keep checking
+
+ring2       jsr   inp          ;check for char
+            bcc   ring2
+
+            ldy   #0           ;def = 300 baud
+            and   #$7f         ;strip high
+
+            cmp   #'R'         ;oops, "No Carrier" message
+            beq   ringset
+
+            cmp   #cr          ;connect 300
+            beq   ring3
+
+            cmp   #'3'         ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'         ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'         ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'         ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'         ;connect 9600
+            bne   ring2
+
+ring3       jsr   setspeed     ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0           ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec   we           ;have a connection!
+ring5       rts
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup      lda   #$80         ;blow 'em off (hangup)
+
+gsdtr       sta   DTRstate
+
+            lda   #DTR_List
+            ldx   #>DTR_List
+            ldy   #0
+            jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait        sec                ;from apple ][+ ref man - pg 147
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr     phx
+            phy
+
+            lda   #carrlist
+            ldx   #>carrlist
+            ldy   #0
+            jsr   doext
+
+            lda   carrbits
+            and   cdbyte
+            beq   nocarr
+            sec
+            ply
+            plx
+            rts
+
+nocarr      clc
+            ply
+            plx
+            rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #$ff
+answer2     inx
+            lda   ansstr,x     ;get text
+            beq   answer3      ;we are done
+
+            jsr   out          ;send it
+            bra   answer2
+
+answer3     rts
+
+* set the rs-232 speed [speed offset in Y]
+*-------------------------------
+
+setspeed    phx
+            phy
+
+            lda   #1           ;find caller speed (x300)
+            sta   callspd
+            cpy   #0           ;at 300?
+            beq   Do_Baud      ;yep
+
+            asl   callspd      ;speed = speed * 2
+setspeed2   asl   callspd      ;speed = speed * 2
+            dey
+            bne   setspeed2    ;loop until correct speed found
+
+Do_Baud     pla   get          ;y-reg
+            bne   Try1200
+            lda   #<Baud300
+            sta   Baudread+1
+            lda   #>Baud300
+            sta   Baudread+2
+            bra   SetBaud
+
+Try1200     cmp   #1
+            bne   Try2400
+            lda   #<Baud1200
+            sta   Baudread+1
+            lda   #>Baud1200
+            sta   Baudread+2
+            bra   SetBaud
+
+Try2400     cmp   #2
+            bne   Try4800
+            lda   #<Baud2400
+            sta   Baudread+1
+            lda   #>Baud2400
+            sta   Baudread+2
+            bra   SetBaud
+
+Try4800     cmp   #3
+            bne   Try9600
+            lda   #<Baud4800
+            sta   Baudread+1
+            lda   #>Baud4800
+            sta   Baudread+2
+            bra   SetBaud
+
+Try9600     lda   #<Baud9600
+            sta   Baudread+1
+            lda   #>Baud9600
+            sta   Baudread+2
+
+SetBaud     ldx   #$c1
+            ldy   #$10
+            jsr   doinit
+
+            ldx   #0
+Baudread    lda   $ffff,x
+            beq   Fin_Init
+            jsr   out
+            inx
+            bra   Baudread
+
+Fin_Init    ldx   #0
+Init_Loop   lda   Port_Init,x
+            beq   donebaud
+            jsr   out
+            inx
+            bra   Init_Loop
+
+donebaud    lda   #Out_Buf
+            ldx   #>Out_Buf
+            ldy   #0
+            jsr   doext
+
+            plx
+            rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr    lda   #0
+            phx
+            phy
+
+            jsr   gsdtr
+
+            ply
+            plx
+            rts
+
+* Table of Speeds and other important stuff
+*-------------------------------
+
+Buffer      equ   $1080
+
+counthi     db    0
+countlo     db    0
+
+Baud300     hex   01
+            asc   '6B'
+            hex   00           ;accept 300 Baud
+Baud1200    hex   01
+            asc   '8B'
+            hex   00           ;accept 1200 Baud
+Baud2400    hex   01
+            asc   '10B'
+            hex   00           ;accept 2400 Baud
+Baud4800    hex   01
+            asc   '12B'
+            hex   00           ;accept 4800 Baud
+Baud9600    hex   01
+            asc   '14B'
+            hex   00           ;accept 9600 Baud
+
+Port_Init                      ;
+            hex   01
+            asc   '0D'         ;8 bits
+            hex   01
+            asc   '2P'         ;no parity
+            hex   01
+            asc   'AD'         ;auto-tabbing
+            hex   01
+            asc   'XD'         ;no xoff recognition
+            hex   01
+            asc   'FD'         ;no find keyboard
+            hex   01
+            asc   'CD'         ;no column overflow
+            hex   01
+            asc   'ED'         ;echo disabled
+            hex   01
+            asc   'MD'         ;no lf masking
+            hex   01
+            asc   'BE'         ;buffering enabled
+            hex   01
+            asc   'Z'
+            hex   00           ;no more control characters
+
+*-------------------------------
+
+Out_Buf     hex   04           ;Parameters to set the
+            hex   13           ;Output buffer
+            da    0
+            adrl  Buffer       ;Buffer it where
+            da    2            buffer
+
+*-------------------------------
+
+carrlist    hex   03           ;Parameter list for
+            hex   06           ;detecting carrier drop
+            da    0
+carrbits    da    0            Carrier
+
+*-------------------------------
+
+DTR_List    hex   03           ;Parameter list for
+            hex   0b           ;setting DTR
+            da    0
+DTRstate    da    0            bit
+
+            asc   'GSPort1'
+
diff --git a/Config/MODEMS/GSPORT.2.VERB.S b/Config/MODEMS/GSPORT.2.VERB.S
new file mode 100644
index 0000000..7f8744c
--- /dev/null
+++ b/Config/MODEMS/GSPORT.2.VERB.S
@@ -0,0 +1,451 @@
+            TR
+            TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+            rel
+            dsk   rel/gsport2
+
+cr          equ   $0d
+lf          equ   $0a
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+*-------------------------------
+
+gsport2     ent
+
+
+* Jump Table
+*-------------------------------
+
+            org   $b00
+
+            hex   20           ;serial card slot * 16
+initspd     hex   00
+
+callspd     dfb   0            ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   getcarr
+            jmp   setspeed
+            jmp   raisedtr
+
+doinit      jmp   $c200
+doread      jmp   $c200
+dowrite     jmp   $c200
+dostatus    jmp   $c200
+doext       jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init        lda   $c20d        ;get init address
+            sta   doinit+1
+            lda   $c20e        ;get read address
+            sta   doread+1
+            lda   $c20f        ;get write address
+            sta   dowrite+1
+            lda   $c210        ;get status address
+            sta   dostatus+1
+            lda   $c212
+            sta   doext+1
+
+            rts
+
+* input data
+*-------------------------------
+
+inp         phx   save         ;x
+            phy
+            ldx   #$c2         ;are we ready?
+            ldy   #$20
+            lda   #1
+            jsr   dostatus
+            bcc   inp2         ;nope, exit
+
+            ldx   #$c2         ;yes, read
+            ldy   #$20
+            jsr   doread
+
+            sec
+            ply
+            plx   restore      ;& return
+            rts
+
+inp2        lda   #0
+            clc
+            ply
+            plx
+            rts
+
+* output data
+*-------------------------------
+
+out         phx                ;save x
+            phy                ;save y
+            pha                ;save a
+
+out1        ldx   #$c2         ;ready for send?
+            ldy   #$20
+            lda   #$00
+            jsr   dostatus
+            bcc   out1         ;nope
+
+            pla   get          ;a
+            ldx   #$c2
+            ldy   #$20
+            jsr   dowrite      ;send it
+
+            ply   get          ;y
+            plx   get          ;x
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     jsr   hangup
+
+            lda   #0           ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #$00
+            jsr   gsdtr
+
+            ldy   initspd      ;set init speed
+            jsr   setspeed
+
+            lda   #0           ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #$FF
+rset2       inx   do           ;pre-inc
+            lda   initstr,x    ;get modem init string
+            beq   rset3        ;we are done
+
+            jsr   out          ;output
+            bra   rset2        ;loop (Z-bit set after wait)
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'         ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt       ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts                ;return
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp          ;check for a char
+            bcc   ring5        ;nope...
+
+            and   #$7f         ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5        ;keep checking
+
+ring2       jsr   inp          ;check for char
+            bcc   ring2
+
+            ldy   #0           ;def = 300 baud
+            and   #$7f         ;strip high
+
+            cmp   #'R'         ;oops, "No Carrier" message
+            beq   ringset
+
+            cmp   #cr          ;connect 300
+            beq   ring3
+
+            cmp   #'3'         ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'         ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'         ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'         ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'         ;connect 9600
+            bne   ring2
+
+ring3       jsr   setspeed     ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0           ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec   we           ;have a connection!
+ring5       rts
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup      lda   #$80         ;blow 'em off (hangup)
+gsdtr       sta   DTRstate
+
+            lda   #DTR_List
+            ldx   #>DTR_List
+            ldy   #0
+            jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait        sec                ;from apple ][+ ref man - pg 147
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr     phx
+            phy
+
+            lda   #carrlist
+            ldx   #>carrlist
+            ldy   #0
+            jsr   doext
+
+            lda   carrbits
+            and   cdbyte
+            beq   nocarr
+            sec
+            ply
+            plx
+            rts
+
+nocarr      clc
+            ply
+            plx
+            rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #$ff
+answer2     inx
+            lda   ansstr,x     ;get text
+            beq   answer3      ;we are done
+
+            jsr   out          ;send it
+            bra   answer2
+
+answer3     rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 = 300  baud
+* 1 = 1200 baud
+* 2 = 2400 baud
+* 3 = 4800 baud
+* 4 = 9600 baud
+*-------------------------------
+
+setspeed    phx
+            phy
+
+            lda   #1           ;find caller speed (x300)
+            sta   callspd
+            cpy   #0           ;at 300?
+            beq   Do_Baud      ;yep
+
+            asl   callspd      ;speed = speed * 2
+setspeed2   asl   callspd      ;speed = speed * 2
+            dey
+            bne   setspeed2    ;loop until correct speed found
+
+Do_Baud     pla   get          ;y-reg
+            bne   Try1200
+            lda   #<Baud300
+            sta   Baudread+1
+            lda   #>Baud300
+            sta   Baudread+2
+            bra   SetBaud
+
+Try1200     cmp   #1
+            bne   Try2400
+            lda   #<Baud1200
+            sta   Baudread+1
+            lda   #>Baud1200
+            sta   Baudread+2
+            bra   SetBaud
+
+Try2400     cmp   #2
+            bne   Try4800
+            lda   #<Baud2400
+            sta   Baudread+1
+            lda   #>Baud2400
+            sta   Baudread+2
+            bra   SetBaud
+
+Try4800     cmp   #3
+            bne   Try9600
+            lda   #<Baud4800
+            sta   Baudread+1
+            lda   #>Baud4800
+            sta   Baudread+2
+            bra   SetBaud
+
+Try9600     lda   #<Baud9600
+            sta   Baudread+1
+            lda   #>Baud9600
+            sta   Baudread+2
+
+SetBaud     ldx   #$c2
+            ldy   #$20
+            jsr   doinit
+
+            ldx   #0
+Baudread    lda   $ffff,x
+            beq   Fin_Init
+            jsr   out
+            inx
+            bra   Baudread
+
+Fin_Init    ldx   #0
+Init_Loop   lda   Port_Init,x
+            beq   donebaud
+            jsr   out
+            inx
+            bra   Init_Loop
+
+donebaud    lda   #Out_Buf
+            ldx   #>Out_Buf
+            ldy   #0
+            jsr   doext
+
+            plx
+            rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr    lda   #0
+            phx
+            phy
+
+            jsr   gsdtr
+
+            ply
+            plx
+            rts
+
+* globals
+*-------------------------------
+
+Buffer      equ   $1080
+
+counthi     db    0
+countlo     db    0
+
+Baud300     hex   01
+            asc   '6B'
+            hex   00           ;accept 300 Baud
+Baud1200    hex   01
+            asc   '8B'
+            hex   00           ;accept 1200 Baud
+Baud2400    hex   01
+            asc   '10B'
+            hex   00           ;accept 2400 Baud
+Baud4800    hex   01
+            asc   '12B'
+            hex   00           ;accept 4800 Baud
+Baud9600    hex   01
+            asc   '14b'
+            hex   00           ;accept 9600 Baud
+
+Port_Init                      ;
+            hex   01
+            asc   '0D'         ;8 bits
+            hex   01
+            asc   '2P'         ;no parity
+            hex   01
+            asc   'AD'         ;auto-tabbing
+            hex   01
+            asc   'XD'         ;no xoff recognition
+            hex   01
+            asc   'FD'         ;no find keyboard
+            hex   01
+            asc   'CD'         ;no column overflow
+            hex   01
+            asc   'ED'         ;echo disabled
+            hex   01
+            asc   'MD'         ;no lf masking
+            hex   01
+            asc   'BE'         ;buffering enabled
+            hex   01
+            asc   'Z'
+            hex   00           ;no more control characters
+
+*-------------------------------
+
+Out_Buf     hex   04           ;Parameters to set the
+            hex   13           ;Output buffer
+            da    0
+            adrl  Buffer       ;Buffer it where
+            da    2            buffer
+
+*-------------------------------
+
+carrlist    hex   03           ;Parameter list for
+            hex   06           ;detecting carrier drop
+            da    0
+carrbits    da    0            Carrier
+
+*-------------------------------
+
+DTR_List    hex   03           ;Parameter list for
+            hex   0b           ;setting DTR
+            da    0
+DTRstate    da    0            bit
+
+            asc   'GSPort2'
+
diff --git a/Config/MODEMS/GSPORT.HST.S b/Config/MODEMS/GSPORT.HST.S
new file mode 100644
index 0000000..4ef2279
--- /dev/null
+++ b/Config/MODEMS/GSPORT.HST.S
@@ -0,0 +1,396 @@
+            TR
+            TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*
+* Special version for the USR HST & 19200 Baud
+*-------------------------------
+
+            rel
+            dsk   rel/gsport.hst
+            org   $b00
+
+cr          equ   $0d
+lf          equ   $0a
+
+Buffer      equ   $10b0
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+*-------------------------------
+
+gsport_hst  ent
+
+* Jump Table
+*-------------------------------
+
+            hex   20           ;serial card slot * 16
+initspd     db    00
+
+callspd     dfb   0            speed
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   getcarr
+            jmp   initport
+            jmp   setirq
+            jmp   raisedtr
+
+doinit      jmp   $c200
+doread      jmp   $c200
+dowrite     jmp   $c200
+dostatus    jmp   $c200
+doext       jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init        lda   $c20d        ;get init address
+            sta   doinit+1
+            lda   $c20e        ;get read address
+            sta   doread+1
+            lda   $c20f        ;get write address
+            sta   dowrite+1
+            lda   $c210        ;get status address
+            sta   dostatus+1
+            lda   $c212
+            sta   doext+1
+
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     jsr   hangup
+
+            lda   #0           ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #$00
+            jsr   gsdtr
+
+            jsr   initport
+
+            lda   #0           ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #$FF
+rset2       inx   do           ;pre-inc
+            lda   initstr,x    ;get modem init string
+            beq   rset3        ;we are done
+
+            jsr   out          ;output
+            bra   rset2        ;loop (Z-bit set after wait)
+
+rset3       ldy   #250         ;check 50 times
+rset4       dey   count        ;down
+            beq   ringset
+
+            lda   #30          ;delay slightly
+            jsr   wait
+            jsr   inp
+            bcc   rset4
+
+            and   #$7f
+            cmp   #'K'         ;check for "OK"
+            bne   rset4
+
+            clc
+            rts   return
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp          ;check for a char
+            bcc   ring5        ;nope...
+
+            and   #$7f         ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5        ;keep checking
+
+ring2       jsr   inp          ;check for char
+            bcc   ring2
+
+            ldy   #0           ;def = 300 baud
+            and   #$7f         ;strip high
+
+            cmp   #'R'         ;oops, "No Carrier" message
+            beq   ringset
+
+            cmp   #cr          ;connect 300
+            beq   ring3
+
+            cmp   #'3'         ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'         ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'         ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'         ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'         ;connect 9600
+            bne   ring2
+
+ring3       jsr   setbyte      ;set the correct speed byte
+
+            ldy   #5
+ring4       lda   #0           ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec   we           ;have a connection!
+ring5       rts
+
+* input data
+*-------------------------------
+
+inp         phx   save         ;x
+            phy
+            ldx   #$c2         ;are we ready?
+            ldy   #$20
+            lda   #1
+            jsr   dostatus
+            bcc   inp2         ;nope, exit
+
+            ldx   #$c2         ;yes, read
+            ldy   #$20
+            jsr   doread
+
+            sec
+            ply
+            plx   restore      ;& return
+            rts
+
+inp2        lda   #0
+            clc
+            ply
+            plx
+            rts
+
+* output data
+*-------------------------------
+
+out         phx   save         ;x
+            phy   save         ;y
+            pha   save         ;a
+
+out1        ldx   #$c2         ;ready for send?
+            ldy   #$20
+            lda   #$00
+            jsr   dostatus
+            bcc   out1         ;nope
+
+            pla   get          ;a
+            ldx   #$c2
+            ldy   #$20
+            jsr   dowrite      ;send it
+
+            ply   get          ;y
+            plx   get          ;x
+            rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr     phx
+            phy
+
+            lda   #carrlist
+            ldx   #>carrlist
+            ldy   #0
+            jsr   doext
+
+            lda   carrbits
+            and   cdbyte
+            beq   nocarr
+            sec
+            ply
+            plx
+            rts
+
+nocarr      clc
+            ply
+            plx
+            rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #$ff
+answer2     inx
+            lda   ansstr,x     ;get text
+            beq   answer3      ;we are done
+
+            jsr   out          ;send it
+            bra   answer2
+
+answer3     rts
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup      lda   #$80         ;blow 'em off (hangup)
+gsdtr       sta   DTRstate
+
+            lda   #DTR_List
+            ldx   #>DTR_List
+            ldy   #0
+            jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait        sec                ;from apple ][+ ref man - pg 147
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 = 300  baud
+* 1 = 1200 baud
+* 2 = 2400 baud
+* 3 = 4800 baud
+* 4 = 9600 baud
+*-------------------------------
+
+setbyte     lda   #1           ;find caller speed (x300)
+            sta   callspd
+            cpy   #0           ;at 300?
+            beq   done         ;yep
+
+            asl   callspd      ;speed = speed * 2
+setspeed2   asl   callspd      ;speed = speed * 2
+            dey
+            bne   setspeed2    ;loop until correct speed found
+done        rts
+
+* reinit the port for 19200 baud
+*-------------------------------
+
+initport    phx
+            phy
+
+            ldx   #$c2
+            ldy   #$20
+            jsr   doinit
+
+            ldx   #0
+Baudread    lda   Baud19200,x
+            beq   Fin_Init
+            jsr   out
+            inx
+            bra   Baudread
+
+Fin_Init    ldx   #0
+Init_Loop   lda   Port_Init,x
+            beq   donebaud
+            jsr   out
+            inx
+            bra   Init_Loop
+
+donebaud    lda   #Out_Buf
+            ldx   #>Out_Buf
+            ldy   #0
+            jsr   doext
+
+            ply
+            plx
+            rts
+
+*-------------------------------
+* setup interupt vector
+
+setirq      rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr    lda   #0
+            phx
+            phy
+
+            jsr   gsdtr
+
+            ply
+            plx
+            rts
+
+* global data area
+*-------------------------------
+
+Baud19200   hex   01
+            asc   '15B'
+            hex   00           ;accept 19200 Baud
+
+Port_Init
+            hex   01
+            asc   '0D'         ;8 bits
+            hex   01
+            asc   '2P'         ;no parity
+            hex   01
+            asc   'AD'         ;auto-tabbing
+            hex   01
+            asc   'XD'         ;no xoff recognition
+            hex   01
+            asc   'FD'         ;no find keyboard
+            hex   01
+            asc   'CD'         ;no column overflow
+            hex   01
+            asc   'ED'         ;echo disabled
+            hex   01
+            asc   'MD'         ;no lf masking
+            hex   01
+            asc   'BE'         ;buffering enabled
+            hex   01
+            asc   'Z'
+            hex   00           ;no more control characters
+
+*-------------------------------
+
+Out_Buf     hex   04           ;Parameters to set the
+            hex   13           ;Output buffer
+            da    0
+            adrl  Buffer       ;Buffer it where
+            da    2            buffer
+
+*-------------------------------
+
+carrlist    hex   03           ;Parameter list for
+            hex   06           ;detecting carrier drop
+            da    0
+carrbits    da    0            Carrier
+
+*-------------------------------
+
+DTR_List    hex   03           ;Parameter list for
+            hex   0b           ;setting DTR
+            da    0
+DTRstate    da    0            bit
+
+            asc   'GSPort/HST'
+
diff --git a/Config/MODEMS/GSPORT.SLOT1.A b/Config/MODEMS/GSPORT.SLOT1.A
new file mode 100644
index 0000000..794f43f
--- /dev/null
+++ b/Config/MODEMS/GSPORT.SLOT1.A
@@ -0,0 +1,497 @@
+* GS Port Driver Bios - Slot #1
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+ rel
+ dsk rel/gsport1
+
+cr equ $0d
+lf equ $0a
+
+initstr equ $10d0
+ansstr equ $10c0
+cdbyte equ $10bf
+Buffer equ $10b0
+
+* setup for call
+*-------------------------------
+
+gsport1 ent
+
+* Jump Table
+*-------------------------------
+
+ org $b00
+
+ hex 10 ;serial card slot * 16
+initspd hex 00 ;init speed for modem
+
+callspd dfb 0 speed of current call
+
+bytcnt dfb 0,0,0
+
+ jmp init
+ jmp ringset
+ jmp ring
+ jmp answerRing
+ jmp hangup
+ jmp inp ;get a byte
+ jmp out ;send a byte
+ jmp getcarr ;caller there?
+ jmp setspeed ;speed of port
+ jmp raisedtr ;raise dtr
+
+doinit jmp $c100
+doread jmp $c100
+dowrite jmp $c100
+dostatus jmp $c100
+doext jmp $c100
+
+* init the serial port pascal locations
+*-------------------------------
+
+init lda $c10d ;get init address
+ sta doinit+1
+ lda $c10e ;get read address
+ sta doread+1
+ lda $c10f ;get write address
+ sta dowrite+1
+ lda $c110 ;get status address
+ sta dostatus+1
+ lda $c112
+ sta doext+1
+
+ rts
+
+* input data
+*-------------------------------
+
+inp phx save ;x
+ phy
+ ldx #$c1 ;are we ready?
+ ldy #$10
+ lda #1
+ jsr dostatus
+ bcc inp2 ;nope, exit
+
+ ldx #$c1 ;yes, read
+ ldy #$10
+ jsr doread
+
+ sec
+ ply
+ plx restore ;& return
+ rts
+
+inp2 lda #0
+ clc
+ ply
+ plx
+ rts
+
+* output data
+*-------------------------------
+
+out phx save ;x
+ phy save ;y
+ pha save ;a
+
+out1 ldx #$c1 ;ready for send?
+ ldy #$10
+ lda #$00
+ jsr dostatus
+ bcc out1 ;nope
+
+ pla get ;a
+ ldx #$c1
+ ldy #$10
+ jsr dowrite ;send it
+
+ ply get ;y
+ plx get ;x
+ rts
+
+* init modem for ring
+*-------------------------------
+
+ringset jsr hangup
+
+ lda #0 ;let modem reset
+ jsr wait
+ jsr wait
+
+ lda #$00
+ jsr gsdtr
+
+ ldy initspd ;set init speed
+ jsr setspeed
+
+ lda #0 ;slight delay (let modem do init)
+ jsr wait
+
+ ldx #$FF
+rset2 inx do ;pre-inc
+ lda initstr,x ;get modem init string
+ beq rset3 ;we are done
+
+ jsr out ;output
+ bra rset2 ;loop (Z-bit set after wait)
+
+rset3 lda #6
+ sta countlo
+ sta counthi
+
+rset4 ldy #$FF
+rset5 dey
+ beq decount
+
+ jsr inp
+ bcc rset5
+ and #$7f
+ cmp #'0' ;check for "0" (numeric)
+ beq leave
+ jmp rset5
+
+decount dec countlo
+ bne rset4
+ dec counthi
+ bne rset4
+ jmp ringset
+
+leave jsr inp ;grab the <cr> off the tail end of the "0"
+ bcc leave
+
+ jsr clearBuffer
+
+ lda #0
+ sta bytcnt ;reset byte counter
+ sta bytcnt+1
+ sta bytcnt+2
+ clc
+ rts  ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring jsr inp ;check for a char
+ bcc noring ;nope...
+
+ and #$7f ;strip high
+ cmp #'2' ;is it a 'ring'? (numeric)
+ bne notRing ;nope, check for connect messages
+
+********************************
+grabCR jsr inp ;grab the <cr> off the tail end of the "2"
+ bcc grabCR
+
+answerRing jsr answer ;the phone rang, so send 'ATA'
+
+ clc
+ rts
+
+********************************
+notRing
+ cmp #'1' ;is it a '1' or '10' or '11' or '12' or '14'?
+ beq gotCode ;yes, save it
+ cmp #'5' ;is it connect 1200?
+ bne noring ;nope
+
+gotCode sta code
+
+secondChar jsr inp ;second character will ALWAYS be there
+ bcc secondChar
+
+ and #$7f ;strip high
+ cmp #cr ;but might be a <cr>
+ bne multiCode
+
+********************************
+singleCode ldy #0 ;connect 300?
+ lda code
+ cmp #'1'
+ beq ring3
+
+ iny
+ cmp #'5' ;connect 1200?
+ beq ring3 ;nope, unknown code, keep checking
+ jmp noring
+
+********************************
+multiCode
+ sta code+1
+
+ ldy #2 ;def = 2400 baud
+
+ lda code ;get the first code char
+ cmp #'1' ;must be a one
+ bne noring ;if not, then keep trying
+
+ lda code+1 ;is it 2400?
+ cmp #'0'
+ beq ring3
+
+ iny
+ cmp #'1' ;is it 4800?
+ beq ring3
+
+ iny
+ cmp #'2' ;is it 9600
+ beq ring3
+
+ iny
+ cmp #'4' ;is it 19200?
+ beq ring3
+
+ dey
+ cmp #'7' ;is it 9600/ARQ?
+ beq ring3
+
+ dey  ;no 4800/arq
+ dey
+ cmp #'6'
+ beq ring3 ;2400/ARQ
+
+ dey
+ cmp #'5' ;1200/ARQ
+ beq ring3
+
+ jmp noring
+
+********************************
+ring3 jsr setspeed ;set the correct speed
+
+ ldy #5
+ring4 lda #0 ;let carrier's settle
+ jsr wait
+ dey
+ bne ring4
+
+ jsr clearBuffer
+ sec  ;we have a connection!
+ rts
+
+noring clc
+ rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+ lda #Flush_List
+ ldx #>Flush_List
+ ldy #0
+ jmp doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup lda #$80 ;blow 'em off (hangup)
+
+gsdtr sta DTRstate
+
+ lda #DTR_List
+ ldx #>DTR_List
+ ldy #0
+ jmp doext
+
+* wait routine
+*-------------------------------
+
+wait sec  ;from apple ][+ ref man - pg 147
+wait2 pha
+wait3 sbc #1
+ bne wait3
+ pla
+ sbc #1
+ bne wait2
+ rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr phx
+ phy
+
+ lda #carrlist
+ ldx #>carrlist
+ ldy #0
+ jsr doext
+
+ lda carrbits
+ and cdbyte
+ beq nocarr
+ sec
+ ply
+ plx
+ rts
+
+nocarr clc
+ ply
+ plx
+ rts
+
+* send ata to phone
+*-------------------------------
+
+answer ldx #$ff
+answer2 inx
+ lda ansstr,x ;get text
+ beq answer3 ;we are done
+
+ jsr out ;send it
+ bra answer2
+
+answer3 rts
+
+* set the rs-232 speed [speed offset in Y]
+*-------------------------------
+
+setspeed phx
+ phy
+
+ lda #1 ;find caller speed (x300)
+ sta callspd
+ cpy #0 ;at 300?
+ beq Do_Baud ;yep
+
+ asl callspd ;speed = speed * 2
+setspeed2 asl callspd ;speed = speed * 2
+ dey
+ bne setspeed2 ;loop until correct speed found
+
+Do_Baud pla  ;get y-reg
+ asl a
+ tay
+ lda baudAddresses,y
+ sta Baudread+1
+ lda baudAddresses+1,y
+ sta Baudread+2
+
+SetBaud ldx #$c1
+ ldy #$10
+ jsr doinit
+
+ ldx #0
+Baudread lda $ffff,x
+ beq Fin_Init
+ jsr out
+ inx
+ bra Baudread
+
+Fin_Init ldx #0
+Init_Loop lda Port_Init,x
+ beq donebaud
+ jsr out
+ inx
+ bra Init_Loop
+
+donebaud lda #Out_Buf
+ ldx #>Out_Buf
+ ldy #0
+ jsr doext
+
+ plx
+ rts
+
+********************************
+baudAddresses
+ da Baud300
+ da Baud1200
+ da Baud2400
+ da Baud4800
+ da Baud9600
+ da Baud19200
+
+*-------------------------------
+* raise dtr
+
+raisedtr lda #0
+ phx
+ phy
+
+ jsr gsdtr
+
+ ply
+ plx
+ rts
+
+* Table of Speeds and other important stuff
+*-------------------------------
+
+counthi db 0
+countlo db 0
+
+Baud300 hex 01
+ asc '6B'
+ hex 00 ;accept 300 Baud
+Baud1200 hex 01
+ asc '8B'
+ hex 00 ;accept 1200 Baud
+Baud2400 hex 01
+ asc '10B'
+ hex 00 ;accept 2400 Baud
+Baud4800 hex 01
+ asc '12B'
+ hex 00 ;accept 4800 Baud
+Baud9600 hex 01
+ asc '14B'
+ hex 00 ;accept 9600 Baud
+Baud19200 hex 01
+ asc '15B'
+ hex 00 ;accept 19200 baud
+
+Port_Init ;
+ hex 01
+ asc '0D'              ;8 bits
+ hex 01
+ asc '2P'              ;no parity
+ hex 01
+ asc 'AD'              ;auto-tabbing
+ hex 01
+ asc 'XD'              ;no xoff recognition
+ hex 01
+ asc 'FD'              ;no find keyboard
+ hex 01
+ asc 'CD'              ;no column overflow
+ hex 01
+ asc 'ED'              ;echo disabled
+ hex 01
+ asc 'MD'              ;no lf masking
+ hex 01
+ asc 'BE'              ;buffering enabled
+ hex 01
+ asc 'Z'
+ hex 00         ;no more control characters
+
+*-------------------------------
+
+Out_Buf hex 04 ;Parameters to set the
+ hex 13 ;Output buffer
+ da 0
+ adrl Buffer ;Buffer it where
+ da 2 buffer 2 bytes
+
+*-------------------------------
+
+carrlist hex 03 ;Parameter list for
+ hex 06 ;detecting carrier drop
+ da 0
+carrbits da 0 Carrier status here
+
+*-------------------------------
+
+DTR_List hex 03 ;Parameter list for
+ hex 0b ;setting DTR
+ da 0
+DTRstate da 0 bit 7 effects DTR
+
+*-------------------------------
+
+Flush_List hex 02 ;parameter list for flushing input queue
+ hex 14
+ da 0
+
+*-------------------------------
+
+code ds 2
+ asc 'GSPort1'
diff --git a/Config/MODEMS/GSPORT.SLOT1.S b/Config/MODEMS/GSPORT.SLOT1.S
new file mode 100644
index 0000000..cefc754
--- /dev/null
+++ b/Config/MODEMS/GSPORT.SLOT1.S
@@ -0,0 +1,522 @@
+             LST   OFF
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #1
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+             rel
+             dsk   MODEMS/rel/gsport1
+
+cr           equ   $0d
+lf           equ   $0a
+
+initstr      equ   $10d0
+ansstr       equ   $10c0
+cdbyte       equ   $10bf
+Buffer       equ   $10b0
+
+* setup for call
+*-------------------------------
+
+gsport1      ent
+
+* Jump Table
+*-------------------------------
+
+             org   $b00
+
+             hex   10            ;serial card slot * 16
+initspd      hex   00            ;init speed for modem
+
+callspd      dfb   0             speed
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp           ;get a byte
+             jmp   out           ;send a byte
+             jmp   getcarr       ;caller there?
+             jmp   setspeed      ;speed of port
+             jmp   setirq
+             jmp   raisedtr      ;raise dtr
+
+doinit       jmp   $c100
+doread       jmp   $c100
+dowrite      jmp   $c100
+dostatus     jmp   $c100
+doext        jmp   $c100
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c10d         ;get init address
+             sta   doinit+1
+             lda   $c10e         ;get read address
+             sta   doread+1
+             lda   $c10f         ;get write address
+             sta   dowrite+1
+             lda   $c110         ;get status address
+             sta   dostatus+1
+             lda   $c112
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx   save          ;x
+             phy
+             ldx   #$c1          ;are we ready?
+             ldy   #$10
+             lda   #1
+             jsr   dostatus
+             bcc   inp2          ;nope, exit
+
+             ldx   #$c1          ;yes, read
+             ldy   #$10
+             jsr   doread
+
+             sec
+             ply
+             plx   restore       ;& return
+             rts
+
+inp2         lda   #0
+             clc
+             ply
+             plx
+             rts
+
+* output data
+*-------------------------------
+
+out          phx   save          ;x
+             phy   save          ;y
+             pha   save          ;a
+
+out1         ldx   #$c1          ;ready for send?
+             ldy   #$10
+             lda   #$00
+             jsr   dostatus
+             bcc   out1          ;nope
+
+             pla   get           ;a
+             ldx   #$c1
+             ldy   #$10
+             jsr   dowrite       ;send it
+
+             ply   get           ;y
+             plx   get           ;x
+             rts
+
+* init modem for ring
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+rset2        inx   do            ;pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   rset3         ;we are done
+
+             jsr   out           ;output
+             bra   rset2         ;loop (Z-bit set after wait)
+
+rset3        lda   #6
+             sta   countlo
+             sta   counthi
+
+rset4        ldy   #$FF
+rset5        dey
+             beq   decount
+
+             jsr   inp
+             bcc   rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" (numeric)
+             beq   leave
+             jmp   rset5
+
+decount      dec   countlo
+             bne   rset4
+             dec   counthi
+             bne   rset4
+             jmp   ringset
+
+leave        jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   leave
+
+             jsr   clearBuffer
+
+             lda   #0
+             sta   bytcnt        ;reset byte counter
+             sta   bytcnt+1
+             sta   bytcnt+2
+             clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing
+             cmp   #'1'          ;is it a '1' or '10' or '11' or '12' or '14'?
+             beq   gotCode       ;yes, save it
+             cmp   #'5'          ;is it connect 1200?
+             bne   noRing        ;nope
+
+gotCode      sta   code
+
+secondChar   jsr   inp           ;second character will ALWAYS be there
+             bcc   secondChar
+
+             and   #$7f          ;strip high
+             cmp   #cr           ;but might be a <cr>
+             bne   multiCode
+
+********************************
+singleCode   ldy   #0            ;connect 300?
+             lda   code
+             cmp   #'1'
+             beq   ring3
+
+             iny
+             cmp   #'5'          ;connect 1200?
+             beq   ring3         ;nope, unknown code, keep checking
+             jmp   noRing
+
+********************************
+multiCode
+             sta   code+1
+
+             ldy   #2            ;def = 2400 baud
+
+             lda   code          ;get the first code char
+             cmp   #'1'          ;must be a one
+             bne   noRing        ;if not, then keep trying
+
+             lda   code+1        ;is it 2400?
+             cmp   #'0'
+             beq   ring3
+
+             iny
+             cmp   #'1'          ;is it 4800?
+             beq   ring3
+
+             iny
+             cmp   #'2'          ;is it 9600
+             beq   ring3
+
+             iny
+             cmp   #'4'          ;is it 19200?
+             beq   ring3
+             jmp   noRing
+
+********************************
+ring3        jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer
+             sec                 ;we have a connection!
+             rts
+
+noRing       clc
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             ply
+             plx
+             rts
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       ldx   #$ff
+answer2      inx
+             lda   ansstr,x      ;get text
+             beq   answer3       ;we are done
+
+             jsr   out           ;send it
+             bra   answer2
+
+answer3      rts
+
+* set the rs-232 speed [speed offset in Y]
+*-------------------------------
+
+setspeed     phx
+             phy
+
+             lda   #1            ;find caller speed (x300)
+             sta   callspd
+             cpy   #0            ;at 300?
+             beq   Do_Baud       ;yep
+
+             asl   callspd       ;speed = speed * 2
+setspeed2    asl   callspd       ;speed = speed * 2
+             dey
+             bne   setspeed2     ;loop until correct speed found
+
+Do_Baud      pla                 ;get y-reg
+             bne   Try1200
+             lda   #<Baud300
+             sta   Baudread+1
+             lda   #>Baud300
+             sta   Baudread+2
+             bra   SetBaud
+
+Try1200      cmp   #1
+             bne   Try2400
+             lda   #<Baud1200
+             sta   Baudread+1
+             lda   #>Baud1200
+             sta   Baudread+2
+             bra   SetBaud
+
+Try2400      cmp   #2
+             bne   Try4800
+             lda   #<Baud2400
+             sta   Baudread+1
+             lda   #>Baud2400
+             sta   Baudread+2
+             bra   SetBaud
+
+Try4800      cmp   #3
+             bne   Try9600
+             lda   #<Baud4800
+             sta   Baudread+1
+             lda   #>Baud4800
+             sta   Baudread+2
+             bra   SetBaud
+
+Try9600      cmp   #4
+             bne   Try19200
+             lda   #<Baud9600
+             sta   Baudread+1
+             lda   #>Baud9600
+             sta   Baudread+2
+             bra   SetBaud
+
+Try19200     lda   #<Baud19200
+             sta   Baudread+1
+             lda   #>Baud19200
+             sta   Baudread+2
+
+SetBaud      ldx   #$c1
+             ldy   #$10
+             jsr   doinit
+
+             ldx   #0
+Baudread     lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   Baudread
+
+Fin_Init     ldx   #0
+Init_Loop    lda   Port_Init,x
+             beq   donebaud
+             jsr   out
+             inx
+             bra   Init_Loop
+
+donebaud     lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+* Table of Speeds and other important stuff
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15b'
+             hex   00            ;accept 19200 baud
+
+Port_Init                        ;
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             Carrier
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             bit
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code         ds    2
+             asc   'GSPort1'
+
diff --git a/Config/MODEMS/GSPORT.SLOT2.A b/Config/MODEMS/GSPORT.SLOT2.A
new file mode 100644
index 0000000..d66f0b3
--- /dev/null
+++ b/Config/MODEMS/GSPORT.SLOT2.A
@@ -0,0 +1,504 @@
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+ rel
+ dsk rel/gsport2
+
+cr equ $0d
+lf equ $0a
+
+initstr equ $10d0
+ansstr equ $10c0
+cdbyte equ $10bf
+Buffer equ $10b0
+
+*-------------------------------
+
+gsport2 ent
+
+* Jump Table
+*-------------------------------
+
+ org $b00
+
+ hex 20 ;serial card slot * 16
+initspd hex 00
+
+callspd dfb 0 ;speed of call
+
+bytcnt dfb 0,0,0
+
+ jmp init
+ jmp ringset
+ jmp ring
+ jmp answerRing
+ jmp hangup
+ jmp inp
+ jmp out
+ jmp getcarr
+ jmp setspeed
+ jmp raisedtr
+
+doinit jmp $c200
+doread jmp $c200
+dowrite jmp $c200
+dostatus jmp $c200
+doext jmp $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init lda $c20d ;get init address
+ sta doinit+1
+ lda $c20e ;get read address
+ sta doread+1
+ lda $c20f ;get write address
+ sta dowrite+1
+ lda $c210 ;get status address
+ sta dostatus+1
+ lda $c212
+ sta doext+1
+
+ rts
+
+* input data
+*-------------------------------
+
+inp phx  ;save x
+ phy
+ ldx #$c2 ;are we ready?
+ ldy #$20
+ lda #1
+ jsr dostatus
+ bcc inp2 ;nope, exit
+
+ ldx #$c2 ;yes, read
+ ldy #$20
+ jsr doread
+
+ sec
+ ply
+ plx  ;restore & return
+ rts
+
+inp2 lda #0
+ clc
+ ply
+ plx
+ rts
+
+* output data
+*-------------------------------
+
+out phx  ;save x
+ phy ;save y
+ pha ;save a
+
+out1 ldx #$c2 ;ready for send?
+ ldy #$20
+ lda #$00
+ jsr dostatus
+ bcc out1 ;nope
+
+ pla  ;get a
+ ldx #$c2
+ ldy #$20
+ jsr dowrite ;send it
+
+ ply  ;get y
+ plx  ;get x
+ rts
+
+* setup for call
+*-------------------------------
+
+ringset jsr hangup
+
+ lda #0 ;let modem reset
+ jsr wait
+ jsr wait
+
+ lda #$00
+ jsr gsdtr
+
+ ldy initspd ;set init speed
+ jsr setspeed
+
+ lda #0 ;slight delay (let modem do init)
+ jsr wait
+
+ ldx #$FF
+rset2 inx do ;pre-inc
+ lda initstr,x ;get modem init string
+ beq rset3 ;we are done
+
+ jsr out ;output
+ bra rset2 ;loop (Z-bit set after wait)
+
+rset3 lda #6
+ sta countlo
+ sta counthi
+
+rset4 ldy #$FF
+rset5 dey
+ beq decount
+
+ jsr inp
+ bcc rset5
+ and #$7f
+ cmp #'0' ;check for "0" result
+ beq leave
+ jmp rset5
+
+decount dec countlo
+ bne rset4
+ dec counthi
+ bne rset4
+ jmp ringset
+
+leave jsr inp ;grab the <cr> off the tail end of the "0"
+ bcc leave
+
+ jsr clearBuffer
+
+ lda #0
+ sta bytcnt ;reset byte counter
+ sta bytcnt+1
+ sta bytcnt+2
+ clc
+ rts  ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring jsr inp ;check for a char
+ bcc noRing ;nope...
+
+ and #$7f ;strip high
+ cmp #'2' ;is it a 'ring'? (numeric)
+ bne notRing ;nope, check for connect messages
+
+********************************
+grabCR jsr inp ;grab the <cr> off the tail end of the "2"
+ bcc grabCR
+
+answerRing jsr answer ;the phone rang, so send 'ATA'
+
+ clc
+ rts
+
+********************************
+notRing
+ cmp #'1' ;is it a '1' or '10' or '11' or '12' or '14'?
+ beq gotCode ;yes, save it
+ cmp #'5' ;is it connect 1200?
+ bne noRing ;nope
+
+gotCode sta code
+
+secondChar jsr inp ;second character will ALWAYS be there
+ bcc secondChar
+
+ and #$7f ;strip high
+ cmp #cr ;but might be a <cr>
+ bne multiCode
+
+********************************
+singleCode ldy #0 ;connect 300?
+ lda code
+ cmp #'1'
+ beq ring3
+
+ iny
+ cmp #'5' ;connect 1200?
+ beq ring3 ;nope, unknown code, keep checking
+ jmp noRing
+
+********************************
+multiCode
+ sta code+1
+
+ ldy #2 ;def = 2400 baud
+
+ lda code ;get the first code char
+ cmp #'1' ;must be a one
+ bne noRing ;if not, then keep trying
+
+ lda code+1 ;is it 2400?
+ cmp #'0'
+ beq ring3
+
+ iny
+ cmp #'1' ;is it 4800?
+ beq ring3
+
+ iny
+ cmp #'2' ;is it 9600
+ beq ring3
+
+ iny
+ cmp #'4' ;is it 19200?
+ beq ring3
+
+ dey
+ cmp #'7' ;is it 9600/ARQ?
+ beq ring3
+
+ dey  ;no 4800/arq
+ dey
+ cmp #'6'
+ beq ring3 ;2400/ARQ
+
+ dey
+ cmp #'5' ;1200/ARQ
+ beq ring3
+ jmp noRing
+
+********************************
+ring3 jsr setspeed ;set the correct speed
+
+ ldy #5
+ring4 lda #0 ;let carrier's settle
+ jsr wait
+ dey
+ bne ring4
+
+ jsr clearBuffer ;remove any garbage
+ sec  ;we have a connection!
+ rts
+
+noring clc
+ rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+ lda #Flush_List
+ ldx #>Flush_List
+ ldy #0
+ jmp doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup lda #$80 ;blow 'em off (hangup)
+gsdtr sta DTRstate
+
+ lda #DTR_List
+ ldx #>DTR_List
+ ldy #0
+ jmp doext
+
+* wait routine
+*-------------------------------
+
+wait sec ;from apple ][+ ref man - pg 147
+wait2 pha
+wait3 sbc #1
+ bne wait3
+ pla
+ sbc #1
+ bne wait2
+ rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr phx
+ phy
+
+ lda #carrlist
+ ldx #>carrlist
+ ldy #0
+ jsr doext
+
+ lda carrbits
+ and cdbyte
+ beq nocarr
+ sec
+ ply
+ plx
+ rts
+
+nocarr clc
+ ply
+ plx
+ rts
+
+* send ata to phone
+*-------------------------------
+
+answer lda #$80
+ jsr wait
+
+ ldx #$ff
+answer2 inx
+ lda ansstr,x ;get text
+ beq answer3 ;we are done
+
+ jsr out ;send it
+ bra answer2
+
+answer3 rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed phx
+ phy
+
+ lda #1 ;find caller speed (x300)
+ sta callspd
+ cpy #0 ;at 300?
+ beq Do_Baud ;yep
+
+ asl callspd ;speed = speed * 2
+setspeed2 asl callspd ;speed = speed * 2
+ dey
+ bne setspeed2 ;loop until correct speed found
+
+Do_Baud pla  ;get y-reg
+ asl a
+ tay
+ lda baudAddresses,y
+ sta Baudread+1
+ lda baudAddresses+1,y
+ sta Baudread+2
+
+SetBaud ldx #$c2
+ ldy #$20
+ jsr doinit
+
+ ldx #0
+Baudread lda $ffff,x
+ beq Fin_Init
+ jsr out
+ inx
+ bra Baudread
+
+Fin_Init ldx #0
+Init_Loop lda Port_Init,x
+ beq donebaud
+ jsr out
+ inx
+ bra Init_Loop
+
+donebaud lda #Out_Buf
+ ldx #>Out_Buf
+ ldy #0
+ jsr doext
+
+ plx
+ rts
+
+********************************
+baudAddresses
+ da Baud300
+ da Baud1200
+ da Baud2400
+ da Baud4800
+ da Baud9600
+ da Baud19200
+
+*-------------------------------
+* raise dtr
+
+raisedtr lda #0
+ phx
+ phy
+
+ jsr gsdtr
+
+ ply
+ plx
+ rts
+
+* globals
+*-------------------------------
+
+counthi db 0
+countlo db 0
+
+Baud300 hex 01
+ asc '6B'
+ hex 00 ;accept 300 Baud
+Baud1200 hex 01
+ asc '8B'
+ hex 00 ;accept 1200 Baud
+Baud2400 hex 01
+ asc '10B'
+ hex 00 ;accept 2400 Baud
+Baud4800 hex 01
+ asc '12B'
+ hex 00 ;accept 4800 Baud
+Baud9600 hex 01
+ asc '14B'
+ hex 00 ;accept 9600 Baud
+Baud19200 hex 01
+ asc '15B'
+ hex 00 ;accept 19200 baud
+
+Port_Init
+ hex 01
+ asc '0D'              ;8 bits
+ hex 01
+ asc '2P'              ;no parity
+ hex 01
+ asc 'AD'              ;auto-tabbing
+ hex 01
+ asc 'XD'              ;no xoff recognition
+ hex 01
+ asc 'FD'              ;no find keyboard
+ hex 01
+ asc 'CD'              ;no column overflow
+ hex 01
+ asc 'ED'              ;echo disabled
+ hex 01
+ asc 'MD'              ;no lf masking
+ hex 01
+ asc 'BE'              ;buffering enabled
+ hex 01
+ asc 'Z'
+ hex 00         ;no more control characters
+
+*-------------------------------
+
+Out_Buf hex 04 ;Parameters to set the
+ hex 13 ;Output buffer
+ da 0
+ adrl Buffer ;Buffer it where
+ da 2 buffer 2 bytes
+
+*-------------------------------
+
+Carrlist hex 03 ;Parameter list for
+ hex 06 ;detecting carrier drop
+ da 0
+carrbits da 0 Carrier status here
+
+*-------------------------------
+
+DTR_List hex 03 ;Parameter list for
+ hex 0b ;setting DTR
+ da 0
+DTRstate da 0 bit 7 effects DTR
+
+*-------------------------------
+
+Flush_List hex 02 ;parameter list for flushing input queue
+ hex 14
+ da 0
+
+*-------------------------------
+
+code ds 2 ;2 byte code returned by modem
+ asc 'GSPort2'
diff --git a/Config/MODEMS/GSPORT.SLOT2.S b/Config/MODEMS/GSPORT.SLOT2.S
new file mode 100644
index 0000000..31e27d4
--- /dev/null
+++ b/Config/MODEMS/GSPORT.SLOT2.S
@@ -0,0 +1,531 @@
+             LST   OFF
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+             rel
+             dsk   MODEMS/rel/gsport2
+
+cr           equ   $0d
+lf           equ   $0a
+
+initstr      equ   $10d0
+ansstr       equ   $10c0
+cdbyte       equ   $10bf
+Buffer       equ   $10b0
+
+*-------------------------------
+
+gsport2      ent
+
+
+* Jump Table
+*-------------------------------
+
+             org   $b00
+
+             hex   20            ;serial card slot * 16
+initspd      hex   00
+
+callspd      dfb   0             ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   getcarr
+             jmp   setspeed
+             jmp   setirq
+             jmp   raisedtr
+
+doinit       jmp   $c200
+doread       jmp   $c200
+dowrite      jmp   $c200
+dostatus     jmp   $c200
+doext        jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c20d         ;get init address
+             sta   doinit+1
+             lda   $c20e         ;get read address
+             sta   doread+1
+             lda   $c20f         ;get write address
+             sta   dowrite+1
+             lda   $c210         ;get status address
+             sta   dostatus+1
+             lda   $c212
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx   save          ;x
+             phy
+             ldx   #$c2          ;are we ready?
+             ldy   #$20
+             lda   #1
+             jsr   dostatus
+             bcc   inp2          ;nope, exit
+
+             ldx   #$c2          ;yes, read
+             ldy   #$20
+             jsr   doread
+
+             sec
+             ply
+             plx   restore       ;& return
+             rts
+
+inp2         lda   #0
+             clc
+             ply
+             plx
+             rts
+
+* output data
+*-------------------------------
+
+out          phx                 ;save x
+             phy                 ;save y
+             pha                 ;save a
+
+out1         ldx   #$c2          ;ready for send?
+             ldy   #$20
+             lda   #$00
+             jsr   dostatus
+             bcc   out1          ;nope
+
+             pla   get           ;a
+             ldx   #$c2
+             ldy   #$20
+             jsr   dowrite       ;send it
+
+             ply   get           ;y
+             plx   get           ;x
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+rset2        inx   do            ;pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   rset3         ;we are done
+
+             jsr   out           ;output
+             bra   rset2         ;loop (Z-bit set after wait)
+
+rset3        lda   #6
+             sta   countlo
+             sta   counthi
+
+rset4        ldy   #$FF
+rset5        dey
+             beq   decount
+
+             jsr   inp
+             bcc   rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" result
+             beq   leave
+             jmp   rset5
+
+decount      dec   countlo
+             bne   rset4
+             dec   counthi
+             bne   rset4
+             jmp   ringset
+
+leave        jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   leave
+
+             jsr   clearBuffer
+
+             lda   #0
+             sta   bytcnt        ;reset byte counter
+             sta   bytcnt+1
+             sta   bytcnt+2
+             clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing
+             cmp   #'1'          ;is it a '1' or '10' or '11' or '12' or '14'?
+             beq   gotCode       ;yes, save it
+             cmp   #'5'          ;is it connect 1200?
+             bne   noRing        ;nope
+
+gotCode      sta   code
+
+secondChar   jsr   inp           ;second character will ALWAYS be there
+             bcc   secondChar
+
+             and   #$7f          ;strip high
+             cmp   #cr           ;but might be a <cr>
+             bne   multiCode
+
+********************************
+singleCode   ldy   #0            ;connect 300?
+             lda   code
+             cmp   #'1'
+             beq   ring3
+
+             iny
+             cmp   #'5'          ;connect 1200?
+             beq   ring3         ;nope, unknown code, keep checking
+             jmp   noRing
+
+********************************
+multiCode
+             sta   code+1
+
+             ldy   #2            ;def = 2400 baud
+
+             lda   code          ;get the first code char
+             cmp   #'1'          ;must be a one
+             bne   noRing        ;if not, then keep trying
+
+             lda   code+1        ;is it 2400?
+             cmp   #'0'
+             beq   ring3
+
+             iny
+             cmp   #'1'          ;is it 4800?
+             beq   ring3
+
+             iny
+             cmp   #'2'          ;is it 9600
+             beq   ring3
+
+             iny
+             cmp   #'4'          ;is it 19200?
+             beq   ring3
+             jmp   noRing
+
+********************************
+ring3        jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer   ;remove any garbage
+             sec                 ;we have a connection!
+             rts
+
+noRing       clc
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             ply
+             plx
+             rts
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #$ff
+answer2      inx
+             lda   ansstr,x      ;get text
+             beq   answer3       ;we are done
+
+             jsr   out           ;send it
+             bra   answer2
+
+answer3      rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed     phx
+             phy
+
+             lda   #1            ;find caller speed (x300)
+             sta   callspd
+             cpy   #0            ;at 300?
+             beq   Do_Baud       ;yep
+
+             asl   callspd       ;speed = speed * 2
+setspeed2    asl   callspd       ;speed = speed * 2
+             dey
+             bne   setspeed2     ;loop until correct speed found
+
+Do_Baud      pla                 ;get y-reg
+             bne   Try1200
+             lda   #<Baud300
+             sta   Baudread+1
+             lda   #>Baud300
+             sta   Baudread+2
+             bra   SetBaud
+
+Try1200      cmp   #1
+             bne   Try2400
+             lda   #<Baud1200
+             sta   Baudread+1
+             lda   #>Baud1200
+             sta   Baudread+2
+             bra   SetBaud
+
+Try2400      cmp   #2
+             bne   Try4800
+             lda   #<Baud2400
+             sta   Baudread+1
+             lda   #>Baud2400
+             sta   Baudread+2
+             bra   SetBaud
+
+Try4800      cmp   #3
+             bne   Try9600
+             lda   #<Baud4800
+             sta   Baudread+1
+             lda   #>Baud4800
+             sta   Baudread+2
+             bra   SetBaud
+
+Try9600      cmp   #4
+             bne   Try19200
+             lda   #<Baud9600
+             sta   Baudread+1
+             lda   #>Baud9600
+             sta   Baudread+2
+             bra   SetBaud
+
+Try19200     lda   #<Baud19200
+             sta   Baudread+1
+             lda   #>Baud19200
+             sta   Baudread+2
+
+SetBaud      ldx   #$c2
+             ldy   #$20
+             jsr   doinit
+
+             ldx   #0
+Baudread     lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   Baudread
+
+Fin_Init     ldx   #0
+Init_Loop    lda   Port_Init,x
+             beq   donebaud
+             jsr   out
+             inx
+             bra   Init_Loop
+
+donebaud     lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+* globals
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15B'
+             hex   00            ;accept 19200 baud
+
+Port_Init
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             Carrier
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             bit
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code         ds    2             ;2 byte code returned by modem
+             asc   'GSPort2'
+
diff --git a/Config/MODEMS/GSPRT2.VSM.S b/Config/MODEMS/GSPRT2.VSM.S
new file mode 100644
index 0000000..b5df4ba
--- /dev/null
+++ b/Config/MODEMS/GSPRT2.VSM.S
@@ -0,0 +1,548 @@
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+             rel
+             dsk   rel/gsport2.vsm
+
+cr           equ   $0d
+lf           equ   $0a
+
+initstr      equ   $10d0
+ansstr       equ   $10c0
+cdbyte       equ   $10bf
+Buffer       equ   $10b0
+
+*-------------------------------
+
+gsport2      ent
+
+
+* Jump Table
+*-------------------------------
+
+             org   $b00
+
+             hex   20            ;serial card slot * 16
+initspd      hex   00
+
+callspd      dfb   0             ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   getcarr
+             jmp   setspeed
+             jmp   setirq
+             jmp   raisedtr
+
+doinit       jmp   $c200
+doread       jmp   $c200
+dowrite      jmp   $c200
+dostatus     jmp   $c200
+doext        jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c20d         ;get init address
+             sta   doinit+1
+             lda   $c20e         ;get read address
+             sta   doread+1
+             lda   $c20f         ;get write address
+             sta   dowrite+1
+             lda   $c210         ;get status address
+             sta   dostatus+1
+             lda   $c212
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx   save          ;x
+             phy
+             ldx   #$c2          ;are we ready?
+             ldy   #$20
+             lda   #1
+             jsr   dostatus
+             bcc   inp2          ;nope, exit
+
+             ldx   #$c2          ;yes, read
+             ldy   #$20
+             jsr   doread
+
+             sec
+             ply
+             plx                 ;restore & return
+             rts
+
+inp2         lda   #0
+             clc
+             ply
+             plx
+             rts
+
+* output data
+*-------------------------------
+
+out          phx                 ;save x
+             phy                 ;save y
+             pha                 ;save a
+
+out1         ldx   #$c2          ;ready for send?
+             ldy   #$20
+             lda   #$00
+             jsr   dostatus
+             bcc   out1          ;nope
+
+             pla   get           ;a
+             ldx   #$c2
+             ldy   #$20
+             jsr   dowrite       ;send it
+
+             ply   get           ;y
+             plx   get           ;x
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+rset2        inx   do            ;pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   rset3         ;we are done
+
+             jsr   out           ;output
+             bra   rset2         ;loop (Z-bit set after wait)
+
+rset3        lda   #6
+             sta   countlo
+             sta   counthi
+
+rset4        ldy   #$FF
+rset5        dey
+             beq   decount
+
+             jsr   inp
+             bcc   rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" result
+             beq   leave
+             jmp   rset5
+
+decount      dec   countlo
+             bne   rset4
+             dec   counthi
+             bne   rset4
+             jmp   ringset
+
+leave        jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   leave
+
+             jsr   clearBuffer
+
+             lda   #0
+             sta   bytcnt        ;reset byte counter
+             sta   bytcnt+1
+             sta   bytcnt+2
+noRing       clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing      cmp   #'4'          ; is it a '40','46','47' or '48'?
+             beq   :gotCode
+             cmp   #'5'          ; is it a '50'?
+             beq   :gotCode      ; Yes, check for carrier speed
+             jmp   noRing
+
+:gotCode     sta   code1
+
+:nxtchar     jsr   inp           ; get next character
+             bcc   :nxtchar      ; it MUST be there
+
+             and   #$7f
+             cmp   #cr
+             beq   :startck
+
+             sta   code1+1
+             bra   :nxtchar
+
+:startck     ldy   #32           ;def = 9600 baud carrier
+             ldx   #5
+
+             lda   code1         ;get the first code char
+             cmp   #'5'          ;is it a '50'?
+             bne   :not9600      ;if not, then check for other carrier speeds
+
+             lda   code1+1
+             cmp   #'0'
+             beq   :setcspd
+
+:not9600     ldy   #1
+             ldx   #0
+             lda   code1+1       ;is it a 300 baud carrier?
+             cmp   #'0'
+             beq   :setcspd      ;yes
+
+             ldy   #4
+             inx
+             cmp   #'6'          ;is it a 1200 baud carrier?
+             beq   :setcspd      ;yes
+
+             ldy   #8
+             inx
+             cmp   #'7'          ;is it a 2400 baud carrier?
+             beq   :setcspd
+
+             ldy   #16
+             inx
+             cmp   #'8'          ;is it a 4800 baud carrier?
+             beq   :setcspd
+             jmp   noRing
+
+:setcspd     sty   carrspd
+             stx   portspd
+
+; check for protocol connections
+ckptrocl     ldy   #0
+:nxtchar     jsr   inp           ; get next character
+             bcc   :nxtchar      ; it MUST be there
+
+             and   #$7f
+             cmp   #cr
+             beq   :startck
+
+             sta   code2,y       ; save it...
+             iny
+             bra   :nxtchar
+
+:startck     lda   code2         ; get first char of protocol
+             cmp   #'7'          ; is it '70'?
+             bne   :ring3
+
+             lda   code2+1       ; get last character of protocol
+             cmp   #'0'          ; is it '70'?
+             bne   :ring3
+
+             ldx   #5
+             stx   portspd
+
+********************************
+:ring3       ldy   portspd       ;get the speed to open port at
+             jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer   ;remove any garbage
+             sec                 ;we have a connection!
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             ply
+             plx
+             rts
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #$ff
+answer2      inx
+             lda   ansstr,x      ;get text
+             beq   answer3       ;we are done
+
+             jsr   out           ;send it
+             bra   answer2
+
+answer3      rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed     phx
+
+             ldx   carrspd       ;find caller speed (x300)
+             stx   callspd
+
+             tya                 ;get y-reg into a-reg
+             bne   Try1200
+             lda   #<Baud300
+             sta   Baudread+1
+             lda   #>Baud300
+             sta   Baudread+2
+             bra   SetBaud
+
+Try1200      cmp   #1
+             bne   Try2400
+             lda   #<Baud1200
+             sta   Baudread+1
+             lda   #>Baud1200
+             sta   Baudread+2
+             bra   SetBaud
+
+Try2400      cmp   #2
+             bne   Try4800
+             lda   #<Baud2400
+             sta   Baudread+1
+             lda   #>Baud2400
+             sta   Baudread+2
+             bra   SetBaud
+
+Try4800      cmp   #3
+             bne   Try9600
+             lda   #<Baud4800
+             sta   Baudread+1
+             lda   #>Baud4800
+             sta   Baudread+2
+             bra   SetBaud
+
+Try9600      cmp   #4
+             bne   Try19200
+             lda   #<Baud9600
+             sta   Baudread+1
+             lda   #>Baud9600
+             sta   Baudread+2
+             bra   SetBaud
+
+Try19200     lda   #<Baud19200
+             sta   Baudread+1
+             lda   #>Baud19200
+             sta   Baudread+2
+
+SetBaud      ldx   #$c2
+             ldy   #$20
+             jsr   doinit
+
+             ldx   #0
+Baudread     lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   Baudread
+
+Fin_Init     ldx   #0
+Init_Loop    lda   Port_Init,x
+             beq   donebaud
+             jsr   out
+             inx
+             bra   Init_Loop
+
+donebaud     lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+* globals
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15B'
+             hex   00            ;accept 19200 baud
+
+Port_Init
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             Carrier
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             bit
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code1        ds    2             ;2 byte code returned by modem
+code2        ds    2
+portspd      ds    1
+carrspd      ds    1
+             asc   'GSPort2 Hayes VSM'
+
diff --git a/Config/MODEMS/HAYES.VSM.GS.S b/Config/MODEMS/HAYES.VSM.GS.S
new file mode 100644
index 0000000..e942fec
--- /dev/null
+++ b/Config/MODEMS/HAYES.VSM.GS.S
@@ -0,0 +1,536 @@
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+cr           equ   $0d
+lf           equ   $0a
+slot         equ   $c2
+slot1        equ   $20
+
+*-------------------------------
+
+gsport2      ent
+
+* Jump Table
+*-------------------------------
+
+             org   $e00
+
+             hex   20            ;serial card slot * 16
+initspd      hex   00
+
+callspd      dfb   0             ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   getcarr
+             jmp   setspeed
+             jmp   setirq
+             jmp   raisedtr
+
+doinit       jmp   $c200
+doread       jmp   $c200
+dowrite      jmp   $c200
+dostatus     jmp   $c200
+doext        jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c20d         ;get init address
+             sta   doinit+1
+             lda   $c20e         ;get read address
+             sta   doread+1
+             lda   $c20f         ;get write address
+             sta   dowrite+1
+             lda   $c210         ;get status address
+             sta   dostatus+1
+             lda   $c212
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx                 ;save x
+             phy
+             jsr   setcall       ;set x & y
+             lda   #1
+             jsr   dostatus      ;is there input ready?
+             bcs   :inp2         ;yes, read character
+
+             lda   #0
+             clc
+             bra   :inp3
+
+:inp2        jsr   setcall       ;yes, read
+             jsr   doread
+
+             sec
+:inp3        ply
+             plx                 ;restore & return
+             rts
+
+* output data
+*-------------------------------
+
+out          phx                 ;save x
+             phy                 ;save y
+             pha                 ;save a
+
+out1         jsr   setcall       ;ready for send?
+             lda   #$00
+             jsr   dostatus      ;ready for send?
+             bcc   out1          ;nope
+
+             pla                 ;get a
+             jsr   setcall
+             jsr   dowrite       ;send it
+
+             ply                 ;get y
+             plx                 ;get x
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+:rset2       inx                 ;do pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   :rset3        ;we are done
+
+             jsr   out           ;output
+             bra   :rset2        ;loop (Z-bit set after wait)
+
+:rset3       lda   #6
+             sta   countlo
+             sta   counthi
+
+:rset4       ldy   #$FF
+:rset5       dey
+             beq   :decount
+
+             jsr   inp
+             bcc   :rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" result
+             beq   :leave
+             jmp   :rset5
+
+:decount     dec   countlo
+             bne   :rset4
+             dec   counthi
+             bne   :rset4
+             jmp   ringset
+
+:leave       jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   :leave
+
+             jsr   clearBuffer
+
+             stz   bytcnt        ;reset byte counter
+             stz   bytcnt+1
+             stz   bytcnt+2
+noRing       clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing      cmp   #'4'          ; is it a '40','46','47' or '48'?
+             beq   :gotCode
+             cmp   #'5'          ; is it a '50'?
+             beq   :gotCode      ; Yes, check for carrier speed
+             jmp   noRing
+
+:gotCode     sta   code1
+             ldy   #1
+
+:nxtchar     jsr   inp           ; get next character
+             bcc   :nxtchar      ; it MUST be there
+
+             and   #$7f
+             cmp   #cr
+             beq   :nxtchar
+
+             sta   code1+1
+             iny
+             cpy   #'6'
+             bne   :nxtchar
+
+             ldy   #32           ;def = 9600 baud carrier
+             ldx   #4
+
+             lda   code1         ;get the first code char
+             cmp   #'5'          ;is it a '50'?
+             bne   :not9600      ;if not, then check for other carrier speeds
+
+             lda   code1+1
+             cmp   #'0'
+             beq   :setcspd
+
+:not9600     ldy   #1
+             ldx   #0
+             lda   code1+1       ;is it a 300 baud carrier?
+             cmp   #'0'
+             beq   :setcspd      ;yes
+
+             ldy   #4
+             inx
+             cmp   #'6'          ;is it a 1200 baud carrier?
+             beq   :setcspd      ;yes
+
+             ldy   #8
+             inx
+             cmp   #'7'          ;is it a 2400 baud carrier?
+             beq   :setcspd
+
+             ldy   #16
+             inx
+             cmp   #'8'          ;is it a 4800 baud carrier?
+             beq   :setcspd
+             jmp   noRing
+
+:setcspd     sty   carrspd
+             stx   portspd
+
+; check for protocol connections
+ckptrocl     lda   code2
+             cmp   #'7'          ; is it '70'?
+             bne   :ring3
+
+             lda   code2+1       ; get last character of protocol
+             cmp   #'0'          ; is it '70'?
+             bne   :ring3
+
+             ldx   #5
+             stx   portspd       ; save speed to open port at
+
+********************************
+:ring3       ldy   portspd       ;get the speed to open port at
+             jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer   ;remove any garbage
+             sec                 ;we have a connection!
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             hex   2c            ;skip clc
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #$ff
+:answer2     inx
+             lda   ansstr,x      ;get text
+             beq   :answer3      ;we are done
+
+             jsr   out           ;send it
+             bra   :answer2
+
+:answer3     rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed     phx
+
+             ldx   carrspd       ;find caller speed (x300)
+             stx   callspd
+
+             tya                 ;get y-reg into a-reg
+             bne   :Try1200
+             lda   #<Baud300
+             sta   :Baudread+1
+             lda   #>Baud300
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try1200     cmp   #1
+             bne   :Try2400
+             lda   #<Baud1200
+             sta   :Baudread+1
+             lda   #>Baud1200
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try2400     cmp   #2
+             bne   :Try4800
+             lda   #<Baud2400
+             sta   :Baudread+1
+             lda   #>Baud2400
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try4800     cmp   #3
+             bne   :Try9600
+             lda   #<Baud4800
+             sta   :Baudread+1
+             lda   #>Baud4800
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try9600     cmp   #4
+             bne   :Try19200
+             lda   #<Baud9600
+             sta   :Baudread+1
+             lda   #>Baud9600
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try19200    lda   #<Baud19200
+             sta   :Baudread+1
+             lda   #>Baud19200
+             sta   :Baudread+2
+
+:SetBaud     jsr   setcall       ;setup x&y for call
+             jsr   doinit
+
+             ldx   #0
+:Baudread    lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   :Baudread
+
+Fin_Init     ldx   #0
+:Init_Loop   lda   Port_Init,x
+             beq   :donebaud
+             jsr   out
+             inx
+             bra   :Init_Loop
+
+:donebaud    lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+*-------------------------------------------------
+* setup firmware i/o routines
+
+setcall      ldx   slot
+             ldy   slot1
+             rts
+
+* globals
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15B'
+             hex   00            ;accept 19200 baud
+
+Port_Init
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             Carrier
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             bit
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code1        ds    2             ;2 byte code returned by modem
+code2        ds    2
+code3        ds    2
+portspd      ds    1
+carrspd      ds    1
+
+Buffer       ds    $15
+cdbyte       db    #$20
+ansstr       asc   'ATA',0d00
+initstr      asc   'ATZ',0d00
+
+*initstr asc 'ATX1S0=0S2=128&C1&D2&S1&K5E0V0W1M0',0d00
+
diff --git a/Config/MODEMS/HAYES.VSM.GS1.S b/Config/MODEMS/HAYES.VSM.GS1.S
new file mode 100644
index 0000000..974a2a0
--- /dev/null
+++ b/Config/MODEMS/HAYES.VSM.GS1.S
@@ -0,0 +1,541 @@
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+cr           equ   $0d
+lf           equ   $0a
+
+*-------------------------------
+
+gsport2      ent
+
+
+* Jump Table
+*-------------------------------
+
+             org   $e00
+
+protocol     hex   00            ;serial card slot * 16
+initspd      hex   05
+
+callspd      dfb   0             ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   getcarr
+             jmp   setspeed
+             jmp   setirq
+             jmp   raisedtr
+
+doinit       jmp   $c200
+doread       jmp   $c200
+dowrite      jmp   $c200
+dostatus     jmp   $c200
+doext        jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c20d         ;get init address
+             sta   doinit+1
+             lda   $c20e         ;get read address
+             sta   doread+1
+             lda   $c20f         ;get write address
+             sta   dowrite+1
+             lda   $c210         ;get status address
+             sta   dostatus+1
+             lda   $c212
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx   save          ;x
+             phy
+             ldx   #$c2          ;is there input ready?
+             ldy   #$20
+             lda   #1
+             jsr   dostatus
+             bcs   :inp2         yes,
+
+             lda   #0
+             clc
+             bra   :inp3
+
+:inp2        ldx   #$c2          ;yes, read
+             ldy   #$20
+             jsr   doread
+
+             sec
+:inp3        ply
+             plx                 ;restore & return
+             rts
+
+* output data
+*-------------------------------
+
+out          phx                 ;save x
+             phy                 ;save y
+             pha                 ;save a
+
+out1         ldx   #$c2          ;ready for send?
+             ldy   #$20
+             lda   #$00
+             jsr   dostatus
+             bcc   out1          ;nope
+
+             pla   get           ;a
+             ldx   #$c2
+             ldy   #$20
+             jsr   dowrite       ;send it
+
+             ply   get           ;y
+             plx   get           ;x
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+rset2        inx   do            ;pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   rset3         ;we are done
+
+             jsr   out           ;output
+             bra   rset2         ;loop (Z-bit set after wait)
+
+rset3        lda   #6
+             sta   countlo
+             sta   counthi
+
+rset4        ldy   #$FF
+rset5        dey
+             beq   decount
+
+             jsr   inp
+             bcc   rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" result
+             beq   leave
+             jmp   rset5
+
+decount      dec   countlo
+             bne   rset4
+             dec   counthi
+             bne   rset4
+             jmp   ringset
+
+leave        jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   leave
+
+             jsr   clearBuffer
+
+             lda   #0
+             sta   bytcnt        ;reset byte counter
+             sta   bytcnt+1
+             sta   bytcnt+2
+noRing       clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing      cmp   #'4'          ; is it a '40','46','47' or '48'?
+             beq   :gotCode
+             cmp   #'5'          ; is it a '50'?
+             beq   :gotCode      ; Yes, check for carrier speed
+             jmp   noRing
+
+:gotCode     sta   code1
+             ldy   #1
+
+:nxtchar     jsr   inp           ; get next character
+             bcc   :nxtchar      ; it MUST be there
+
+             and   #$7f
+             cmp   #cr
+             bne   :valid
+             cpy   #5
+             bne   :nxtchar
+             bra   :next
+
+:valid       sta   code1,y
+             iny
+             cpy   #6
+             bne   :nxtchar
+
+:next        ldy   #32           ;def = 9600 baud carrier
+             ldx   #4
+
+             lda   code1         ;get the first code char
+             cmp   #'5'          ;is it a '50'?
+             bne   :not9600      ;if not, then check for other carrier speeds
+
+             lda   code1+1
+             cmp   #'0'
+             beq   :setcspd
+
+:not9600     ldy   #1
+             ldx   #0
+             lda   code1+1       ;is it a 300 baud carrier?
+             cmp   #'0'
+             beq   :setcspd      ;yes
+
+             ldy   #4
+             inx
+             cmp   #'6'          ;is it a 1200 baud carrier?
+             beq   :setcspd      ;yes
+
+             ldy   #8
+             inx
+             cmp   #'7'          ;is it a 2400 baud carrier?
+             beq   :setcspd
+
+             ldy   #16
+             inx
+             cmp   #'8'          ;is it a 4800 baud carrier?
+             beq   :setcspd
+             jmp   noRing
+
+:setcspd     sty   carrspd
+             stx   portspd
+
+* check for protocol connections
+             lda   code2         ; get first char of protocol
+             cmp   #'7'          ; is it '70'?
+             bne   :ring3
+
+             lda   code2+1       ; get last character of protocol
+             cmp   #'0'          ; is it '70'?
+             beq   :ring3
+
+             lda   #$80
+             sta   protocol      ; save indicator of a protocol connection
+             ldx   #5
+             stx   portspd
+
+********************************
+:ring3       ldy   portspd       ;get the speed to open port at
+             jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer   ;remove any garbage
+             sec                 ;we have a connection!
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             ply
+             plx
+             rts
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #$ff
+answer2      inx
+             lda   ansstr,x      ;get text
+             beq   answer3       ;we are done
+
+             jsr   out           ;send it
+             bra   answer2
+
+answer3      rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed     phx
+
+             ldx   carrspd       ;find caller speed (x300)
+             stx   callspd
+
+             tya                 ;get y-reg into a-reg
+             bne   Try1200
+             lda   #<Baud300
+             sta   Baudread+1
+             lda   #>Baud300
+             sta   Baudread+2
+             bra   SetBaud
+
+Try1200      cmp   #1
+             bne   Try2400
+             lda   #<Baud1200
+             sta   Baudread+1
+             lda   #>Baud1200
+             sta   Baudread+2
+             bra   SetBaud
+
+Try2400      cmp   #2
+             bne   Try4800
+             lda   #<Baud2400
+             sta   Baudread+1
+             lda   #>Baud2400
+             sta   Baudread+2
+             bra   SetBaud
+
+Try4800      cmp   #3
+             bne   Try9600
+             lda   #<Baud4800
+             sta   Baudread+1
+             lda   #>Baud4800
+             sta   Baudread+2
+             bra   SetBaud
+
+Try9600      cmp   #4
+             bne   Try19200
+             lda   #<Baud9600
+             sta   Baudread+1
+             lda   #>Baud9600
+             sta   Baudread+2
+             bra   SetBaud
+
+Try19200     lda   #<Baud19200
+             sta   Baudread+1
+             lda   #>Baud19200
+             sta   Baudread+2
+
+SetBaud      ldx   #$c2
+             ldy   #$20
+             jsr   doinit
+
+             ldx   #0
+Baudread     lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   Baudread
+
+Fin_Init     ldx   #0
+Init_Loop    lda   Port_Init,x
+             beq   donebaud
+             jsr   out
+             inx
+             bra   Init_Loop
+
+donebaud     lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+* globals
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15B'
+             hex   00            ;accept 19200 baud
+
+Port_Init
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             ;Carrier status here
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             ;bit 7 effects DTR
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code1        ds    2             ;2 byte carrier speed
+code2        ds    2             ;2 byte protocol format
+code3        ds    2             ;2 byte connect speed
+portspd      ds    1
+carrspd      ds    1
+
+Buffer       ds    $15
+cdbyte       db    #$20
+ansstr       asc   'ATA',0d00
+initstr      asc   'ATZ',0d00
+
+*initstr asc 'ATX1S0=0S2=128&C1&D2&S1&K5E0V0W1M0'0d00
+
diff --git a/Config/MODEMS/HAYES.VSM.GS2.S b/Config/MODEMS/HAYES.VSM.GS2.S
new file mode 100644
index 0000000..a49ebbd
--- /dev/null
+++ b/Config/MODEMS/HAYES.VSM.GS2.S
@@ -0,0 +1,534 @@
+             TR
+             TR    ADR
+*-------------------------------
+* GS Port Driver Bios - Slot #2
+* written by Andy Nicholas on July 26, 1987
+*-------------------------------
+
+cr           equ   $0d
+lf           equ   $0a
+slot         equ   $c2
+slot1        equ   $20
+
+*-------------------------------
+
+gsport2      ent
+
+* Jump Table
+*-------------------------------
+
+             org   $e00
+
+             hex   20            ;serial card slot * 16
+initspd      hex   00
+
+callspd      dfb   0             ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   getcarr
+             jmp   setspeed
+             jmp   setirq
+             jmp   raisedtr
+
+doinit       jmp   $c200
+doread       jmp   $c200
+dowrite      jmp   $c200
+dostatus     jmp   $c200
+doext        jmp   $c200
+
+* init the serial port pascal locations
+*-------------------------------
+
+init         lda   $c20d         ;get init address
+             sta   doinit+1
+             lda   $c20e         ;get read address
+             sta   doread+1
+             lda   $c20f         ;get write address
+             sta   dowrite+1
+             lda   $c210         ;get status address
+             sta   dostatus+1
+             lda   $c212
+             sta   doext+1
+
+             rts
+
+* input data
+*-------------------------------
+
+inp          phx                 ;save x
+             phy
+             ldx   slot
+             ldy   slot1
+             lda   #1
+             jsr   dostatus      ;is there input ready?
+             bcs   :inp2         ;yes, read character
+
+             lda   #0
+             clc
+             bra   :inp3
+
+:inp2        ldx   slot          ;yes, read
+             ldy   slot1
+             jsr   doread
+
+             sec
+:inp3        ply
+             plx                 ;restore & return
+             rts
+
+* output data
+*-------------------------------
+
+out          phx                 ;save x
+             phy                 ;save y
+             pha                 ;save a
+
+:out1        ldx   slot          ;ready for send?
+             ldy   slot1
+             lda   #$00
+             jsr   dostatus      ;ready for send?
+             bcc   :out1         ;nope
+
+             pla                 ;get a
+             ldx   slot
+             ldy   slot1
+             jsr   dowrite       ;send it
+
+             ply                 ;get y
+             plx                 ;get x
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      jsr   hangup
+
+             lda   #0            ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #$00
+             jsr   gsdtr
+
+             ldy   initspd       ;set init speed
+             jsr   setspeed
+
+             lda   #0            ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #$FF
+:rset2       inx                 ;do pre-inc
+             lda   initstr,x     ;get modem init string
+             beq   :rset3        ;we are done
+
+             jsr   out           ;output
+             bra   :rset2        ;loop (Z-bit set after wait)
+
+:rset3       lda   #6
+             sta   countlo
+             sta   counthi
+
+:rset4       ldy   #$FF
+:rset5       dey
+             beq   :decount
+
+             jsr   inp
+             bcc   :rset5
+             and   #$7f
+             cmp   #'0'          ;check for "0" result
+             beq   :leave
+             jmp   :rset5
+
+:decount     dec   countlo
+             bne   :rset4
+             dec   counthi
+             bne   :rset4
+             jmp   ringset
+
+:leave       jsr   inp           ;grab the <cr> off the tail end of the "0"
+             bcc   :leave
+
+             jsr   clearBuffer
+
+             stz   bytcnt        ;reset byte counter
+             stz   bytcnt+1
+             stz   bytcnt+2
+noRing       clc
+             rts                 ;return
+
+*-------------------------------
+* test for a ring and handle it
+
+ring         jsr   inp           ;check for a char
+             bcc   noRing        ;nope...
+
+             and   #$7f          ;strip high
+             cmp   #'2'          ;is it a 'ring'? (numeric)
+             bne   notRing       ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp           ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer        ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing      cmp   #'4'          ; is it a '40','46','47' or '48'?
+             beq   :gotCode
+             cmp   #'5'          ; is it a '50'?
+             beq   :gotCode      ; Yes, check for carrier speed
+             jmp   noRing
+
+:gotCode     sta   code1
+             ldy   #1
+
+:nxtchar     jsr   inp           ; get next character
+             bcc   :nxtchar      ; it MUST be there
+
+             and   #$7f
+             cmp   #cr
+             beq   :nxtchar
+
+             sta   code1+1
+             iny
+             cpy   #'6'
+             bne   :nxtchar
+
+             ldy   #32           ;def = 9600 baud carrier
+             ldx   #4
+
+             lda   code1         ;get the first code char
+             cmp   #'5'          ;is it a '50'?
+             bne   :not9600      ;if not, then check for other carrier speeds
+
+             lda   code1+1
+             cmp   #'0'
+             beq   :setcspd
+
+:not9600     ldy   #1
+             ldx   #0
+             lda   code1+1       ;is it a 300 baud carrier?
+             cmp   #'0'
+             beq   :setcspd      ;yes
+
+             ldy   #4
+             inx
+             cmp   #'6'          ;is it a 1200 baud carrier?
+             beq   :setcspd      ;yes
+
+             ldy   #8
+             inx
+             cmp   #'7'          ;is it a 2400 baud carrier?
+             beq   :setcspd
+
+             ldy   #16
+             inx
+             cmp   #'8'          ;is it a 4800 baud carrier?
+             beq   :setcspd
+             jmp   noRing
+
+:setcspd     sty   carrspd
+             stx   portspd
+
+; check for protocol connections
+ckptrocl     lda   code2
+             cmp   #'7'          ; is it '70'?
+             bne   :ring3
+
+             lda   code2+1       ; get last character of protocol
+             cmp   #'0'          ; is it '70'?
+             bne   :ring3
+
+             ldx   #5
+             stx   portspd       ; save speed to open port at
+
+********************************
+:ring3       ldy   portspd       ;get the speed to open port at
+             jsr   setspeed      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0            ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             jsr   clearBuffer   ;remove any garbage
+             sec                 ;we have a connection!
+             rts
+
+*-------------------------------
+* clear the input buffer
+
+clearBuffer
+             lda   #Flush_List
+             ldx   #>Flush_List
+             ldy   #0
+             jmp   doext
+
+* set DTR on GS Serial Port, and hangup if needed
+*-------------------------------
+
+hangup       lda   #$80          ;blow 'em off (hangup)
+gsdtr        sta   DTRstate
+
+             lda   #DTR_List
+             ldx   #>DTR_List
+             ldy   #0
+             jmp   doext
+
+* wait routine
+*-------------------------------
+
+wait         sec                 ;from apple ][+ ref man - pg 147
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+
+getcarr      phx
+             phy
+
+             lda   #carrlist
+             ldx   #>carrlist
+             ldy   #0
+             jsr   doext
+
+             lda   carrbits
+             and   cdbyte
+             beq   nocarr
+             sec
+             hex   2c            ;skip clc
+
+nocarr       clc
+             ply
+             plx
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #$ff
+:answer2     inx
+             lda   ansstr,x      ;get text
+             beq   :answer3      ;we are done
+
+             jsr   out           ;send it
+             bra   :answer2
+
+:answer3     rts
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+*-------------------------------
+
+setspeed     phx
+
+             ldx   carrspd       ;find caller speed (x300)
+             stx   callspd
+
+             tya                 ;get y-reg into a-reg
+             bne   :Try1200
+             lda   #<Baud300
+             sta   :Baudread+1
+             lda   #>Baud300
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try1200     cmp   #1
+             bne   :Try2400
+             lda   #<Baud1200
+             sta   :Baudread+1
+             lda   #>Baud1200
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try2400     cmp   #2
+             bne   :Try4800
+             lda   #<Baud2400
+             sta   :Baudread+1
+             lda   #>Baud2400
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try4800     cmp   #3
+             bne   :Try9600
+             lda   #<Baud4800
+             sta   :Baudread+1
+             lda   #>Baud4800
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try9600     cmp   #4
+             bne   :Try19200
+             lda   #<Baud9600
+             sta   :Baudread+1
+             lda   #>Baud9600
+             sta   :Baudread+2
+             bra   :SetBaud
+
+:Try19200    lda   #<Baud19200
+             sta   :Baudread+1
+             lda   #>Baud19200
+             sta   :Baudread+2
+
+:SetBaud     ldx   slot
+             ldy   slot1
+             jsr   doinit
+
+             ldx   #0
+:Baudread    lda   $ffff,x
+             beq   Fin_Init
+             jsr   out
+             inx
+             bra   :Baudread
+
+Fin_Init     ldx   #0
+:Init_Loop   lda   Port_Init,x
+             beq   :donebaud
+             jsr   out
+             inx
+             bra   :Init_Loop
+
+:donebaud    lda   #Out_Buf
+             ldx   #>Out_Buf
+             ldy   #0
+             jsr   doext
+
+             plx
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+*-------------------------------
+* raise dtr
+
+raisedtr     lda   #0
+             phx
+             phy
+
+             jsr   gsdtr
+
+             ply
+             plx
+             rts
+
+* globals
+*-------------------------------
+
+counthi      db    0
+countlo      db    0
+
+Baud300      hex   01
+             asc   '6B'
+             hex   00            ;accept 300 Baud
+Baud1200     hex   01
+             asc   '8B'
+             hex   00            ;accept 1200 Baud
+Baud2400     hex   01
+             asc   '10B'
+             hex   00            ;accept 2400 Baud
+Baud4800     hex   01
+             asc   '12B'
+             hex   00            ;accept 4800 Baud
+Baud9600     hex   01
+             asc   '14B'
+             hex   00            ;accept 9600 Baud
+Baud19200    hex   01
+             asc   '15B'
+             hex   00            ;accept 19200 baud
+
+Port_Init
+             hex   01
+             asc   '0D'          ;8 bits
+             hex   01
+             asc   '2P'          ;no parity
+             hex   01
+             asc   'AD'          ;auto-tabbing
+             hex   01
+             asc   'XD'          ;no xoff recognition
+             hex   01
+             asc   'FD'          ;no find keyboard
+             hex   01
+             asc   'CD'          ;no column overflow
+             hex   01
+             asc   'ED'          ;echo disabled
+             hex   01
+             asc   'MD'          ;no lf masking
+             hex   01
+             asc   'BE'          ;buffering enabled
+             hex   01
+             asc   'Z'
+             hex   00            ;no more control characters
+
+*-------------------------------
+
+Out_Buf      hex   04            ;Parameters to set the
+             hex   13            ;Output buffer
+             da    0
+             adrl  Buffer        ;Buffer it where
+             da    2             buffer
+
+*-------------------------------
+
+carrlist     hex   03            ;Parameter list for
+             hex   06            ;detecting carrier drop
+             da    0
+carrbits     da    0             Carrier
+
+*-------------------------------
+
+DTR_List     hex   03            ;Parameter list for
+             hex   0b            ;setting DTR
+             da    0
+DTRstate     da    0             bit
+
+*-------------------------------
+
+Flush_List   hex   02            ;parameter list for flushing input queue
+             hex   14
+             da    0
+
+*-------------------------------
+
+code1        ds    2             ;2 byte code returned by modem
+code2        ds    2
+code3        ds    2
+portspd      ds    1
+carrspd      ds    1
+
+Buffer       ds    $15
+cdbyte       db    #$20
+ansstr       asc   'ATA',0d00
+initstr      asc   'ATZ',0d00
+
+*initstr asc 'ATX1S0=0S2=128&C1&D2&S1&K5E0V0W1M0',0d00
+
diff --git a/Config/MODEMS/MM2.S b/Config/MODEMS/MM2.S
new file mode 100644
index 0000000..3908465
--- /dev/null
+++ b/Config/MODEMS/MM2.S
@@ -0,0 +1,243 @@
+            LST   OFF
+            TR
+            TR    ADR
+*--------------------------
+*Internal Micromodem ][ //e
+*--------------------------
+* Date 12/09/86
+*--------------------------
+
+            rel
+            dsk   MODEMS/rel/mm2
+
+data        EQU   $c087
+status      EQU   $c086
+cr1         EQU   $c086
+ringin      EQU   $c085
+cr2         EQU   $c085
+cr3         EQU   $c083
+
+mm2         ent
+
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+            dfb   0           ;transmit / receive
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            rts               ;raise dtr
+
+*-------------------------------
+* init the modem card
+
+init        sei
+            LDX   slot        ;get slot offset
+            LDA   %00000000   ;reset tone/speaker
+            STA   cr3,x
+            RTS
+
+*-------------------------------
+* setup for call
+
+ringset     LDA   #0          ;reset time-on
+            STA   bytcnt
+            STA   bytcnt+1
+            STA   bytcnt+2
+            STA   carwait     ;reset wait flag
+            TAY   set         ;300 baud
+            JMP   setspd
+
+*-------------------------------
+* scna for ring and handle it
+
+ring        LDX   slot        ;get offset
+            BIT   carwait     ;do they want manual-answer?
+            BMI   ring2a      ;yep
+
+            LDA   ringin,x    ;check for ring
+            AND   %10000000
+            BNE   ring4       ;nothing
+
+ring2       LDA   ringin,x    ;wait for ring to clear
+            AND   %10000000
+            BEQ   ring2
+
+ring2a      LDA   %00000011   ;reset uart
+            STA   cr1,x
+            LDA   %00010101   ;set for 8n1
+            STA   cr1,x
+
+            LDA   %00000000   ;reset modem
+            STA   cr2,x
+            LDA   %10001011   ;pick up phone [enable carrier]
+            STA   cr2,x
+
+            LDA   #$50        ;setup carrier wait time
+            STA   carwait
+
+            LDA   #$3c        ;wait for things to settle
+            JSR   wait
+
+ring3       LDA   #0          ;do big wait...
+            JSR   wait
+
+            LDA   data,x
+            LDA   status,x    ;reset carrier flag
+            LDA   status,x    ;do we have carrier?
+            AND   %00000100
+            BEQ   ring5       ;yep
+
+            DEC   carwait     ;loop until count is done
+            BNE   ring3
+
+            JSR   hangup
+ring4       CLC               ;nothing happened
+            RTS
+
+ring5       LDA   #-1         ;reset carrier timing
+            STA   carwait
+            SEC
+            RTS
+
+*-------------------------------
+* send ata to phone
+
+answer      LDA   #-1         ;signal we want manual-answer
+            STA   carwait
+            RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   %00000001
+            STA   cr2,x       ;hang up phone
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_x      ;save X
+            LDX   slot        ;get offset
+            LDA   status,x    ;get status
+            AND   %00000001
+            CLC
+            BEQ   inp2        ;no data
+
+            LDA   data,x      ;get data
+            SEC
+inp2        LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down bytes per second
+            BNE   out1        ;not a seconds worth yet
+
+            PHA
+            LDA   callspd     ;reset counter
+            ASL
+            ASL
+            ASL               ;time count = base.rate * 32
+            ASL
+            ASL
+            STA   timecnt
+            PLA
+
+            INC   bytcnt      ;seconds - at 64 yet?
+            BIT   bytcnt
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;minutes - at 64 yet?
+            BIT   bytcnt+1
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;inc hours
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status,x    ;check status
+            AND   %00000110
+            BEQ   out2        ;loop until ready
+            PLA
+
+            STA   data,x      ;output byte
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* check for carrier
+
+chkdcd      STX   save_x      ;dont kill any reg's
+            PHA
+
+            LDX   slot
+            LDA   status,x    ;reset carrier flag
+            LDA   status,x    ;check carrier
+            AND   %00000100
+            CLC
+            BNE   chkdcd2     ;opps, no carrier
+
+            SEC               ;sec = we have carrier
+chkdcd2     PLA               ;restore & return
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* set the rs-232 speed [speed offset in Y]
+
+setspd      LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            RTS
+
+*-------------------------------
+* set up interupts
+
+setirq      rts
+
+*-------------------------------
+* wait routine
+
+wait        SEC               ;from apple ][+ ref man - pg 147
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+* available speeds
+
+save_x      dfb   0
+
+timecnt     dfb   0
+carwait     dfb   0
+
+            asc   'MM2'
+
diff --git a/Config/MODEMS/MULTISPD.S b/Config/MODEMS/MULTISPD.S
new file mode 100644
index 0000000..643ef27
--- /dev/null
+++ b/Config/MODEMS/MULTISPD.S
@@ -0,0 +1,357 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Multiple Speed Modem Driver
+*-------------------------------
+* 3/18/88 AEN
+*-------------------------------
+
+            rel
+            dsk   MODEMS/rel/multispd
+
+cr          EQU   $0d
+lf          EQU   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+multispd    ent
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+initspd     db    0           ;init speed
+callspd     db    0           ;speed of call
+
+bytcnt      db    0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+*-------------------------------
+* init the serial card
+
+init        LDA   #0          ;reset bytes
+            LDX   slot
+            STA   status,x    ;reset uart
+            STA   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+*-------------------------------
+* setup for call
+
+ringset     LDX   slot        ;get offset
+            LDA   #%00000000  ;kill DTR, RTS
+            STA   command,x
+
+            LDA   #0          ;let modem reset
+            JSR   wait
+
+            LDA   #%00001011  ;turn on DTR, RTS
+            STA   command,x
+
+            sei               ;disable ints
+
+            LDY   initspd     ;set init speed
+            JSR   setspd
+
+            LDA   data,x      ;clear data strobe
+
+            lda   #0          ;long delay
+            jsr   wait
+            jsr   wait
+
+            LDX   #-1         ;start at -1
+rset2       INX   do          ;pre-inc
+            LDA   initstr,x   ;get modem init string
+            BEQ   rset3       ;we are done
+
+            JSR   out         ;output
+
+            lda   #$80
+            jsr   wait
+            jmp   rset2       ;loop
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'        ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts               ;return
+
+jring       jmp   ringset     ;128 byte branches!!
+
+*-------------------------------
+* scan for ring and handle it
+
+ring        LDX   slot
+            LDA   status,x    ;do we have carrier?
+            AND   cdbyte
+            CLC
+            BNE   ring3       ;nope
+
+            LDA   data,x      ;gobble byte(s)
+            LDA   data,x
+            LDA   #0          ;reset speed byte
+            STA   spdata
+
+            LDY   #0          ;set default to 300
+ring1       JSR   setspd
+
+ring2       LDA   status,x    ;we still get carrier
+            AND   cdbyte
+            BNE   jring       ;nope
+
+            LDA   status,x    ;have a char waiting?
+            AND   #%00001000
+            BEQ   ring2       ;nope, check carrier
+
+            LDA   status,x    ;check framing
+            AND   #%00000010
+            BNE   ring4       ;oops, framing error
+
+            LDA   data,x      ;get byte (no framing error)
+            STA   spdata      ;save speed data
+            AND   #$7f
+            CMP   #cr         ;is it a return?
+            BEQ   ring2a      ;yep, we have the speed
+
+            AND   #%01110000  ;check for higher speed
+            CMP   #%01110000
+            BEQ   ring5       ;go to up a notch
+            JMP   ring2       ;loop back
+
+ring2a      SEC   all         ;is well, connect
+ring3       RTS
+
+ring4       LDA   data,x      ;empty uart
+            LDA   data,x
+
+            LDA   spdata      ;get last "legal" byte
+            AND   #%11100000  ;check for 300 baud overrun
+            CMP   #%11100000
+            BEQ   ring5       ;looks like a higher speed
+
+            LDY   curspd      ;what speed
+            BEQ   ring2       ;hmm, cant go below 300
+
+            DEY
+            JMP   ring1       ;set new speed, check again
+
+ring5       LDY   curspd      ;we at 2400?
+            CPY   initspd     ;as high as we can go?
+            BEQ   ring2       ;yep, cant go any higher
+
+            INY
+            JMP   ring1       ;set new speed, up 1 notch
+
+*-------------------------------
+* send ata to phone
+
+answer      LDX   #0
+answer2     LDA   ansstr,x    ;get text
+            BEQ   answer3     ;we are donw
+
+            JSR   out         ;send it
+
+            lda   #$80
+            jsr   wait
+
+            INX
+            BNE   answer2     ;loop
+
+answer3     RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   #0
+            STA   command,x   ;hang up phone
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_x      ;save X
+            LDX   slot        ;get offset
+            LDA   status,x    ;get status
+            AND   #%00001000
+            CLC
+            BEQ   inp2        ;no data
+
+            LDA   data,x
+            SEC
+inp2        LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down 1 section
+            BNE   out1
+
+            INC   bytcnt      ;1 second gone by
+            BIT   bytcnt
+            BVC   out1
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;1 minute gone by
+            BIT   bytcnt+1
+            BVC   out1
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;1 hour gone by
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status,x    ;check status
+            AND   #%00010000
+            BEQ   out2        ;loop until ready
+            PLA
+
+dataloc     STA   data        ;output byte
+            LDX   save_x
+            RTS
+
+*-------------------------------
+*  check for carrier
+
+chkdcd      STX   save_x      ;dont kill any reg's
+            PHA
+
+            LDX   slot        ;get offset
+            LDA   status,x
+            AND   cdbyte      ;check carrier
+            CLC
+            BNE   chkdcd2
+
+            SEC
+chkdcd2     PLA   restore     ;all & return
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* set the rs-232 speed [speed offset in Y]
+
+setspd      STY   curspd      ;save current speed
+            STX   save_x
+            LDX   slot        ;get offset
+            LDA   speed,y     ;get speed
+            STA   control,x   ;set speed
+
+            LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            CPY   #0          ;at 300?
+            BEQ   setspd3     ;yep
+
+            ASL   callspd     ;speed = speed * 2
+setspd2     ASL   callspd     ;speed = speed * 2
+            DEY
+            BNE   setspd2     ;loop until correct speed found
+
+setspd3     LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei               ;re-disable
+
+            ldx   save_x
+            rts
+
+*-------------------------------
+* wait routine
+
+wait        SEC   from        ;apple ][+ ref man - pg 147
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+* available speeds
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            db    %00011111   ;19200
+
+countlo     db    0
+counthi     db    0
+curspd      dfb   0           ;current speed
+
+timecnt     dfb   0           ;1-second counter
+spdata      dfb   0           ;speed data
+save_x      dfb   0
+;end
+
+            asc   'MultiSpd'
+
diff --git a/Config/MODEMS/NOCAR.S b/Config/MODEMS/NOCAR.S
new file mode 100644
index 0000000..89221cd
--- /dev/null
+++ b/Config/MODEMS/NOCAR.S
@@ -0,0 +1,377 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* No Carrier Driver
+*-------------------------------
+* 3/18/88 AEN
+*-------------------------------
+
+            rel
+            dsk   MODEMS/rel/nocar
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0       ;location of init string
+ansstr      equ   $10c0       ;location of auto-answer string
+cdbyte      equ   $10bf       ;location of carrier detect mask
+
+nocar       ent
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+initspd     dfb   0
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+*-------------------------------
+* init the serial card
+
+init        LDA   #0          ;reset bytes
+            LDX   slot
+            STA   status,x    ;reset uart
+            STA   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+*-------------------------------
+* setup for call
+
+ringset     JSR   hangup
+            LDA   #%00001011  ;turn on DTR, RTS
+            STA   command,x
+
+            sei
+
+            LDY   initspd     ;set init speed
+            JSR   setspd
+
+            LDA   data,x      ;clear data strobe
+
+rset        LDA   #0          ;slight delay (let modem do init)
+            JSR   wait
+            JSR   wait
+
+            JSR   chkok       ;is modem out there and ready?
+            BCS   rset2       ;yep
+
+            LDX   #0          ;print modem init string
+            JSR   prstr
+            JMP   rset
+
+rset2       LDA   #0
+            STA   bytcnt      ;reset byte counter
+            STA   bytcnt+1
+            STA   bytcnt+2
+            CLC
+            RTS   return
+
+rset5       JMP   ringset     ;extend a branch
+
+*-------------------------------
+* scan for ring and handle it
+
+ring        LDA   #5          ;make sure timer never triggers
+            STA   cdcount+2
+            JSR   inp         ;check for a char
+            BCC   ring5       ;nope...
+
+            AND   #$7f        ;strip high
+            CMP   #'3'
+            BEQ   rset5       ;no carrier
+
+            LDY   #0
+            CMP   #'1'        ;connect 300
+            BEQ   ring3
+
+            INY
+            CMP   #'5'        ;connect 1200
+            BEQ   ring3
+
+            INY
+            CMP   #'6'        ;connect 2400
+            BEQ   ring3
+
+            CMP   #'2'        ;check for ring
+            CLC
+            BNE   ring5       ;nope, nothing
+
+            LDA   #0
+            JSR   wait        ;slight delay
+            JSR   wait
+
+answer      LDX   #ansstr
+            JSR   prstr       ;answer the phone
+            CLC
+            RTS
+
+ring3       JSR   setspd      ;set the correct speed
+
+            LDY   #5
+ring4       LDA   #0          ;let carrier's settle
+            JSR   wait
+            DEY
+            BNE   ring4
+
+            JSR   inp         ;gobble extra stuff coming in
+            JSR   inp
+
+            LDA   #-1         ;set cd status to connected
+            STA   cdstat
+            SEC   we          ;have a connection!
+ring5       RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   #0
+            STA   cdstat
+            STA   command,x   ;hang up phone
+            JSR   wait
+            CLC   ***         make
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_y      ;save X
+            INC   cdcount
+            BNE   inp2
+            INC   cdcount+1   ;count up tries
+            BNE   inp2        ;all is still ok
+
+            DEC   cdcount+2   ;count big stuff
+            BNE   inp2
+
+            LDA   #5          ;reset counter
+            STA   cdcount+2
+
+            JSR   chkok       ;is modem out there?
+            BCC   inp2        ;nope, it isnt, must be user
+
+            LDX   #0          ;we have lost CD
+            STX   cdstat
+
+inp2        LDX   slot        ;get offset
+            LDA   status,x    ;get status
+            AND   #%00001000
+            CLC
+            BEQ   inp3        ;no data
+
+            LDA   #-1
+            STA   cdstat      ;reset status & counter
+            LDA   #0
+            STA   cdcount
+            STA   cdcount+1
+            LDA   #5
+            STA   cdcount+2
+
+            LDA   data,x      ;get data
+            CMP   #28         ;kill connection?
+            SEC
+            BNE   inp3        ;nope
+
+            LDX   #1
+            STX   cdcount+2   ;reset counter
+
+inp3        LDX   save_y      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down 1 section
+            BNE   out1
+
+            INC   bytcnt      ;1 second gone by
+            BIT   bytcnt
+            BVC   out1
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;1 minute gone by
+            BIT   bytcnt+1
+            BVC   out1
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;1 hour gone by
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status,x    ;check status
+            PHA
+            AND   #%00000100
+            BEQ   out3        ;no error, all is well
+
+            LDA   data,x
+            CMP   #28         ;was is loss of carrier?
+            BNE   out3        ;nope
+
+            LDA   #1          ;set count down for CD loss
+            STA   cdcount+2
+
+out3        PLA
+            AND   #%00010000
+            BEQ   out2        ;loop until ready
+            PLA
+
+dataloc     STA   data        ;output byte
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* check for carrier
+
+chkdcd      LDA   cdstat
+            PHA
+            ASL
+            PLA
+            EOR   #$ff
+prstr2      RTS
+
+*-------------------------------
+* print control string to modem
+
+prstr       LDA   initstr,x   ;get data byte
+            BEQ   prstr2      ;did it work?
+
+            INX
+            JSR   out         ;output byte
+            CMP   #cr
+            BNE   prstr
+
+            LDA   #0          ;slight pause
+            JSR   wait
+            BEQ   prstr       ;loop (z-bit always set)
+
+*-------------------------------
+* check for OK from question
+
+chkok       LDX   #atstr      ;send an AT
+            JSR   prstr
+
+            LDY   #250        ;check 250 times
+chkok2      DEY   count       ;down
+            CLC
+            BEQ   chkok3      ;no OK gotton
+
+            LDA   #40         ;delay slightly
+            JSR   wait
+            JSR   inp
+            BCC   chkok2
+
+            CMP   #'0'        ;check for "0" for OK
+            BNE   chkok2
+            LDA   #80
+            JSR   wait
+            JSR   inp         ;gobble EOL char
+            SEC   we          ;have confirmation
+chkok3      RTS
+
+*-------------------------------
+* set the rs-232 speed [speed offset in Y]
+
+setspd      STX   save_x
+            LDX   slot        ;get offset
+            LDA   speed,y     ;get speed
+            STA   control,x   ;set speed
+
+            LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            CPY   #0          ;at 300?
+            BEQ   setspd3     ;yep
+
+            ASL   callspd     ;speed = speed * 2
+setspd2     ASL   callspd     ;speed = speed * 2
+            DEY
+            BNE   setspd2     ;loop until correct speed found
+
+setspd3     LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei
+
+            ldx   save_x
+            rts
+
+*-------------------------------
+* wait routine
+
+wait        SEC   from        ;apple ][+ ref man - pg 147
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+* available speeds
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            dfb   %00011111   ;19200
+
+atstr       EQU   *-initstr
+            asc   'AT'
+            hex   0808
+            asc   '  '
+            hex   08082800
+
+timecnt     dfb   0           ;1-second counter
+cdstat      dfb   0           ;carrier status
+cdcount     dfb   0,0,0       ;loss of cd counter
+save_x      dfb   0
+save_y      dfb   0
+
+            asc   'Nocarrier'
+
diff --git a/Config/MODEMS/NULLMDM.S b/Config/MODEMS/NULLMDM.S
new file mode 100644
index 0000000..3df51e2
--- /dev/null
+++ b/Config/MODEMS/NULLMDM.S
@@ -0,0 +1,62 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Date 01/06/87
+*-------------------------------
+
+            rel
+            dsk   MODEMS/rel/nullmdm
+
+nullmdm     ent
+
+            org   $b00
+
+*-------------------------------
+* jump table
+
+            dfb   0           ;serial card slot
+            dfb   0           ;init modem at?
+            dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   do_rts
+            JMP   do_rts
+            JMP   ring
+            JMP   do_rts
+            JMP   do_rts
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   do_rts
+            jmp   do_rts      ; set irq's
+            jmp   do_rts      ; raise dtr
+
+; init the serial card
+do_rts      RTS
+
+; scan for ring and handle it
+ring        CLC
+            RTS
+
+; input data
+inp         LDA   #0
+            CLC
+            RTS
+
+; output data
+out         INC   bytcnt      ;do byte-counting
+            BNE   out1
+            INC   bytcnt+1
+            BNE   out1
+            INC   bytcnt+2
+
+out1        RTS
+
+; check for carrier
+chkdcd      CLC
+            RTS
+
+            asc   'NullModem'
+
diff --git a/Config/MODEMS/SINGLESPD.S b/Config/MODEMS/SINGLESPD.S
new file mode 100644
index 0000000..8b64492
--- /dev/null
+++ b/Config/MODEMS/SINGLESPD.S
@@ -0,0 +1,306 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Single Speed External
+*-------------------------------
+* 3/19/88 Andrew E. Nicholas
+*-------------------------------
+
+            rel
+            dsk   MODEMS/rel/singlespd
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+singlespd   ent
+            org   $b00
+
+*-------------------------------
+* jump table
+
+slot        dfb   $20         ;serial card slot
+initspd     dfb   0           ;transmit / receive
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            JMP   init
+            JMP   ringset
+            JMP   ring
+            JMP   answer
+            JMP   hangup
+            JMP   inp
+            JMP   out
+            JMP   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+*-------------------------------
+* init the serial card
+
+init        LDA   #0          ;reset
+            LDX   slot
+            STA   status,x    ;reset uart
+            STA   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+*-------------------------------
+* setup for call
+
+ringset     LDX   slot        ;get offset
+            LDA   #%00001011  ;turn on DTR, RTS
+            STA   command,x
+
+            sei               ;disable ints
+
+            LDY   initspd     ;set init speed
+            JSR   setspd
+
+            LDA   data,x      ;clear data strobe
+
+            LDA   #0          ;long delay
+            JSR   wait
+            jsr   wait
+
+            LDX   #-1         ;start at -1
+rset2       INX               ;do pre-inc
+            lda   #$80
+            jsr   wait
+            LDA   initstr,x   ;get modem init string
+            BEQ   rset3       ;we are done
+            jmp   rset2
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'        ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts               ;return
+
+*-------------------------------
+* scan for ring and handle it
+
+ring        LDX   slot        ;get offset
+            LDA   status,x
+            AND   cdbyte      ;strip out CD byte
+            CLC
+            BNE   ring3       ;nothing
+
+            SEC               ;we have a connection
+            LDX   #5
+ring2       LDA   #0          ;delay before going online
+            JSR   wait
+            DEX
+            BNE   ring2
+            JSR   inp         ;gobble extra
+            SEC
+
+ring3       RTS
+
+*-------------------------------
+* send ata to phone
+
+answer      LDX   #0
+answer2     LDA   ansstr,x    ;get text
+            BEQ   answer3     ;we are donw
+
+            JSR   out         ;send it
+
+            lda   #$80        ;delay a little
+            jsr   wait
+
+            INX
+            BNE   answer2     ;loop
+
+answer3     RTS
+
+*-------------------------------
+* hangup phone
+
+hangup      LDX   slot        ;get offset
+            LDA   #0
+            STA   command,x   ;hang up phone
+            RTS
+
+*-------------------------------
+* input data
+
+inp         STX   save_x      ;save X
+            LDX   slot        ;get offset
+            LDA   status,x    ;get status
+            AND   #%00001000
+            CLC
+            BEQ   inp2        ;no data
+
+            LDA   data,x
+            SEC
+inp2        LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* output data
+
+out         STX   save_x      ;save x
+            DEC   timecnt     ;count down bytes per second
+            BNE   out1        ;not a seconds worth yet
+
+            PHA
+            LDA   callspd     ;reset counter
+            ASL
+            ASL
+            ASL               ;time count = base.rate * 32
+            ASL
+            ASL
+            STA   timecnt
+            PLA
+
+            INC   bytcnt      ;seconds - at 64 yet?
+            BIT   bytcnt
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset seconds
+            STX   bytcnt
+
+            INC   bytcnt+1    ;minutes - at 64 yet?
+            BIT   bytcnt+1
+            BVC   out1        ;nope
+
+            LDX   #0          ;reset minutes
+            STX   bytcnt+1
+
+            INC   bytcnt+2    ;inc hours
+
+out1        LDX   slot
+
+            PHA
+out2        LDA   status,x    ;check status
+            AND   #%00010000
+            BEQ   out2        ;loop until ready
+            PLA
+
+dataloc     STA   data        ;self-modified
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* check for carrier sec = we have carrier
+
+chkdcd      STX   save_x      ;dont kill any reg's
+            PHA
+
+            LDX   slot        ;get offset
+            LDA   status,x
+            AND   cdbyte      ;check carrier
+            CLC
+            BNE   chkdcd2
+
+            SEC
+chkdcd2     PLA   restore     ;all & return
+            LDX   save_x
+            RTS
+
+*-------------------------------
+* set the rs-232 speed [speed offset in Y]
+
+setspd      STX   save_x
+            LDX   slot        ;get offset
+            LDA   speed,y     ;get speed
+            STA   control,x   ;set speed
+
+            LDA   #1          ;find caller speed (x300)
+            STA   callspd
+            CPY   #0          ;at 300?
+            BEQ   setspd3     ;yep
+
+            ASL   callspd     ;speed = speed * 2
+setspd2     ASL   callspd     ;speed = speed * 2
+            DEY
+            BNE   setspd2     ;loop until correct speed found
+
+setspd3     LDX   save_x      ;restore & return
+            RTS
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei               ;re-disable
+
+            ldx   save_x
+            rts
+
+*-------------------------------
+* wait routine
+
+wait        SEC               ;from apple ][+ ref man - pg 147
+wait2       PHA
+wait3       SBC   #1
+            BNE   wait3
+            PLA
+            SBC   #1
+            BNE   wait2
+            RTS
+
+*-------------------------------
+* available speeds
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            dfb   %00011111   ;19200
+
+countlo     db    0
+counthi     db    0
+save_x      dfb   0
+timecnt     dfb   0
+
+            asc   'SingleSpd'
+
diff --git a/Config/MODEMS/SSC.HST.S b/Config/MODEMS/SSC.HST.S
new file mode 100644
index 0000000..216d479
--- /dev/null
+++ b/Config/MODEMS/SSC.HST.S
@@ -0,0 +1,329 @@
+            TR
+            TR    ADR
+*-------------------------------
+* USRobotics HST 19200 Super Serial driver for acos
+* written by Andy Nicholas on one cold january night
+*-------------------------------
+
+            rel
+            dsk   rel/ssc.hst
+            org   $0b00
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+*-------------------------------
+
+ssc_hst     ent
+
+* jumptable
+*-------------------------------
+
+slot        db    $20         ;serial card slot*16
+initspd     db    00
+
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+* init the serial card
+*-------------------------------
+
+init        lda   #0          ;reset bytes
+            ldx   slot
+            sta   status,x    ;reset uart
+            sta   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     ldx   slot        ;get offset
+
+            lda   #%00000000  ;kill DTR, RTS
+            sta   command,x
+
+            lda   #0          ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+
+            sei
+
+            ldy   initspd     ;set init speed
+            jsr   setspd
+
+            lda   data,x      ;clear data strobe
+
+            lda   #0          ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #0
+loop        lda   initstr,x   ;get modem init string
+            beq   rset3
+            jsr   out         ;output
+            inx
+            bne   loop
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'        ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts   return
+
+jring       jmp   ringset     ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp         ;check for a char
+            bcc   ring5       ;nope...
+
+            and   #$7f        ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5       ;keep checking
+
+ring2       jsr   inp         ;check for char
+            bcc   ring2
+
+            ldy   #0          ;def = 300 baud
+            and   #$7f        ;strip high
+
+            cmp   #'R'        ;oops, "No Carrier" message
+            beq   jring
+
+            cmp   #cr         ;connect 300
+            beq   ring3
+
+            cmp   #'3'        ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'        ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'        ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'        ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'        ;connect 9600
+            bne   ring2
+
+ring3       jsr   setspd      ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0          ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec   we          ;have a connection!
+ring5       rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #0
+answer2     lda   ansstr,x    ;get text
+            beq   answer3     ;we are done
+
+            jsr   out         ;send it
+            inx
+            bne   answer2     ;loop
+
+answer3     rts
+
+* hangup phone
+*-------------------------------
+
+hangup      ldx   slot        ;get offset
+            lda   #0
+            sta   command,x   ;hang up phone
+            rts
+
+* input data
+*-------------------------------
+
+inp         stx   save_x      ;save X
+            ldx   slot        ;get offset
+            lda   status,x    ;get status
+            and   #%00001000
+            clc
+            beq   inp2        ;no data
+
+            lda   data,x
+            sec
+inp2        ldx   save_x      ;restore & return
+            rts
+
+* output data
+*-------------------------------
+
+out         stx   save_x      ;save x
+            dec   timecnt     ;count down 1 section
+            bne   out1
+
+            inc   bytcnt      ;1 second gone by
+            bit   bytcnt
+            bvc   out1
+
+            ldx   #0          ;reset seconds
+            stx   bytcnt
+
+            inc   bytcnt+1    ;1 minute gone by
+            bit   bytcnt+1
+            bvc   out1
+
+            ldx   #0          ;reset minutes
+            stx   bytcnt+1
+
+            inc   bytcnt+2    ;1 hour gone by
+
+out1        ldx   slot
+
+            pha
+out2        lda   status,x    ;check status
+            and   #%00010000
+            beq   out2        ;loop until ready
+            pla
+
+dataloc     sta   data        ;self modified
+            ldx   save_x
+            rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd      stx   save_x      ;dont kill any reg's
+            pha
+
+            ldx   slot        ;get offset
+            lda   status,x
+            and   cdbyte      ;check carrier
+            clc
+            bne   chkdcd2
+
+            sec
+chkdcd2     pla   restore     ;all & return
+            ldx   save_x
+            rts
+
+* set the rs232 speed/19200 always
+*-------------------------------
+
+setspd      stx   save_x
+            ldx   slot        ;get offset
+            lda   speed       ;get speed
+            sta   control,x   ;set speed
+
+            lda   #1          ;find caller speed (x300)
+            sta   callspd
+            cpy   #0          ;at 300?
+            beq   setspd3     ;yep
+
+            asl   callspd     ;speed = speed * 2
+setspd2     asl   callspd     ;speed = speed * 2
+            dey
+            bne   setspd2     ;loop until correct speed found
+
+setspd3     ldx   save_x      ;restore & return
+            rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei               ;re-disable interrupts
+
+            ldx   save_x
+            rts
+
+* wait routine
+*-------------------------------
+
+wait        sec               ;from apple ][+ ref man - pg 147
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* global data area
+*-------------------------------
+
+speed       hex   1F          ;19200b all we have to worry about
+
+timecnt     dfb   0           ;1-second counter
+save_x      dfb   0
+countlo     dfb   $FF
+counthi     dfb   $FF
+
+            asc   'SSC/HST'
+
diff --git a/Config/MODEMS/SSC.NUMERIC.S b/Config/MODEMS/SSC.NUMERIC.S
new file mode 100644
index 0000000..4470c54
--- /dev/null
+++ b/Config/MODEMS/SSC.NUMERIC.S
@@ -0,0 +1,380 @@
+             TR
+             TR    ADR
+*-------------------------------
+* Numeric SSC driver rewritten by Andy Nicholas
+* October 27, 1988
+*-------------------------------
+
+             rel
+             dsk   rel/ssc.numeric
+
+cr           equ   $0d
+lf           equ   $0a
+
+data         equ   $c088
+status       equ   $c089
+command      equ   $c08a
+control      equ   $c08b
+
+initstr      equ   $10d0
+ansstr       equ   $10c0
+cdbyte       equ   $10bf
+
+*-------------------------------
+
+ssc_numeric  ent
+
+             org   $b00
+
+* jump table
+*-------------------------------
+
+slot         hex   20          ;serial card slot*16
+initspd      hex   00
+
+callspd      dfb   0           ;speed of call
+
+bytcnt       dfb   0,0,0
+
+             jmp   init
+             jmp   ringset
+             jmp   ring
+             jmp   answerRing
+             jmp   hangup
+             jmp   inp
+             jmp   out
+             jmp   chkdcd
+             jmp   setspd
+             jmp   setirq
+             jmp   raisedtr
+
+* init the serial card
+*-------------------------------
+
+init         lda   #0          ;reset bytes
+             ldx   slot
+             sta   status,x    ;reset uart
+             sta   command,x   ;reset command
+
+             clc
+             txa
+             adc   #<data
+             sta   dataloc+1   ;make into absolute save
+             rts
+
+* setup for call
+*-------------------------------
+
+ringset      ldx   slot        ;get offset
+
+             lda   #%00000000  ;kill DTR, RTS
+             sta   command,x
+
+             lda   #0          ;let modem reset
+             jsr   wait
+             jsr   wait
+
+             lda   #%00001011  ;turn on DTR, RTS
+             sta   command,x
+
+             sei
+
+             ldy   initspd     ;set init speed
+             jsr   setspd
+
+             lda   data,x      ;clear data strobe
+
+             lda   #0          ;slight delay (let modem do init)
+             jsr   wait
+
+             ldx   #0
+:loop        lda   #$80
+             jsr   wait
+             lda   initstr,x   ;get modem init string
+             beq   rset3
+             jsr   out         ;output
+             inx
+             bne   :loop
+
+rset3        lda   #6
+             sta   countlo
+             sta   counthi
+
+rset4        ldy   #$FF
+rset5        dey
+             beq   decount
+
+             jsr   inp
+             bcc   rset5
+             and   #$7f
+             cmp   #'0'        ;check for "OK" (numeric)
+             beq   leave
+             jmp   rset5
+
+decount      dec   countlo
+             bne   rset4
+             dec   counthi
+             bne   rset4
+             jmp   ringset
+
+leave        lda   #0
+             sta   bytcnt      ;reset byte counter
+             sta   bytcnt+1
+             sta   bytcnt+2
+             clc
+             rts   return
+
+jring        jmp   ringset     ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring         jsr   inp         ;check for a char
+             bcc   noring      ;nope...
+
+             and   #$7f        ;strip high
+             cmp   #'2'        ;is it a 'ring'? (numeric)
+             bne   notRing     ;nope, check for connect messages
+
+********************************
+grabCR       jsr   inp         ;grab the <cr> off the tail end of the "2"
+             bcc   grabCR
+
+answerRing   jsr   answer      ;the phone rang, so send 'ATA'
+
+             clc
+             rts
+
+********************************
+notRing
+             cmp   #'1'        ;is it a '1' or '10' or '11' or '12' or '14'?
+             beq   gotCode     ;yes, save it
+             cmp   #'5'        ;is it connect 1200?
+             bne   noring      ;nope
+
+gotCode      sta   code
+
+secondChar   jsr   inp         ;second character will ALWAYS be there
+             bcc   secondChar
+
+             and   #$7f        ;strip high
+             cmp   #cr         ;but might be a <cr>
+             bne   multiCode
+
+********************************
+singleCode   ldy   #0          ;connect 300?
+             lda   code
+             cmp   #'1'
+             beq   ring3
+
+             iny
+             cmp   #'5'        ;connect 1200?
+             beq   ring3       ;nope, unknown code, keep checking
+             jmp   noring
+
+********************************
+multiCode
+             sta   code+1
+
+             ldy   #2          ;def = 2400 baud
+
+             lda   code        ;get the first code char
+             cmp   #'1'        ;must be a one
+             bne   noring      ;if not, then keep trying
+
+             lda   code+1      ;is it 2400?
+             cmp   #'0'
+             beq   ring3
+
+             iny
+             cmp   #'1'        ;is it 4800?
+             beq   ring3
+
+             iny
+             cmp   #'2'        ;is it 9600
+             beq   ring3
+
+             iny
+             cmp   #'4'        ;is it 19200?
+             beq   ring3
+             jmp   noring
+
+********************************
+ring3        jsr   setspd      ;set the correct speed
+
+             ldy   #5
+ring4        lda   #0          ;let carrier's settle
+             jsr   wait
+             dey
+             bne   ring4
+
+             sec               ;we have a connection!
+             rts
+
+noring       clc
+             rts
+
+* send ata to phone
+*-------------------------------
+
+answer       lda   #$80
+             jsr   wait
+
+             ldx   #0
+answer2      lda   ansstr,x    ;get text
+             beq   answer3     ;we are done
+
+             jsr   out         ;send it
+
+             lda   #$80
+             jsr   wait
+
+             inx
+             bne   answer2     ;loop
+
+answer3      rts
+
+* hangup phone
+*-------------------------------
+
+hangup       ldx   slot        ;get offset
+             lda   #0
+             sta   command,x   ;hang up phone
+             rts
+
+* input data
+*-------------------------------
+
+inp          stx   save_x      ;save X
+             ldx   slot        ;get offset
+             lda   status,x    ;get status
+             and   #%00001000
+             clc
+             beq   inp2        ;no data
+
+             lda   data,x
+             sec
+inp2         ldx   save_x      ;restore & return
+             rts
+
+* output data
+*-------------------------------
+
+out          stx   save_x      ;save x
+             dec   timecnt     ;count down 1 section
+             bne   out1
+
+             inc   bytcnt      ;1 second gone by
+             bit   bytcnt
+             bvc   out1
+
+             ldx   #0          ;reset seconds
+             stx   bytcnt
+
+             inc   bytcnt+1    ;1 minute gone by
+             bit   bytcnt+1
+             bvc   out1
+
+             ldx   #0          ;reset minutes
+             stx   bytcnt+1
+
+             inc   bytcnt+2    ;1 hour gone by
+
+out1         ldx   slot
+
+             pha
+out2         lda   status,x    ;check status
+             and   #%00010000
+             beq   out2        ;loop until ready
+             pla
+
+dataloc      sta   data        ;self modified
+             ldx   save_x
+             rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd       stx   save_x      ;dont kill any reg's
+             pha
+
+             ldx   slot        ;get offset
+             lda   status,x
+             and   cdbyte      ;check carrier
+             clc
+             bne   chkdcd2
+
+             sec
+chkdcd2      pla   restore     ;all & return
+             ldx   save_x
+             rts
+
+* set the rs-232 speed/speed in Y reg
+*-------------------------------
+
+setspd       stx   save_x
+             ldx   slot        ;get offset
+             lda   speed,y     ;get speed
+             sta   control,x   ;set speed
+
+             lda   #1          ;find caller speed (x300)
+             sta   callspd
+             cpy   #0          ;at 300?
+             beq   setspd3     ;yep
+
+             asl   callspd     ;speed = speed * 2
+setspd2      asl   callspd     ;speed = speed * 2
+             dey
+             bne   setspd2     ;loop until correct speed found
+
+setspd3      ldx   save_x      ;restore & return
+             rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq       rts
+
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr     stx   save_x
+             ldx   slot
+
+             lda   #%00001011  ;turn on DTR, RTS
+             sta   command,x
+             sei
+
+             ldx   save_x
+             rts
+
+* wait routine
+*-------------------------------
+
+wait         sec
+wait2        pha
+wait3        sbc   #1
+             bne   wait3
+             pla
+             sbc   #1
+             bne   wait2
+             rts
+
+* global data area
+*-------------------------------
+
+speed        dfb   %00010110   ;300
+             dfb   %00011000   ;1200
+             dfb   %00011010   ;2400
+             dfb   %00011100   ;4800
+             dfb   %00011110   ;9600
+             dfb   %00011111   ;19200
+
+timecnt      dfb   0           ;1-second counter
+save_x       dfb   0
+countlo      dfb   $FF
+counthi      dfb   $FF
+code         ds    2           ;the code we got from the modem
+             asc   'SSC/Numeric'
+
diff --git a/Config/MODEMS/SSC.S b/Config/MODEMS/SSC.S
new file mode 100644
index 0000000..e346b22
--- /dev/null
+++ b/Config/MODEMS/SSC.S
@@ -0,0 +1,383 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Numeric SSC driver rewritten by Andy Nicholas
+* October 27, 1988
+*-------------------------------
+
+            rel
+            dsk   MODEMS/rel/ssc
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+*-------------------------------
+
+ssc         ent
+
+            org   $b00
+
+* jump table
+*-------------------------------
+
+slot        hex   20          ;serial card slot*16
+initspd     hex   00
+
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answerRing
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   chkdcd
+            jmp   setspd
+            jmp   setirq
+            jmp   raisedtr
+
+* init the serial card
+*-------------------------------
+
+init        lda   #0          ;reset bytes
+            ldx   slot
+            sta   status,x    ;reset uart
+            sta   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     ldx   slot        ;get offset
+
+            lda   #%00000000  ;kill DTR, RTS
+            sta   command,x
+
+            lda   #0          ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+
+            sei
+
+            ldy   initspd     ;set init speed
+            jsr   setspd
+
+            lda   data,x      ;clear data strobe
+
+            lda   #0          ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #0
+:loop       lda   #$80
+            jsr   wait
+            lda   initstr,x   ;get modem init string
+            beq   rset3
+            jsr   out         ;output
+            inx
+            bne   :loop
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'0'        ;check for "OK" (numeric)
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       jsr   inp         ;grab the <cr> off the tail end of the "0"
+            bcc   leave
+
+            lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts   return
+
+jring       jmp   ringset     ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp         ;check for a char
+            bcc   noRing      ;nope...
+
+            and   #$7f        ;strip high
+            cmp   #'2'        ;is it a 'ring'? (numeric)
+            bne   notRing     ;nope, check for connect messages
+
+********************************
+grabCR      jsr   inp         ;grab the <cr> off the tail end of the "2"
+            bcc   grabCR
+
+answerRing  jsr   answer      ;the phone rang, so send 'ATA'
+
+            clc
+            rts
+
+********************************
+notRing
+            cmp   #'1'        ;is it a '1' or '10' or '11' or '12' or '14'?
+            beq   gotCode     ;yes, save it
+            cmp   #'5'        ;is it connect 1200?
+            bne   noRing      ;nope
+
+gotCode     sta   code
+
+secondChar  jsr   inp         ;second character will ALWAYS be there
+            bcc   secondChar
+
+            and   #$7f        ;strip high
+            cmp   #cr         ;but might be a <cr>
+            bne   multiCode
+
+********************************
+singleCode  ldy   #0          ;connect 300?
+            lda   code
+            cmp   #'1'
+            beq   ring3
+
+            iny
+            cmp   #'5'        ;connect 1200?
+            beq   ring3       ;nope, unknown code, keep checking
+            jmp   noRing
+
+********************************
+multiCode
+            sta   code+1
+
+            ldy   #2          ;def = 2400 baud
+
+            lda   code        ;get the first code char
+            cmp   #'1'        ;must be a one
+            bne   noRing      ;if not, then keep trying
+
+            lda   code+1      ;is it 2400?
+            cmp   #'0'
+            beq   ring3
+
+            iny
+            cmp   #'1'        ;is it 4800?
+            beq   ring3
+
+            iny
+            cmp   #'2'        ;is it 9600
+            beq   ring3
+
+            iny
+            cmp   #'4'        ;is it 19200?
+            beq   ring3
+            jmp   noRing
+
+********************************
+ring3       jsr   setspd      ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0          ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec               ;we have a connection!
+            rts
+
+noRing      clc
+            rts
+
+* send ata to phone
+*-------------------------------
+
+answer      lda   #$80
+            jsr   wait
+
+            ldx   #0
+answer2     lda   ansstr,x    ;get text
+            beq   answer3     ;we are done
+
+            jsr   out         ;send it
+
+            lda   #$80
+            jsr   wait
+
+            inx
+            bne   answer2     ;loop
+
+answer3     rts
+
+* hangup phone
+*-------------------------------
+
+hangup      ldx   slot        ;get offset
+            lda   #0
+            sta   command,x   ;hang up phone
+            rts
+
+* input data
+*-------------------------------
+
+inp         stx   save_x      ;save X
+            ldx   slot        ;get offset
+            lda   status,x    ;get status
+            and   #%00001000
+            clc
+            beq   inp2        ;no data
+
+            lda   data,x
+            sec
+inp2        ldx   save_x      ;restore & return
+            rts
+
+* output data
+*-------------------------------
+
+out         stx   save_x      ;save x
+            dec   timecnt     ;count down 1 section
+            bne   out1
+
+            inc   bytcnt      ;1 second gone by
+            bit   bytcnt
+            bvc   out1
+
+            ldx   #0          ;reset seconds
+            stx   bytcnt
+
+            inc   bytcnt+1    ;1 minute gone by
+            bit   bytcnt+1
+            bvc   out1
+
+            ldx   #0          ;reset minutes
+            stx   bytcnt+1
+
+            inc   bytcnt+2    ;1 hour gone by
+
+out1        ldx   slot
+
+            pha
+out2        lda   status,x    ;check status
+            and   #%00010000
+            beq   out2        ;loop until ready
+            pla
+
+dataloc     sta   data        ;self modified
+            ldx   save_x
+            rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd      stx   save_x      ;dont kill any reg's
+            pha
+
+            ldx   slot        ;get offset
+            lda   status,x
+            and   cdbyte      ;check carrier
+            clc
+            bne   chkdcd2
+
+            sec
+chkdcd2     pla   restore     ;all & return
+            ldx   save_x
+            rts
+
+* set the rs-232 speed/speed in Y reg
+*-------------------------------
+
+setspd      stx   save_x
+            ldx   slot        ;get offset
+            lda   speed,y     ;get speed
+            sta   control,x   ;set speed
+
+            lda   #1          ;find caller speed (x300)
+            sta   callspd
+            cpy   #0          ;at 300?
+            beq   setspd3     ;yep
+
+            asl   callspd     ;speed = speed * 2
+setspd2     asl   callspd     ;speed = speed * 2
+            dey
+            bne   setspd2     ;loop until correct speed found
+
+setspd3     ldx   save_x      ;restore & return
+            rts
+
+*-------------------------------
+* setup interupt routine
+
+setirq      rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei
+
+            ldx   save_x
+            rts
+
+* wait routine
+*-------------------------------
+
+wait        sec
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* global data area
+*-------------------------------
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            dfb   %00011111   ;19200
+
+timecnt     dfb   0           ;1-second counter
+save_x      dfb   0
+countlo     dfb   $FF
+counthi     dfb   $FF
+code        ds    2           ;the code we got from the modem
+            asc   'SSC/Numeric'
+
diff --git a/Config/MODEMS/SSC.S.A b/Config/MODEMS/SSC.S.A
new file mode 100644
index 0000000..64e8214
--- /dev/null
+++ b/Config/MODEMS/SSC.S.A
@@ -0,0 +1,387 @@
+
+* Numeric SSC driver rewritten by Andy Nicholas
+* October 27, 1988
+*-------------------------------
+
+ rel
+ dsk rel/ssc
+
+cr equ $0d
+lf equ $0a
+
+data equ $c088
+status equ $c089
+command equ $c08a
+control equ $c08b
+
+initstr equ $10d0
+ansstr equ $10c0
+cdbyte equ $10bf
+
+*-------------------------------
+
+ssc ent
+
+ org $b00
+
+* jump table
+*-------------------------------
+
+slot hex 20 ;serial card slot*16
+initspd hex 00
+
+callspd dfb 0 ;speed of call
+
+bytcnt dfb 0,0,0
+
+ jmp init
+ jmp ringset
+ jmp ring
+ jmp answerRing
+ jmp hangup
+ jmp inp
+ jmp out
+ jmp chkdcd
+ jmp setspd
+ jmp raisedtr
+
+* init the serial card
+*-------------------------------
+
+init lda #0 ;reset bytes
+ ldx slot
+ sta status,x ;reset uart
+ sta command,x ;reset command
+
+ clc
+ txa
+ adc #<data
+ sta dataloc+1 ;make into absolute save
+ rts
+
+* setup for call
+*-------------------------------
+
+ringset ldx slot ;get offset
+
+ lda #%00000000 ;kill DTR, RTS
+ sta command,x
+
+ lda #0 ;let modem reset
+ jsr wait
+ jsr wait
+
+ lda #%00001011 ;turn on DTR, RTS
+ sta command,x
+
+ sei
+
+ ldy initspd ;set init speed
+ jsr setspd
+
+ lda data,x ;clear data strobe
+
+ lda #0 ;slight delay (let modem do init)
+ jsr wait
+
+ ldx #0
+:loop lda #$80
+ jsr wait
+ lda initstr,x ;get modem init string
+ beq rset3
+ jsr out ;output
+ inx
+ bne :loop
+
+rset3 lda #6
+ sta countlo
+ sta counthi
+
+rset4 ldy #$FF
+rset5 dey
+ beq decount
+
+ jsr inp
+ bcc rset5
+ and #$7f
+ cmp #'0' ;check for "OK" (numeric)
+ beq leave
+ jmp rset5
+
+decount dec countlo
+ bne rset4
+ dec counthi
+ bne rset4
+ jmp ringset
+
+leave jsr inp ;grab the <cr> off the tail end of the "0"
+ bcc leave
+
+ lda #0
+ sta bytcnt ;reset byte counter
+ sta bytcnt+1
+ sta bytcnt+2
+ clc
+ rts return
+
+jring jmp ringset ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring jsr inp ;check for a char
+ bcc noRing ;nope...
+
+ and #$7f ;strip high
+ cmp #'2' ;is it a 'ring'? (numeric)
+ bne notRing ;nope, check for connect messages
+
+********************************
+grabCR jsr inp ;grab the <cr> off the tail end of the "2"
+ bcc grabCR
+
+answerRing jsr answer ;the phone rang, so send 'ATA'
+
+ clc
+ rts
+
+********************************
+notRing
+ cmp #'1' ;is it a '1' or '10' or '11' or '12' or '14'?
+ beq gotCode ;yes, save it
+ cmp #'5' ;is it connect 1200?
+ bne noRing ;nope
+
+gotCode sta code
+
+secondChar jsr inp ;second character will ALWAYS be there
+ bcc secondChar
+
+ and #$7f ;strip high
+ cmp #cr ;but might be a <cr>
+ bne multiCode
+
+********************************
+singleCode ldy #0 ;connect 300?
+ lda code
+ cmp #'1'
+ beq ring3
+
+ iny
+ cmp #'5' ;connect 1200?
+ beq ring3 ;nope, unknown code, keep checking
+ jmp noRing
+
+********************************
+multiCode
+ sta code+1
+
+ ldy #2 ;def = 2400 baud
+
+ lda code ;get the first code char
+ cmp #'1' ;must be a one
+ bne noRing ;if not, then keep trying
+
+ lda code+1 ;is it 2400?
+ cmp #'0'
+ beq ring3
+
+ iny
+ cmp #'1' ;is it 4800?
+ beq ring3
+
+ iny
+ cmp #'2' ;is it 9600
+ beq ring3
+
+ iny
+ cmp #'4' ;is it 19200?
+ beq ring3
+
+ dey
+ cmp #'7' ;is it 9600/ARQ?
+ beq ring3
+
+ dey  ;no 4800/arq
+ dey
+ cmp #'6'
+ beq ring3 ;2400/ARQ
+
+ dey
+ cmp #'5' ;1200/ARQ
+ beq ring3
+
+ jmp noRing
+
+********************************
+ring3 jsr setspd ;set the correct speed
+
+ ldy #5
+ring4 lda #0 ;let carrier's settle
+ jsr wait
+ dey
+ bne ring4
+
+ sec  ;we have a connection!
+ rts
+
+noring clc
+ rts
+
+* send ata to phone
+*-------------------------------
+
+answer lda #$80
+ jsr wait
+
+ ldx #0
+answer2 lda ansstr,x ;get text
+ beq answer3 ;we are done
+
+ jsr out ;send it
+
+ lda #$80
+ jsr wait
+
+ inx
+ bne answer2 ;loop
+
+answer3 rts
+
+* hangup phone
+*-------------------------------
+
+hangup ldx slot ;get offset
+ lda #0
+ sta command,x ;hang up phone
+ rts
+
+* input data
+*-------------------------------
+
+inp stx save_x ;save X
+ ldx slot ;get offset
+ lda status,x ;get status
+ and #%00001000
+ clc
+ beq inp2 ;no data
+
+ lda data,x
+ sec
+inp2 ldx save_x ;restore & return
+ rts
+
+* output data
+*-------------------------------
+
+out stx save_x ;save x
+ dec timecnt ;count down 1 section
+ bne out1
+
+ inc bytcnt ;1 second gone by
+ bit bytcnt
+ bvc out1
+
+ ldx #0 ;reset seconds
+ stx bytcnt
+
+ inc bytcnt+1 ;1 minute gone by
+ bit bytcnt+1
+ bvc out1
+
+ ldx #0 ;reset minutes
+ stx bytcnt+1
+
+ inc bytcnt+2 ;1 hour gone by
+
+out1 ldx slot
+
+ pha
+out2 lda status,x ;check status
+ and #%00010000
+ beq out2 ;loop until ready
+ pla
+
+dataloc sta data ;self modified
+ ldx save_x
+ rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd stx save_x ;dont kill any reg's
+ pha
+
+ ldx slot ;get offset
+ lda status,x
+ and cdbyte ;check carrier
+ clc
+ bne chkdcd2
+
+ sec
+chkdcd2 pla restore ;all & return
+ ldx save_x
+ rts
+
+* set the rs-232 speed/speed in Y reg
+*-------------------------------
+
+setspd stx save_x
+ ldx slot ;get offset
+ lda speed,y ;get speed
+ sta control,x ;set speed
+
+ lda #1 ;find caller speed (x300)
+ sta callspd
+ cpy #0 ;at 300?
+ beq setspd3 ;yep
+
+ asl callspd ;speed = speed * 2
+setspd2 asl callspd ;speed = speed * 2
+ dey
+ bne setspd2 ;loop until correct speed found
+
+setspd3 ldx save_x ;restore & return
+ rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr stx save_x
+ ldx slot
+
+ lda #%00001011 ;turn on DTR, RTS
+ sta command,x
+ sei
+
+ ldx save_x
+ rts
+
+* wait routine
+*-------------------------------
+
+wait sec
+wait2 pha
+wait3 sbc #1
+ bne wait3
+ pla
+ sbc #1
+ bne wait2
+ rts
+
+* global data area
+*-------------------------------
+
+speed dfb %00010110 ;300
+ dfb %00011000 ;1200
+ dfb %00011010 ;2400
+ dfb %00011100 ;4800
+ dfb %00011110 ;9600
+ dfb %00011111 ;19200
+
+timecnt dfb 0 ;1-second counter
+save_x dfb 0
+countlo dfb $FF
+counthi dfb $FF
+code ds 2 ;the code we got from the modem
+ asc 'SSC/Numeric'
diff --git a/Config/MODEMS/SSC.VERB.S b/Config/MODEMS/SSC.VERB.S
new file mode 100644
index 0000000..9975d78
--- /dev/null
+++ b/Config/MODEMS/SSC.VERB.S
@@ -0,0 +1,335 @@
+            TR
+            TR    ADR
+*-------------------------------
+* USRobotics 2400 driver written by Andy Nicholas
+* January 19, 1988
+*-------------------------------
+
+            rel
+            dsk   rel/ssc
+
+cr          equ   $0d
+lf          equ   $0a
+
+data        equ   $c088
+status      equ   $c089
+command     equ   $c08a
+control     equ   $c08b
+
+initstr     equ   $10d0
+ansstr      equ   $10c0
+cdbyte      equ   $10bf
+
+*-------------------------------
+
+ssc         ent
+
+            org   $b00
+
+* jump table
+*-------------------------------
+
+slot        hex   20          ;serial card slot*16
+initspd     hex   00
+
+callspd     dfb   0           ;speed of call
+
+bytcnt      dfb   0,0,0
+
+            jmp   init
+            jmp   ringset
+            jmp   ring
+            jmp   answer
+            jmp   hangup
+            jmp   inp
+            jmp   out
+            jmp   chkdcd
+            jmp   setspd
+            jmp   raisedtr
+
+* init the serial card
+*-------------------------------
+
+init        lda   #0          ;reset bytes
+            ldx   slot
+            sta   status,x    ;reset uart
+            sta   command,x   ;reset command
+
+            clc
+            txa
+            adc   #<data
+            sta   dataloc+1   ;make into absolute save
+            rts
+
+* setup for call
+*-------------------------------
+
+ringset     ldx   slot        ;get offset
+
+            lda   #%00000000  ;kill DTR, RTS
+            sta   command,x
+
+            lda   #0          ;let modem reset
+            jsr   wait
+            jsr   wait
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+
+            sei
+
+            ldy   initspd     ;set init speed
+            jsr   setspd
+
+            lda   data,x      ;clear data strobe
+
+            lda   #0          ;slight delay (let modem do init)
+            jsr   wait
+
+            ldx   #0
+:loop       lda   #$80
+            jsr   wait
+            lda   initstr,x   ;get modem init string
+            beq   rset3
+            jsr   out         ;output
+            inx
+            bne   :loop
+
+rset3       lda   #6
+            sta   countlo
+            sta   counthi
+
+rset4       ldy   #$FF
+rset5       dey
+            beq   decount
+
+            jsr   inp
+            bcc   rset5
+            and   #$7f
+            cmp   #'K'        ;check for "OK"
+            beq   leave
+            jmp   rset5
+
+decount     dec   countlo
+            bne   rset4
+            dec   counthi
+            bne   rset4
+            jmp   ringset
+
+leave       lda   #0
+            sta   bytcnt      ;reset byte counter
+            sta   bytcnt+1
+            sta   bytcnt+2
+            clc
+            rts   return
+
+jring       jmp   ringset     ;extend branch to ringset
+
+* scan for ring and handle it
+*-------------------------------
+
+ring        jsr   inp         ;check for a char
+            bcc   ring5       ;nope...
+
+            and   #$7f        ;strip high
+            cmp   #'E'
+            clc
+            bne   ring5       ;keep checking
+
+ring2       jsr   inp         ;check for char
+            bcc   ring2
+
+            ldy   #0          ;def = 300 baud
+            and   #$7f        ;strip high
+
+            cmp   #'R'        ;oops, "No Carrier" message
+            beq   jring
+
+            cmp   #cr         ;connect 300
+            beq   ring3
+
+            cmp   #'3'        ;connect 300
+            beq   ring3
+
+            iny
+            cmp   #'1'        ;connect 1200
+            beq   ring3
+
+            iny
+            cmp   #'2'        ;connect 2400
+            beq   ring3
+
+            iny
+            cmp   #'4'        ;connect 4800
+            beq   ring3
+
+            iny
+            cmp   #'9'        ;connect 9600
+            bne   ring2
+
+ring3       jsr   setspd      ;set the correct speed
+
+            ldy   #5
+ring4       lda   #0          ;let carrier's settle
+            jsr   wait
+            dey
+            bne   ring4
+
+            sec               ;we have a connection!
+ring5       rts
+
+* send ata to phone
+*-------------------------------
+
+answer      ldx   #0
+answer2     lda   ansstr,x    ;get text
+            beq   answer3     ;we are done
+
+            jsr   out         ;send it
+
+            lda   #$80
+            jsr   wait
+
+            inx
+            bne   answer2     ;loop
+
+answer3     rts
+
+* hangup phone
+*-------------------------------
+
+hangup      ldx   slot        ;get offset
+            lda   #0
+            sta   command,x   ;hang up phone
+            rts
+
+* input data
+*-------------------------------
+
+inp         stx   save_x      ;save X
+            ldx   slot        ;get offset
+            lda   status,x    ;get status
+            and   #%00001000
+            clc
+            beq   inp2        ;no data
+
+            lda   data,x
+            sec
+inp2        ldx   save_x      ;restore & return
+            rts
+
+* output data
+*-------------------------------
+
+out         stx   save_x      ;save x
+            dec   timecnt     ;count down 1 section
+            bne   out1
+
+            inc   bytcnt      ;1 second gone by
+            bit   bytcnt
+            bvc   out1
+
+            ldx   #0          ;reset seconds
+            stx   bytcnt
+
+            inc   bytcnt+1    ;1 minute gone by
+            bit   bytcnt+1
+            bvc   out1
+
+            ldx   #0          ;reset minutes
+            stx   bytcnt+1
+
+            inc   bytcnt+2    ;1 hour gone by
+
+out1        ldx   slot
+
+            pha
+out2        lda   status,x    ;check status
+            and   #%00010000
+            beq   out2        ;loop until ready
+            pla
+
+dataloc     sta   data        ;self modified
+            ldx   save_x
+            rts
+
+* check for carrier
+*-------------------------------
+
+chkdcd      stx   save_x      ;dont kill any reg's
+            pha
+
+            ldx   slot        ;get offset
+            lda   status,x
+            and   cdbyte      ;check carrier
+            clc
+            bne   chkdcd2
+
+            sec
+chkdcd2     pla   restore     ;all & return
+            ldx   save_x
+            rts
+
+* set the rs-232 speed/speed in Y reg
+*-------------------------------
+
+setspd      stx   save_x
+            ldx   slot        ;get offset
+            lda   speed,y     ;get speed
+            sta   control,x   ;set speed
+
+            lda   #1          ;find caller speed (x300)
+            sta   callspd
+            cpy   #0          ;at 300?
+            beq   setspd3     ;yep
+
+            asl   callspd     ;speed = speed * 2
+setspd2     asl   callspd     ;speed = speed * 2
+            dey
+            bne   setspd2     ;loop until correct speed found
+
+setspd3     ldx   save_x      ;restore & return
+            rts
+
+*-------------------------------
+* turn on dtr/rts
+
+raisedtr    stx   save_x
+            ldx   slot
+
+            lda   #%00001011  ;turn on DTR, RTS
+            sta   command,x
+            sei
+
+            ldx   save_x
+            rts
+
+* wait routine
+*-------------------------------
+
+wait        sec
+wait2       pha
+wait3       sbc   #1
+            bne   wait3
+            pla
+            sbc   #1
+            bne   wait2
+            rts
+
+* global data area
+*-------------------------------
+
+speed       dfb   %00010110   ;300
+            dfb   %00011000   ;1200
+            dfb   %00011010   ;2400
+            dfb   %00011100   ;4800
+            dfb   %00011110   ;9600
+            dfb   %00011111   ;19200
+
+timecnt     dfb   0           ;1-second counter
+save_x      dfb   0
+countlo     dfb   $FF
+counthi     dfb   $FF
+
+            asc   'SSC'
+
diff --git a/Config/OSPJUNK.S b/Config/OSPJUNK.S
new file mode 100644
index 0000000..e654c59
--- /dev/null
+++ b/Config/OSPJUNK.S
@@ -0,0 +1,566 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Config Program - Ospjunk
+*-------------------------------
+* Date: 12/2/89
+*-------------------------------
+
+            REL
+temp        =     0
+temp2       =     2
+temp3       =     4
+temp4       =     6
+
+fmparm      =     $60
+doszero     =     $62
+dosptr      =     $64
+part        =     $66
+dosbyt      =     $68
+
+lnbuf       =     $200
+flname      =     $300
+devnam      =     $800
+fbuf1       =     $1C00
+fnam1       =     $1E00
+fbuf2       =     fbuf1
+fnam2       =     fnam1
+msgbuf      =     fbuf1
+msgnam      =     fnam1
+miscbuf     =     fbuf1
+miscnam     =     fnam1
+
+copybuf     =     $6000
+copymax     =     $5800
+mli         =     $BF00
+
+            DSK   REL/OSPJUNK
+
+cls         EXT
+print       EXT
+inpln       EXT
+inpmode     EXT
+maxlen      EXT
+ld_drvs     EXT
+getname     EXT
+open        EXT
+geteof      EXT
+rdblk       EXT
+close       EXT
+create      EXT
+wrblk       EXT
+refnum      EXT
+slot        EXT
+drive       EXT
+
+*-------------------------------
+* load the acos.obj file after find out where it is
+
+drv_path    ENT
+            JSR   cls          ; clear screen
+
+            JSR   print
+            ASC   'Please enter the pathname of the volume or'
+            ASC   ' subdirectory which contains the'0D0D
+            ASC   'file:  LLUCE.DRIVERS'0D0D0D
+            ASC   'Path: /'00
+
+            LDA   #32          ; set maximum pathname at 32
+            STA   maxlen
+            LDA   #%11000000
+            STA   inpmode      ; set input mode
+
+            JSR   inpln
+            INY
+            STY   lnbuf-2      ; save length
+            LDA   #'/'
+            STA   lnbuf-1      ; save initial '/'
+
+            JSR   mli
+            DB    $C6          ; set prefix
+            DA    p_spfx
+            BCS   drv_p2       ; error
+
+            JSR   mli
+            DB    $C7          ; get prefix and put into
+            DA    p_pfx4       ; program byffer
+
+            JSR   ld_drvs      ; load in the stats
+            BCC   logcon       ; all is ok
+
+drv_p2      JMP   drv_path     ; opps, error
+
+
+*-------------------------------
+* log back to the config disk
+; log back to config disk
+logcon      ENT
+            JSR   mli
+            DB    $C6          ; set prefix
+            DA    p_pfx2
+; ... later, add in error checking
+            RTS
+
+*-------------------------------
+* log the destination disk
+
+logdst      ENT
+            JSR   mli
+            DB    $C6
+            DA    p_pfx3
+; ... later, add in error checking
+            RTS
+
+*-------------------------------
+* log the program disk
+
+logprg      ENT
+            LDA   prgpfx       ; has a program prefix been defined?
+            BEQ   logcon       ; nope, log to config disk
+
+            JSR   mli
+            DB    $C6          ; log to program disk (with LLUCE.SYSTEM)
+            DA    p_pfx4
+            RTS
+
+*-------------------------------
+* move filename to user routine
+
+movname     ENT
+            STX   dosbyt       ; point to filename
+            STA   dosbyt+1
+
+            LDY   #15
+:movnam2    LDA   (dosbyt),y   ; copy filename
+            STA   flname,y
+            DEY
+            BPL   :movnam2
+            RTS
+; variables and stuff
+msgref      ENT
+            DB    0
+module      DB    0
+sdvparm     DB    0,0,0
+
+
+copyrts     JMP   logcon       ; log back to main
+
+*-------------------------------
+* copy a list of files
+
+copy        ENT
+            STX   temp4        ; save pointer for getname
+            STA   temp4+1
+
+:copy2      JSR   getname      ; get source name
+            BCS   copyrts
+
+            JSR   logcon       ; log to config disk
+
+            LDX   #<flname     ; get info on file
+            LDA   #>flname
+            JSR   getinfo
+            BNE   :copy2       ; opps, error, skip this file
+
+            JSR   open
+            JSR   geteof       ; get eof marker
+            STX   p_geof+2
+            STA   p_geof+3     ; save marker
+            STA   temp
+            CPX   #0           ; save number of pages to read
+            BEQ   *+4
+            INC   temp
+
+            LDX   #<copybuf
+            LDA   #>copybuf
+            LDY   #>copymax*2  ; get maximum ram space
+            JSR   rdblk
+
+            JSR   close        ; close the file
+
+            JSR   logdst       ; log to destination
+
+            LDY   #0           ; use type $00
+            JSR   create       ; create file
+
+            JSR   open         ; open file
+
+            LDA   temp
+            ASL                ; get number of blocks (1/2 pages) to write
+            TAY
+            LDX   #<copybuf
+            LDA   #>copybuf
+            JSR   wrblk        ; write out the block
+
+            JSR   seteof       ; set end of file
+            JSR   close
+
+            LDX   #<flname
+            LDA   #>flname
+            JSR   setinfo      ; set file info
+            JMP   :copy2
+
+*-------------------------------
+* get info on a file
+
+getinfo     ENT
+            STX   p_ginfo+1    ; point to filename
+            STA   p_ginfo+2
+            LDA   #10
+            STA   p_ginfo
+
+            JSR   mli
+            DB    $C4          ; get info
+            DA    p_ginfo
+            RTS
+
+*-------------------------------
+* set the file info
+
+setinfo     ENT
+            STX   p_ginfo+1    ; point to filename
+            STA   p_ginfo+2
+            LDA   #7
+            STA   p_ginfo
+
+            JSR   mli
+            DB    $C3          ; set info
+            DA    p_ginfo
+            RTS
+
+*-------------------------------
+* set the current end of file
+
+puteof      ENT
+            STX   p_geof+2     ; set eof marker
+            STA   p_geof+3
+
+seteof      ENT
+            LDA   refnum
+            STA   p_geof+1
+
+            JSR   mli
+            DB    $D0          ; set eof
+            DA    p_geof
+            RTS
+
+*-------------------------------
+* rename a file
+
+rename      ENT
+            STX   temp4        ; point to data
+            STA   temp4+1
+            JSR   getname      ; get first name
+
+            LDY   #63
+:ren2       LDA   flname,y     ; copy first name
+            STA   lnbuf+128,y
+            DEY
+            BPL   :ren2
+
+            JSR   getname      ; get new name
+
+            JSR   mli
+            DB    $C2          ; rename file
+            DA    p_ren
+            RTS
+
+*-------------------------------
+* find the config disk
+
+findcon     ENT
+            LDX   #23
+            LDA   #0
+:loop       STA   $BF58,x      ; clear prodos system bit-map
+            DEX
+            BNE   :loop
+
+            JSR   mli
+            DB    $C7          ; get prefix
+            DA    p_pfx2       ; point to path
+
+            LDA   conpfx       ; is prefix set to null?
+            BNE   :findc2      ; nope
+
+            LDA   $BF30        ; get current slot/drive
+            STA   p_onlin+1
+
+            JSR   mli
+            DB    $C5          ; find out prefix of volume
+            DA    p_onlin
+
+            LDA   conpfx+1
+            AND   #$F          ; just save name length
+            clc
+            adc   #1           ; advance length of prefix
+            STA   conpfx
+
+            LDA   #'/'         ; add leading slash for volume name
+            STA   conpfx+1
+
+:findc2     JMP   logcon       ; log to config
+
+*-------------------------------
+* check free space on volume
+
+chkspc      ENT
+            LDA   drive
+            ASL
+            ASL
+            ASL
+            ORA   slot         ; make into #dsss0000 format
+            ASL
+            ASL
+            ASL
+            ASL
+
+            STA   p_onln+1
+            JSR   mli
+            DB    $C5          ; get drive name
+            DA    p_onln
+            BEQ   :chkspc2     ; all is well
+
+            LDA   #0           ; return 0 blocks free -- error
+            TAX
+            RTS
+
+:chkspc2    LDA   dstpfx+1
+            AND   #$F
+            TAX                ; make into volume name
+            INX
+            STX   dstpfx
+            LDA   #'/'
+            STA   dstpfx+1
+
+            LDX   #<dstpfx
+            LDA   #>dstpfx     ; get info on volume
+            JSR   getinfo
+
+            SEC
+            LDA   p_ginfo+5    ; return total number of free blocks
+            SBC   p_ginfo+8
+            TAX
+            LDA   p_ginfo+6
+            SBC   p_ginfo+9
+            RTS
+
+*-------------------------------
+* setup initial drive spec list
+
+setspec     ENT
+            JSR   chkspc       ;reset path to original drive
+
+            JSR   makesegs     ;tack the /mpro.segs on path
+
+            LDY   #0
+            LDA   #1
+            JSR   coppath      ;copy 1 path (A:)
+
+            STY   temp
+            JSR   chkspc       ;reset path
+            JSR   makesys
+            LDY   temp
+
+            LDA   #3           ;copy 3 more paths
+            JSR   coppath      ;b: - d:
+
+            LDA   settrans     ;transfer wanted?
+            BNE   :trans
+            LDA   #3           ;paths to copy
+            JMP   :notrans
+
+:trans      STY   temp
+            JSR   maketac1
+            JSR   maketac2
+            LDY   temp
+
+            LDA   #1
+            JSR   coppath      ;copy one path (E:)
+
+            STY   temp
+            JSR   chkspc
+            JSR   makesys
+            LDY   temp
+
+            LDA   #2           ;fill out 2 specs
+:notrans    JSR   coppath
+
+            LDA   #0           ; mark end of path's
+            STA   devnam,y
+
+            RTS
+
+settrans    ENT
+            DB    0
+
+*-------------------------------
+* copy a path onto the pathname
+
+coppath     STA   temp
+
+:loop6      LDX   #-1
+:loop5      INX
+            LDA   dstpfx,x     ; copy in pathname
+            STA   devnam,y
+            INY
+            CPX   dstpfx       ; done?
+            BNE   :loop5       ; nope
+
+            DEC   temp         ; count down paths to enter
+            BNE   :loop6
+            RTS
+
+*-------------------------------
+* setup /xxx/mpro.segs and log it
+
+makesegs    ENT
+            LDX   #0
+            LDY   dstpfx
+:loop       LDA   pfxname+1,x  ; copy on /xxxx/mpro.segs
+            STA   dstpfx+1,y
+            INX
+            INY
+            INC   dstpfx       ; update length
+            CPX   pfxname
+            BNE   :loop
+            RTS
+
+setdrv      ENT
+            JSR   makesegs
+            JSR   mli
+            DB    $C0          ; create new path
+            DA    p_crpth
+            RTS
+
+*-------------------------------
+* setup /mpro.sys and log it
+
+makesys     ENT
+            LDX   #0
+            LDY   dstpfx
+:loop       LDA   sysname+1,x  ; copy on /xxxx/mpro.sys
+            STA   dstpfx+1,y
+            INX
+            INY
+            INC   dstpfx       ; update length
+            CPX   sysname
+            BNE   :loop
+            RTS
+
+setsys      ENT
+            JSR   makesys
+
+            JSR   mli
+            DB    $C0          ; create new path
+            DA    p_crpth
+            RTS
+
+*-------------------------------
+* setup /stac and log it
+
+maketac1    ENT
+            LDX   #0
+            LDY   dstpfx
+:loop       LDA   tac1+1,x     ; copy on /xxxx/mpro.sys/stac
+            STA   dstpfx+1,y
+            INX
+            INY
+            INC   dstpfx       ; update length
+            CPX   tac1
+            BNE   :loop
+            RTS
+
+maketac2    ENT
+            LDX   #0
+            LDY   dstpfx
+:loop       LDA   tac2+1,x     ; copy on /xxxx/mpro.sys/stac/vol./
+            STA   dstpfx+1,y
+            INX
+            INY
+            INC   dstpfx       ; update length
+            CPX   tac2
+            BNE   :loop
+            RTS
+
+settac      ENT
+            JSR   maketac1
+            JSR   mli          ; create /xxx/mpro.sys/stac/
+            DB    $C0          ; create new path
+            DA    p_crpth
+
+            JSR   maketac2
+            JSR   mli          ; create /xxx/mpro.sys/stac/vol./
+            DB    $C0          ; create new path
+            DA    p_crpth
+            RTS
+
+*-------------------------------
+* variables
+
+pfxname     STR   '/MPRO.SEGS'
+sysname     STR   '/MPRO.SYS'
+tac1        STR   '/STAC'
+tac2        STR   '/VOL.'
+
+p_spfx      DB    1
+            DA    lnbuf-2
+
+p_geof      DB    2
+            DB    0
+            DB    0,0,0
+
+p_ginfo     DB    $A
+            DA    0
+            DB    0
+            DB    0
+            DA    0
+            DB    0
+            DA    0
+            DA    0
+            DA    0
+            DA    0
+            DA    0
+
+p_ren       DB    2
+            DA    lnbuf+128
+            DA    flname
+
+p_pfx       DB    1
+            DA    lnbuf
+
+p_pfx2      ENT
+            DB    1
+            DA    conpfx
+
+p_pfx3      DB    1
+            DA    dstpfx
+
+p_pfx4      DB    1
+            DA    prgpfx
+
+conpfx      DS    40           ; max length
+
+dstpfx      ENT
+            DS    40           ; max length
+
+prgpfx      DS    40           ; max length
+
+p_onlin     DB    2
+            DB    0
+            DA    conpfx+1
+
+p_onln      DB    2
+            DB    0
+            DA    dstpfx+1
+
+p_crpth     ENT
+            DB    7
+            DA    dstpfx
+            DB    $C3
+            DB    $F
+            DA    0
+            DB    $D
+            DA    0
+            DA    0
+
diff --git a/Config/PRINTER.S b/Config/PRINTER.S
new file mode 100644
index 0000000..66752b8
--- /dev/null
+++ b/Config/PRINTER.S
@@ -0,0 +1,118 @@
+            LST   OFF
+            TR
+            TR    ADR
+*-------------------------------
+* Printer re-configuration
+*-------------------------------
+
+            REL
+prdrv       =     $900
+point0      =     $11
+point1      =     $14
+
+            DSK   REL/PRINTER
+
+TopBox      EXT
+print       EXT
+cls         EXT
+start       EXT
+escape      EXT
+inpnum      EXT
+chinit      EXT
+wrtchg      EXT
+
+
+nullprnt    EXT               ;null printer driver
+serial      EXT               ;serial/cout printer driver
+grappler    EXT               ;parallel grappler printer driver
+parallel    EXT               ;parallel printer driver
+
+re_pr       ENT
+            JSR   TopBox
+            JSR   print
+            DB    1,2,29
+            ASC   '- Printer Interfaces -'
+            DB    1,4,5
+            ASC   'Please refer to Appendix B of your user'
+            ASC   ' manual for more information.'00
+
+            JSR   cls
+            LDX   #<start     ; setup esc handler
+            LDA   #>start
+            JSR   escape
+
+            LDA   #<prdrv     ;tell it to move the modem
+            STA   point1      ;driver
+            LDA   #>prdrv
+            STA   point1+1
+
+            JSR   print
+            DB    1,7,0
+            ASC   ' 1 - Apple //c built-in port         '
+            ASC   ' 7 - Apple Parallel interface'0D
+            ASC   ' 2 - Apple Super Serial Card (SSC)   '
+            ASC   ' 8 - Epson APL printer card'0D
+            ASC   ' 3 - Apple IIgs built-in port        '
+            ASC   ' 9 - Appricorn Parallel card'0D
+            ASC   ' 4 - Generic Printer Driver          '
+            ASC   '10 - Tyvec Printer Interface'0D
+            ASC   ' 5 - Star Micronics Grafstar         '
+            ASC   '11 - No Printer in system'0D
+            ASC   ' 6 - Orange Micro Grappler card'0D0D0D
+            ASC   'Which? [1-11] '00
+
+            LDX   #11         ;get printer #
+            JSR   inpnum
+
+            CMP   #5
+            BLT   :serial
+            CMP   #7
+            BLT   :grappler
+            CMP   #11
+            BLT   :parallel
+
+:null       LDA   #<nullprnt
+            STA   point0
+            LDA   #>nullprnt
+            STA   point0+1
+            JMP   :noslot
+
+:serial     LDA   #<serial
+            LDX   #>serial
+            JMP   :getslot
+
+:grappler   LDA   #<grappler
+            LDX   #>grappler
+            JMP   :getslot
+
+:parallel   LDA   #<parallel
+            LDX   #>parallel
+
+:getslot    STA   point0
+            STX   point0+1
+
+            JSR   print
+            DB    1,20,0
+            ASC   'What slot/port does your printer use? [1-7] '00
+
+            LDX   #7          ; get slot
+            JSR   inpnum
+            ASL
+            ASL
+            ASL
+            ASL
+:noslot     PHA               ;save slot
+
+            LDY   #0          ;move the single page
+:loop       LDA   (point0),Y  ;source
+            STA   (point1),Y  ;destination
+            INY
+            BNE   :loop
+
+            LDY   #0
+            PLA               ;get the slot back
+            STA   (point1),Y
+
+            JSR   chinit      ; check for init
+            JMP   wrtchg      ; write the changes
+
diff --git a/Config/PRINTERS/GRAPPLER.S b/Config/PRINTERS/GRAPPLER.S
new file mode 100644
index 0000000..30444b5
--- /dev/null
+++ b/Config/PRINTERS/GRAPPLER.S
@@ -0,0 +1,70 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*   Grappler Printer Driver    *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 12/07/86
+*-------------------------------
+
+            REL
+            DSK   PRINTERS/REL/GRAPPLER
+
+cr          =     $D
+lf          =     $A
+
+grappler    ENT
+
+*-------------------------------
+
+            ORG   $900
+; jump table
+slot        DB    $10
+
+            JMP   init
+            JMP   print
+            JMP   clear
+
+*-------------------------------
+* init printer
+
+init        RTS               ; no init code needed
+
+*-------------------------------
+* print character: A = character
+
+print       PHA
+            STX   save_x
+
+            LDX   slot
+print2      LDA   $C080,X     ; check printer status
+            AND   #%00000111  ; check busy/wait bits
+            EOR   #%00000011  ; turn all bits off
+            BNE   print2      ; wait to come ready
+
+            PLA
+            PHA
+            AND   #$7F
+            STA   $C080,X     ; print data
+            CMP   #cr
+            BNE   print3
+
+            LDA   #lf         ; add lf to cr
+            LDX   save_x
+            JSR   print
+
+print3      LDX   save_x      ; finish up
+            PLA
+            RTS
+
+*-------------------------------
+* clear print buffer (not available)
+
+clear       RTS
+
+save_x      DB    0
+
diff --git a/Config/PRINTERS/NULL.S b/Config/PRINTERS/NULL.S
new file mode 100644
index 0000000..abe71d5
--- /dev/null
+++ b/Config/PRINTERS/NULL.S
@@ -0,0 +1,35 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*      No Printer Driver       *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 01/03/86
+*-------------------------------
+
+            REL
+            DSK   PRINTERS/REL/NULL
+
+nullprnt    ENT
+
+            ORG   $900
+; jump table
+slot        DB    $10
+
+            JMP   init
+            JMP   print
+            JMP   clear
+
+; init printer
+init        RTS
+
+; print character: A = character
+print       RTS
+
+; clear print buffer (not available)
+clear       RTS
+
diff --git a/Config/PRINTERS/PARALLEL.S b/Config/PRINTERS/PARALLEL.S
new file mode 100644
index 0000000..18fec2b
--- /dev/null
+++ b/Config/PRINTERS/PARALLEL.S
@@ -0,0 +1,72 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*   Parallel Printer Driver    *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 12/07/86
+*-------------------------------
+
+            REL
+            DSK   PRINTERS/REL/PARALLEL
+
+cr          =     $D
+lf          =     $A
+
+parallel    ENT
+
+*-------------------------------
+
+            ORG   $900
+
+slot        DB    $10
+
+            JMP   init
+            JMP   print
+            JMP   clear
+
+*-------------------------------
+
+init        LDA   slot
+            LUP   4
+            LSR
+            --^
+            CLC
+            ADC   #$C0        ; get $Cx value
+            STA   print2+2
+            RTS
+
+*-------------------------------
+* print character: A = character
+
+print       PHA
+            STX   save_x
+print2      LDA   $C1C1       ; is printer ready?
+            BMI   print2      ; nope
+
+            PLA
+            PHA
+            LDX   slot        ; get offset
+            AND   #$7F
+            STA   $C080,x     ; print data
+            CMP   #cr
+            BNE   print3
+
+            LDA   #lf         ; add lf to cr
+            LDX   save_x
+            JSR   print
+
+print3      LDX   save_x      ; finish up
+            PLA
+            RTS
+
+*-------------------------------
+
+clear       RTS
+
+save_x      DB    0
+
diff --git a/Config/PRINTERS/SERIAL.S b/Config/PRINTERS/SERIAL.S
new file mode 100644
index 0000000..8fac333
--- /dev/null
+++ b/Config/PRINTERS/SERIAL.S
@@ -0,0 +1,125 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*    Serial Printer Driver     *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 12/07/86
+*-------------------------------
+
+            REL
+            DSK   PRINTERS/REL/SERIAL
+
+cr          =     $D
+lf          =     $A
+
+serial      ENT
+
+            ORG   $900
+
+*-------------------------------
+; jump table
+slot        DB    $10
+
+            JMP   init
+            JMP   print
+            JMP   clear
+
+*-------------------------------
+* flag init status for output
+
+init        PHA
+            LDA   #0          ; signal that printer not init'ed
+            STA   initflg
+            PLA
+            RTS
+
+*-------------------------------
+* print character: A = character
+
+print       PHP               ; disable int's
+            SEI
+            PHA               ; save all reg's
+            STX   save_x
+            STY   save_y
+            LDA   $C082       ; enable roms
+
+            LDX   #$13
+print1      LDA   $24,X       ; save zero page stuff
+            STA   zero,X
+            DEX
+            BPL   print1
+
+            BIT   initflg     ; has printer been used?
+            BMI   print3      ; yep
+
+            LDA   slot
+            STA   $26         ; save slot for card
+            LUP   4
+            LSR               ; move down slot
+            --^
+            CLC
+            ADC   #$C0
+            STA   print2+2
+            STA   $36+1       ; point ($0036) at $c100
+
+            LDA   #0          ; init printer card
+            TAX
+            TAY
+            STA   $24         ; zero horiz offset
+            STA   $27         ; zero character buffer
+            STA   $36
+print2      JSR   $C100
+            LDA   $36         ; point to output routine
+            STA   jprint+1
+            LDA   $36+1
+            STA   jprint+2
+            DEC   initflg     ; show we have done init
+
+            LDA   #'I'-$40    ; send ctrl-I 80 n
+            JSR   doprint
+            LDA   #'8'
+            JSR   doprint
+            LDA   #'0'
+            JSR   doprint
+            LDA   #'N'
+            JSR   doprint
+            LDA   #cr
+            JSR   doprint
+
+print3      LDA   #0          ; set ch over to border
+            STA   $24
+            PLA               ; get byte to print
+            PHA
+            JSR   doprint
+
+            LDX   #$13
+print4      LDA   zero,X      ; restore zero page
+            STA   $24,X
+            DEX
+            BPL   print4
+
+            LDA   $C083       ; enable ram card
+            LDA   $C083
+            LDX   save_x      ; restore reg's
+            LDY   save_y
+            PLA
+            PLP               ; restore int status
+            RTS
+
+doprint     ORA   #$80        ; print with high-bit set
+jprint      JMP   $C000       ; do output routine
+
+; clear print buffer (not available)
+clear       RTS
+
+save_x      DB    0
+save_y      DB    0
+initflg     DB    0
+
+zero        DS    $14
+
diff --git a/Config/ROUTINE.S b/Config/ROUTINE.S
new file mode 100644
index 0000000..3b4e0fe
--- /dev/null
+++ b/Config/ROUTINE.S
@@ -0,0 +1,663 @@
+            LST   OFF
+            TR
+            TR    ADR
+********************************
+*                              *
+*   Config Program - Routine   *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+            REL
+cr          =     $D          ; cariage return
+bs          =     8           ; backspace
+can         =     $18         ; ctrl-x
+esc         =     $27         ; escape
+del         =     $7F         ; delete
+
+temp        =     0
+temp2       =     2
+*temp3 = 4
+temp4       =     6
+x_save      =     9
+y_save      =     $A
+numptr      =     $1A
+psave       =     $1C
+prnt        =     $1E
+
+ch          =     $24
+cv          =     $25
+
+lnbuf       =     $200
+flname      =     $300
+
+            DSK   REL/ROUTINE
+
+cout        EXT               ; routine that are external to this one
+plotchr     EXT
+
+*-------------------------------
+* print a line of text
+*-------------------------------
+
+print       ENT
+            STA   psave       ; save all reg's
+            STY   psave+1
+            PLA
+            STA   prnt        ; point to address of data
+            PLA
+            STA   prnt+1
+
+:print2     INC   prnt        ; inc address
+            BNE   :print3
+            INC   prnt+1
+
+:print3     LDY   #0
+            LDA   (prnt),Y    ; get data
+            CMP   #1
+            BNE   :pr3a
+
+:pr3v       JSR   gettmp
+            JSR   gettmp      ; get horiz/vert address
+            STA   cv
+            JSR   gettmp
+            STA   ch
+            JMP   :print3
+
+:pr3a       PHA
+            JSR   cout        ; display it
+            PLA
+            BNE   :print2     ; keep going
+
+            JSR   gettmp
+            LDA   psave
+            LDY   psave+1
+            JMP   (prnt)
+
+*-------------------------------
+* get a byte from temp and advance pointers
+*-------------------------------
+
+gettmp      ENT
+            LDY   #0
+            LDA   (prnt),Y
+            INC   prnt
+            BNE   :gettmp2
+            INC   prnt+1
+:gettmp2    RTS
+
+*-------------------------------
+* put a cursor, get a key, remove cursor, return
+*-------------------------------
+
+rdkey       ENT
+            STX   x_save      ; save x & y
+            STY   y_save
+            LDA   #$5F
+            JSR   plotchr     ; bypass cout for speed
+
+:rdkey2     LDA   $C000       ; check for a key
+            BPL   :rdkey2
+            STA   $C010       ; reset flag
+            AND   #$7F
+
+            STA   $C030
+            STA   $C030       ; audio feedback
+
+            PHA
+            LDA   #' '        ; remove cursor
+            JSR   plotchr
+            PLA
+            LDX   x_save
+            LDY   y_save
+            JSR   chk_esc     ; check for escape
+            RTS
+
+*-------------------------------
+* get a line of input
+*-------------------------------
+
+inpln       ENT
+            LDY   #0          ; start at first byte
+:inpln1     JSR   rdkey       ; get data
+:inpln1a    CMP   #cr         ; return
+            BEQ   :inpln6
+            CMP   #bs         ; back space
+            BEQ   :inpln2
+            CMP   #can        ; ctrl-x / cancel
+            BEQ   :inpln2
+            CMP   #del        ; delete
+            BNE   :inpln3
+
+:inpln2     CPY   #0          ; can we back up?
+            BEQ   :inpln1     ; nope
+
+            PHA
+            JSR   prbs        ; backspace w/delete
+            DEY               ; decrease line count
+            PLA
+            CMP   #can        ; if its a cancel
+            BEQ   :inpln2     ; keep going
+            BNE   :inpln1
+
+:inpln3     CMP   #' '        ; if its a control char...
+            BCC   :inpln1
+
+            CPY   maxlen      ; check for max length
+            BNE   :inpln4
+            BRA   :inpln1
+
+:inpln4     BIT   inpmode     ; do we convert?
+            BPL   :inpln4a    ; nope
+
+            JSR   conv        ; convert to upper
+
+:inpln4a    BIT   inpmode     ; check the inpmode
+            BVC   :inpln5
+
+            CMP   #','        ; dont accept a comma
+            BEQ   :inpln1
+            CMP   #' '
+            BNE   :inpln5     ; dont accept a space
+            CPY   #0          ; for first char of the line
+            BEQ   :inpln1
+
+:inpln5     STA   lnbuf,Y     ; save char
+            INY
+            JSR   cout        ; print it
+            JMP   :inpln1     ; loop
+
+:inpln6     LDA   #cr
+            STA   lnbuf,Y     ; save the return
+            CPY   #0          ; was is just a return?
+            BNE   :inpln7     ; nope
+
+            LDA   inpmode     ; can we accept a blank line?
+            AND   #$20
+            BNE   :inpln7     ; yep
+
+            BRA   inpln       ; dont take, cr, start over
+
+:inpln7     LDA   inpmode     ; do cr?
+            AND   #$10
+            BNE   :inpln8     ; nope
+
+            LDA   #cr
+            JMP   cout        ; print the return AND exit
+
+:inpln8     RTS
+
+maxlen      ENT
+            DB    0
+inpmode     ENT
+            DB    %00000000
+
+*-------------------------------
+* input a number in the range [1-x] where x={1-99}
+*-------------------------------
+
+inpnum      ENT
+            STX   maxnum      ; save maximum number
+            LDA   #2
+            STA   maxlen      ; set length at 2
+            LDA   ch
+            STA   prnt+1      ; record currnt horiz offset
+            LDA   #%00010000
+            STA   inpmode     ; use input mode 0
+
+:inpnum2    JSR   inpln       ; get line
+            LDA   #0
+            STA   prnt        ; make number init to 0
+
+            LDA   lnbuf       ; get data
+            SEC
+            SBC   #'0'
+            CMP   #10         ; in range?
+            BCS   :inpnum5    ; nope, we are done
+
+            STA   prnt        ; update total
+
+            LDA   lnbuf+1     ; get more data
+            SEC
+            SBC   #'0'
+            CMP   #10         ; in range?
+            BCS   :inpnum5    ; nope
+
+:inpnum3    DEC   prnt        ; count down 10's
+            BMI   :inpnum4
+
+            CLC
+            ADC   #10         ; add 10 and loop
+            BCC   :inpnum3
+
+:inpnum4    STA   prnt        ; save new total
+:inpnum5    LDA   prnt
+            BEQ   :inpnum7    ; opps, problem
+
+            CMP   maxnum      ; is it in range?
+            BCC   :inpnum8
+            BEQ   :inpnum8    ; all is well!
+
+:inpnum7    LDA   ch
+            CMP   prnt+1      ; at original spot?
+            BEQ   :inpnum2    ; yep
+
+            JSR   prbs        ; backup
+            JMP   :inpnum7
+
+:inpnum8    RTS
+
+maxnum      DB    0
+
+*-------------------------------
+* print a backspace
+*-------------------------------
+
+prbs        ENT
+            LDA   #bs         ; do a backspace w/delete
+            JSR   cout
+            LDA   #' '
+            JSR   cout
+            LDA   #bs
+            JMP   cout
+
+*-------------------------------
+* input a 'y' or a 'n' for a yes/no situation
+*-------------------------------
+
+inpyn       ENT
+            LDA   #1          ; max length 1
+            STA   maxlen
+            LDA   ch          ; save horiz position
+            STA   temp+1
+            LDA   #%10010000
+            STA   inpmode
+
+:inpyn2     JSR   inpln       ; get the line
+            LDA   lnbuf
+            CMP   #'Y'        ; did they say 'YES' ?
+            CLC
+            BEQ   :inpyn3     ; yep
+
+            CMP   #'N'        ; did they say 'NO' ?
+            SEC
+            BEQ   :inpyn3     ; yep
+
+            LDA   ch
+            CMP   temp+1      ; are they the same?
+            BEQ   :inpyn2
+
+            JSR   prbs        ; backup
+            JMP   :inpyn2
+
+:inpyn3     RTS
+
+*-------------------------------
+* convert a character to uppercase
+*-------------------------------
+
+conv        ENT
+            AND   #$7F        ; strip high
+            CMP   #'a'        ; below 'a'?
+            BCC   :conv2      ; yep
+
+            CMP   #'z'+1      ; above 'z'?
+            BCS   :conv2      ; yep
+
+            SBC   #$1F        ; use clear carry for sbc $20
+:conv2      RTS
+
+*-------------------------------
+
+copyinp     ENT
+            STX   temp        ; point to dest
+            STA   temp+1
+            TYA
+            PHA               ; save ending byte
+
+            LDX   #0          ; start offsets
+            LDY   #0
+:copyin2    LDA   lnbuf,X     ; get byte
+            INX
+            CMP   #cr         ; we done?
+            BEQ   :copyin3    ; yep
+
+            STA   (temp),Y    ; copy and inc pointers
+            INC   temp
+            BNE   :copyin2
+            INC   temp+1
+            BNE   :copyin2
+
+:copyin3    PLA               ; get back ending byte
+            BEQ   :copyin4    ; opps, there wasnt one
+
+            STA   (temp),Y    ; save ending byte
+            INC   temp
+            BNE   :copyin4    ; inc pointers
+            INC   temp+1
+
+:copyin4    LDX   temp        ; return pointers
+            LDA   temp+1
+            RTS
+
+*-------------------------------
+* copy a line of input to some location uppercase
+*-------------------------------
+
+ucopyinp    ENT
+            STX   temp        ; point to dest
+            STA   temp+1
+            TYA
+            PHA               ; save ending byte
+
+            LDX   #0          ; start offsets
+            LDY   #0
+:ucopy2     LDA   lnbuf,X     ; get byte
+            INX
+            CMP   #cr         ; we done?
+            BEQ   :ucopy3     ; yep
+
+            JSR   conv        ; convert to uppercase
+            STA   (temp),Y    ; copy and inc pointers
+            INC   temp
+            BNE   :ucopy2
+            INC   temp+1
+            BNE   :ucopy2
+
+:ucopy3     PLA               ; get back ending byte
+            BEQ   :ucopy4     ; opps, there wasnt one
+
+            STA   (temp),Y    ; save ending byte
+            INC   temp
+            BNE   :ucopy4     ; inc pointers
+            INC   temp+1
+
+:ucopy4     LDX   temp        ; return pointers
+            LDA   temp+1
+            RTS
+
+*-------------------------------
+* print a string pointed by A & X
+*   if y<128, use length = y
+*   if y>127, stop at chr$(y)
+*-------------------------------
+
+prstr       ENT
+            STX   temp
+            STA   temp+1      ; point to data
+            STY   temp2
+            TYA
+            AND   #$7F        ; (was $7D ???)
+            STA   temp2+1     ; save possible length
+
+            LDY   #0
+:prstr2     LDA   (temp),Y    ; get data
+            AND   #$7F        ; clear high
+            INY
+
+            BIT   temp2       ; use which compare?
+            BPL   :prstr3     ; other one
+
+            CMP   temp2+1     ; are we done?
+            BEQ   :prstr4     ; yep
+
+            JSR   cout        ; show and loop
+            JMP   :prstr2
+
+:prstr3     CPY   temp2       ; done?
+            BEQ   :prstr4     ; yep
+
+            JSR   cout
+            BRA   :prstr2
+
+:prstr4     TYA
+            CLC
+            ADC   temp        ; compute next address
+            TAX
+            LDA   #0
+            ADC   temp+1
+            RTS
+
+*-------------------------------
+* get names from a list
+*-------------------------------
+
+getname     ENT
+            LDY   #0
+            LDA   (temp4),Y   ; we done?
+            SEC
+            BEQ   :getnam3
+
+:getnam2    LDA   (temp4),Y   ; copy name
+            STA   flname+1,Y
+            INY
+            CMP   #0
+            BNE   :getnam2
+
+            DEY
+            STY   flname      ; save length
+
+            TYA
+            SEC
+            ADC   temp4       ; update length
+            STA   temp4
+            LDA   temp4+1
+            ADC   #0
+            STA   temp4+1
+            CLC
+:getnam3    RTS
+
+*-------------------------------
+* translate a binary to text [0-99]
+*-------------------------------
+
+bindec8     ENT
+            LDY   #0          ; start 10's counter
+:bin8       CMP   #10
+            BCC   :bin8a      ; less than 10, were done
+
+            SBC   #10         ; minus 10
+            INY               ; add 1 to the 10's counter
+            BNE   :bin8       ; loop
+
+:bin8a      ADC   #'0'        ; make 1's into text
+            TAX               ; save
+            TYA
+            ADC   #'0'        ; make 10's into text
+            RTS               ; were done
+
+*-------------------------------
+* input a number [X-A point to text]
+*-------------------------------
+
+numin       ENT
+            STX   numptr      ; point to text
+            STA   numptr+1
+            LDA   #0
+            STA   num         ; zero totals
+            STA   num+1
+
+:numin2     LDY   #0
+            LDA   (numptr),Y  ; get digit
+            AND   #$7F        ; clear high
+            SEC
+            SBC   #'0'        ; make in 0-9 range
+            CMP   #'9'+1
+            BCS   :numin4     ; opps, we are done
+
+            INC   numptr      ; point to next byte
+            BNE   *+4
+            INC   numptr+1
+
+            STA   num+2       ; save digit
+            LDA   #0
+            STA   num+3
+
+            LDX   #10
+:numin3     CLC               ; num = num + num2
+            LDA   num
+            ADC   num+2
+            STA   num+2
+            LDA   num+1
+            ADC   num+3
+            STA   num+3
+            DEX
+            BNE   :numin3     ; num = num * 10
+
+            LDA   num+2       ; move result
+            STA   num
+            LDA   num+3
+            STA   num+1
+            JMP   :numin2     ; loop
+
+:numin4     LDX   num         ; return value
+            LDA   num+1
+            RTS
+
+*-------------------------------
+* display a decimal number [0 to 65535]
+*-------------------------------
+
+decmem      ENT
+            STX   num         ; save number
+            STA   num+1
+
+            LDA   #0
+            STA   num+2
+            STA   num+3
+            STA   num+5
+            STA   num+6
+
+            SED
+            LDY   #16         ; use decimal mode
+:decmem2    ASL   num
+            ROL   num+1
+            LDA   num+2
+            ADC   num+2       ; do actual 'woz' conversion
+            STA   num+2
+            LDA   num+3
+            ADC   num+3
+            STA   num+3
+            ROL   num+4
+            DEY               ; loop down
+            BNE   :decmem2
+
+            CLD               ; done with decimal
+            LDY   #4          ; print 5 digits
+
+:decmem3    LDA   num+4       ; get digit
+            AND   #$F
+            BNE   :decmem4    ; is it zero?
+
+            BIT   num+5       ; is this a leading zero?
+            BPL   :decmem5    ; yep
+
+:decmem4    DEC   num+5
+            CLC
+            ADC   #'0'        ; print digit
+            LDX   num+6
+            STA   txtnum+1,X  ; save number to memory
+            INC   num+6
+
+:decmem5    LDX   #3          ; move up next digit
+:decmem6    ASL   num+1
+            ROL   num+2
+            ROL   num+3
+            ROL   num+4
+            DEX
+            BPL   :decmem6
+
+            DEY               ; count down digits
+            BMI   :decmem7
+            BNE   :decmem3
+
+            STX   num+5       ; print last zero for sure
+            BPL   :decmem3
+:decmem7    LDA   num+6       ; save number length
+            STA   txtnum
+            RTS
+
+num         DS    7
+txtnum      DS    6
+
+*-------------------------------
+* escape handler
+*-------------------------------
+
+escape      ENT
+            STA   escadr      ; possible reset
+            CMP   #0          ; turn off handler?
+            BEQ   :esc2       ; yep
+
+            STX   escadr+1    ; save escape address
+            STA   escadr+2
+            TSX
+            STX   escadr+3    ; save stack location
+            LDA   #-1
+            STA   escadr      ; turn on handler
+:esc2       RTS
+
+; check for esc and handle if needed
+chk_esc     BIT   escadr      ; is handler enabled?
+            BPL   :esc3       ; nope
+
+            PHA
+            AND   #$7F        ; did escape occur?
+            CMP   #esc
+            BNE   :esc2       ; nope
+
+            LDA   escadr+1    ; setup jump location
+            STA   temp
+            LDA   escadr+2
+            STA   temp+1
+            LDX   escadr+3
+            TXS               ; reset stack
+            PLA
+            PLA               ; restore stack
+            JMP   (temp)      ; change program control
+
+:esc2       PLA
+:esc3       RTS
+
+escadr      DB    0,0,0,0
+
+*-------------------------------
+* print a number
+*-------------------------------
+
+prnumb      ENT
+            JSR   decmem      ; convert number
+            LDX   #<txtnum+1
+            LDA   #>txtnum+1
+            LDY   txtnum
+            INY               ; display it
+            JMP   prstr
+
+*-------------------------------
+* wait for a return
+*-------------------------------
+
+get_cr      ENT
+            JSR   print
+            DB    1,22,0
+            ASC   'Press [RETURN] to continue...'00
+
+wait_cr     JSR   rdkey
+            CMP   #cr
+            BNE   wait_cr
+            RTS
+
+*-------------------------------
+* wait for a 'g'o message
+*-------------------------------
+
+get_ok      ENT
+            JSR   print
+            DB    1,20,0
+            ASC   'Press [RETURN] when diskette is online.'00
+
+            BRA   wait_cr
+
diff --git a/Config/START.S b/Config/START.S
new file mode 100644
index 0000000..25cec04
--- /dev/null
+++ b/Config/START.S
@@ -0,0 +1,189 @@
+              LST   OFF
+              TR
+              TR    ADR
+********************************
+*                              *
+*    Config Program - Start    *
+*                              *
+********************************
+
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+              REL
+m_vers        =     '1'           ; make into ascii # (Main Version)
+s_vers        =     '0'           ; make into ascii # (Sub Version)
+p_vers        =     '5'           ; make into ascii # (Patch Version)
+
+entrmon       =     $FF59
+
+prn           =     $16           ; [4 bytes]
+
+reset         =     $3F2
+mli           =     $BF00
+
+              DSK   REL/START
+
+findcon       EXT
+VideoStartup  EXT
+cls           EXT
+print         EXT
+inpyn         EXT
+inpnum        EXT
+ld_drvs       EXT
+do_init       EXT
+drv_path      EXT
+refnum        EXT
+escape        EXT
+close         EXT
+logcon        EXT
+re_mdm        EXT
+re_pr         EXT
+re_clk        EXT
+do_dflts      EXT
+do_filt       EXT
+TopBox        EXT
+
+
+begin         ENT
+              STA   $C051         ;text mode
+              STA   $C00E         ;Turn MouseText off
+              BIT   $C082
+
+              LDA   #<do_quit     ;fudge reset vector
+              STA   reset
+              LDA   #>do_quit
+              STA   reset+1
+              EOR   #$A5
+              STA   reset+2
+
+              LDX   #$F0          ;reset stack
+              TXS
+
+              JSR   findcon       ;find the config disk, logit
+              JSR   VideoStartup  ; Init the video driver
+
+              JSR   do_main
+
+              JSR   cls           ; clear screen
+              JSR   print
+              DB    1,7,0
+              ASC   'When you do an initial configure, '
+              ASC   'all previous data will be destroyed'0D0D
+              ASC   'and replaced with the new configuration.  '
+              ASC   'All old data will be lost.'0D0D0D
+              ASC   'Do you want to do an Initial Configure? [Y/N] '00
+
+              JSR   inpyn         ; input yes/no
+              BCS   :no_init
+
+              JSR   ld_drvs       ; load in drivers file
+              JMP   do_init       ; do initial config
+
+*-------------------------------
+
+:no_init      JSR   drv_path      ; get drivers file path and load it
+
+start         ENT
+              LDA   #0            ; turn off escape handler
+              STA   refnum
+              JSR   escape
+              JSR   close         ; close all files
+              JSR   logcon
+
+              JSR   do_main
+
+              JSR   cls           ; clear screen
+              JSR   print
+              ASC   'Select an Option:'0D0D
+              ASC   '  1 - Reconfigure Modem              '0D
+              ASC   '  2 - Reconfigure Printer            '0D
+              ASC   '  3 - Reconfigure Clock'0D
+              ASC   '  4 - Edit System Defualts'0D
+              ASC   '  5 - Edit Profanity Filter'0D
+              ASC   '  6 - Quit',0D0D
+
+              ASC   'Which? [1-6] '00
+
+              LDX   #7            ; get a number [1-6]
+              JSR   inpnum
+
+              PHA
+              LDX   #<start
+              LDA   #>start
+              JSR   escape        ;esc goes back to here
+              PLA
+              ASL
+              TAX
+
+              LDA   jumptable,X
+              STA   prn
+              INX                 ;push low
+              LDA   jumptable,X
+              STA   prn+1
+              JMP   (prn)
+
+jumptable     DA    0
+              DA    re_mdm        ; 1
+              DA    re_pr         ; 2
+              DA    re_clk        ; 3
+              DA    do_dflts      ; 4
+              DA    do_filt       ; 5
+              DA    do_quit       ; 6
+              DA    do_mtr        ; 7 (hidden command)
+
+*-------------------------------
+* print the top box
+
+do_main       ENT
+              JSR   TopBox
+              JSR   print
+              DB    1,2,19
+              ASC   'LLUCE - Configuration Program - Ver. '
+              DB    m_vers        ; major version #
+              ASC   '.'
+              DB    s_vers        ; sub version #
+              DB    p_vers        ; patch version #
+              DB    0
+
+              JSR   print
+              DB    1,4,20
+              ASC   'Copyright 1989 - L&L Productions, Inc.'00
+              RTS
+
+*-------------------------------
+
+drvname       ENT
+              STR   'LLUCE.DRIVERS'
+
+*-------------------------------
+* Quit
+*-------------------------------
+
+; quit the program
+do_quit       ENT
+              JSR   $FC58         ; clear screen
+              STA   $C051         ; goto text mode
+
+              LDA   #$FF          ; reset inverse flag
+              STA   $32
+
+
+              JSR   mli
+              DB    $65           ; quit
+              DA    p_quit
+              RTS
+
+
+p_quit        DB    4
+              DB    0
+              DA    0
+              DB    0
+              DA    0
+
+do_mtr        LDA   #-1
+              STA   $32
+
+              JMP   entrmon       ; monitor
+
diff --git a/Config/VIDEO.S b/Config/VIDEO.S
new file mode 100644
index 0000000..b5c1e83
--- /dev/null
+++ b/Config/VIDEO.S
@@ -0,0 +1,289 @@
+              LST   OFF
+              TR
+              TR    ADR
+*-------------------------------
+* video driver for config
+*-------------------------------
+* Date: 3/11/88
+*-------------------------------
+
+              REL
+cr            =     $D
+lf            =     $A
+bs            =     8
+
+x_save        =     9
+y_save        =     $A
+base          =     $D
+inverse       =     $10
+ch            =     $24
+cv            =     $25
+
+page1         =     $C054
+page2         =     $C055
+
+              DSK   REL/VIDEO
+
+VideoStartup  ENT
+              STA   $C00D          ;set80vid
+              STA   $C001          ;set80col
+              STA   page1
+
+              LDA   #0             ; set to page 1
+              STA   inverse        ; set to normal mode
+              RTS
+
+*-------------------------------
+
+cls           ENT
+              LDA   #6             ;clear screen
+              STA   cv             ;line 6 on down
+
+clslup2       LDA   cv             ;clear to end of screen
+              ASL                  ;cv := cv * 2
+              TAY
+              LDA   LineAddress,y
+              STA   base
+              INY
+              LDA   LineAddress,y
+              STA   base+1
+
+              LDY   #39
+              LDA   #" "
+:loop         STA   (base),y
+              DEY
+              BPL   :loop
+
+              STA   page2          ;do aux part
+              LDY   #39
+:loop2        STA   (base),y       ;do the line
+              DEY
+              BPL   :loop2
+              STA   page1          ;back to page 1
+
+              INC   cv
+              LDA   cv
+              CMP   #24
+              BNE   clslup2
+
+              LDA   #0             ;0,6
+              STA   ch
+              LDA   #7
+              STA   cv
+              RTS
+
+*-------------------------------
+
+cleos         ENT
+              STX   cv
+              JMP   clslup2
+
+cleol         ENT
+              PHA
+              LDA   ch             ; save location of cursor
+              PHA
+              LDA   cv
+              PHA
+
+:cleol2       LDA   #' '
+              JSR   cout           ; put space over char
+              LDA   ch
+              BNE   :cleol2        ; go until it wraps to next line
+
+              PLA
+              STA   cv             ; put cursor back
+              PLA
+              STA   ch
+              PLA
+              RTS
+
+*-------------------------------
+
+TopBox        ENT
+              PHA
+
+              LDA   #0
+              STA   cv
+
+              JSR   doILine
+              INC   cv
+              JSR   doEdge
+              INC   cv
+              JSR   doEdge
+              INC   cv
+              JSR   doEdge
+              INC   cv
+              JSR   doEdge
+              INC   cv
+              JSR   doILine
+
+              STA   page2
+              LDY   #0
+              LDA   #' '
+              STA   (base),y
+              STA   page1
+
+              LDY   #39
+              LDA   #' '
+              STA   (base),y
+
+              PLA
+              RTS
+
+*-------------------------------
+
+doEdge        JSR   makebase
+
+              LDY   #39
+              LDA   #" "
+:loop         STA   (base),y
+              DEY
+              BPL   :loop
+
+              STA   page2
+              LDY   #39
+:loop2        STA   (base),y
+              DEY
+              BPL   :loop2
+
+              LDY   #0
+              LDA   #' '
+              STA   (base),y
+              STA   page1
+
+              LDY   #39
+              LDA   #' '
+              STA   (base),y
+              RTS
+
+*-------------------------------
+* print an inverse line across the screen
+
+doILine       JSR   makebase
+
+              LDY   #39
+              LDA   #"_"
+:loop         STA   (base),y
+              DEY
+              BPL   :loop
+
+              STA   page2
+              LDY   #39
+:loop2        STA   (base),y
+              DEY
+              BPL   :loop2
+              RTS
+
+*-------------------------------
+
+makebase      LDA   cv
+              ASL
+              TAY                  ;setup indirect address
+              LDA   LineAddress,y
+              STA   base
+              INY
+              LDA   LineAddress,y
+              STA   base+1
+              RTS
+
+*-------------------------------
+
+plotchr       ENT
+              PHA                  ; save
+
+              JSR   makebase       ;setup indirect for screen address
+
+              LDA   ch
+              LSR
+              TAY
+              BCS   :odd           ;it's odd, so page 1
+              STA   page2
+
+:odd          PLA
+              ORA   #$80           ;set high bit
+              STA   (base),y       ;put it onto the screen
+              STA   page1
+              RTS
+
+*-------------------------------
+* output a character
+
+cout          ENT
+              STX   x_save         ; save everything
+              STY   y_save
+              PHA
+
+              AND   #$7F           ; clear high
+              CMP   #cr
+              BEQ   :cout2
+              CMP   #lf
+              BEQ   :cout3
+              CMP   #bs
+              BEQ   :cout5
+              CMP   #' '
+              BCC   :cout4
+
+              JSR   plotchr        ; plot the sucker
+
+              INC   ch             ; move over 1 space
+              LDY   ch
+              CPY   #80            ; wrap-around?
+              BNE   :cout4         ; nope
+
+:cout2        LDY   #0             ; reset horiz
+              STY   ch
+
+:cout3        INC   cv             ; go down 1 line
+              LDA   cv             ; is it in range?
+              CMP   #24
+              BNE   :cout4         ; nope
+
+              DEC   cv             ; put it back
+
+:cout4        PLA
+              LDX   x_save         ; restore stuff
+              LDY   y_save
+              RTS
+
+:cout5        DEC   ch             ; backup
+              BPL   :cout4         ; all is well
+
+              LDA   #79            ; move to end of line
+              STA   ch
+
+              LDA   cv             ; are we at the top
+              CMP   #0
+              BEQ   :cout4         ; yep
+
+              DEC   cv
+              JMP   :cout4         ; ok, we are done
+
+*-------------------------------
+
+LineAddress   DA    $400
+              DA    $480
+              DA    $500
+              DA    $580
+              DA    $600           ;first 1/3 of text screen
+              DA    $680
+              DA    $700
+              DA    $780
+
+              DA    $428
+              DA    $4A8
+              DA    $528
+              DA    $5A8
+              DA    $628           ;second 1/3 of text screen
+              DA    $6A8
+              DA    $728
+              DA    $7A8
+
+              DA    $450
+              DA    $4D0
+              DA    $550
+              DA    $5D0
+              DA    $650           ;last 1/3 of text screen
+              DA    $6D0
+              DA    $750
+              DA    $7D0
+
diff --git a/DOCS/LLUCE.REF b/DOCS/LLUCE.REF
new file mode 100644
index 0000000..df3ac4d
--- /dev/null
+++ b/DOCS/LLUCE.REF
@@ -0,0 +1,1801 @@
+
+                           LLUCE Reference Manual
+
+
+
+                        First Edition (January 1993)
+
+                       Copyright 1993 L&L Productions
+
+
+
+
+                             GENERAL INFORMATION
+
+Welcome to the world of LLUCE.  The following document was written to introduce you to LLUCE and to help you learn to write your own programs or modify others written in LLUCE.
+
+LLUCE is a full-featured language just like BASIC, PASCAL, FORTRAN, or any other language.  It resembles BASIC more than any other language due to the fact that almost everyone involved with computers is familiar with BASIC.  Since the goal was to make LLUCE as easy to use as possible, it was modeled after BASIC.
+
+This package contains a proprietary LLUCE compiler which you will be using.  Unlike many interpreted BASICs which have their editor built in, LLUCE requires the use of some form of text editor for you to manipulate your source files.  All LLUCE source files are stored as text, so any editor that can modify standard text files can be used.
+
+
+                              WRITING A PROGRAM
+
+The first thing you need to do is start your text editor/word processor you plan on using to write your code.  Once you are ready, enter the following program:
+
+     LOOP
+      PRINT "THIS IS A LLUCE PROGRAM"
+      PRINT "I HOPE IT WORKS!"
+      GOTO LOOP
+
+The important points to note are these: LLUCE is not based around line numbers as is the BASIC language.  It is free-form like PASCAL or Assembly Language.  It uses labels as markers for groups of code instead of line numbers that marks the beginning of a line of code when the requirement arises to identify specific point within the program.  Since your labels can have descriptive names to begin a section of code, it makes it easier to see what this code does.  Also, you can add extra blank lines at the top and bottom of a group of code to identify it more clearly.  If you add comments within your code, it helps you remember what you were trying to do in that section.
+
+There are a few rules that must be followed in order for LLUCE to process your code.  LABELS must ALWAYS begin at column 0 at the left side of the screen.  The rest of the code always begins in column one.  The only exception to this is the use of quotes (') to identify text.  When you open a quote at the start of a print statement, all following text will be printed to the screen until another quote in encountered.  This includes normal text, any control characters and blanks lines.
+
+Once your have typed in this test program, save it to your disk under the name "TEST.S".  You must ALWAYS add an ".S" to the end of any source file for LLUCE so that LLUCE knows it is a "source" file.  Then exit from your editor back into your program selector.
+
+LLUCE follows Apple standards for system files, so program selectors such as ProSel and ECP can insert start-up filenames for LLUCE to use.
+
+With ECP, execute the LLUCE system with the command:  LLUCE.SYSTEM TEST
+
+The screen will clear and you will get a "One moment, compiling segment." message.  This means that the compiler is in the first pass of its two pass compile.  After a short wait, an extra two dots '..' will appear.  This indicates that the compiler is in its second pass.  This generally is very fast.  Once the second phase is complete and has created a new file, (which in this case is called "TEST.C") The message will be cleared and the program executed.
+
+The following will be displayed:
+
+     THIS IS A LLUCE PROGRAM
+     I HOPE IT WORKS!
+     THIS IS A LLUCE PROGRAM
+     I HOPE IT WORKS!
+     THIS IS A LLUCE PROGRAM
+     I HOPE IT WORKS!
+     etc...
+
+The two lines will be repeated over and over until you stop the program via the RESET key or Open Apple-L.  Let's see how this program works.
+
+The first thing that happens is that the LLUCE interpreter looks at the first line of code for a label that begins at the very leftmost column of the screen.  This tells LLUCE that the first line is actually a LABEL.  A LABEL is a reference point in a program to a section of code.  A LABEL has no effect when the program flow passes through it, but it directs the operation from the line executing from one section of code to the beginning of the section where the LABEL is.
+
+Execution then passes to the next line as the first has no actual effect.  LLUCE looks and sees that the second line does NOT start at the leftmost column but starts at column 1.  This tells LLUCE that the data on the line is the actual program code.  LLUCE then looks at the first word (which in this case was PRINT).  LLUCE then goes into its internal PRINT routine as you asked.
+
+Once within the PRINT routine, special rules take over that govern the PRINT statement.  Summing up, PRINT will display to the console whatever text or data is between the " " marks.  In this case, it printed "THIS IS A LLUCE PROGRAM".  This data was placed within quotes to show that it was text.  Once the end of the line was encountered, execution passed to the next line.
+
+The next line was another PRINT statement which was displayed: "I HOPE THIS WORKS!".  This is the same text that you typed in when you wrote the short program.  It works in the same way as the first PRINT statement.  This is the simplest form of the PRINT statement.  Its function is by no means limited to this basic form since there are many other variations that can be used.
+
+The last line of the program contained another statement to be executed by virtue that it was indented 1 space.  This time, the STATEMENT or COMMAND was GOTO.  This statement does what is called FLOW CONTROL.  This is the process by which the point of execution of the program is changed from the last line executed to a new line.
+
+When the GOTO routine is executed, it searches for the name of the LABEL and when it finds the LABEL it executes the next line of code.  In this case, the label was LOOP.  LLUCE then looks through the program to find a label called LOOP.  As it happens, that label is on the first line of the program, though it could have been in any line.  The program execution point is then moved to the label LOOP which happens to be at the beginning of the program.  Thus, the text is printed again and again.  This situation is called an INFINITE LOOP.  That is, the loop will never stop (unless you stop it via RESET or some such means).
+
+After you hit [RESET], you will be faced with a group of choices labeled "***RESTART: S,M,Q ?".  By pressing "S" you will restart the original startup program you told LLUCE to execute.  By pressing "M" you will restart the program in memory.  In this case, they are the same, but programs can chain to other programs so that the original one is different from the program now in memory.  This is helpful for debugging so you can re-start that program in memory without starting with the original program first.  By pressing "Q", you will quit LLUCE and return to ProDOS via the quit code.
+
+At this point, you have successfully written, compiled, and executed an LLUCE program.  Though this was a simple example, the steps are the same for advanced programs.  The following is a summary of the steps involved in writing an LLUCE program:
+
+1) Enter some form of word or text processor that can accommodate standard
+   text files.
+
+2) Type in your LLUCE program.  All labels start at column 0 while all actual
+   code starts at column 1.
+
+3) Save the program to disk adding a ".S" suffix onto your filename (ex:
+   TEST.S) so that LLUCE can identify it as an LLUCE source file.
+
+4) Execute LLUCE from ProDOS via whatever commands are needed.
+
+5) The compiler will then compile and execute your program.  If you execute
+   the program again without changing the source code, the compiler will NOT
+   re-compile, it will just run the old compiled code.
+
+The following section contains information on all the data formats, variable types, and disk access methods that can be used with LLUCE.  A working knowledge of BASIC is recommended to help you along.  If you don't know any other language, try and use the examples as much as possible.  They will be the best teacher.  Also, try modifying existing code.  This is another easy way to learn.
+
+                             PROGRAM STRUCTURE
+
+Under LLUCE, the structure of a program is very "free-form".  That is, the compiler is very tolerant of different styles of programming.  You are allowed to add blank lines and comments anywhere in your code for ease of reading.  Any line within an LLUCE source program must be in one of the following formats:
+
+Blank Line: If the line is blank, this line will be skipped by the compiler.  Blank lines are a good way to separate blocks of your code apart from other blocks for ease of reading.
+
+Comment Line: By placing a semi-colon (;) as the first character of the line in column 0, all data until the end of the line will be ignored.  In this way, you can enter comments so that when you come back to work on a program, you will have some idea of what you were trying to accomplish.
+
+Block Comment: By placing an open brace ({) anywhere in a non block text line, all data until a close brace (}) will be ignored.  This allows comments to be inserted anywhere in your code.
+
+Label Line: By entering just a keyword of your choice starting at column 0 of the line, you can enter a label.  The first character of a label must be alphabetic.  The rest of the label can consist of alphanumeric characters.  The first 8 characters of the label are significant.  That is, the labels TEST and TEST2 are considered different labels by LLUCE while SHOWFILE2 and SHOWFILE8 would appear the same to LLUCE since the first 8 characters are the same.
+
+Statement Line: A statement line is always indented 1 space from the left side.  That is, it starts at column 1, not column 0 like the previous line types.  Statements are just entered on the line in the order you want them executed.  If you wish to put multiple statements on a line, separate the statements with a colon (:).  Statements may be typed in either upper, lower or mixed case.
+
+
+                            SPECIAL CHARACTERS
+
+There are several special characters that LLUCE recognizes within your program code and uses them for different purposes.  The following list shows characters that have special meanings to LLUCE.  Any character, including those below, can be displayed by the program without problem, they just have special meanings when encountered outside the PRINT statement.
+
+Character Meaning
+
+          space or blank
+     =    equal sign used for assignment statements
+     +    plus sign used for adding strings and variables
+     -    minus sign used for subtraction
+     *    asterisk multiply sign used for multiplication
+     /    slash used for division
+     (    open parenthesis used to begin a function
+     )    close parenthesis used to end a function
+     $    dollar sign used to indicate a string function
+     ,    comma used as a data separator
+     ;    semi-colon used for text formatting and comments
+     :    colon used as a statement separator
+     "    double quote for string delimiter
+     '    apostrophe delimiter for block text formatting
+     \    back-slash or newline character
+     <    less than - used with IF
+     >    greater than - used with IF
+     {    open brace - start comment character
+     }    close brace - end comment character
+     _    underscore - line continuation character
+
+
+                              RESERVED WORDS
+
+Under LLUCE, certain reserved words have predefined meanings.  These words all correspond to LLUCE statements, functions and operands.  When encountered, they will be executed as an LLUCE command.  They may NOT be used for variable names, but they can be used as labels.
+
+It is always best if you separate reserved words from data, or each other, by use of a space or a colon or whatever special characters the particular command syntax allows.  A key factor in writing a good program is making sure you can understand what you wrote.  For example, PRINT A$;B$,C PEEK(27):HOME uses a (;), a (,), a () space, and a (:) between data.
+
+The following is a list of reserved words:
+
+ABS       ADDINT    AND       ANSI      APPEND    ASC       BAUD      BYTE
+CALL      CHAIN     CHR$      CLEAR     CLOCK     CLOSE     CLS       COPY
+CREATE    CRUNCH    DATE$     DISK      ECHO      EDIT      ELSE      END
+EOF       ERR       EXEC      ERROR     EXIST     EXIT      FILL      FLAG
+FLASH     FLUSH     FMTDATE$  FMTWHEN$  FOR       FREE      GET       GOSUB
+GOTO      GOTOXY    HOME      IF        INPUT     INSTR     INVERSE   KEY
+KILL      LEADIN    LEFT$     LEN       LOCK      LOWER$    LTRIM$    MARK
+MID$      MIXED$    MOD       MODE      MODEM     MOUSE     MOVE      MSG
+NAME      NEXT      NIBBLE    NOCAR     NODE      NORMAL    NOT       NULLS
+OFF       OFFSET    ON        ONLINE    OPEN      OR        OVERLAY   PDL
+PEEK      POKE      POP       POSITION  PREFIX    PRINT     PUBLIC    PUSH
+RAM       RANDOM    READ      READY     RECALL    RESUME    RETURN    REWIND
+RIGHT$    RND$      RTRIM$    SET       SETINT    SIZE      STEP      STORE
+STR$      TERMINAL  THEN      TIME$     TIME12$   TO        TONE      TYPE
+UNLOCK    UPPER$    VAL       WHEN$     WIDTH     WINDOW    WORD      WRITE
+XOR
+
+
+                                 VARIABLES
+
+One of the most powerful parts of any language is the use of VARIABLES.  LLUCE contains two basic variable types.  The common ways of using them are listed below:
+
+Numeric Variables: Under LLUCE, numeric variables are just integers.  Floating point numbers are not supported.  LLUCE is not a good language if your application demands heavy math support.  The integers are in the range -8388608 to +8388607.  Numbers outside this range will either "wrap-around" or give an OVERFLOW ERROR.  Numeric variables are represented as names of your choice.  They must start with an alphabetical character, but can contain any alphanumeric characters that you desire.  For instance, ABC, Z7, AS76D are all legal numeric variables.
+
+String Variables: Under LLUCE, string variables are the same as they are under most BASICs.  They can be between 0 and 255 characters in length.  They can accept any type of characters (control, upper case, lower case, numeric, etc.), and can be manipulated in a number of ways.  String variables must start with an alphabetical character, and can contain any alphanumeric character as can a numeric variable.  However, the variable name must be terminated by a dollar sign.  For example, ZQ$, A7$, FIRSTNAME$ are all legal string variables.
+
+Unlike many BASICs, LLUCE does NOT support arrays.  Due to speed and memory considerations, array support is impractical.  Fortunately, LLUCE has been engineered to handle large groups of data that will out-perform most normal array systems.
+
+Under LLUCE, variable names can be of any length, though only the first four characters are used within LLUCE for identification.  For example, you can use the variable USERNUM throughout your program without a problem.  Internally though, LLUCE only looks at it as USER.  As a result, if you have a second variable named USERLEVEL, internally, it will be the same as USERNUM.  Thus the two variables will be the same as far as LLUCE is concerned.  The ability to use variable names greater than 4 characters is only for your reading convenience.
+
+You can assign a variable a value the same way you do in any BASIC.  You can use: LET USERLEVEL=1 to set the variable USER to a value of 1.  As a shortcut, you can just say USER=1, and LLUCE will figure out what you mean.  The LET is an optional operator.  When assigning a string variable to an absolute value, the string to be assigned must be enclosed in quotes and must be no more than 255 characters in length.  OURNAME$ = "L&L PRODUCTIONS" is a legal string assignment.
+
+
+                           ARITHMETIC OPERATORS
+
+There are several standard arithmetic operators that can be applied to numeric and string variables.  Though they are somewhat limited in nature under LLUCE, most common functions can be accommodated.
+
+Addition: A=B+C or A=B+5 or A=3+7 are all legal operators.  Whenever a number is needed for whatever purpose, an equation may be substituted within its place.  A$=B$+C$ or A$=B$+"HMMM" or A$="THIS IS "+"A TEST" are all legal string addition commands.  Under string addition, the contents of the second string are appended onto the contents of the first.
+
+Subtraction: A=B-C or A=B-5 or A=3-7 are all legal operators.  It is very similar to using the addition operator.  There is no string subtraction operator.
+
+Multiplication: A=B*C or A=B*5 or A=3*7 are all legal operators.  If you combine multiplication/division operands with addition/subtraction operands, the multiplication/division will be executed first.  Ex: 4+5*3 = 19 (not 27).
+
+Division: A=B/C or A=B/5 or A=3/7 are all legal operators.  Since LLUCE is an integer based language, when using division operands the results are rounded to the nearest integer and remainders are thrown away.  Thus, 10/2=5, 10/3=3, 10/7=1, 10/11=0.
+
+Modulo: A=B MOD C or A=B MOD 5 or A=3 MOD 7 are all legal operators.  The MOD operand is a subfunction of division.  Instead of returning the quotient (as with division), the remainder is returned.  Thus, 10 MOD 2=0, 10 MOD 3=1, 10 MOD 7=3.
+
+Grouping: By using the parenthesis, you can create complex equations and control the method of expression evaluation.  Arguments within a set of parenthesis are always executed first.  You may also nest several levels of parentheses if needed.  Thus, ((3+4)*5)/(3+4) is evaluated in the following steps:
+
+     Step 1.  (7*5)/(3+4)
+     Step 2.  35/(3+4)
+     Step 3.  35/7
+     Step 4.  The result is 5.
+
+
+                           RELATIONAL OPERATORS
+
+Relational operators are used to compare two values and return a true/false result.  Strings may be compared with other strings but not to numbers.  The same is true for numbers.  A "TRUE" result is returned as the value 1 while a "FALSE" result is returned as the value 0.  The following are the legal relational operators.
+
+Operator  Relation                 Example
+
+=         Equality                 X=Y
+<>        Inequality               X<>Y
+<         Less Than                X<Y
+>         Greater Than             X>Y
+<=        Less Then or Equal To    X<=Y
+=>        Greater Than or Equal To X=>Y
+
+Examples: (1=0) with the result of false or (0), (1=1) with the result of true or (1), (5<4) with the result of false or (0), (5>4) with the result of true or (1), (7<7) with the result of false or (0), (7=>7) with the result of true or (1).
+
+You may always substitute more complex variables in place of simple variables.  You can replace ((X) > (Y)) with a more complex expression like ((4+5*6)>(3/4+12)) or expressions that are even more complex.  If you do have a complex expression on a side, you should put parenthesis around it to separate it from the relational operator so it is processed as one side.
+
+When used in conjunction with the IF statement, you have one of the most powerful statements within LLUCE.  When used with the IF statement, you have a conditional-branch, the single most important program execution statement.
+
+
+                             LOGICAL OPERATORS
+
+Logical operators perform simple logic operations on numeric values.  They can be used to increase the power of the IF statement by allowing more conditions to be evaluated.  Under their simplest form, logical operators work with true (1) and false (0) values.  The following truth tables show the results of all the possible logical operators in action.
+
+  Z = NOT X    Z = X AND Y    Z = X OR Y
+
+     X    Z    X    Y    Z    X    Y    Z
+    --------  -------------  -------------
+     1    0    1    1    1    1    1    1
+     0    1    1    0    0    1    0    1
+               0    1    0    0    1    1
+               0    0    0    0    0    0
+
+The following examples show the IF statement being used with the relational and logical operators:
+
+     IF (X=5) AND (Y=9) GOTO label
+
+     IF (NAME$="SAM") AND (UN=1) GOTO label
+
+     IF NOT ((A=3) OR (B=4)) GOTO label
+
+Again it is important to use parenthesis when complex equations are being evaluated so that LLUCE can understand the order the operand is processed.  Since execution order is normally sequential, without grouping, LLUCE will be on its own to decide what order you wanted to do things.  Many times it will guess correctly, but occasionally, it will guess wrong.  Using grouping is an easy way to avoid this problem.
+
+
+                             PRINT STATEMENTS
+
+The two most frequently used and versatile statements are PRINT and INPUT.  These are the basic means by which you input data into variables and print the data out to the screen.  Due to the frequency of use, a basic understanding of these two statements is very important.
+
+The PRINT statement has the function of taking data and displaying it on the console/modem.  There are many options in PRINT that can be used.  The basic form of print is PRINT [expression].  In the simplest form you can use PRINT [any absolute data].  This would include numbers (PRINT 563) or text within quotes (PRINT "HELLO").  To include multiple arguments, you need not even separate them, though a space or semi-colon between them makes it easier to read.  PRINT "THE VALUE 4+5=";9.
+
+Of course, in place of absolute data, you can have statements, equations, and variables.  For example the above print statement could be redone as: PRINT "THE VALUE 4+5=";4+5.  If you wish to print a function, enclose the function within the print statement.  For example, PRINT PEEK(456) would display the contents of memory location 456.
+
+To print a variable just include the name of the variable in the PRINT statement.  PRINT NAME$ would print the contents of NAME$ on the screen.  To combine multiple statements, just use the semicolon or a space.  PRINT NAME$;UN;PEEK(456);4+5 would display all the above data.
+
+There are several special characters that can be used with the PRINT statement to format the data.  If you use a comma instead of a semicolon, the comma will be displayed.  There is also a print-at character (@) that can be used.  PRINT @5,0;"HELLO" will display the word HELLO at horizontal location line 5, vertical location column 0.
+
+Certain reserved words can also be used in PRINT statements.  These are used for screen control for those who have terminal programs that accept screen control characters.  The following reserved words are available for use in PRINT statements.
+
+CLS       GOTOXY    HOME      INVERSE   MOUSE     NORMAL    TONE
+
+
+                             INPUT STATEMENTS
+
+The INPUT statement is used to enter data in variables from the console/modem by the user.  It also has a quick directive so the text can be displayed (like a PRINT statement) before the data is entered.
+
+In its simplest form, INPUT is used to enter either a string or numeric variable from the console/modem.  INPUT NAME$ would wait for the user to enter a string from the keyboard.  That string would then be put into NAME$.
+
+To enter multiple variables separate the variable names with either the comma or the back-slash character.  When you separate variables with a comma, the input must correspond to the number of commas used in the input.  For example, INPUT A,B,C would wait for three numbers to be entered.  Typing 1,2,3 would enter 1 for A, 2 for B, and 3 for C.
+
+If you enter a back-slash between variables, then each value must be on a separate line.  This avoids having to do multiple INPUT statements all in a row.  Thus, INPUT A$\B$, would enter two lines worth of data into the two strings.
+
+To display a prompt (like a PRINT statement) in advance of the input, you can put any text within quotes.  For example, INPUT "NAME ->";NAME$ would display the prompt NAME -> and would then wait for your input.  Of course, you can also use multiple variables with the prompt as above.
+
+
+                                 DISK ACCESS
+
+Under LLUCE, accessing files is by standard ProDOS pathname syntax.
+
+To change volumes within LLUCE, you can use the PREFIX command.
+
+
+                                 DISK FILES
+
+The last part of this introduction deals with using disk files.  This is one of the most important and powerful features of LLUCE.  You can OPEN a file, manipulate the data within, and then CLOSE the file.  If you wish to use a new file, the CREATE statement can be used.  If you wish to remove an old file, the DELETE statement can be used.  The following is a list of disk commands:
+
+APPEND    CLOSE     COPY      CREATE    FLUSH     INPUT     KILL
+MARK      OPEN      POSITION  PREFIX    PRINT     READ      WRITE
+
+The first thing to do is open the file.  You use the "OPEN #channel,filename" statement.  There are 3 disk channels that may be used.  The three channels are 1, 2 and 3.  Only one file per disk channel may be open at a time.  Thus, there is a maximum of three files open at any one time.  The filename format differs from operating system to operating system.  Ex: OPEN #1,"USERS" would open the file USERS on disk channel 1.
+
+Once you have opened a disk file, all further access is done with reference to the disk channel of the file you opened.  At this point, the following commands can be used to access the file.
+
+APPEND #channel - This will set the file so that all new data written to the file will be appended onto the end of the file.
+
+INPUT #channel, expression - This is just like the normal INPUT statement except that input will be taken from the open disk file instead of the console/modem.
+
+MARK (channel) = current byte location within file - With the MARK statement, you can select the actual byte number from the beginning of the file.  This is generally not used.
+
+current location within file = MARK (channel) - In this form, the MARK function will return the current pointer location within a disk file.
+
+POSITION #channel,record size, record number, offset - The POSITION statement is used in conjunction with random access files.  If you wanted to use a file as random access with records of 128 bytes, you can use: POSITION #1,128,record number.  The offset argument is optional and defaults to zero if not used.
+
+PRINT #channel, expression - The PRINT statement can be used in the normal way except that the output will be directed to the disk file instead of the console/modem.
+
+READ #channel, memory location, number of bytes to read - This is a direct disk to memory transfer method.  A maximum of 255 bytes can be read at a time.
+
+WRITE #channel, memory location, number of bytes to write - This is a direct memory to disk transfer method.  A maximum of 255 bytes can be written at a time.
+
+After you are finished with the file you are using, you must issue a CLOSE command to tell LLUCE you are finished with the file.  If you add a device number (#1) after the CLOSE statement, only that channel will be closed.  If you just issue a CLOSE without an argument, all open files will be closed.  If you are only using one file at a time, it is generally a good practice to issue just a CLOSE command with no channel number.
+
+FLUSH does the same thing as CLOSE without releasing the file.  This command is used mainly to make sure all data written to a file actually gets written to the disk.
+
+
+                     LLUCE COMPILER RELEASE 1.0 SPECS
+
+Hardware Required:       Apple II series
+Memory Required:         128k
+Operating System:        ProDOS
+Hardware Supported:      PRINTER, MODEM, CLOCK
+
+Total Program Space:     20k
+Total Variable Space:    20k - program space
+Internal Editor Space:   4k
+
+Disk Channels:           3 (+1 for message base use)
+
+Ram Drive:               256 bytes
+
+Scratch Ram:             4, 256 byte pages
+
+
+                               ERROR NUMBERS
+
+1.   *    syntax
+2.        end of program
+3.   *    missing symbol
+4.   *    missing data
+5.   *    type mismatch
+6.   *    string overflow
+7.   *    numeric overflow
+8.   *    division by zero
+9.   *    bad device number
+10.  *    illegal filename
+11.       link label not found
+12.  *    message file not found
+13.  *    unable to load overlay
+14.  *    prefix not found
+15.       module not found
+16.  *    disk write
+17.       label not found
+18.       symbol table full
+19.       undefined label
+20.       unclosed quote at EOF
+21.  *    GOSUB stack full
+22.  *    RETURN without GOSUB
+23.  *    FOR stack full
+24.  *    NEXT without FOR
+25.       RESUME without error
+26.       Incompatible Compiler Version
+27        SYSOP call termination
+>27. *    user defined
+
+*    This error can be trapped by ON ERROR GOTO, all others are fatal errors
+
+
+                              ERROR MESSAGES
+
+1.   SYNTAX ERROR:
+
+     Missing parenthesis in a line, misspelling of a keyword, misuse of punctuation, etc.
+
+2.   END OF PROGRAM:
+
+     An END statement has been encountered, or LLUCE has reached the end of a program.
+
+3.   MISSING SYMBOL:
+
+     There was no label following a GOTO, GOSUB, or a PUSH.
+
+4.   MISSING DATA:
+
+     Occurs when a program statement has no valid argument.  For example, X=clock() is missing data because there is no valid number between the parenthesis.
+
+5.   TYPE MISMATCH:
+
+     A string variable was used when a numeric variable was required.  A numeric variable was used when a string variable was required.  A string variable was compared to a numeric variable.
+
+6.   STRING OVERFLOW:
+
+     An attempt was made to create a string larger then 255 characters.
+
+7.   NUMERIC OVERFLOW:
+
+     LLUCE cannot handle numbers < -8388608 or > 8388607
+
+8.   DIVISION BY ZERO:
+
+     Dividing by zero is always an error.
+
+9.   BAD DEVICE NUMBER:
+
+     A device was accessed that was not OPEN or READY; or the device does not exist.
+
+10.  ILLEGAL FILENAME:
+
+     The syntax of the filename is illegal or an attempt is made to use a disk channel that is already OPEN.
+
+11.  LINK LABEL NOT FOUND:
+
+     An attempt to LINK into a segment at a label that is either not public or does not exist.
+
+12.  MESSAGE FILE NOT FOUND:
+
+     The message file that was accessed with the READY statement does not exist.
+
+13.  UNABLE TO LOAD OVERLAY:
+
+     LLUCE was unable to find an external module.
+
+14.  PREFIX NOT FOUND:
+
+     An attempt was made to access a drive or pathname that does not exist.
+
+15.  MODULE NOT FOUND:
+
+     LLUCE was unable to locate the starting program module.  By default, this file is named "PROGRAM/LOGON.SEG", but may be changed via the LLUCE loader program
+
+16.  DISK WRITE ERROR:
+
+     An error occurred while writing to disk.  Possibly the disk is full
+
+17.  LABEL NOT FOUND:
+
+     The LLUCE compiler could not find a label that was referenced in the program.
+
+18.  SYMBOL TABLE FULL:
+
+     There are too many labels in the symbol table.  LLUCE will only allow a maximum of 255 labels per segment.
+
+19.  UNDEFINED LABEL:
+
+     This occurs when a segment is being executed and reference is made to a label that cannot be found.
+
+20.  UNCLOSED QUOTE AT EOF:
+
+     At the end of compiling the program, a quote (') was still open.  This indicates that some string statement was started, but not finished.
+
+21.  GOSUB STACK FULL:
+
+     LLUCE will not allow you to nest more then 16 GOSUB statements.
+
+22.  RETURN WITHOUT GOSUB:
+
+     A RETURN or POP statement was encountered without a corresponding GOSUB or PUSH being executed.
+
+23:  FOR STACK FULL:
+
+     LLUCE will not allow you to nest more then 16 FOR statements.
+
+24:  NEXT WITHOUT FOR:
+
+     A NEXT statement was encountered without a corresponding FOR statement being executed.
+
+25:  RESUME WITHOUT ERROR:
+
+     A RESUME command was encountered when no error had occurred.
+
+26:  INCOMPATIBLE COMPILER VERSION
+
+     This error will only be generated if the compiler doesn't match the version of LLUCE currently running.
+
+27:  SYSOP CALL TERMINATION
+
+     This message will be generated if an Open-Apple-L is pressed when there is no ON NOCAR routine specified.
+
+>27: USER DEFINED ERROR:
+
+     Any error number greater than 25 has been defined by the user.  These numbers should never be seen in normal operation, but might be returned by an overlay.
+
+
+
+                             LLUCE COMMAND LIST
+
+
+1.1       ABS
+
+Syntax:   nvar=ABS(number)
+
+Example:  x=ABS(x)
+
+     The ABS command returns the absolute value of a number.  Essentially, it strips off any - sign.
+
+
+1.2       ADDINT
+
+Syntax:   ADDINT (string1 [,string1...])
+
+Example:  ADDINT ("A","B","C")
+
+     The ADDINT command will add more keys to the existing interrupt keys table.  Previous keys will not be cleared.  The function of the keys is the same as with the SETINT command.
+
+
+1.3       AND
+
+Syntax:   nvar=nexprs AND nexprs
+
+Example:  z=x AND y
+
+     This function returns the binary AND of two numbers.  Each bit of the first number is checked with the corresponding bit of the second number, and if either bit is zero, then the corresponding bit in the result is set to 0.  If both are 1, then the bit in the result is set to 1.
+
+
+1.4       ANSI
+
+Syntax:   ANSI ON|OFF
+
+Example:  ANSI ON
+
+     The ANSI statement controls which set of terminal emulation sequences are sent to the remote user with the emulation controls.
+     See  HOME, CLS, NORMAL, INVERSE, MOUSE and GOTOXY commands
+
+1.5       APPEND
+
+Syntax:   APPEND #device
+
+Example:  APPEND #1
+
+     The APPEND statement is generally used to add data to an existing file.  If you issue an APPEND statement, the file pointer will be moved to the end of the file.  All extra data will then be tacked on to the end.  You can also find out the length of a file by doing an APPEND and then using the MARK function.  MARK will then return the length of the file in bytes.
+
+
+1.6       ASC
+
+Syntax:   expression=ASC(string1)
+
+Example:  get a$:print "Input was: "ASC(a$)
+
+     The ASC function is used to determine the number of the code representing the character under the ASCII definition table.  An ASCII table can be found in this manual under Appendix A.
+
+
+1.7       BAUD
+
+Syntax:   nvar=BAUD
+
+Example:  bd=BAUD*300
+
+     The BAUD function returns the callers baud rate divided by 300.  To get the actual baud rate, multiply the returned number by 300.
+
+
+1.8       BYTE
+
+Syntax:   BYTE=expression
+          nvar=BYTE
+          nvar=BYTE(number)
+          BYTE(number)=number256
+
+Example:  p=BYTE; BYTE=ram2; BYTE(4)=12
+
+     The BYTE function is a low overhead data storage unit.  Just point to where in memory you want the data to be stored using the first syntax, and you can then access the data using the third and fourth syntax's.
+
+
+1.9       CALL
+
+Syntax:   CALL memloc
+
+Example:  CALL 768
+
+     The CALL statement is used to jump to a machine language routine residing in memory.  The argument is the starting address of the routine in decimal format.
+
+
+1.10      CHAIN
+
+Syntax:   CHAIN filename [,string-label]
+
+Example:  CHAIN "program/main.seg","main"
+
+     The CHAIN statement is one of the most  powerful statements in the LLUCE language.  This statement will allow two program segments to be linked together.  It is in this way that the problem of not enough memory space is dealt with.  When you design your programs, make them so that you can link the main segments together and the memory savings will be great.
+
+     The filename argument is mandatory and is in standard filename syntax.  If you wish execution to begin at a point other than the beginning of the module, then add on a comma followed by the name of the label IN STRING FORM.  The label must be enclosed in quotes or must be in a string.  Ex: CHAIN "PROGRAM/MSG.SEG","BULLETINS".  You must also make use the PUBLIC command within the segment you are linking to so that the label's address is available to the link command.
+
+
+1.11      CHR$
+
+Syntax:   string=CHR$(ascii code [,# chars])
+
+Example:  md$=CHR$(36,39)
+
+     The CHR$ statement is useful for generating characters that are not easily generated from the keyboard such as control characters.  The ASCII code is a number in the range 0-127 that represents the desired character in the ASCII character chart.  If you wish to generate a group of the same character, add a second argument with the number of characters that you wish to be generated.
+
+
+1.12      CLEAR
+
+Syntax:   CLEAR
+          CLEAR #device
+          CLEAR GOSUB
+
+Example:  CLEAR; CLEAR #9
+
+     The forms of clear share only one thing in common; They clear data in one form or another.  In the first syntax, without an argument, CLEAR will reset all the variables to nil, clear all the addresses from the for-next and gosub-return stack, and close all open files.  It is a good idea to issue a clear statement at the beginning of your program.
+
+     In its second syntax, CLEAR is used to clear out device buffers.  The legal device channels are 9,10.  CLEAR #9 will clear the editor so that any output into the editor will be appended to a clear editor.  CLEAR #10 will clear the ram drive.  Any further writes will be appended on to the end.
+
+     In the third syntax, the GOSUB stack is the only thing cleared.
+
+
+1.13      CLOCK
+
+Syntax:   CLOCK CLEAR
+          CLOCK ONLINE
+          CLOCK=nexpr
+          nvar=CLOCK
+
+Example:  a=CLOCK ONLINE; CLOCK=nibble(1)*600
+
+     The CLOCK function/statement is used for setting a time limit.  It can also be used to find out how long someone has been using the system.  The following options are available.
+
+     CLOCK CLEAR    This statement is used to reset the clock time to zero.
+                    It should be executed when your program begins.
+
+     CLOCK ONLINE   The CLOCK ONLINE function will return the number of
+                    seconds that a user has been connected.  Divide this
+                    number by 60 to find how many minutes they have been
+                    connected.
+
+     CLOCK          You need to set CLOCK equal to the number of minutes you
+                    want as a time limit, or 0 for no limit.  When the time
+                    limit expires, it will be handled as a "No Carrier"
+                    situation.  The program will jump to the NOCAR routine.
+
+
+1.14      CLOSE
+
+Syntax:   CLOSE
+          CLOSE #device
+
+Example:  CLOSE; CLOSE #1
+
+     The CLOSE command is used to close a disk file after you are done with it.  If you give a device channel with the close command, only that file will be closed.  If you use CLOSE by itself, all open files will be closed.
+
+
+1.15      CLS
+
+Syntax:   CLS
+          PRINT CLS
+          nvar=CLS
+          CLS=nexprs
+
+Examples: CLS;  print CLS"Hello..";
+          x=CLS;  CLS=12
+
+     The first two syntax's are used to clear the screen.  The second two are used to set or read the value of the character sent to the remote user when the screen is to be cleared.  The CLS command sends the ANSI clear screen sequence to the user if ANSI is ON.
+
+
+1.16      COPY
+
+Syntax:   COPY [(lines)] filename [,#device]
+          COPY [(lines)] #device [,#device]
+
+Example:  COPY "system/help.system"
+          COPY(50) #1,#7
+
+     The COPY command is used for displaying and copying information from device to device.  The first argument is optional.  It is the number of lines of text to be copied.  If you wish to show only a certain number of lines,  you can include the number to be shown.  The second argument can be a filename, in which case, the file is opened and input is taken from that file, or it can be a device.  The second device is optional.  If present, all output will be routed there, otherwise it will be displayed to the modem/console.  The second argument may not be another filename.  If you wish to copy to a file, open the file with the OPEN command, and copy to that device.
+
+
+1.17      CREATE
+
+Syntax:   CREATE filename[,type]
+          CREATE filename,msg,size
+
+Example:  CREATE "program/testfile"
+          CREATE "newdir",13
+          CREATE "msgfile",msg,128
+
+     The CREATE statement is used to create an empty file on disk.  The new file can then be opened, read, and written to just as any other file would be.  This is the only way to create a file under LLUCE.  Unlike some other BASICs, LLUCE will NOT create a file using the OPEN command.
+
+     The default file type will be TXT.  You can create other file types by specifying the optional type number.  A type of 13 will create a directory file.
+
+     You can create a message file using the second syntax.  The first parameter is the MSG command.  The second is the number of messages you wish the file to hold.  This number will always get rounded up to the next multiple of 128.  This not only creates the file, but also writes out it's bitmap and directory.
+
+
+1.18      CRUNCH
+
+Syntax:   CRUNCH
+
+Example:  CRUNCH
+
+     The CRUNCH statement is used in conjunction  with the MSG commands.  It is used to "CRUNCH" together a message file in while messages have been killed.  This allows you to maintain a sequential message file and get rid of all blank deleted entries that might be there.
+
+
+1.19      DATE$
+
+Syntax:   string=DATE$
+          DATE$=string
+
+Example:  l$=DATE$; DATE$="04/19/87"
+
+     The DATE$ function returns the current date in MM/DD/YY format.  The input will be taken from whatever device is was configured as a clock.  If 00/00/00 is returned, then there is no clock in the system and the date has not been set.  If DATE$ is set to a string in the MM/DD/YY format, and there is no clock in the system, then that string will be used for the date since no other is known.
+
+
+1.20      DISK
+
+Syntax:   DISK LOCK
+          DISK UNLOCK
+
+     This command is used to restrict or allow access to any network that might be in use through a network interface.
+
+
+1.21      ECHO
+
+Syntax:   ECHO=string1
+          ECHO=""
+
+Example:  ECHO="X"; ECHO=""
+
+     The ECHO statement is used to set the echo character to be used with the INPUT statement.  Once the echo has been set, that character will be sent each time a user types a character when entering text.  The ECHO statement in the second syntax will reset the echo to the character that is being typed.
+
+
+1.22      EDIT
+
+Syntax:   EDIT
+          EDIT CLEAR
+          EDIT OFF
+          EDIT ON
+          EDIT="Filename"
+          nvar=EDIT
+          nvar=EDIT ERROR
+          nvar=EDIT SIZE
+
+Example:  EDIT CLEAR; if not EDIT SIZE return
+
+     The EDIT statement is the command used to interface LLUCE with its editor.  With the different EDIT statements, you can clear the editor, see how much space is free, etc.  The following list below gives all the legal calls to the editor.
+
+     EDIT CLEAR     Clear the editor.  There will be a total of 4096 bytes
+                    free after a clear takes place.
+
+     EDIT           Enter the editor.  If no data is present, the editor will
+                    start to accept input right away.  If other data is
+                    present, the editor will start in its prompt mode.  If
+                    this is use as part of an equate (nvar=EDIT), the
+                    location of the editors buffer is returned.
+
+     EDIT SIZE      This is a function that returns the number of bytes used
+                    within the editor.  If this number is zero, the editor is
+                    empty.
+
+     EDIT ON        Turns the profanity filter on
+
+     EDIT OFF       Turns the profanity filter off
+
+     EDIT ERROR     This returns a flag to report an attempt to use the .X
+                    editor command when it is not available to the user.
+
+     The second syntax is used to change the name of the editor overlay loaded in when the other EDIT commands are used.
+
+
+1.23      ELSE
+
+Syntax:   IF argument [THEN] statement:[ELSE] statement
+
+Example:  IF info(6) THEN a=0 ELSE a=1
+
+     The LLUCE language supports the ELSE directive.  With the ELSE statement, you can set up a statement such that IF the argument is true, THEN do a statement or group of statements separated by colons, ELSE if the argument was false, do the following set of statements.  If the argument was true and the first set of statements was executed, when the ELSE statement is reached, control will pass to the next line.
+
+
+1.24      END
+
+Syntax:   END
+
+Example:  END
+
+     The END statement is used to cleanly terminate execution of a program.  END statements can be used anywhere in your code and when encountered will return LLUCE to its restart state.
+
+
+1.25      EOF
+
+Syntax:   nvar=EOF(dev)
+
+Example:  if eof(1) close #1:return
+
+     The EOF function is a boolean operator that becomes true when the end of the file has been reached.  It is most often used in conjunction with an IF-THEN statement.  It can be used with device channels 1, 2 or 3.
+
+
+1.26      ERR
+
+Syntax:   nvar=ERR
+
+Example:  e=ERR
+
+     This function returns the last number of the last error encountered.  If it is 0, no error has occurred.  ERR gets set to 0 by the CLEAR command.
+
+
+1.27      EXEC
+
+Syntax:   EXEC=nexpr
+          nexpr=EXEC
+
+Example:  EXEC=flag(34)
+          if exec chain "program/system"
+
+     This function sets or returns the executive user status.  Zero is a normal user, anything else is an executive user.
+
+
+1.28      EXIST
+
+Syntax:   nvar=EXIST(filename)
+
+Example:  if not EXIST(f$) create f$
+
+     This function checks for the existence of a file, and returns the result.
+
+
+1.29      EXIT
+
+Syntax:   EXIT
+          EXIT "/FullPath"
+
+Example   EXIT "/MyDisk/Start";  EXIT
+
+     This command exits LLUCE.  If a full pathname is supplied, the application will be executed if available.  If a pathname isn't supplied, the normal ProDOS quit routine will be executed.
+
+NOTE:  IF A PATHNAME IS SPECIFIED, A COMPLETE PATHNAME MUST BE USED.
+       THIS IS DUE TO A PROBLEM IN THE PRODOS QUIT ROUTINES.  THIS MAY BE
+       FIXED IN FUTURE RELEASES OF PRODOS 8.
+
+
+1.30      FILL
+
+Syntax:   FILL memadr,length,data
+
+Example:  FILL ram,34,0
+
+     The FILL statement is used to fill an area of memory with some byte of data.  Generally it is used to zero out memory.  memadr is a 16 bit memory address, length is an 8 bit [0-255] number, and DATA is the byte that will be used to fill memory.
+
+
+1.31      FLAG
+
+Syntax:   nexpr=FLAG
+          FLAG=nexpr
+          FLAG(nexpr)
+          FLAG(nexpr)=number
+
+Example:  FLAG=ram2; FLAG(3)=1; z=FLAG(7)
+
+     The FLAG function is a low overhead way to store 1 bit information.  You just need to point the FLAG function to a location in memory that you wish to store your data in, and you can manipulate as many flags as you need.  Each byte of memory can contain 8 flags.  To set up the FLAG function, use the first and second syntax to point the function to a point in memory where the flags will be stored.  Once the pointer is set up, you can use FLAG just like a variable using the third and fourth syntax for reading and writing the flags.
+
+
+1.32      FLASH
+
+Syntax:   FLASH ON
+          FLASH OFF
+
+Example:  FLASH OFF
+
+     This function affects only Apple //gs users.  When the screen saver times out, if FLASH is on, the screen and characters shift colors every second.  Some may find this annoying, so if you use FLASH OFF, the standard screen blank (black screen) will be used.
+
+
+1.33      FLUSH
+
+Syntax:   FLUSH
+          FLUSH #device
+
+Example:  delete #msg(a):msg(a)=0:FLUSH
+
+     The FLUSH statement is used to change the bit-map and directory of a message file.  This is to reflect changes made to the messages themselves.  For example, when a message is deleted, FLUSH will de-allocate it's space.  The next time a message is posted the empty space will be used.
+
+
+1.34      FMTDATE$
+
+Syntax:   string=FMTDATE$
+
+Example:  l$=FMTDATE$
+
+     The FMTDATE$ function returns the current date in 'Thu. Mar 23, 1989' format.  The input will be taken from whatever device is was configured as a clock.  If there is no clock in the system, you should preset the date with the DATE$= command.
+
+
+1.35      FMTWHEN$
+
+Syntax:   string=FMTWHEN$
+
+Example:  l$=FMTWHEN$
+
+     The FMTWHEN$ statement is a date compression scheme.  When the FMTWHEN$ function is used, 2 bytes will be retrieved from memory and will be translated into a "Mon. Jan 29, 1990" format.
+
+
+1.36      FOR
+
+Syntax:   FOR numvar=number TO number STEP
+          number;NEXT
+
+Example:  FOR X=1 TO 11 STEP 2:......:NEXT
+
+     The FOR statement is one of the most powerful parts of the LLUCE language.  It allows one to do a loop a specified number of times without using labels and counters.  Using a FOR loop is easy.  Just place the line at the beginning of the code you want to loop through and select a variable for a counter <numvar> and insert into the line.  The number TO number is the range of the loop.  The first number contains the value of the counter the first time through the loop.  The second number is the value that the counter must reach before the loop terminates.  The STEP argument is optional.  When left off, the loop will execute in increments of 1.  The STEP statement can be used to set a different increment.
+
+
+1.37      FREE
+
+Syntax:   FREE
+
+Example:  FREE
+
+     The FREE statement is used to force the system 'garbage collection' routine to take effect.  It clears all old strings out of memory and packs things together.  Normally, this is done automatically by the system whenever it is needed and whenever a CHAIN statement is executed.
+
+
+1.38      GET
+
+Syntax:   GET varstr
+
+Example:  GET a$
+
+     The GET statement is used to get a single keypress from the keyboard.  When encountered, the system will wait until a key is pressed.  The key will be returned in <varstr>.  Control characters will not be filtered as they are with INPUT.
+
+
+1.39      GOSUB
+
+Syntax:   GOSUB label
+
+Example:  GOSUB mail
+
+     The GOSUB statement is similar to the GOTO statement in that it is used to change the execution point within the program.  However, before LLUCE looks for the label, it saves the current execution address so that it may be returned to.  The new address is then fetched and execution goes on from that point until a RETURN statement is encountered.  At that time, execution will go back to the point right after the GOSUB statement.  As its function indicates, GOSUB is an abbreviation of GO SUBroutine.
+
+
+1.40      GOTO
+
+Syntax:   GOTO label
+
+Example:  GOTO system
+
+     The GOTO statement is used to change the execution point within a program.  When a GOTO is encountered, LLUCE will find the point in the program with the appropriate label and start execution at that new point.  If the label is not within the loaded program module, you will get a LABEL NOT FOUND error.
+
+
+1.41      GOTOXY
+
+Syntax:   GOTOXY(x,y)
+          PRINT GOTOXY(x,y)
+          nvar=GOTOXY
+          GOTOXY=number255
+
+Example:  GOTOXY(10,10)
+          PRINT GOTOXY(15,20)"At 15,20"
+          x=GOTOXY;  GOTOXY=30
+
+     The GOTOXY command is used to move the cursor to a specified position on the screen.  The first two syntax's are used for actual positioning.  The second two are used to set or get the value of the character sent to move the cursor on the remote user's screen.  The GOTOXY command sends the ANSI set cursor position sequence to the user if ANSI is ON.
+
+
+1.42      HOME
+
+Syntax:   HOME
+          PRINT HOME
+          nvar=HOME
+          HOME=number255
+
+Example:  HOME
+          PRINT HOME"now at upper left"
+          x=HOME;  HOME=25
+
+     The HOME command is used to move the cursor to the upper left corner of the window.  The first two syntax's are used for actual positioning.  The second two are used to set or get the value of the character sent to home the cursor on the remote user's screen.  The HOME command sends the ANSI home cursor sequence to the user if ANSI is ON.
+
+
+1.43      IF
+
+Syntax:   IF argument [THEN] statement:[ELSE] statement
+
+Example:  IF info(6) THEN a=0 ELSE a=1
+
+     The IF statement is one of the most powerful statements in the entire LLUCE language.  It gives the system the power of decision.  With it, you can evaluate an argument and take appropriate action.  The argument can either be simple or complex.  The THEN statement is generally optional unless you are doing a  variable declaration of some kind following the argument.  If you are, then the system can think that the declaration is part of the argument unless a THEN is included.  Unlike some BASICs, where a line number can follow a THEN, under LLUCE you may NOT follow a THEN with a label.  You must use 'IF arg THEN GOTO label' or 'IF arg GOTO label' instead.
+
+     In addition, the LLUCE language also supports the ELSE directive.  With the ELSE statement, you can set up a such that IF the argument is true, THEN do a statement or group of statements separated by colons, ELSE if the argument was false, do the following set of statements.  If the argument was true and the first set of statements was executed, when the ELSE statement is reached, control will pass to the next line.
+
+
+1.44      INPUT
+
+Syntax:   INPUT [#device,] [@number,] [\] ["text"] variable [{,\} variable..]
+
+Example:  INPUT a,a$; INPUT #1,a$\b$; INPUT @2,a$; INPUT \"Name: ",n$
+
+     The INPUT statement is one of the most powerful and widely used statements in the LLUCE language.  It is in its simplest form, it is the opposite of the PRINT statement.  The INPUT statement is broken down into 4 different parts.  The first part is the input device to be used.  When omitted, input is taken from the console/modem, otherwise input is taken from that device.  The second part is the input mode.  There is a restrictive mode placed on the input so that the input data is what you desire.  For example, you can set upper case only via the mode. Other mode options are listed below.  The third part of the INPUT statement is the prompt.  The prompt is basically just a text string that will be printed prior to getting the input.  The newline character '\' can be used at the beginning of the text.  The last part of the INPUT statement is the variable list.  This is a list of variables that will be assigned the input.  Each variable in the list is separated by either a comma or a backslash.  If separated by a comma, then the actual typed input must be divided by a comma.  If divided by a backslash, then the  text must be separated by a carriage return.
+
+Input Default  Set the input mode to uppercase.  Don't accept a blank line.
+
+Input Mode 0   Set the input mode to uppercase.  Don't accept a blank line.
+               Just return the first character.
+
+Input Mode 1   Set the input mode to uppercase.  Don't accept a blank line.
+               Don't accept any comma's within the line.
+
+Input Mode 2   Set the input mode to uppercase.  Blank lines will be
+               accepted.
+
+Input Mode 3   Accept everything in both upper and lowercase.
+
+Input Mode 4   Will throw out any commas entered in the input.
+
+
+1.45      INSTR
+
+Syntax:   expression=INSTR(string,string)
+          expression=INSTR(string,string,number255)
+
+Example:  if INSTR("C","ABCDE") print "C is there"
+
+     The INSTR function is used to search within a string for the existence of another string.  The first string is that string which you are searching for.  The second string is what will be searched.  The case of the text will be ignored.  The function will return the number of the first character where the match was found.  If the function returns zero, no match was found.
+     In the first syntax, the search starts at the first character of the string.  In the second, the search starts at the specified character.  If the string being searched is shorter than the specified start, a zero is returned.
+
+
+1.46      INVERSE
+
+Syntax:   INVERSE
+          PRINT INVERSE
+          nvar=INVERSE
+          INVERSE=number255
+
+Example:  INVERSE
+          PRINT INVERSE"This in inverted"
+          x=INVERSE;  INVERSE=15
+
+     The INVERSE command is used to set inverse character mode.  The first two syntax's cause further characters to be displayed in inverse mode.  The second two are used to set or get the value of the character sent to invert characters on the remote user's screen.  The INVERSE command sends the ANSI invert character image sequence to the user if ANSI is ON.
+
+
+1.47      KEY
+
+Syntax:   expression=KEY
+          expression=KEY END
+          expression=KEY NEXT
+          expression=KEY FLAG
+
+Example:  if KEY END print\"stop char pressed"
+
+     The KEY function is used to check and see what if any keys have been pressed.  KEY is generally used to check to see if a routine needs to be interrupted and is used in conjunction with the SETINT and ADDINT statements.
+KEY does not wait for a key, it returns either a zero for no key or the ascii value of the key.  In the KEY END form, a non-zero byte will be returned if the key pressed was the 'File Stop' character defined in the config program.  In the KEY NEXT form, a non-zero byte will be returned if the pressed key is the 'File Next' key defined in config.  In the KEY FLAG form, a non-zero byte will be returned if the key pressed is in the interrupt table defined by SETINT and ADDINT.
+
+
+1.48      KILL
+
+Syntax:   KILL filename
+          KILL #MSG(expression)
+
+Example:  KILL "system/testfile"
+          KILL #MSG(25)
+
+     The KILL statement can be used in two different ways.  In both ways, it is used to delete data.  In its first form, with the filename, it will delete the file from disk.  In its second form, it will kill a message within the currently active message base.  After using KILL on a message, it is always a good idea to follow it with an UPDATE.
+
+
+1.49      LEADIN
+
+Syntax:   nvar=LEADIN
+          LEADIN=number255
+
+Example:  x=LEADIN;  LEADIN=0
+
+     The LEADIN command is used to set or get the value of the character used as a command lead in for the remote user's terminal.  No lead in character will be sent if set to zero.  The leadin character is only sent if the high bit is set for the emulation character being sent.
+
+
+1.50      LEFT$
+
+Syntax:   string=LEFT$(string,length)
+
+Example:  print "Month:" LEFT$(date$,2)
+
+     The LEFT$ function is used to change a string variable into a partial string.  More specifically, it will return LENGTH number of characters starting at the LEFT side of the source string.
+
+
+1.51      LEN
+
+Syntax:   expression=LEN(string)
+
+Example:  print "ABC is ";LEN("ABC");" chars long"
+
+     The LEN statement is used to determine the length of a string.  The returned length will be in the range from 0 to 255.
+
+
+1.52      LOCK
+
+Syntax:   LOCK filename
+
+Example:  LOCK "newfile"
+
+     This function is used to alter a file's access.  This will not allow a file to be deleted, written to, or renamed.
+
+
+1.53      LOWER$
+
+Syntax:   LOWER$(string)
+
+Example:  input f$:LOWER$(f$)
+
+     This function converts a string variable to all lower case.
+
+
+1.54      LTRIM$
+
+Syntax:   LTRIM$(string)
+
+Example:  input f$:LTRIM$(f$)
+
+     LTRIM$ trims leading spaces from a string.
+
+
+1.55      MARK
+
+Syntax:   expression=MARK(device)
+          MARK(device)=number
+
+Example:  a=MARK(1); MARK(2)=0
+
+     The MARK function will allow you to either set or check the point at which a file is doing i/o.  If you want to go to the beginning of a file, you would issue a MARK(1)=0 assuming it was file 1.  MARK has a second function in that it can be used to see if a file exist.  Normally LLUCE will not generate an error if a file does not exist, so it can be hard to tell if there is one.  To see if a file exists:
+
+          OPEN #1,filename
+          IF NOT MARK(1) PRINT "FILE EXISTS"
+          CLOSE #1
+
+
+1.56      MID$
+
+Syntax:   string=MID$(string,start [,length])
+          MID$(string,start[,length]) = string
+
+Example:  print "char 2 is ";MID$("ABC",2,1)
+          MID$(last$,10) = date$
+
+     In the first syntax, the MID$ function is used to put part of one string into another.  It can be used in two forms.  In the first, giving just a source string and a starting character number, the new string will be assigned the contents of the original string starting at the start character.  If the optional length argument is added, then only that number of characters will be returned or the number of characters from start to the end of the string, whichever is shorter.
+
+     In the second syntax, the MID$ function is used to put one string into part of another string.  The forms are the same as in the first syntax.  Only as much of the second string as will fit into the first string will be copied, or till the specified length (if any) is reached.  You cannot make the first string larger with this function.  Any remaining characters in the second string will not be copied if they overrun the first string end, or the number of specified characters (whichever is shorter).
+
+
+1.57      MIXED$
+
+Syntax:   MIXED$(string)
+
+     This function converts a string variable to all mixed case.
+Any non-alphabetic character makes the next character upper-case.  Any alphabetic character following an alphabetic character will be converted to lower case.
+
+
+1.58      MODE
+
+Syntax:   MODE=number
+          nvar=MODE
+
+Example:  MODE=0
+
+     The is used to set the 'back space mode' that the editor will use.  Certain modes allow more control than others.  Mode 0 indicates that the actual mode is not known.  The editor will work fine, but some functions will be disabled.  Under mode 1, the editor assume that the user has a 'non-destructible' back-space.  This allows all the editor functions to be used and is how the local console is setup.  Mode 2 tells the editor that the user has a 'destructible' back-space.  Under this mode, some functions are disabled, but the editor speeds up other functions.
+
+
+1.59      MODEM
+
+Syntax:   MODEM READY
+          MODEM NOCAR
+          MODEM ONLINE=number255
+          MODEM TIME$=String
+          MODEM CLEAR
+
+Example:  MODEM(1)
+
+     The MODEM statement has many functions including waiting for a call, hanging up, and initializing the modem.  The number in the syntax represents the desired modem function.  The following list contains all the modem functions.
+
+     MODEM READY    This command will initialize the modem, then wait for an
+                    incoming call and establishes a connection.  Execution
+                    will continue when either a call is connected, or the
+                    user goes into local mode.
+
+     MODEM NOCAR    This command causes the modem to hang up.  All further
+                    output will be directed to the console only.
+
+     MODEM ONLINE   This command sets up the modem to receive commands.
+                    Commands are sent with the PRINT #4 command.  The value
+                    you pass to this function is the baud rate divided by
+                    300.
+
+     MODEM TIME$    This sets a time when the MODEM READY routine is to
+                    automatically return to the calling routine.  This is
+                    useful for automatic maintenance or networks.
+
+     MODEM CLEAR    This clears the automatic return.
+
+
+1.60      MOUSE
+
+Syntax:   MOUSE
+          PRINT MOUSE
+          nvar=MOUSE
+          MOUSE=number255
+
+Example:  MOUSE
+          PRINT MOUSE"@ this is a solid apple
+          x=MOUSE;  MOUSE=15
+
+     The MOUSE command is used to set mousetext character mode.  The first two syntax's cause further upper case characters to be displayed as mousetext.  The second two are used to set or get the value of the character sent to set mousetext mode on the remote user's screen.  The MOUSE command has no ANSI equivelant, so when ANSI is ON, this command does nothing.
+
+
+1.61      MOVE
+
+Syntax:   MOVE start,length TO destination
+
+Example:  MOVE ram,34 TO ram2
+
+     The MOVE statement is used to move segments of memory around.  The only limitation is that only a maximum of 255 bytes can be moved at a time.  Always be careful when moving around memory.  If you move over some memory that is use by LLUCE, some unpredictable things can happen.  Both START and DESTINATION are 16 bit memory addresses while LENGTH is an 8 bit [0-255] number.
+
+
+1.62      MSG
+
+Syntax:   expression=MSG(number1[,number2])
+          MSG(number1[,number2])=expression
+          device=#MSG(number)
+          nvar=MSG SIZE
+          nvar=MSG FREE
+
+Example:  if MSG(un) print "You have mail.";
+          MSG(un)=1; copy #MSG(4)
+
+     The MSG function is a specialized function for the LLUCE message handling routines.  Once a message file has been opened via the READY statement, the MSG function is used to access individual messages within the message file.  The MSG function has several radically different syntax's.  Under the first and second syntax, it is being used to access and set information about a message.  For each message, you can maintain four numbers that give information about it via the MSG function.  The first number (number1) is the actual message number, while the optional second number (number2) is the reference to the individual piece of information stored in the message.  The range is 0 through 3.  If the second number is omitted, then it is assumed to be 0.  The MSG(0) function returns the number of messages within the message file and may not be changed.  Also, there is no second number available to MSG(0).  To access a message, it is used as a device channel.  While to show the editor COPY #8 would suffice, since the message file is made up of many messages, it is necessary to tell which message you want to work with.  COPY #MSG(3) would show message number three within the currently open message file.  When using #MSG(x) to print data, the second number is redundant, and not used if present.  MSG SIZE returns the capacity of the current message file.  MSG FREE returns the number of free blocks in the current message file.  One block contains 126 bytes.
+
+
+1.63      NAME
+
+Syntax:   NAME filename1,filename2
+
+Example:  NAME "text1","info"
+
+     This function changes the name of a file.  If the first filename is not found, then nothing gets done, and no error is returned.
+
+
+1.64      NEXT
+
+Syntax:   NEXT
+          NEXT nvar
+
+Example:  FOR X=1 TO 10:......:NEXT
+
+     The NEXT statement is used to set the ending boundary of a FOR - NEXT loop.  Unlike with some versions of BASIC, the NEXT statement does not need to be followed with the name of the variable that is being used in the loop.  The second syntax may be used to terminate any FOR loops that were started after the one you specify with nvar.  You may also have multiple NEXTs for a single FOR statement.  To end a loop early, just set the variable that is used in the loop to its final value and then execute a NEXT statement.  This will terminate a loop early.
+
+
+1.65      NIBBLE
+
+Syntax:   expression=NIBBLE
+          NIBBLE=number
+          number=NIBBLE(number)
+          NIBBLE(number)=number16
+
+Example:  p=NIBBLE; NIBBLE=ram2; NIBBLE(1)=3
+
+     The NIBBLE function is similar to the FLAG function in that it is a low overhead data storage method.  With the NIBBLE function, you can store 4 bit numbers that have the range 0-15.  Use the first and second syntax of NIBBLE to point to the area in memory where the data will be stored.  Use the third and fourth syntax's to read and write the actual data.
+
+
+1.66      NODE
+
+Syntax:   nvar=NODE
+
+Example:  x=NODE
+
+     This function returns the network node number of the system that this copy of LLUCE is being run on.  This is a read only command.
+
+
+1.67      NORMAL
+
+Syntax:   NORMAL
+          PRINT NORMAL
+          nvar=NORMAL
+          NORMAL=number255
+
+Example:  NORMAL
+          PRINT NORMAL"This in normal"
+          x=NORMAL;  NORMAL=14
+
+     The NORMAL command is used to set inverse character mode.  The first two syntax's cause further characters to be displayed in normal mode.  The second two are used to set or get the value of the character sent to set normal characters on the remote user's screen.  The NORMAL command sends the ANSI set standard video mode sequence to the user if ANSI is ON.
+
+
+1.68      NOT
+
+Syntax:   expression=NOT expression
+
+Example:  if NOT edit(2) return; a=NOT b
+
+     The NOT operator is a boolean logic operator.  It changes the value of an expression from true to false or from false to true.  In boolean logic, false is considered to be zero while not false, or true, is considered to be any other number.  The NOT operator is most commonly used in IF statements.
+
+
+1.69      NULLS
+
+Syntax:   nvar=NULLS
+          NULLS=number255
+
+Example:  print "Nulls are set to "NULLS
+          NULLS=0
+
+     This function sets the number of null characters sent to the remote user after each line of text is sent.
+
+
+1.70      OFFSET
+
+Syntax:   nvar=OFFSET
+          OFFSET=nexprs
+
+Example:  OFFSET=32
+
+     This function sets the value to add to the arguments of the GOTOXY command.  Normal offset is the value of a space (32).
+
+
+1.71      ON
+
+Syntax:   ON nexpr GOTO label-list
+          ON nexpr GOSUB label-list
+          ON nexpr PUSH label-list
+
+Example:  ON X GOTO sub1,sub2,sub3
+
+     The ON statement is used to dispatch to various labels depending on the value of nexpr.
+
+
+1.72      ON ERROR
+
+Syntax:   ON ERROR GOTO label
+
+Example:  ON ERROR GOTO doerror
+
+     The ON ERROR statement is used to setup a routine that can be used when an error occurs in your program.  When an error occurs, LLUCE will change the current execution point to the label that was set up.  Whenever you link to another segment you must set up a new ON ERROR vector to a routine within that segment.  If you don't have a vector set up and an error occurs, LLUCE will hang up on the user, and drop to the 'Restart: S/M/*/Q ?" prompt.  After a short period of time, the system will automatically restart.  See RESUME and ERR for more information.
+
+
+1.73      ON NOCAR
+
+Syntax:   ON NOCAR GOTO label
+
+Example:  ON NOCAR GOTO termin1
+
+     The ON NOCAR statement is used to setup a routine that can be used when carrier is lost from a remote user.  When carrier is lost, LLUCE will then hang up the modem.  It will then change the current execution point to the label that was set up.  Whenever you link to another segment you must set up a new ON NOCAR vector to a routine within that segment.  If you don't have a vector set up and a remote caller drops carrier, the system will just sit there until another user accesses the system.
+
+
+1.74      ONLINE
+
+Syntax:   nvar=ONLINE
+
+Example:  ol=ONLINE
+
+     This function returns the modem status.  If a user is on the system through the modem, a 1 will be returned.  If a user is on the local system keyboard, a 0 will be returned.
+
+
+1.75      OPEN
+
+Syntax:   OPEN #device,filename
+          OPEN READ #device,filename
+          OPEN WRITE #device,filename
+
+Example:  OPEN #1,"system/users"
+
+     The OPEN statement is used to make disk files ready to do i/o with a program.  You open a disk file using device channel 1, 2 or 3 and all further references to that channel will access the file associated with it.  When you are finished with the file, use the CLOSE command.  This will free up the device channel for later use.  If you try to use a channel that is already in use, or one besides channel's 1, 2 or 3, you will get a BAD DEVICE CHANNEL error.  If the file you open does not exist, no error will be generated.  If you try to read from the file, it will appear to be empty.  Use the CREATE command to make a file.  The READ and WRITE parameters are used for network access.  READ will open a file with read privileges only, and will not allow writing to the file.  This allows other users on the network to read the same file.  WRITE opens a file for write access only.  If neither READ or WRITE is specified, the file is opened for READ and WRITE access.  If there's no AppleTalk network detected at startup, these parameters are ignored.
+
+
+1.76      OR
+
+Syntax:   nvar=nexprs OR nexprs
+
+Example:  z=x OR y
+
+     This function returns the binary OR of two numbers.  It compares the bits, and if any bit in either number is set, a 1 is returned, if not, a 0 is returned.
+
+
+1.77      OVERLAY
+
+Syntax:   OVERLAY fname [,parms(,parms...)]
+
+Example:  OVERLAY "xdos",i$
+
+     The OVERLAY statement is used to access an 8k or smaller routine from a disk file that is external to the language.  These "external files" are loaded in and executed.  The OVERLAY itself will get parameters from the continuation of the line after the filename argument.  All overlays should be located in a SYSTEM folder in the folder that you start LLUCE from.
+
+
+1.78      PDL
+
+Syntax:   expression=PDL(number)
+
+Example:  print "paddle 1 is set at "PDL(1)
+
+     The PDL function is used to read one of the paddles on the system.  You can read paddle zero through three.  The number returned with be in the range 0-255.
+
+
+1.79      PEEK
+
+Syntax:   expression=PEEK(address)
+
+Example:  if PEEK(-16287)>127 print "button 1 is on"
+
+     The PEEK function is used to find the value of a byte in memory.  ADDRESS is a 16 bit memory location that will be read and its value returned.  The returned value will be in the range 0-255.
+
+
+1.80      POKE
+
+Syntax:   POKE address,value
+
+Example:  POKE -16368,0
+
+     The POKE statement is used to assign a memory location a value of your choice.  ADDRESS is a 16 bit memory location and VALUE is a number in the range 0-255.
+
+
+1.81      POP
+
+Syntax:   POP
+
+Example:  POP
+
+     The POP statement is used in conjunction with the PUSH or GOSUB statement.  When encountered, it will take the current 'RETURN ADDRESS' from the table in memory and get rid of it.  Though not used often, this statement is very handy when you need to exit from a routine that was GOSUBed without using a RETURN.  If there is no active GOSUB, a RETURN without GOSUB error will occur.
+
+
+1.82      POSITION
+
+Syntax:   POSITION #device,number,number[,number]
+
+Example:  POSITION #1,128,un,70
+
+     The POSITION statement is used to position within random access files.  The first argument is the disk device channel number that was used to open the file.  The second field is the length of each record.  The third field is the record number to be positioned to.  The forth optional field is the offset within the record that is to be positioned to.
+
+
+1.83      PREFIX
+
+Syntax:   PREFIX pathname
+
+Example:  PREFIX "system"
+
+     The PREFIX statement simply changes the default pathname.  If the pathname does not exist, a PREFIX NOT FOUND error will occur.
+
+
+1.84      PRINT
+
+Syntax:   PRINT [#device,] [expression] [,expression] [;]
+
+Example:  PRINT "this is a test";PRINT a$,b$;
+          PRINT #1,"data",a\b$
+
+     The PRINT statement is probably the most used statement in the entire LLUCE language.  With it, you can communicate information to the outside world.  Its syntax is very flexible and all examples of it can not be shown here.  The following is a list of legal arguments within the print command:
+
+Control: ','   The comma is used to separate expressions within the print
+               statement and will be printed literally.
+
+Control: ';'   The semi-colon is also used to separate expressions.  It will
+               not be printed when encountered.  If a semi-colon is the last
+               character in the line, then the carriage return will be
+               suppressed.
+
+Control: '\'   The backslash is used to generate a newline character.  Using
+               the backslash, there is no need to put a bunch of
+               print:print... statements.
+
+Exprs: TEXT    Text must be contained within quotes and will be printed 
+               exactly as typed.  Within quotes, you may have any special
+               characters including return.  Having an open quote with no
+               closing quote can prove to be an interesting experience.
+
+Exprs: STRING  The content of the listed string will be printed.
+               Nothing special applies.
+
+Exprs: NUMBER  The content on the listed number will be printed.
+               Nothing special applies.
+
+The emulation commands HOME, CLS, NORMAL, INVERSE, MOUSE and GOTOXY may be placed anywhere in a print statement other than in a literal (quoted) string. If in a literal string, the command name will be text, and will be printed as such.  The TONE command may also be used in the same manner.
+
+
+1.85      PUBLIC
+
+Syntax:   PUBLIC label
+
+Example:  PUBLIC main
+
+     The PUBLIC statement is used to make a label within a program module available to other modules to link to.  If you wish to chain to another program module, and start execution at a some point other than the beginning of the module, you will need to make that point public.  You can have a maximum of 8 public labels within a program module.  ACOS did not check the number of public labels, and always copied the first 8 labels defined to the public label list.  LLUCE only copies the number of public labels defined, so if you are converting ACOS code to LLUCE that relies on copying 8 labels the way ACOS does, you will need to add the missing labels to your public list.
+
+
+1.86      PUSH
+
+Syntax:   PUSH label
+
+Example:  PUSH main
+
+     The push statement is a sub-set of the GOSUB statement.  It does not actually change the current point of execution, but places a return address in a table so that the next time a RETURN statement is encountered,  control will return to this point.  A POP statement will remove the last address added to the return table.
+
+
+1.87      RAM
+
+Syntax:   RAM
+          RAM(0)
+          RAM(1)
+          RAM(2)
+          RAM(3)
+
+Example:  move ram,34 to ram(1)
+
+     The RAM function is really just a constant pointer.  It just points to one of the 4 free 256 byte blocks of memory that has been set aside for program use.  RAM and RAM(0) point to the same location.  The RAM(0) syntax should only be used if you are using an index to access the ram area.
+
+
+1.88      RANDOM
+
+Syntax:   expression=RANDOM(number)
+
+Example:  print "from 1 to 10 -> "RANDOM(10)
+
+     The RANDOM function is used to generate a random within the range 0-number.  A new random number will be generated every time the system goes to get input.  If you take two random numbers in a row, they will always be the same.  If you need more than one, use the RND$ string between them.  This will do a temporary re-random.
+
+
+1.89      READ
+
+Syntax:   READ #device,memloc,number
+
+Example:  READ #1,ram2,34
+
+     The READ statement is used to load data from a file into memory in its binary form without any processing or changing.  The input does not have to come from a file, it can come the editor or a message file.  It is similar to an Apple DOS BLOAD command.
+
+
+1.89      READY
+
+Syntax:   READY filename
+          READY #MSG(number)
+
+Example:  READY "email/mail"; READY #msg(un)
+
+     The READY statement is used to make a message file ready for use.  It is similar to an OPEN statement being used before a file is accessed.  After a message file is made ready, all following references to MSG will be directed to that file.  Once a message file has been made ready, it can also be used in its second syntax to ready a specific message within the file.  This is generally used if further references to the file will use the device channel associated with the message base.
+
+
+1.90      RECALL
+
+Syntax:   RECALL "fname"
+
+Example:  RECALL "system/variables"
+
+     The RECALL statement will reload in the variable set that was saved via a STORE command.  The existing variables will be cleared, and the RECALLed ones will take their place.
+
+
+1.91      RESUME
+
+Syntax:   RESUME
+
+Example:  if err=6 print "Number too large":RESUME
+
+     This statement will cause your program to be continued on the next text (before being compiled) line.  It will skip all remaining statements on the line the error occurred.
+
+The following is a small sample:
+
+ on error goto errorin
+input1
+ input @2 "Enter a number ->" i:goto cont1
+ print "Number too large, re-enter"
+ goto input1
+
+cont1
+        Code continues here
+
+errorin
+ if err=6 RESUME
+
+
+1.92      RETURN
+
+Syntax:   RETURN
+
+Example:  RETURN
+
+     The RETURN statement is used in conjunction with the PUSH or GOSUB statement.  When encountered, program execution is halted at its current location, and a new execution address is pulled from a table in memory.  If no address is present, a RETURN WITHOUT GOSUB error will occur.
+
+
+1.93      REWIND
+
+Syntax:   REWIND
+
+Example:  REWIND
+
+     The REWIND statement is used to change the file pointer back to its previous location.  Generally this is used with the READY #msg(x):copy #8 statements to perform "re-read" tasking.
+
+
+1.94      RIGHT$
+
+Syntax:   string=RIGHT$(string,length)
+
+Example:  x$=RIGHT$(a$,2)
+
+     The RIGHT$ function is used to assign a portion of a source string to another string.  It will take LENGTH number of characters from the RIGHT of the source string and assign them to the new string.
+
+
+1.95      RND$
+
+Syntax:   char=RND$
+
+Example:  print "Random pass: "RND$;RND$;RND$
+
+     The RND$ function is used to generate random characters.  Each time RND$ is accessed a new  random character will be returned.  Be Warned: The random number is generated from timing how long a user takes to enter his input.  The is really a pretty random number since it is based on the users typing skill and speed.  The only problem is that the random character generator can start repeating patterns after about 15-20 characters have been generated and before another input has taken place to "re-randomize" the number.
+
+
+1.96      RTRIM$
+
+Syntax:   TRIM$(svar)
+
+Example:  input @2"Enter data -> "s$:RTRIM(s$)
+
+     This function trims off any trailing spaces form the argument string.
+
+
+1.97      SET
+
+Syntax:   SET string=memloc,number
+          SET MSG=nexpr
+
+Example:  SET pa$=ram,8; SET MSG=1
+
+     The SET statement is another statement set up for the optimum management of memory.  With SET, you can manually set up pointers for strings anywhere in memory.  Along with the location of the string, you can also specify the length.  Whenever the string is accessed, the text present at the memory locations will be returned.  The second syntax for SET selects the notice shown at the top of the screen.  This is either 0 for nothing, 1 for chat mode or 2 for exec mode.
+
+
+1.98      SETINT
+
+Syntax:   SETINT (string1 [,string1...])
+          SETINT ("")
+          SETINT (number)
+
+Example:  SETINT("");SETINT(1);SETINT("A")
+
+     The SETINT command is used to set up "interrupt" keys.  Once setup, the system will check for those keys whenever text is being displayed.  If one of the keys are encountered, all further output will be suppressed until an input statement of some kind is encountered or the SETINT is reset.  To reset the SETINT command, use the second syntax.  If you wish to set the interrupt keys to those pre-defined by the LLUCE CONFIG program, use the third syntax.  SETINT(1) will set the interrupt key to the 'File Stop' character.  SETINT(2) will set the interrupt keys to the 'File Stop' and 'File Next' characters.
+
+
+1.99      SIZE
+
+Syntax:   expression=SIZE(device)
+
+Example:  open #1,"program/testfile":print SIZE(1)
+
+     The SIZE function will allow you to determine the size of a file on disk.  The only prerequisite is that the file is open.  The size returned will be the actual file size, not including any index blocks.
+
+
+1.100     STEP
+
+Syntax:   FOR numvar=number TO number STEP number
+
+Example:  FOR X=1 TO 11 STEP 2
+
+     The STEP statement is used in conjunction with FOR command.  When not used in a FOR command, the loop will execute in increments of 1.  The STEP statement is used to set a different increment.
+
+
+1.101     STORE
+
+Syntax:   STORE "fname"
+
+Example:  STORE "system/variables"
+
+     The STORE command will save the values of all the variables (both numerical and strings) onto a disk file.  This is useful if another segment will be used that may have conflicting variable names.
+
+
+1.102     STR$
+
+Syntax:   string=STR$(number)
+
+Example:  a$=STR$(123)
+
+     The STR$ function is used to change a number into a string.  Once turned into a string, the number can not be used in any mathematical operation.  To convert the string back to a number, use the VAL function.
+
+
+1.103     TERMINAL
+
+Syntax:   TERMINAL=nexprs
+          nvar=TERMINAL
+
+Example:  n=TERMINAL;  TERMINAL=255
+
+     This command is used to set an arbitrary terminal ID number.  If nexprs is greater than 127, the ProTERM ID enquiry is sent, and if there is no response, TERMINAL will end up being 0.  If there is a response, TERMINAL will be set to 255.  If nexprs is less than 128, the number just gets stored.  This saves a small amount of room in variable space, and does not get CLEARed.
+
+
+1.104     THEN
+
+Syntax:   IF argument [THEN] statement
+
+Example:  IF info(6) THEN a=0
+
+     The THEN command is used with the IF statement.  THEN can be used to separate the IF test from the rest of the line to execute if the IF is true.  This can be replaced with a colon (:) if you need to reduce the length of your lines.
+
+
+1.105     TIME$
+
+Syntax:   string=TIME$
+
+Example:  print "The time is: "TIME$
+
+     The TIME$ function is used to get the current time from your clock.  If your system is equipped with a clock, the time will be returned in a "HH:MM:SS" type of format.  If your clock is set for a 12 hour format, you will not get full 24 hour time.
+
+
+1.106     TIME12$
+
+Syntax:   sexprs=TIME12$
+
+Example:  t$=TIME12$
+
+     The TIME12$ returns the current time in 12 hour format, eg: HH:MM:SS xm.  If your clock is set up for 12 hour format, then you will always get a result that is always AM.
+
+
+1.107     TO
+
+Syntax:   See FOR and MOVE commands
+
+     This statement is used as an argument separator in the FOR and MOVE commands.
+
+
+1.108     TONE
+
+Syntax:   TONE(nvar1,nvar2,[nvar3])
+          PRINT TOME(nvar1,nvar2[,nvar3])
+
+Example:  TONE(50,60,100)
+
+     The TONE command will generate sound from the local speaker.  If you only use the first two arguments (as the pitch and duration) it will give true sound.  If using the third argument, the first two become pitch and offset.  The third then becomes the duration.
+
+
+1.109     TYPE
+
+Syntax:   TYPE fname
+
+Example:  TYPE "help/help.main"
+
+     This command types a file to the console.  It will handle AppleWorks files and text files.
+
+
+1.110     UNLOCK
+
+Syntax:   UNLOCK fname
+
+Example:  UNLOCK "data/info"
+
+     This command changes the access flags for the specified file.  It allows the file to be written to, deleted, or renamed.
+
+
+1.111     UPPER$
+
+Syntax:   UPPER$(svar)
+
+Example:  input @2"Enter data: "s$:UPPER$(s$)
+
+     This function converts the argument variable to all upper case.
+
+
+1.112     VAL
+
+Syntax:   nvar=VAL(svar)
+
+Example:  z=val(i$)
+
+     The VAL statement is used to find the numerical value of a string.  The VAL statement is used when you have a string containing a number.
+
+
+1.113     WHEN$
+
+Syntax:   WHEN$=memloc
+          sexprs=WHEN$
+          WHEN$=svar
+
+Example:  WHEN$=a$:a$=WHEN$
+
+     The WHEN$ statement is a date compression scheme.  The first syntax point WHEN$ to two free bytes in memory.  When the WHEN$ function is used, 2 bytes will be retrieved from memory and will be translated into a "MM/DD/YY" format.  With ACOS, when you assigned WHEN$ a value, the current date would be read and changed into a two byte compressed format and saved to the current memory pointer.  With LLUCE, if a valid date in the form of "MM/DD/YY" is provided, this date is used.  If the value isn't a valid date, the current date is used.
+
+
+1.114     WIDTH
+
+Syntax:   nvar=WIDTH(nvar)
+          WIDTH=number
+          nvar=WIDTH
+
+Example:  a=width(0); WIDTH=40; x=WIDTH
+
+     In the first syntax, WIDTH(x) (where x is 1-4) will return the 4 most commonly used video widths.  WIDTH(0) will return the number of the width (1-4) that should be used as a default.
+
+     The second and third syntax's are used to set and get the video width used within the editor.  Any value from 1 to 255 is legal.  The most often used widths are 32, 40, 64, 80, 128.  All operations within the editor will be based around this width.  You can also read the current width using it as a function.
+
+
+1.115     WINDOW
+
+Syntax:   WINDOW top[,bottom[,left[,right]]]
+
+Example:  WINDOW 4
+
+     This command sets the local window.  It is usually used only to set the top line available to normal text.  This would be used to protect user statistics.  The video driver has not been changed to handle any left or right window values, and these are ignored at this time.
+
+
+1.116     WORD
+
+Syntax:   WORD=expression
+          nvar=WORD
+          nvar=WORD(number)
+          WORD(number)=number65535
+
+Example:  p=WORD; WORD=ram2; WORD(4)=12
+
+     The WORD function is a low overhead data storage unit.  Just point to where in memory you want the data to be stored using the first syntax, and you can then access the data using the third and fourth syntax's.
+
+
+1.117     WRITE
+
+Syntax:   WRITE #dev,memloc,nvar
+
+Example:  write #1,ram,34
+
+     The WRITE statement is used to write binary data from memory to one of LLUCE's device channels.  The only channel that cannot be used is #7.  The second argument is the memory location from which LLUCE will write.  The third is the number of bytes to write.
+
+
+1.118     XOR
+
+Syntax:   nvar=nexprs XOR nexprs
+
+Example:  z=x XOR y
+
+     This function returns the binary exclusive OR of two numbers.  It compares the bits, and if any two bits do not match, a 1 is returned in the result, if not, a 0 is returned in the result.
+
+
+                             DEVICE SPECIFIERS
+
+#0:  Local & remote consoles [default]
+#1:  Disk file #1
+#2:  Disk File #2
+#3:  Disk file #3
+#4:  Local console only  READ ONLY
+#5:  Remote console only (modem)
+#6:  Printer             WRITE ONLY
+#7:  Message file        READ/WRITE
+#8:  Message file        READ ONLY
+#9:  Editor
+#10: Internal 256 byte RAM area
diff --git a/DOCS/LLUCE/APPENDIX b/DOCS/LLUCE/APPENDIX
new file mode 100644
index 0000000..ceab046
Binary files /dev/null and b/DOCS/LLUCE/APPENDIX differ
diff --git a/DOCS/LLUCE/CHAPTER.1.1 b/DOCS/LLUCE/CHAPTER.1.1
new file mode 100644
index 0000000..e7b6538
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.1.1 differ
diff --git a/DOCS/LLUCE/CHAPTER.2 b/DOCS/LLUCE/CHAPTER.2
new file mode 100644
index 0000000..5949b5c
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.2 differ
diff --git a/DOCS/LLUCE/CHAPTER.3.1 b/DOCS/LLUCE/CHAPTER.3.1
new file mode 100644
index 0000000..25eefbc
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.3.1 differ
diff --git a/DOCS/LLUCE/CHAPTER.3.2 b/DOCS/LLUCE/CHAPTER.3.2
new file mode 100644
index 0000000..e8a183e
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.3.2 differ
diff --git a/DOCS/LLUCE/CHAPTER.4.1 b/DOCS/LLUCE/CHAPTER.4.1
new file mode 100644
index 0000000..ccf9af3
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.4.1 differ
diff --git a/DOCS/LLUCE/CHAPTER.4.2 b/DOCS/LLUCE/CHAPTER.4.2
new file mode 100644
index 0000000..0d04954
Binary files /dev/null and b/DOCS/LLUCE/CHAPTER.4.2 differ
diff --git a/DOCS/LLUCE/INTRO b/DOCS/LLUCE/INTRO
new file mode 100644
index 0000000..e4a7d2d
Binary files /dev/null and b/DOCS/LLUCE/INTRO differ
diff --git a/LLUCE/ANSI.DOC b/LLUCE/ANSI.DOC
new file mode 100644
index 0000000..68145cd
--- /dev/null
+++ b/LLUCE/ANSI.DOC
@@ -0,0 +1,514 @@
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+
+                         ANSI & DEC VT100 Codes
+
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
+
+
+   The following text will describe the various escape codes that allow
+computers to transmit color text over communication lines.  Using ANSI
+escape codes, any computer can receive and transmit color text as long as
+the communication program can interpret the escape sequences.
+   The escape sequences can be thought of the same as ones sent to a printer
+to change the appearance of the output.  All ANSI codes begin with the one
+byte character ESC (decimal 27), and are followed by the left bracket "[".
+Additional parameters, which follow the bracket are seperated with a semi-
+colon.	All codes are ended with a single alphabetic character which determines
+the function of the escape sequence.
+   Since the characters come in one at a time, as soon as the ESC character
+is received start building the sequence until an alphabetic character is
+input.	The case of the alphabetic character is very important since they
+mean different things.	For example,"H" (which means set cursor position)
+is different than "h" ,(which means set the display width and type).
+
+
+   Notes:
+	  1) The default value is used when no explicit
+	     value is given, or a value of zero, is
+	     specified.
+
+	  2) The default value is 1 unless otherwise
+	     specified below.
+
+	  3) # - Numeric Parameter.  A decimal number
+	     specified with ASCII characters.
+
+	  4) In the control sequences described below,
+	     ESC is the 1 byte code for ESC (decimal 27),
+	     and not the three characters "ESC".
+
+
+
+CURSOR CONTROL
+
+   Cursor Position (CUP)
+     ESC[#;#H		    Moves the cursor to the position
+			    specified by the parameter.  The first
+			    parameter specifies the line number and
+			    the second parameter specifies the column
+			    number.  If no parameter is given, the
+			    cursor is moved to the home position
+			    (Row 1, Column 1).
+			      Example: ESC[10;20H  - moves the cursor to
+						   row 10, column 20.
+
+   Cursor Up (CUU)
+     ESC[#A		    Moves the cursor up # lines without
+			    changing columns.  The value of #
+			    determines the number of lines to move up.
+			    This sequence is ignored if the cursor is
+			    already on the top line.
+			      Example: ESC[5A	   - moves the cursor up
+						   5 lines without changing
+						   columns.
+
+   Cursor Down (CUD)
+     ESC[#B		    Moves the cursor down # lines without changing
+			    columns.  The value of # determines the number
+			    of lines to move down.
+			    This sequence is ignored if the cursor is
+			    already on the bottom line.
+			      Example: ESC[5B	   - moves the cursor down
+						   5 lines without changing
+						   columns.
+
+   Cursor Forward (CUF)
+     ESC[#C		    Moves the cursor forward # columns without
+			    changing lines.  The value of # determines
+			    the number of columns moved forward.
+			    This sequence is ignored if the cursor is already
+			    in the rightmost column.
+			      Example: ESC[25C	   - moves the cursor forward
+						   25 columns.
+
+   Cursor Backward (CUB)
+     ESC[#n		    Moves the cursor back # columns without changing
+			    lines.  The value # determines the number of
+			    columns moved backwards.
+			    This sequence is ignored if the cursor is already
+			    in the leftmost column.
+			      Example: ESC[1n	   - moves the cursor backwards
+						   1 column.
+
+   Horizontal and Vertical Position (HVP)
+     ESC[#;#f		    This control sequence is the same as CUP.
+			      Example: ESC[10;20f  - moves the cursor to
+						   row 10, column 20.
+
+   Device Status Report (DSR)
+     ESC[6n		    Upon receipt of this command, the console
+			    driver will output a CPR sequence as described
+			    below.
+
+   Cursor Position Report (CPR)
+     ESC[#;#R		    The CPR sequence reports the current cursor
+			    position through the standard input device.  The
+			    first parameter specifies the current line and
+			    the second parameter specifies the current column.
+
+   Save Cursor Position (SCP)
+     ESC[s		    The current cursor position is saved.  This
+			    cursor position can be restored with the RCP
+			    sequence.
+
+   Restore Cursor Position (RCP)
+     ESC[u		    Restores the cursor to the value it had when
+			    the control sequence SCP was received.
+
+   Erase in Display (ED)
+     ESC[2J		    Erases all of the screen and the cursor goes
+			    to the home position (row 1, column 1).
+
+   Erase in Line (EL)
+     ESC[k		    Erases from the cursor to the end of the line
+			    and includes the cursor position.
+
+   Set Graphics Rendition (SGR)
+     ESC[#;...;#m	    Set the character attribute specified by then
+			    parameter(s). All following characters will
+			    have the attribute according to the parameter(s)
+			    until the next occurrence of SGR.
+			      Note:  attribute means the foreground color, the
+				     background color, blink, high intensity,
+				     underscore, reverse video, and invisible.
+
+			   Parameter	 Meaning
+			      0 	 All Attributes Off (white on black)
+			      1 	 Bold On (high intensity)
+			      4 	 Underscore On (Some monitors only)
+			      5 	 Blink On
+			      7 	 Reverse Video
+			      8 	 Cancelled On (invisible)
+			      30	 Black Foreground
+			      31	 Red Foreground
+			      32	 Green Foreground
+			      33	 Yellow Foreground
+			      34	 Blue Foreground
+			      35	 Magenta Foreground
+			      36	 Cyan Foreground
+			      37	 White Foreground
+			      40	 Black Background
+			      41	 Red Background
+			      42	 Green Background
+			      43	 Yellow Background
+			      44	 Blue Background
+			      45	 Magenta Background
+			      46	 Cyan Background
+			      47	 White Background
+
+			      Example: ESC[33;40;1m    - all following
+						       characters will have
+						       a Yellow foreground,
+						       a Black background,
+						       and be in high intensity
+						       until receipt of another
+						       SGR control sequence.
+
+				       ESC[0m	       - all following
+						       characters will have
+						       a white foreground, on
+						       a black background, in
+						       normal intensity.
+
+
+			      Note:  Several parameters can be stacked.  For
+				     example, ESC[0;1;5;7;31;44m
+					      the above example will reset the
+					      attributes, set high intensity,
+					      set blink on, set reversed video,
+					      set foreground color to red, and
+					      set background color to blue.
+						 Note that since reverse video
+						 is on the foreground will
+						 actually be blue and the
+						 background will be red.
+
+
+
+Here is the requested list of ANSI control sequences. I picked it
+up off of the Usenet a while back.
+
+ ANSI Standard (X3.64) Control Sequences for Video Terminals and Peripherals
+                       in alphabetic order by mnemonic
+
+     (Inspired by the article "Toward Standardized Video Terminals: ANSI
+      X3.64 Device Control" by Mark L. Siegel, April 1984 BYTE, page 365)
+
+        Note: This describes the VT-100 standard.
+
+               (Ps and Pn are parameters expressed in ASCII.)
+               (Numeric parameters are given in decimal radix.)
+               (Abbreviations are explained in detail at end.)
+               (Spaces used in this table for clarity are not
+                used in the actual codes.)
+
+                                                           Default    Type
+Sequence     Sequence                                      Parameter   or
+Mnemonic     Name              Sequence                    Value      Mode
+ ---------------------------------------------------------------------------
+APC  Applicatn Program Command Esc Fe                                 Delim
+CBT  Cursor Backward Tab       Esc [ Pn Z                   1         EdF
+CCH  Cancel Previous Character Esc T
+CHA  Cursor Horzntal Absolute  Esc [ Pn G                   1         EdF
+CHT  Cursor Horizontal Tab     Esc [ Pn I                   1         EdF
+CNL  Cursor Next Line          Esc [ Pn E                   1         EdF
+CPL  Cursor Preceding Line     Esc [ Pn F                   1         EdF
+CPR  Cursor Position Report    Esc [ Pn ; Pn R              1, 1
+CSI  Control Sequence Intro    Esc [                                  Intro
+CTC  Cursor Tab Control        Esc [ Ps W                   0         EdF
+CUB  Cursor Backward           Esc [ Pn D                   1         EdF
+CUD  Cursor Down               Esc [ Pn B                   1         EdF
+CUF  Cursor Forward            Esc [ Pn C                   1         EdF
+CUP  Cursor Position           Esc [ Pn ; Pn H              1, 1      EdF
+CUU  Cursor Up                 Esc [ Pn A                   1         EdF
+CVT  Cursor Vertical Tab       Esc [ Pn Y                             EdF
+DA   Device Attributes         Esc [ Pn c                   0
+DAQ  Define Area Qualification Esc [ Ps o                   0
+DCH  Delete Character          Esc [ Pn P                   1         EdF
+DCS  Device Control String     Esc P                                  Delim
+DL   Delete Line               Esc [ Pn M                   1         EdF
+DMI  Disable Manual Input      Esc \                                  Fs
+DSR  Device Status Report      Esc [ Ps n                   0
+EA   Erase in Area             Esc [ Ps O                   0         EdF
+ECH  Erase Character           Esc [ Pn X                   1         EdF
+ED   Erase in Display          Esc [ Ps J                   0         EdF
+EF   Erase in Field            Esc [ Ps N                   0         EdF
+EL   Erase in Line             Esc [ Ps K                   0         EdF
+EMI  Enable Manual Input       Esc b                                  Fs
+EPA  End of Protected Area     Esc W
+ESA  End of Selected Area      Esc G
+FNT  Font Selection            Esc [ Pn ; Pn Space D        0, 0      FE
+GSM  Graphic Size Modify       Esc [ Pn ; Pn Space B        100, 100  FE
+GSS  Graphic Size Selection    Esc [ Pn Space C             none      FE
+HPA  Horz Position Absolute    Esc [ Pn `                   1         FE
+HPR  Horz Position Relative    Esc [ Pn a                   1         FE
+HTJ  Horz Tab w/Justification  Esc I                                  FE
+HTS  Horizontal Tab Set        Esc H                                  FE
+HVP  Horz & Vertical Position  Esc [ Pn ; Pn f              1, 1      FE
+ICH  Insert Character          Esc [ Pn @                   1         EdF
+IL   Insert Line               Esc [ Pn L                   1         EdF
+IND  Index                     Esc D                                  FE
+INT  Interrupt                 Esc a                                  Fs
+JFY  Justify                   Esc [ Ps ; ... ; Ps Space F  0         FE
+MC   Media Copy                Esc [ Ps i                   0
+MW   Message Waiting           Esc U
+NEL  Next Line                 Esc E                                  FE
+NP   Next Page                 Esc [ Pn U                   1         EdF
+OSC  Operating System Command  Esc ]                                  Delim
+PLD  Partial Line Down         Esc K                                  FE
+PLU  Partial Line Up           Esc L                                  FE
+PM   Privacy Message           Esc ^                                  Delim
+PP   Preceding Page            Esc [ Pn V                   1         EdF
+PU1  Private Use 1             Esc Q
+PU2  Private Use 2             Esc R
+QUAD Typographic Quadding      Esc [ Ps Space H             0         FE
+REP  Repeat Char or Control    Esc [ Pn b                   1
+RI   Reverse Index             Esc M                                  FE
+RIS  Reset to Initial State    Esc c                                  Fs
+RM   Reset Mode                Esc [ Ps l                   none
+SD   Scroll Down               Esc [ Pn T                   1         EdF
+SEM  Select Edit Extent Mode   Esc [ Ps Q                   0
+SGR  Select Graphic Rendition  Esc [ Ps m                   0         FE
+SL   Scroll Left               Esc [ Pn Space @             1         EdF
+SM   Select Mode               Esc [ Ps h                   none
+SPA  Start of Protected Area   Esc V
+SPI  Spacing Increment         Esc [ Pn ; Pn Space G        none      FE
+SR   Scroll Right              Esc [ Pn Space A             1         EdF
+SS2  Single Shift 2 (G2 set)   Esc N                                  Intro
+SS3  Single Shift 3 (G3 set)   Esc O                                  Intro
+SSA  Start of Selected Area    Esc F
+ST   String Terminator         Esc \                                  Delim
+STS  Set Transmit State        Esc S
+SU   Scroll Up                 Esc [ Pn S                   1         EdF
+TBC  Tab Clear                 Esc [ Ps g                   0         FE
+TSS  Thin Space Specification  Esc [ Pn Space E             none      FE
+VPA  Vert Position Absolute    Esc [ Pn d                   1         FE
+VPR  Vert Position Relative    Esc [ Pn e                   1         FE
+VTS  Vertical Tabulation Set   Esc J                                  FE
+
+ ---------------------------------------------------------------------------
+
+Abbreviations:
+
+Intro  an Introducer of some kind of defined sequence; the normal 7-bit
+       X3.64 Control Sequence Introducer is the two characters "Escape ["
+
+Delim  a Delimiter
+
+x/y    identifies a character by position in the ASCII table (column/row)
+
+EdF    editor function (see explanation)
+
+FE     format effector (see explanation)
+
+F      is a Final character in
+            an Escape sequence (F from 3/0 to 7/14 in the ASCII table)
+            a control sequence (F from 4/0 to 7/14)
+
+Gs     is a graphic character appearing in strings (Gs ranges from
+       2/0 to 7/14) in the ASCII table
+
+Ce     is a control represented as a single bit combination in the C1 set
+       of controls in an 8-bit character set
+
+C0     the familiar set of 7-bit ASCII control characters
+
+C1     roughly, the set of control characters available only in 8-bit systems.
+       This is too complicated to explain fully here, so read Jim Fleming's
+       article in the February 1983 BYTE, especially pages 214 through 224.
+
+Fe     is a Final character of a 2-character Escape sequence that has an
+       equivalent representation in an 8-bit environment as a Ce-type
+       (Fe ranges from 4/0 to 5/15)
+
+Fs     is a Final character of a 2-character Escape sequence that is
+       standardized internationally with identical representation in 7-bit
+       and 8-bit environments and is independent of the currently
+       designated C0 and C1 control sets (Fs ranges from 6/0 to 7/14)
+
+I      is an Intermediate character from 2/0 to 2/15 (inclusive) in the
+       ASCII table
+
+P      is a parameter character from 3/0 to 3/15 (inclusive) in the ASCII
+       table
+
+Pn     is a numeric parameter in a control sequence, a string of zero or
+       more characters ranging from 3/0 to 3/9 in the ASCII table
+
+Ps     is a variable number of selective parameters in a control sequence
+       with each selective parameter separated from the other by the code
+       3/11 (which usually represents a semicolon); Ps ranges from
+       3/0 to 3/9 and includes 3/11
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+
+Format Effectors versus Editor Functions
+
+A format effector specifies how the final output is to be created.
+An editor function allows you to modify the specification.
+
+For instance, a format effector that moves the "active position" (the
+cursor or equivalent) one space to the left would be useful when you want to
+create an over strike, a compound character made of two standard characters
+overlaid. Control-H, the Backspace character, is actually supposed to be a
+format effector, so you can do this. But many systems use it in a
+nonstandard fashion, as an editor function, deleting the character to the
+left of the cursor and moving the cursor left. When Control-H is assumed to
+be an editor function, you cannot predict whether its use will create an
+over strike unless you also know whether the output device is in an "insert
+mode" or an "overwrite mode". When Control-H is used as a format effector,
+its effect can always be predicted. The familiar characters carriage
+return, linefeed, formfeed, etc., are defined as format effectors.
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
+
+ANSI X3.64 Mode-Changing Parameters for use with the
+           Select Mode (SM) and Reset Mode (RM) functions
+
+    Parameter           Mode          Mode Function
+    Characters          Mnemonic
+ column/    graphic
+  row       repres.
+ ----------------------------------------------------------------------------
+3/0           0                       an error condition
+3/1           1          GATM         guarded-area transfer mode
+3/2           2          KAM          keyboard action mode
+3/3           3          CRM          control representation mode
+3/4           4          IRM          insertion/replacement mode
+3/5           5          SRTM         status-reporting transfer mode
+3/6           6          ERM          erasure mode
+3/7           7          VEM          vertical editing mode
+3/8           8                       reserved for future standardization
+3/9           9                       reserved for future standardization
+3/10          :                       reserved separator for parameters
+3/11          ;                       Standard separator for parameters
+3/12          <                       reserved for private (experimental) use
+3/13          =                       reserved for private (experimental) use
+3/14          >                       reserved for private (experimental) use
+3/15          ?                       reserved for private (experimental) use
+3/1  3/0      10         HEM          horizontal editing mode
+3/1  3/1      11         PUM          positioning unit mode
+3/1  3/2      12         SRM          send/receive mode
+3/1  3/3      13         FEAM         format effector action mode
+3/1  3/4      14         FETM         format effector transfer mode
+3/1  3/5      15         MATM         multiple area transfer mode
+3/1  3/6      16         TTM          transfer termination mode
+3/1  3/7      17         SATM         selected area transfer mode
+3/1  3/8      18         TSM          tabulation stop mode
+3/1  3/9      19         EBM          editing boundary mode
+3/1  3/10     1:                      reserved separator for parameters
+3/1  3/11     1;                      Standard separator for parameters
+3/1  3/12     1<                      error condition--unspecified recovery
+3/1  3/13     1=                      error condition--unspecified recovery
+3/1  3/14     1>                      error condition--unspecified recovery
+3/1  3/15     1?                      error condition--unspecified recovery
+3/2  3/0      20         LNM          linefeed/newline mode (not in ISO 6429)
+3/2  3/1      21
+ .            .
+ .            .                       reserved for future standardization
+ .            .
+3/9  3/9      99
+
+3/12 3/0      <0
+ .            .
+ .            .                       reserved for private (experimental) use
+ .            .
+3/15 3/15     ??
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
+
+NOTES ON THE DEC VT100 IMPLEMENTATION
+
+In the case of the popular DEC VT100 video-terminal implementation,
+the only mode that may be altered is the linefeed/newline (LNM) mode.
+Other modes are considered permanently set, reset, or not applicable
+as follows:
+
+     Set:   ERM
+     Reset: CRM, EBM, FEAM, FETM, IRM, KAM, PUM, SRTM, TSM
+     N/A:   GATM, HEM, MATM, SATM, TTM, VEM
+
+Control sequences implemented in the VT100 are as follows:
+
+     CPR, CUB, CUD, CUF, CUP, CUU, DA, DSR, ED, EL, HTS, HVP, IND,
+     LNM, NEL, RI, RIS, RM, SGR, SM, TBC
+
+plus several private DEC commands.
+
+Erasing parts of the display (EL and ED) in the VT100 is performed thus:
+
+     Erase from cursor to end of line           Esc [ 0 K    or Esc [ K
+     Erase from beginning of line to cursor     Esc [ 1 K
+     Erase line containing cursor               Esc [ 2 K
+     Erase from cursor to end of screen         Esc [ 0 J    or Esc [ J
+     Erase from beginning of screen to cursor   Esc [ 1 J
+     Erase entire screen                        Esc [ 2 J
+
+The VT100 responds to receiving the DA (Device Attributes) control
+
+     Esc [ c    (or Esc [ 0 c)
+
+by transmitting the sequence
+
+     Esc [ ? l ; Ps c
+
+where Ps is a character that describes installed options.
+
+The VT100's cursor location can be read with the DSR (Device Status
+Report) control
+
+     Esc [ 6 n
+
+The VT100 reports by transmitting the CPR sequence
+
+     Esc [ Pl ; Pc R
+
+where Pl is the line number and Pc is the column number (in decimal).
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
+
+The complete document describing the standard,  "ANSI X3.64-1979:
+Additional Controls for Use with the American National Standard
+Code for Information Interchange," can be ordered for $13.50 (plus
+$4 postage) from
+
+     Standards Sales Department
+     American National Standards Institute
+     1430 Broadway
+     New York, NY 10018
+     212/354-3300
+
+It's best to read the full standard before using it. It also helps
+to have copies of the related standards "X3.4-1977: American
+National Standard Code for Information Interchange" (the ASCII
+standard) and "X3.41.1974: Code-Extension Techniques for Use with
+the 7-Bit Coded Character Set of American National Standard for
+Information Interchange."
+
+See also the chapter "Using Extended Screens and Keyboard Control"
+in the IBM PC-DOS manuals (versions 2.0, 2.1, and 3.0), especially
+for the coding for character attributes.
+
+The specification for the DEC VT100 is document EK-VT100-UG-003,
+available for $13.00 prepaid from:
+
+     Digital Equipment Corporation
+     Accessories and Supplies Group
+     POB CS-2008
+     Nashua, NH 03061
+
+(Copyright 1984 BYTE Publications, subsidiary of McGraw-Hill Inc.)
+(Permission granted to reproduce for noncommercial uses.)
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
+
+For more information on programming ANSI or VT-100 Emulations into your ACOS segments, call the Orient GS @ (416) 241-4360 in Toronto Ont. 14.4K USR 24Hrs.
+Good Luck in you ANSI programming... Pat..
+
+v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v
+^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^v^
diff --git a/LLUCE/BULLETINS/B1 b/LLUCE/BULLETINS/B1
new file mode 100644
index 0000000..60e68e0
Binary files /dev/null and b/LLUCE/BULLETINS/B1 differ
diff --git a/LLUCE/EMAIL/MAIL b/LLUCE/EMAIL/MAIL
new file mode 100644
index 0000000..33c642d
Binary files /dev/null and b/LLUCE/EMAIL/MAIL differ
diff --git a/LLUCE/LLUCE.DRIVERS b/LLUCE/LLUCE.DRIVERS
new file mode 100644
index 0000000..bd39bf0
Binary files /dev/null and b/LLUCE/LLUCE.DRIVERS differ
diff --git a/LLUCE/LLUCE.SYSTEM b/LLUCE/LLUCE.SYSTEM
new file mode 100644
index 0000000..5fd9a8c
Binary files /dev/null and b/LLUCE/LLUCE.SYSTEM differ
diff --git a/LLUCE/LLUCE.TEXT b/LLUCE/LLUCE.TEXT
new file mode 100644
index 0000000..e232e16
Binary files /dev/null and b/LLUCE/LLUCE.TEXT differ
diff --git a/LLUCE/MATT/AMDSS.S b/LLUCE/MATT/AMDSS.S
new file mode 100644
index 0000000..12d8d52
--- /dev/null
+++ b/LLUCE/MATT/AMDSS.S
@@ -0,0 +1,88 @@
+; AMDSS is copyright by Morgan Davis
+; Adaptation by Matthew Montano
+; 
+; This version July 27th, 1989
+; Version .91b of AMDSS
+
+            public                                                   out
+            public                                                   connect
+            on                                                       nocar                                                   goto
+
+            goto                                                     connect
+
+out
+            ou=1
+            gosub                                                    send
+            gosub                                                    r.file
+            goto                                                     hangup
+
+connect
+            v1$="b":x=1:bt$="":echo=" ":kill                         "g:batch":create                                        "g:batch"
+            print                                                    "id:";
+            input                                                    @3                                                      i$:if
+            a=instr(";",i$):no$=left$(i$,a-1):c$=mid$(i$,a+1)
+            open                                                     #1,"g:net.pass"
+check.node
+            input                                                    #1,b$
+            b=instr(";",b$):n2$=left$(b$,b-1):c2$=mid$(b$,b+1)
+            if                                                       (no$=n2$)                                               and
+            if                                                       b$=""                                                   close:r$="AMDSS - connect1:"+no$+" attempted to use "+c$+" to login":gosub
+            goto                                                     check.node
+cp.1
+            input                                                    #1,i$:if                                                i$=""
+            a=instr(";",i$):if                                       left$(i$,a-1)<>no$                                      goto
+            i=val(mid$(i$,a+1)):close
+            r$="AMDSS - "+no$+" logged in @ "+date$+"-"+time$:print  #3,r$:gosub                                             amdss.log
+
+r.file
+            print                                                    #3,"Recieving.."
+            f$="               ":use                                 v1$+":protocol.up",250,1,"i:",f$
+            if                                                       left$(f$,2)="  "                                        and
+            if                                                       left$(f$,2)="  "                                        create
+            if                                                       er>10:r$="Bad connection":gosub                         amdss.log:modem(1):goto
+            if                                                       peek(10)>0                                              print
+            x=x+1
+            r$="  recieved "+f$+" from "+no$+" at "+time$:gosub      amdss.log
+            goto                                                     r.file
+
+send
+            b=1:lg$="i"+str$(i)+":":print                            "Getting a file":gosub                                  getfnum
+            f$="i"+str$(i)+":"+fx$
+            if                                                       ou                                                      and
+            if                                                       left$(fx$,3)="   "                                      close:print
+            if                                                       left$(fx$,3)="   ":r$="AMDSS: connection with "+no$+" ended at "+time$:gosub  amdss.log:goto
+send1.1
+            use                                                      v1$+":protocol.down",140,1,f$
+            if                                                       peek(10)>0                                              print
+            if                                                       er=10                                                   print
+            ready" ":kill                                            f$:close:r$="  sent "+f$+" to "+no$+" at "+time$:gosub  amdss.log
+            goto                                                     send
+
+getfnum
+            fx$=chr$(32,15)
+            print                                                    "fx$="fx$"-":print                                      "b="b"-":print
+            print                                                    "This works the first time but fails the second"
+            use                                                      v1$+":xcat",b,lg$,fx$,bt$,bt$,bt$,bt$,bt$,bt$,bt$,bt$
+            return
+
+hang.up
+            close:call                                               edit(5),250,1:close
+            r$="Connection with "+no$+" lost at "+time$:gosub        amdss.log
+            e$="amdss":link                                          "a:parse"
+
+amdss.log
+            close
+            open                                                     #1,"g:amdss.log"
+            a=mark(1):if                                             a                                                       close:create
+            append                                                   #1
+            print                                                    #1,r$
+            close
+            return
+
+sort.mail
+            r$="AMDSS process ended at "+time$:gosub                 amdss.log
+
+hangup
+            modem(1):echo="":e$="amdss":link                         "a:parse"
+
+
diff --git a/LLUCE/MATT/Finder.Data b/LLUCE/MATT/Finder.Data
new file mode 100644
index 0000000..d242af1
Binary files /dev/null and b/LLUCE/MATT/Finder.Data differ
diff --git a/LLUCE/MATT/LANCE.TALK b/LLUCE/MATT/LANCE.TALK
new file mode 100644
index 0000000..c0e556e
--- /dev/null
+++ b/LLUCE/MATT/LANCE.TALK
@@ -0,0 +1,22 @@
+LLUCE requirements for Networked setup:
+
+1) Obvious "link"ages into the email segment
+2) System segment commands to do a manual parsing of needed files
+3) The support of a different variable containing the systems "network" site name
+4) Status flags for a networked message base
+5) Modifications to the wait routine to allow it to link out at a specified time (code availible if you want it).
+
+Message segements modifications:
+
+6.1 - Networked message bases must have string (for each message base) containing a network mail address (for feeds)
+6.2 - When replying to a networked message base, the message segment must link to the mail segment to a specific label.
+
+7) During the login, if the users name is a specified name, link to a specific segment
+
+During the setup phase of GBBS, prompts should be added to ask for:
+        a) network site name
+        b) bps call out speed
+
+I will write a complete network maintenance segment.
+
+I have tested my amdss and mdss segments all today.. They all work great! Everything works wondeful, including aliasing etc.
diff --git a/LLUCE/MATT/MAIL.S b/LLUCE/MATT/MAIL.S
new file mode 100644
index 0000000..9db4a2c
--- /dev/null
+++ b/LLUCE/MATT/MAIL.S
@@ -0,0 +1,496 @@
+; [::::::::::::::::::::]
+; [ ProTALK v2.1       ]
+; [ Mail Segment       ]
+; [ (c) 1988 Parik Rao ]
+; [::::::::::::::::::::]
+; [ Network Mods       ]
+; [ By Matthew Montano ]
+; [::::::::::::::::::::]
+
+ public read
+ public mail
+ public net7
+
+ on nocar goto link.term
+
+read
+ wr=0
+ on nocar goto link.term
+ gosub read0:goto link.back
+
+read0
+ on nocar goto link.term
+ open #1,"g:mail."+str$(un):a=mark(1):Close
+ if a print \\"[Error]:No mail waiting!":return
+ ready "g:mail."+str$(un)
+ print:print
+read1
+ setint(1)
+ for x=1 to msg(0):input #msg(x),t,t$,t1$\t2$,t3$,t1,t4$
+ print "#"right$("00"+str$(x),2)"  --  From  :"left$(t1$+chr$(32,20),20)" ";
+ print "   Subj :"left$(t$+chr$(32,20),20)
+ next
+ setint("")
+read2
+ print \\"[Input]:Start at which message [<cr>=quit][->";:input @3 i$
+ if i$="" gosub purge:return
+ z=val(i$):if (z<1) or (z>msg(0)) print \\"[Error]:Does not exist!":goto read2
+ z=z-1:if z<0:z=0
+read3
+ z=z+1
+ if z>msg(0) goto purge
+ input #msg(z),t,t$,t1$\t2$,t3$,t1,t4$
+ setint(1)
+ print \chr$(95,79)\
+ a$="Awaiting Reply"
+ a=instr("!",t4$):b=instr("@",t4$):if aorb a$="Networked"
+ print "[:.From....:] "t1$
+ if instr("!",t4$) or instr("@",t4$) print "[:.From....:] "t4$:a$="Networked"
+ print "[:.Subject.:] "t$
+ print "[:.Letter..:] "z" of "msg(0)
+ print "[:.Date....:] "t2$"  "t3$
+ print "[:.Status..:] ";
+ if t1=1:a$="Certified"
+ if t1=2:a$="Already Read"
+ if t1=3:a$="Post Office"
+ print a$
+ print chr$(95,36)"Message"chr$(95,36)\\
+ copy #6
+ print chr$(95,79)
+ setint("")
+ if t1=2 goto read4
+ if t1<>1 goto read3b
+ if not info(5) goto read3a
+ print \"[Input]:Send Certificate? ";:gosub getkey
+ if i$="N" print "No!":t1=0:else print "Yes!"
+read3a
+ if t1=1 gosub certify
+read3b
+ input #msg(z),t,t$,t1$\t2$,t3$,t1,t4$:edit(0):copy #6,#8
+ t1=2:g=msg(z)
+ kill #msg(z):update
+ print #msg(z),t,t$,t1$\t2$,t3$,t1,t4$:copy #8,#6:msg(z)=g:update
+read4
+ if i$="+" goto read3
+ print \\"[Mail Level]:Command? ";
+read5
+ gosub getkey
+ if i$=chr$(13) or i$="N" or i$="+" print "Next":goto read3
+ if i$="D" print "Dump Mail":i$="+":goto read3
+ if i$="A" print "Auto-Reply":wr=1:sb$=t$:gosub reply:goto read4
+ if i$="Q" print "Quit":gosub purge:return
+ if i$="K" print "Kill":gosub kill:goto read4
+ if i$="F" print "Forward":gosub forward:goto read4
+ if i$="R" print "Reread":z=z-1:goto read3
+ if i$="?" print "Menu":f$="b:mail.mnu2":gosub show.file:goto read4
+ goto read5
+
+reply
+ a=instr("!",t1$):b=instr("@",t1$):if a or b goto net3
+reply1
+ if t=0 print \\"[Error]:Unknown User!":return
+ y=un:fr$=a3$
+ print \\"[:.From....:] "a3$;:if not info(5) print:goto reply2
+ print chr$(8,(len(a3$)));:input @3 i$:if i$<>"":fr$=i$:y=0
+reply2
+ if t$:if left$(t$,3)<>"Re:":sb$="Re:"+t$
+ print "[:.Subject.:] "sb$;chr$(8,(len(sb$)));:input @3 i$
+ if i$<>"":sb$=i$
+ print "[:.Date....:] "date$"  "time$\
+ close:ready "      ":f$="g:mail."+str$(t):open #1,f$:a=mark(1):close
+ if a gosub msg
+ st=0
+ print \"[Input]:Do you wish to send via certified mail? ";:gosub getkey
+ if i$<>"Y" print "No!!":else print "Yes!":st=1
+ print \"[Input]:Do you wish to Xmodem your message? ";:gosub getkey
+ if i$<>"Y" print "No!!":goto reply2a:else gosub up.xmdm
+ goto reply3
+reply2a
+ edit(0)
+reply2b
+ Gosub editor
+reply3
+ if not edit(2) return
+ print \"[Wait]:Saving Message...";
+ t4$="":ready f$
+ print ".";
+ c=msg(0)+1:print #msg(c),y,sb$,fr$\date$,time$,st,t4$
+ copy #8,#6
+ print ".";
+ update:open #1,"g:mail."+str$(un):a=mark(1):close
+ if not a ready "g:mail."+Str$(un)
+ print ".Done!":return
+
+purge
+ print \\"[Input]:Delete all your mail? ";:gosub getkey
+ if i$<>"Y" print "No!!":return
+ print "Yes!!":ready "   ":close
+ f$="g:mail."+str$(un):kill f$:return
+
+kill
+ print \\"[Input]:Delete THIS letter? ";:gosub getkey
+ if i$<>"Y" print "No!!":return
+ print "Yes!!":kill #msg(z):crunch:update:print \\"[Note]:Message Deleted."
+ return
+
+forward
+ input @3 \\"[Input]:To who (user #) :"i$
+ a=val(i$):if (a<1) or (a>nu) print \\"[Error]:Invalid User!!":return
+ f$="g:mail."+str$(a):open #1,f$:b=mark(1):close
+ if b gosub msg
+ ready "g:mail."+str$(un)
+ input #msg(z),y,y$,y1$\y2$,y3$,st,t4$:edit(0):copy #6,#8
+ t=a:fr$=a3$:y=un:sb$="Forwarded"
+ print \"[Wait]:Saving Message...";
+ ready f$
+ print ".";
+ c=msg(0)+1:print #msg(c),y,sb$,fr$\date$,time$,st,t4$
+ print #6,"<-> A Forwarded Letter <->"
+ print #6,\"[:..Originally From..:] "y1$"  @"y4$
+ print #6,"[:..Subject..........:] "y$
+ print #6,"[:..Date & Time......:] "y2$"  "y3$\\
+ copy #8,#6
+ print ".";
+ update
+ ready "g:mail."+str$(un) 
+ print ".done!"
+ return
+
+link.back
+ ae=0:link "a:main.seg","fromsys"
+
+link.term
+ link "a:main.seg","term1"
+
+msg
+ kill f$:create f$:open #1,f$:ed=edit(5):fill ed,255,0:poke ed,4:poke ed+1,4
+ write #1,ed,2:fill ed,255,0:for xz=1 to 4:write #1,ed,255:next:write #1,ed,10
+ close #1:return
+
+mail
+ wr=0
+ on nocar goto link.term
+ print \\"[Mail Level]:Command? ";
+mail2
+ gosub getkey
+ if i$="?" print "Menu":f$="b:mail.mnu":gosub show.file:goto mail
+ if i$="P" print "Purge Mail":gosub purge:goto mail
+ if i$="R" print "Read Mail":a=0:ready "   ":close:gosub read0:goto mail
+ if i$="S" print "Send Mail":gosub send:goto mail
+ if i$="Q" print "Quit":goto link.back
+ if i$="N" print "Net Stations":gosub stats:goto mail
+ if i$="B" print "Bulk Mailing":gosub bulk:close:goto mail
+ if i$="E" print "Edit OutGoing Mail":gosub edit:goto mail
+ if i$="L" print "List Users with mail":Gosub u.list:goto mail
+ goto mail2
+
+show.file
+ setint(1):copy f$:setint(""):return
+
+editor
+ print sc$'
+ ____________________________________________________________________________
+|                                                                            |
+| Enter Message Now                                               .S to Save |
+|____________________________________________________________________________|'
+ aa=clock(2):clock(2)=0:edit(1):clock(2)=aa:return
+
+getkey
+ s1=y:s2=q:y=0
+get2
+ q=key(0):if (q>96) and (q<123):q=q-32
+ if q<>0:i$=chr$(q):y=s1:q=s2:return
+ y=y+1
+ if y=1500 print chr$(7,10);:goto get2
+ if y=3000 print \"Timeout.  Bye...":goto link.term
+ goto get2
+
+u.list
+ y=0:if not info(5) goto u.list1
+ print \\"[Input]: Dump to printer? ";:gosub getkey
+ if i$="Y" print "Yes!":y=5:else print "No!"
+u.list1
+ print #y,'
+ ____________________________________________________
+|     |                      |                       |
+| ### | Name                 | Last On               |
+|_____|______________________|_______________________|
+|     |                      |                       |'
+ setint(""):setint(1)
+;MODIFY THIS________________________________________________________________
+ close:open #2,"b:users":for x=1 to nu
+ open #1,"g:mail."+str$(x):a=mark(1):Close #1
+ if a goto u.list2
+ if key(1):x=nu:goto u.list2
+ position #2,512,x:input #2,d3$,d4$,d5$
+ if d3$="" goto u.list2
+ position #2,512,x,150:input #2,f1$,f2$,f3$\f4$,f5$,f6$\f7$,f8$,f9$
+ print #y,"| "right$("000"+str$(x),3)" | "left$(d3$+chr$(32,20),20)" | ";
+ print #y,f8$"  "f9$" |"
+u.list2
+ next:close
+ setint("")
+ print #y,"|_____|______________________|_______________________|"
+ return
+
+send
+ on nocar goto link.term
+ input @3 \\"[Input]:Enter User Number, Name, <N>et, or <cr> to Quit :"i$
+ if i$="N" or i$="n" goto nets
+ if i$="" return
+ a=val(i$):if not a gosub send2
+ if (a<1) or (a>nu) return
+ move ram,64 to ram2
+;MODIFY THIS!____________________________________________________________
+ open #1,"b:users":position #1,128,a
+ input #1,d1$,d2$\d3$\d4$,d5$:position #1,128,a,70:read #1,ram,58
+ if d3$="" close:move ram2,58 to ram:return
+ print \\"[Input]:Send mail to "d3$" ("a") , last on _"when$"_  :";
+ close:move ram2,58 to ram
+ gosub getkey
+ if i$<>"Y" print "No!!":return
+ print "Yes!!"
+ t1$="":t4$=ne$:t=a:sb$="":goto reply
+
+send2
+;MODIFY THIS______________________________________________________________
+ open #1,"b:users"
+ setint(1):a=0
+ for x=1 to nu
+ if key(1):x=nu:setint(""):goto send3
+ position #1,128,x:input #1,d1$,d2$\d3$\d4$,d5$
+ if d3$=i$:a=x:x=nu:close:setint("")
+send3
+ next
+ if a>0 return
+ close
+ setint("")
+ print \\"[Error]:User not found."\
+ pop:return
+
+edit
+ print \\"[Input]:Enter Users Name/User # whose mail you have already sent"
+ print "        and wish to edit  :";:input @3 i$
+ if i$="" return
+ a=val(i$):close:ready "   ":rz=a
+ open #1,"g:mail."+str$(a):z=mark(1):close
+ if z print \\"[Error]:User has no mail!!":return
+ ready "g:mail."+str$(a)
+ for x=1 to msg(0)
+ edit(0)
+ input #msg(x),t,t$,t1$\t2$,t3$,t1,t4$
+ if (t<>un) and (not info(5)) next:close:ready "   ":return
+ print \\"Subject :"t$
+ print "From    :"t1$
+ print "Date    :"t2$"  "t3$\\
+ print "Edit This one? ";:gosub getkey
+ if i$<>"Y" print "No!":next:return
+ else print "Yes!":w=a:a=x:x=msg(0):next:close
+ print \\"Subject               :"t$;chr$(8,(len(t$)));:input @3 i$
+ if i$<>"":t$=i$
+ print   "From                  :"t1$;:if info(5) print chr$(8,(len(t1$)));
+ if info(5) input @3 i$:if i$<>"":t1$=i$:else print
+ print
+ copy #6,#8
+ t=un
+ gosub editor
+ if not edit(2) gosub edit2
+ print \\"[Wait]:Saving Message...";
+ a=rz
+ kill #msg(a):update
+ print ".";
+ print #msg(a),t,t$,t1$\date$,time$,st,t4$
+ copy #8,#6
+ print ".";
+ update
+ print ".Done!"
+ return
+
+edit2
+ if w=1 pop:return
+ print \\"[Error]:You have aborted the process.  Do you wish to DELETE"
+ print "        the entire message? ";:gosub getkey
+ if i$<>"Y" print "No!":pop:return
+ print "Yes!"\\"[Wait]:Deleting Message...";
+ kill #msg(a):print ".";
+ crunch:print ".";:update
+ u=msg(0):if not u ready "   ":close:kill "g:mail."+str$(w)
+ print ".done!":pop:return
+
+stats
+ close
+ print \\"Listing of paths file                                    "
+ print "---------------------------------------------------------"\
+ z=0:open #1,"g:paths":setint(1) 
+stat2
+ copy #1
+stat3
+ setint("")
+ close
+ print \\"Press a key to continue...";:input @3 i$
+ return
+
+up.xmdm
+ print \\"Xmodem: (P)roDOS, (S)tandard, (D)os 3.3  :";:gosub getkey:z=0
+ if i$="P" print "ProDOS":z=1
+ if i$="D" print "Dos 3.3":z=2
+ if i$="S" print "Standard":z=3
+ if not z return
+ z=z*(z<>3):print \"Ready to Receive..."
+ f1$="h:u":use "b:x.up",z,f1$
+ close:edit(0):copy f1$,#8
+ if not edit(2) print \\"[Note]:Message aborted!":return
+ print \\"[Wait]:Checking Message..."edit(2)" bytes...";:z=0
+up2
+ open #1,f1$
+up3
+ if eof(1) goto up4
+ z=z+1:input #1,i$
+ if left$(i$,2)=".X" edit(0):close:goto die
+ if not (z mod 5) print ".";
+ goto up3
+up4
+ print ".done!"\\
+ close
+ kill f1$:edit(1)
+ return
+
+die
+ create "b:hack":open #1,"b:hack":append #1
+ print #1,\\"-Hack Attempt-"
+ print #1,"Name         ->"a3$"   ("un")"
+ print #1,"Reason       ->   <.X> bug-attempts..."
+ close
+ return
+
+bulk
+ if flag(37) and (not info(5)) print \"[Error]:Bulk Prohibited.":return
+ f=0:f1=3
+ if flag(5):f1=10
+ if flag(10):f1=20
+ if flag(19):f1=50
+ if flag(33):f1=0
+ if flag(34):f1=0
+ kill "h:temp":create "h:temp":open #1,"h:temp"
+bulk1
+ input @2 \"[Input]:Send Bulk Mail To (User Number/Name/<cr>=Quit) :"i$
+ if (i$="") and (f=0) return
+ if i$="" goto bulk3
+ a=val(i$):b=len(i$):if (b<3) and (not a) goto bulk1
+ if a goto bulk2
+ open #2,"b:users":for x=1 to nu:position #2,128,x:input #2,d1$,d2$\d3$\d4$,d5$
+ if d3$=i$:a=x:x=nu:next:close #2:goto bulk2
+ next
+ close #2
+ goto bulk1
+bulk2
+ open #2,"b:users":position #2,128,a:input #2,d1$,d2$\d3$\d4$\d5$:close #2
+ print \"Send to        :"d3$"          ? ";:gosub getkey
+ if i$<>"Y" print "No":goto bulk1
+ print "Yes!"
+ f=f+1
+ if f1<>0:f1=f1-1:if f1=0 print \"[Error]:Bulk Mail Limit Exceeded!":flag(37)=1:return
+ print #1,a
+ goto bulk1
+bulk3
+ close
+ fr$=a3$
+ print \"[:..From....:] "fr$;
+ if info(5) print chr$(8,(len(fr$)));:input @3 i$:if i$<>"":fr$=i$
+ if fr$=a3$:y=un:else y=0
+ input @3 "[:..Subject.:] "sb$
+ if sb$="":sb$="Nothing Particular"
+ print "[:..Date....:] "date$"  "time$
+ print \"[Bulk]:Are you SURE you wish to continue? ";:gosub getkey
+ if i$<>"Y" print "No!":return
+ print "Yes!"\
+ edit(0):gosub editor:print \\"[Wait]:Bulk Mailing...";
+ kill "h:temp1":create "h:temp1":open #1,"h:temp1":copy #8,#1:close:edit(0)
+ mk=0:for xz=1 to f
+ open #1,"h:temp":mark(1)=mk:input #1,a:mk=mark(1):close #1
+ f$="g:mail."+str$(a):open #1,f$:b=mark(1):close #1
+ if b gosub msg
+ open #1,"h:temp1":edit(0):copy #1,#8:close #1
+ ready f$
+ c=msg(0)+1:print #msg(c),y,sb$,fr$\date$,time$,0,t4$
+ copy #8,#6:update:ready "   "
+ print ".";
+ next
+ close
+ print ".Done!!"\\
+ return
+
+certify
+ f$="g:mail."+str$(t):open #1,f$:rt=mark(1):close
+ if rt gosub msg
+ print \"[Wait]:Sending Certification...";
+ st=3:sb$="Certified Mail Reciept":fr$="The Post Office":y=un:edit(0)
+ print ".";
+ print #8,\"Your message to "a3$" ("un"), has been recieved on "date$"  "time$\
+ print ".";
+ ready f$
+ print ".";
+ c=msg(0)+1:print #msg(c),y,sb$,fr$\date$,time$,st,t4$
+ copy #8,#6
+ print ".";
+ update
+ ready "g:mail."+Str$(un)
+ print ".Done!"
+ return
+
+nets
+net1
+net2
+net3
+net4
+ input @3 \"[Input]:Enter Network Address of User :"i$
+ if i$="" return
+ if len(i$)<3 return
+ ti$=i$:a9$=a3$:i$=a9$:gosub lcase:a9$=i$
+net4.01
+ a=instr(" ",a9$)
+ if a:a9$=left$(a9$,(a-1))+"."+mid$(a9$,a+1):goto net4.01
+ y=un:fr$=a9$
+ print \\"[:.From....:] "sn$"!"a9$;:if not info(5) print:goto net4.1
+ print chr$(8,(len(sn$+"!"+a9$)));:input @3 i$:if i$<>"":fr$=i$:y=0
+ fr$=fr$+" "+date$+" "+time$:ft$=a9$+"@"+sn$+" ("+a3$+")"
+net4.1
+ print "[:.Subject.:] ";:input @3 sb$
+ if sb$="" return
+ print "[:.Date....:] "date$"  "time$\
+ f$="g:mail.net":open #1,f$:a=mark(1):close:if a gosub msg
+ print \"[Input]:Do you wish to Xmodem your message? ";:gosub getkey
+ if i$<>"Y" print "No!!":goto net5
+ gosub up.xmdm
+ goto net6
+net5
+ edit(0)
+net6
+ Gosub editor
+ if not edit(2) return
+ print \\"[Input]:Is everything correct? ";:gosub getkey
+ if i$<>"Y" print "No!":return
+ print "Yes!"
+ print \"[Wait]:Saving Message...";
+ ready f$
+ print ".";
+ dt$=date$+" "+time$:pp$="out"
+ c=msg(0)+1:print #msg(c),fr$,ti$,sb$\dt$,pp$,ft$
+ copy #8,#6
+ print ".";
+ update:close:open #1,"g:mail."+str$(un):a=mark(1):close
+ if not a ready "g:mail."+Str$(un)
+ print ".Done!"
+ print \"[System]: Please wait, parsing.":print \"Linking..."
+ e$="g:mail.net"
+ link "a:parse"
+net7
+ use "b:xdos","d g:mail.net"
+ return
+
+lcase
+ a$="":for l=1 to len(i$)
+ y=asc(mid$(i$,l,1)):if (y>65) and (y<90):y=y+32
+ a$=a$+chr$(y):next
+ i$=a$
+ return
diff --git a/LLUCE/MATT/MDSS.S b/LLUCE/MATT/MDSS.S
new file mode 100644
index 0000000..2c8646b
--- /dev/null
+++ b/LLUCE/MATT/MDSS.S
@@ -0,0 +1,110 @@
+; MDSS is copyright by Morgan Davis
+; Adaptation by Matthew Montano
+;
+; This version Febuary 2nd, 1988
+; Version .91a
+
+            public                                                     out
+            public                                                     connect
+            on                                                         nocar                                             goto
+
+            goto                                                       connect
+
+out
+            ou=1
+            gosub                                                      send
+            print                                                      #4,"S"
+            gosub                                                      mdss
+
+connect
+            v1$="b":x=1:bt$="":echo=" ":kill                           "g:batch":create                                  "g:batch"
+            print                                                      "id:";
+            input                                                      @3                                                i$:if
+            a=instr(";",i$):no$=left$(i$,a-1):c$=mid$(i$,a+1)
+            open                                                       #1,"g:net.pass"
+check.node
+            input                                                      #1,b$
+            b=instr(";",b$):n2$=left$(b$,b-1):c2$=mid$(b$,b+1)
+            if                                                         (no$=n2$)                                         and
+            if                                                         b$=""                                             close:r$="MDSS - connect1:"+no$+" attempted to use "+c$+" to login":gosub
+            goto                                                       check.node
+cp.1
+            input                                                      #1,i$:if                                          i$=""
+            a=instr(";",i$):if                                         left$(i$,a-1)<>no$                                goto
+            i=val(mid$(i$,a+1)):close
+            r$="MDSS - "+no$+" logged in @ "+date$+"-"+time$:print     #3,r$:gosub                                       mdss.log
+
+mdss
+            on                                                         nocar                                             goto
+            gosub                                                      get.key
+            if                                                         i$="H"                                            modem(1):print
+            if                                                         i$="R"                                            goto
+            if                                                         i$="S"                                            goto
+            print                                                      chr$(24,5):goto                                   mdss
+
+r.file
+            f$="i:m"+str$(x)
+            print                                                      #3,"Recieving file: "f$
+            z=1:z=z*(z<>3):use                                         "b:x.up",z,f$
+            x=x+1:r$="  recieved "+f$+" from "+no$+" at "+time$:gosub  mdss.log
+            goto                                                       mdss
+
+send
+            b=1:lg$="i"+str$(i)+":":gosub                              getfnum
+            f$="i"+str$(i)+":"+fx$
+            gosub                                                      test.life
+            print                                                      #3,"Attempting to send -"fx$"-"
+            if                                                         ou                                                and
+            if                                                         left$(fx$,3)="   "                                close:print
+            if                                                         left$(fx$,3)="   "                                goto
+send1.1
+            if                                                         er=10                                             print
+            print                                                      "R";
+            z=1:z=z*(z<>3):use                                         "b:x.dn",z,f$
+            kill                                                       f$:r$="  sent "+f$+" to "+no$+" at "+time$:gosub  mdss.log
+            goto                                                       send
+
+test.life
+            z=key(0)
+            if                                                         z=5                                               return
+            y=y+1
+            if                                                         y=5000                                            modem(1):pop:print
+            goto                                                       test.life
+
+get.key
+            y=0
+get.key1
+            clear                                                      key:print                                         chr$(5);:zz=key(0)
+            if                                                         (zz>96)                                           and
+            i$=chr$(zz):if                                             i$="H"                                            return
+            if                                                         i$="R"                                            or
+            goto                                                       get.key1
+
+getfnum
+            fx$=chr$(32,15)
+            print                                                      "fx$="fx$"-":print                                "b="b"-":print
+            print                                                      "This works the first time but fails the second"
+            use                                                        v1$+":xcat",b,lg$,fx$,bt$,bt$,bt$,bt$,bt$,bt$,bt$,bt$
+            print                                                      "fx$="fx$"-":print                                "b="b"-":print
+            return
+
+hang.up
+            close:call                                                 edit(5),250,1:close
+            r$="Connection with "+no$+" lost at "+time$:gosub          mdss.log
+            e$="amdss":link                                            "a:parse"
+
+mdss.log
+            close
+            open                                                       #1,"g:mdss.log"
+            a=mark(1):if                                               a                                                 close:create
+            append                                                     #1
+            print                                                      #1,r$
+            close
+            return
+
+sort.mail
+            r$="MDSS process ended at "+time$:gosub                    mdss.log
+
+hangup
+            modem(1):echo="":e$="amdss":link                           "a:parse"
+
diff --git a/LLUCE/MATT/NET.CONFIG.S b/LLUCE/MATT/NET.CONFIG.S
new file mode 100644
index 0000000..914d316
--- /dev/null
+++ b/LLUCE/MATT/NET.CONFIG.S
@@ -0,0 +1,41 @@
+; Network configuration Segment
+;-------------------------------
+;   Written by Matthew Montano
+;               July 5th, 1989
+
+
+            on     nocar                                                           goto
+
+            print  \\" Network configuration segment"
+            print  " Alpha version, July 5th, 1989"
+            print  " -- Written by Matthew Montano"
+
+            print  \"Do you want to delete DIR.MIN and NET.PASS and continue ->";
+            input  @3                                                              i$:if
+            kill   "g:dir.min":kill                                                "g:net.pass":create
+            print  \"Input number of systems you are connected to -> ";:input\i
+
+            for    x=1                                                             to
+read1
+            print  \"Enter system #"i"'s name ->":input                            @3
+            print  \"Enter system #"i"'s password ->":input                        @3
+
+            print  \\"For system #"i":"
+            print  \"       Name of system -> "no$
+            print  "       Password of system -> "pa$
+            print  \\" Is everything ok? [Y/n] -> ";
+            get    i$:print                                                        i$:if
+            goto   read1
+
+write1
+            open   #1,"g:dir.min":append                                           #1:print
+            open   #1,"g:net.pass":append                                          #1:print
+            next
+
+            print  \\"All complete, here is your DIR.MIN file:"
+            open   #1,"g:dir.min":copy                                             #1:close
+            print  \\"              here is your NET.PASS file:"
+            open   #1,"g:net.pass":copy                                            #1:close
+
+            print  \\"Quiting..":link                                              "a:system.seg"
+
diff --git a/LLUCE/MATT/NET.DESC b/LLUCE/MATT/NET.DESC
new file mode 100644
index 0000000..bf8f026
--- /dev/null
+++ b/LLUCE/MATT/NET.DESC
@@ -0,0 +1,26 @@
+ProLink (tentative) description.
+
+Confidential file for Lance Taylor Warren from Matthew Montano.
+
+Hopefully this file will describe what I am doing with my software, and how it may be integrated into the stock GBBS system.
+
+Protocol: The software uses a modified arpa/ddn/uucp/internet style parsing with *NO* extensions but rather limitations. The bitnet identifier (%) is not currently recognized or supported in the mailer. Support for domains and parks is going to be installed since it is simpler and would make a network easier to run.
+
+Naming conventions: All sites will have to name there system in a restrictive way, at least in the way that mail will work. Following UUCP guidelines, all sites must have a site name that is one word, less than 16 characters (more is more awkward), and not containing any punctuation except the "_" character (denoting space). System names like "llsupport" or "stronghold" are ideal, where as names like "L & L Systems Support" or "The Stronghold IIGS" are not usable. Lower case is desirable, but since the mailer is case insensitive it doesn't matter. User names is a LARGE problem, since most of the GBBS systems use the standard first name/last name setup. For GBBS users will have mailing addresses in one of the following forms: 1) Their first name plus their account number i.e matthew907 (on Lance's system) 2) their first name plus a "_" character and their last name. I.E. matthew_montano <- undesirable because of length. 3) Optionally there would be alias file where each user can submit their own mail address to recieve mail with. 4) Built in to the mailer are account names such as "root" "sysop" "mailer" "postmaster" as specified by UUCP guidelines.
+
+Integration of mailer into a stock GBBS system: The entire mailer HAS to be rewritten, luckily I have taken Parik's mailer (with his permission) from his ProTalk and modified it to work with standard GBBS with a parser. The mailer creates a temporary message file (if an outbound message) and then passes control to the parser which looks at the message and works with it. It will sort the mail quickly and place it in the correct outbound file or bounce it back to the sender. It takes under three seconds at the current time to parse a standard message (even with creating files etc... it's FAST).
+  Using an x.wait or ACOS.TIME function at the idle state, the system will link to a segment at a given time each hour (if at the wait state at the specific time). This segment will check an id.file, see if it is the correct time to dial out for that system. If it is the correct time, it runs another segment (or a part of it within that segment) which checks how much mail is queded up and if there is mail will x.quit into proterm (after renaming the correct script file to pt.startup for auto-execution) and dial out and transfer the files per the protocol defined below. Once done, it will quit back into acos, run the logon segment and find that there still is a pt.startup file (indicating it was in the middle of a scan) and check the next system in the id.file for the specific time to dial out.
+  Newsfeeds are handled by the parser. If the message is addressed to an account which contains the text "feed" in it, it triggers a process. In most cases the account name will be something like "infoapplefeed". The parser will search through the bulliten boards seraching for a board name with a matching name (infoapple) in this case and once found will write the new message to the base. Modifications in the standard GBBS code will have to be of the order of a modification to the message segment that when a person wants to auto-reply or post to one of these special feed boards that it passes control to the mailer. This of course is about the only major modification required to GBBS code for operation.
+
+The parser works something like this:
+
+1) Reads vars and message in.
+2) Pulls out the path header and takes all the characters to the left of the first "!" character.
+3) Checks the "first node" against the entries in the dir.min file (an id file) and if found determines a number to which to write the file out under.
+4) If not found in dir.min, it is checked against the "paths" file, where if found a path is substituted for the single site and control is passed back to #2.
+5) If not found in paths, then domain parsing would occur.
+6) If not domain parsed it will bounce.
+
+The transfer protocol for the system is DEAD simple.
+
+The host system (system recieving the call) will upon detecting an account name of "mailer" (or whatever) will link to a special segment. This segment prints "id:" and waits for the systemname;password before continuing. It then switches into ymodem batch recieve mode and recieves until a blank file name is passed with which the system reverses roles and the host system searches out for the files for the calling system and sends them via ymodem-batch until a blank file name is passed on which the systems hangup each other and take the recieve batch list and parse individual files one by one.
diff --git a/LLUCE/MATT/NET.FILE.FORMAT b/LLUCE/MATT/NET.FILE.FORMAT
new file mode 100644
index 0000000..a116f94
--- /dev/null
+++ b/LLUCE/MATT/NET.FILE.FORMAT
@@ -0,0 +1,91 @@
+File formats for LLUCE-NET files and descriptions
+
+Basic Message File
+------------------
+
+This file format is for all inter-lluce-net traffic, message files between systems and the format of messages files being passed off to parse.s for processing.
+
+ print #msg(x),fr$,tr$,sb$\dt$,pp$,ft$:copy #6,#8
+
+Six headers:
+
+fr$ = the source of the message or who it is from.
+        in the form "site!user DATE and TIME".
+
+tr$ = the originally typed in address of the letter
+        In the form "site!user" or "user@site" with
+        associated domain identifiers.
+
+sb$ = subject of the letter in plain text format
+
+dt$ = date the original letter was sent
+        In the form "XX/XX/XX XX:XX:XX XM" or UNIX style format
+        It is not necessary to have it in a specific form, whatever
+        is felt neccessary
+
+pp$ = path to the user. This is in PURE UNIX style bang paths with
+        domain identifiers allowed. In the form "site!site1!site2!user"
+        or "site!site.park.domain!user"
+
+ft$ = source of the message. It is in "user@site.domain (Full User)" form.
+
+The text of the message can contain extra headers at the top of the message, as seen fit by the author of the mailer. They will be neither looked at or relied on for any information. It is likely that in UUCP sourced messages there will be extra headers passed on into the LLUCE-net and therefore those messages will appear in the text of the message.
+
+
+Text Style Message Format
+-------------------------
+
+Messages that do not fit the standard LLUCE message file format can be written in an alternative format. This format is compatible with ProLine and hence compatible with UUCP sites. The standard Apple // delimited text file will have the UUCP/ProLine standard headers. This information is availible from "sysop@pro-generic.pro" if required.
+
+
+Binary File Format
+------------------
+
+Alternatively, if information needs to be transmitted that isn't in a text format it can be placed in a file that will be transmitted through a LLUCE-NET system. The format for this message is a file of TXT format. It has four header lines in normal text format (ProLine/UUCP style) like below:
+
+From_ <- fr$ format
+To: <- tr$ format
+Date: <- dt$ format
+Subject: <- sb$ format
+
+Then follows as many lines of normal text as the sending user sees fit and finally a control-j present on a line by itself. What follows is the file in Binary II format (or NuFX). I have neither written anything supporting this format or plan to. It is above my power and time constraints. But this is a possibility only restricted by your imagination. (And the users stupidity in having the power to send files across the network).
+
+
+Paths file
+----------
+
+A file exists to control the parsing of mail. It is referenced to if the piece of mail currently being parsed is being sent to a site that is not local to the site parsing the mail. It allows mail to be sent with an address of "site!user" even if "site" is a local site, as it can be path aliased by the parser. The paths file (residing in G:) looks like this
+
+sitename: path!to!dest!sitename!*
+.domain: path!to!dest!domainhandler!*
+.park.domain: path!to!sorta!domainhandler!*.park
+
+
+If mail was addressed to "user@system.domain" the local parser just needs to know how to get mail to the system that is in control of the ".domain" domain. In this case the parser would place "path!to!dest!domainhandler!system!user" in pp$. Once the path has been parsed, it is run through parse again to make sure the first site listed in the new address is a legit single hop site and if not is parsed again.
+
+
+Aliases file
+------------
+
+This file allows the sysop to control the flow of mail, distribution of newsfeeds and so forth. If mail was received to an address and it was to be sent to two users instead of one this is where it is controlled from. The format of the file is in the form:
+
+destaddress
+ mailaddress anothermailaddress an!off!site!address
+ another!offsite!address
+
+If mail was recieved to the local address "destaddress" it would have copies made and sent to all the addresses listed above. As above the second line as a starting space and therefore is part of the list of addresses from the line before. Special formats exist for any of the addresses listed in the aliases file (stored in g:). If the address starts with a "#" character, a copy is sent to the mailbox number after the "#" character. I.E.:
+
+sysop
+ #1
+root
+ #1
+systemgod
+ #1
+
+If the address starts with a "%" (note both the # and % characters are illegal for use as intersystem address and hence used here for local purposes because they are guaranteed to work) then the message is sent to message board number following the "%" character. For example, with newsfeeds, if a site was not only recieving the feed but passing it off to another site an entry in the aliases file would look like this:
+
+infoapple: %6 infoapple@nextsite
+
+This would post the message sent to infoapple on the local site on board #6 as well as send it off to the address infoapple on "nextsite".
+
+IMPORTANT: Both the dir.min, aliases, and paths file MUST end with a blank carriage return, otherwise it will crash the mailer.
diff --git a/LLUCE/MATT/NET.SETUP b/LLUCE/MATT/NET.SETUP
new file mode 100644
index 0000000..3aea55c
--- /dev/null
+++ b/LLUCE/MATT/NET.SETUP
@@ -0,0 +1,37 @@
+Setting up your LLUCE-NET alpha site
+------------------------------------
+
+Creating directories:
+
+The most important directory is I:. It must be a completely seperate from others and there must be no files within it. I1: should be created in the same mannar as Supertac directories. It should be clean as well. If you are connected to two sites, create I2: and so on. (Check end of file for multiple connections).
+
+Copying files:
+
+Parse.s, Amdss.s, Mdss.s and Mail.s should be installed in A:.
+
+Creating files:
+
+G:DIR.MIN. This file is a listing of site names versus their directories. For our one connection system, the file would look like this:
+
+systemname;1
+
+with a blank line at the end.
+
+G:NET.PASS. This file is a listing of other sites and their passwords. It is in the form of:
+
+systemname;password
+
+G:PATHS and G:ALIASES. These files will be explained later.
+
+Installing links:
+
+Mail.s should be accessable from the main segment via a menu command. In the logon segment under login2 add the lines:
+
+ if (instr("AMDSS",a3$) or instr("amdss",a3$)) link "a:amdss"
+ if (instr("MDSS",a3$) or instr("mdss",a3$)) link "a:mdss"
+
+in that order.
+
+Creating accounts:
+
+Create two accounts, one with AMDSS as the name and MDSS as the other. They can be from anywhere and only need have a flag that allows them to login. Remember the password and user number for the different accounts and submit them to your neighbouring sysops.
diff --git a/LLUCE/MATT/PARSE.S b/LLUCE/MATT/PARSE.S
new file mode 100644
index 0000000..c0aed06
--- /dev/null
+++ b/LLUCE/MATT/PARSE.S
@@ -0,0 +1,249 @@
+;Parse.s mail
+;by Matthew Montano
+;Part of the LLUCE-NET package
+;(c) 1989, Venture Tech developement
+;written March 28th,1989
+;final revision June 31st, 1989
+; another revision July 9th, 1989
+; yet another revision (tr$ parsing added) July 31st, 1989
+; minor revision and cleaned up August 5th, 1989
+; minor revision August 18th, 1989
+
+;remember outlets for domains
+;remember outlets for aliases
+;fix write to local account
+;allow for outlet to proline system
+
+            on                                      nocar                                           goto
+            v1$="a":bg$="!"
+
+            if                                      (e$="amdss")                                    or
+            if                                      e1$="pass"                                      gosub
+
+            close:open                              #1,e$:input                                     #1,i$:close
+            print                                   "First line :"i$" -"
+            if                                      left$(i$,5)="From "                             gosub
+            close:ready                             e$
+            if                                      (msg(0)=0)                                      and
+            if                                      (msg(0)=0)                                      and
+            if                                      msg(0)                                          goto
+            ready" ":kill                           e$:goto                                         outahere
+
+parse
+            print                                   \"[Parse v.0951 - "msg(0)" messages]: parsing"
+            if                                      msg(0)>256                                      print
+            for                                     x=1                                             to
+            gosub                                   rd.msg
+            a=instr(" ",tr$):if                     a                                               gosub
+            gosub                                   parse.it
+            pp$="":tr$="":fr$="":sb$="":dt$="":ft$="":a=0:b=0:fn$="":pt$="":f2$="":f1$=""
+            next
+            link                                    "a:parse"
+
+parse.it
+            if                                      fr$=""                                          ready
+            if                                      pp$="out"                                       gosub
+            i$=pp$:gosub                            lcase:pp$=i$
+pit1.1
+            a=instr(bg$,pp$):fn$=left$(pp$,a-1)
+            if                                      fn$=sn$:pp$=mid$(pp$,a+1):goto                  pit1.1
+            if                                      a=0                                             goto
+            pt$=mid$(pp$,a+1)
+
+parse3
+            close:open                              #1,"g:dir.min"
+parse3.1
+            input                                   #1,i$:b=instr(";",i$):f1$=left$(i$,b-1)
+            if                                      i$=""                                           close:goto
+            if                                      f1$=fn$:fd$=mid$(i$,b+1):close
+            if                                      (f1$=fn$)                                       and
+            if                                      f1$=fn$:f$="i"+fd$+":ML.01":gosub               wr.msg:return
+            goto                                    parse3.1
+
+parse4
+            close:open                              #1,"g:paths"
+parse4.1
+            input                                   #1,i$
+            if                                      i$=""                                           close:goto
+            a=instr(":",i$)
+            i$=left$(i$,len(i$)-2)
+            if                                      left$(i$,a-1)=fn$:pp$=mid$(i$,a+2)+bg$+pt$
+            if                                      left$(i$,a-1)=fn$                               close:goto
+            goto                                    parse4.1
+
+domain
+            a=instr(".",fn$):if                     a=0                                             close:r$="No path to site could be found":goto
+            f1$=left$(fn$,a-1):f2$=mid$(fn$,a):b=1
+            a=instr(bg$,pp$):f4$=mid$(pp$,a)
+            close:open                              #1,"g:paths"
+dom1
+            input                                   #1,i$
+            if                                      i$=""                                           close:goto
+            a=instr(":",i$):f3$=left$(i$,a-1)
+            if                                      f2$=f3$:pp$=mid$(i$,a+2)+f4$
+            if                                      f2$=f3$:a=instr("*",pp$):pp$=left$(pp$,a-1)+f1$+mid$(pp$,a+1):close
+            if                                      f2$=f3$                                         gosub
+            goto                                    dom1
+dom2
+            if                                      not                                             a:r$="Domain could not be parsed":goto
+            f2$=mid$(f2$,2):a=instr(".",f2$):f1$=f1$+"."+left$(f2$,a-1):f2$=mid$(f2$,a)
+            open                                    #1,"g:paths":b=b+1:goto                         dom1
+
+out
+            a=instr("@",tr$):if                     a:pp$=mid$(tr$,a+1)+bg$+left$(tr$,a-1):return
+            pp$=tr$:return
+
+bounce
+            tr$=fr$:a=instr(" ",tr$):tr$=left$(tr$,a-1)
+            fr$=sn$+"!mailer "+date$+" "+time$:pp$=tr$
+            sb$="Returned Mail"
+            print                                   #8,\"-----"
+            print                                   #8,\"The above message had this problem:"
+            print                                   #8,r$\
+            print                                   #8,\                                            "  Please correct the problem and try resending it."
+            print                                   #8,\\"Sincerly,"
+            print                                   #8,                                             "         mailer@"sn$
+            f$=e$
+            print                                   "Message:":copy                                 #8
+            close:ready                             e$:kill                                         #msg(x):update:close
+            close:ready                             f$:c=msg(0)+1:print                             #msg(c),fr$,tr$,sb$\dt$,pp$,ft$:copy
+            return
+
+local
+            a=instr(bg$,pp$):if                     a:tl$=mid$(pp$,a+1)
+            if                                      not                                             a:tl$=pp$
+            a=instr("#",tl$):if                     a:b=val(mid$(tl$,2):goto                        feed
+; note!
+            i$=tl$:gosub                            lcase:tl$=i$
+            if                                      tl$="root":du=1:goto                            local.1.1
+            if                                      tl$="mailer":du=1:goto                          local.1.1
+            if                                      tl$="sysop":du=1:goto                           local.1.1
+            if                                      tl$="amdss":du=1:goto                           local.1.1
+            if                                      tl$="postmaster":du=1:goto                      local.1.1
+            a=instr("user",tl$):if                  a:du=val(mid$(tl$,a+4)):goto                    local.1.1
+            ifleft$(tl$,1)="#":a=instr("#",tl$):if  a:du=val(mid$(tl$,a+1)):gotolocal.1.1
+            open                                    #1,"b:users"
+            z=1
+local.01
+            position                                #1,128,z
+            input                                   #1,a$,b$\c$
+            i$=c$:gosub                             lcase:c$=i$:print                               "c$="c$
+local.001
+            a=instr(" ",c$):if                      a:c$=left$(c$,a-1)+"."+mid$(c$,a+1):goto        local.001
+            if                                      a$+str$(z)=tl$:du=z:goto                        local.1.1
+            if                                      c$=tl$:du=z:goto                                local.1.1
+            if                                      z<nu:z=z+1:goto                                 local.01
+            close:goto                              alias
+local.1.1
+            if                                      du>nu:r$="local user account "+str(du)+" on "+sn$+" was invalid":goto  bounce
+            f$="g:mail."+str$(du)
+            db$="":a=instr(" ",dt$):ti$=mid$(dt$,a+1):dt$=left$(dt$,a-1)
+            close:open                              #1,f$:if                                        mark(1)
+            close:edit(0):gosub                     rd2.msg
+            ready                                   f$:c=msg(0)+1:print                             #msg(c),0,sb$,fr$\dt$,ti$,0,ft$:copy
+            close:ready                             e$:kill                                         #msg(x):update:close:return
+
+wr.msg
+            gosub                                   rd2.msg
+; a=instr(bg$,fr$):if left$(fr$,a-1)<>sn$
+            fr$=sn$+"!"+fr$
+            close:open                              #1,f$:if                                        mark(1)
+            close:ready                             e$:kill                                         #msg(x):crunch:update:close
+            close:ready                             f$:c=msg(0)+1:print                             #msg(c),fr$,tr$,sb$\dt$,pp$,ft$:copy
+            return
+
+plinewr
+            f$="i"+fd$+":m"+str$(x)+str$(random(9999))
+            create                                  f$:open                                         #1,f$:append
+            a=instr(" ",fr$):fr$=left$(fr$,(a-1)):fr$=sn$+"!"+fr$
+            print                                   #1,"From "fr$" "date$" "time$
+            print                                   #1,"Date: "dt$
+            print                                   #1,"Subject: "sb$
+            print                                   #1,"To: "tr$
+            print                                   #1,"Ppath: "pp$
+            print                                   #1,"From: "ft$\
+            copy                                    #8,#1:print                                     #1\"*  Sent from "sn$" at "time$" on "date$
+            close:ready                             e$:kill                                         #msg(x):update:close
+            return
+
+msg
+            kill                                    f$:create                                       f$:open
+            write                                   #1,ed,2:fill                                    ed,255,0:for
+            close                                   #1:return
+
+rd.msg
+            close:ready                             e$:input                                        #msg(x),fr$,tr$,sb$\dt$,pp$,ft$:edit(0):copy
+            return
+
+rd2.msg
+            close:ready                             e$:input                                        #msg(x),i$,i$,i$\i$,i$,i$:edit(0):copy
+            return
+
+rdunix
+            edit(0)
+            f$="i:x"+mid$(e$,3):gosub               msg
+            close:open                              #1,e$:input                                     #1,fr$
+            fr$=mid$(fr$,6)
+rdunix2
+            input#1,i$
+            if                                      left$(i$,4)="To: ":tr$=mid$(i$,5)
+            if                                      left$(i$,9)="Subject: ":sb$=mid$(i$,10)
+            if                                      left$(i$,6)="Date: ":dt$=mid$(i$,7)
+            if                                      left$(i$,7)="Ppath: ":pp$=mid$(i$,8)
+            if                                      left$(i$,6)="From: ":ft$=mid$(i$,7):
+            if                                      i$<>""                                          goto
+            edit(0):copy                            #1,#8:close
+rdun2.1
+            a=instr(",",dt$):if                     a:dt$=left$(dt$,a-1)+" "+mid$(dt$,a+1):goto     rdun2.1
+            ready                                   f$:print                                        #msg(1),fr$,tr$,sb$\dt$,pp$,ft$:copy
+            kill                                    e$
+            return
+
+multitr
+            kill                                    #msg(x)
+multi2
+            a=instr(" ",tr$):if                     not                                             a
+            to$=left$(tr$,a-1):tr$=mid$(tr$,a+1)
+            ready                                   e$:print                                        #msg(msg(0)+1),fr$,to$,sb$\dt$,pp$,ft$:copy
+            update
+            goto                                    multi2
+
+alias
+            close:open                              #1,"g:aliases"
+al1
+            input                                   #1,i$
+            if                                      i$=""                                           close:r$="Alias of "+tl$+" could not be parsed":goto
+            if                                      i$<>tl$                                         goto
+al10
+            input                                   #1,i$
+            if                                      left$(i$,1)<>" "                                ready
+            pp$="out":tr$=mid$(i$,2)
+            ready                                   e$:print                                        #msg(msg(0)+1),fr$,tr$,sb$\dt$,pp$:copy
+            goto                                    al10
+
+feed
+; this code will post the message into the local message base # b
+; install at a later date.
+
+outahere
+            if                                      e1$="AMDSS"                                     or
+            if                                      e1$="pass":e1$="":link                          "a:system.seg"
+            link                                    "a:mail","net7"
+
+fromamdss
+            b=1:lg$="I:":gosub                      getfnum:e$=fx$:e$="i:"+e$
+            if                                      left$(fx$,3)="   "                              pop:goto
+            return
+
+lcase
+            a$="":forl=1tolen(i$)
+            y=asc(mid$(i$,l,1)):if                  (y>65)                                          and
+            a$=a$+chr$(y):next
+            i$=a$
+            return
+
+getfnum
+            fx$="               ":bt$=""
+            use                                     v1$+":xcat",b,lg$,fx$,bt$,bt$,bt$,bt$,bt$,bt$,bt$,bt$
+            return
+
diff --git a/LLUCE/NETWORK.HEADER b/LLUCE/NETWORK.HEADER
new file mode 100644
index 0000000..8ebe2d0
--- /dev/null
+++ b/LLUCE/NETWORK.HEADER
@@ -0,0 +1,71 @@
+CS-ID: #20237.apple/info-apple@pro-exchange, 1524 chars
+Date: Fri,  2 Mar 90 04:54:29 EST
+From: lbotez@pro-sol.cts.com (Lynda Botez)
+Subject: Re: MultiJuggle/ humm... how about multijuggle
+
+In-Reply-To: message from cyliao@eng.umd.edu
+
+CS-ID: #20237.apple/info-apple@pro-exchange 100 chars
+Date: Tue,  5 Jun 90 19:36:03 EDT
+From: sschneider (The RainForest BBS)
+Subject: Re: MultiJuggle/ humm... how about multijuggle
+Comment: to #20237 by lbotez@pro-sol.cts.com
+
+In-Reply-To: message from lbotez@pro-sol.cts.com
+
+CS-ID: #20238.apple/info-apple@pro-exchange, 1722 chars
+Date: Fri,  2 Mar 90 04:54:30 EST
+From: lbotez@pro-sol.cts.com (Lynda Botez)
+Subject: Re: Rom 04 comment
+
+In-Reply-To: message from toddpw@tybalt.caltech.edu
+
+CS-ID: #20536.apple/info-apple@pro-exchange, 1818 chars
+Date: Wed, 14 Mar 90 07:30:45 EST
+From: Tabakal@UB.CC.UMICH.EDU
+Subject: (none)
+
+CS-ID: #20536.apple/info-apple@pro-exchange, 1818 chars
+Date: Wed, 14 Mar 90 07:30:45 EST
+From: Tabakal@UB.CC.UMICH.EDU
+Subject: (none)
+
+CS-ID: #213.net.news/usenet@pro-exchange 398 chars
+Date: Fri, 30 Jun 89 09:16:09 EDT
+From: nelson@sun.soe.clarkson.edu (Russ Nelson)
+Subject: The cct.* newsgroups
+
+If you read any of the cct.* newsgroups, you must reset your .newsrc in order
+to see the new articles.  To do this, edit your .newsrc file, and remove the
+numbers to the right of the cct.* newsgroups.  If you don't know how to do
+this, send me mail and I'll write an awk script to do it...
+--
+--russ (nelson@clutx [.bitnet | .clarkson.edu])
+Democracy needs capitalism like a fish needs a bicycle.
+
+cs>read> Next
+
+CS-ID: #226.net.news/usenet@pro-exchange 3958 chars
+Date: Thu, 17 Aug 89 05:20:09 EDT
+From: woods@ncar.ucar.edu (Greg Woods)
+Subject: Charter change
+
+CS-ID: #240.net.news/usenet@pro-exchange 1185 chars
+Date: Tue, 10 Oct 89 09:19:03 EDT
+From: mark@Stargate.COM (Mark Horton)
+Subject: Computer Viruses set to go off on October 12 and 13.
+
+CS-ID: #272.net.news/usenet@pro-exchange, 1289 chars
+Date: Sat, 13 Jan 90 07:26:55 EST
+From: chuq@Apple.COM (Chuq Von Rospach)
+Subject: FCC 'chain letter' -- please stop
+
+CS-ID: #4680.net.news/telecomm@pro-exchange, 863 chars
+Date: Fri, 16 Mar 90 04:35:07 EST
+From: hkhenson@cup.portal.com
+Subject: Cuban/USA Politics and the Cable
+
+CS-ID: #4879.net.news/telecomm@pro-exchange, 1047 chars
+Date: Sat, 24 Mar 90 04:21:37 EST
+From: uflorida!novavax!whitep@gatech.edu (Patricia R. White)
+Subject: Re: Billing and Answer Supervision
diff --git a/LLUCE/OVERLAY.CRC b/LLUCE/OVERLAY.CRC
new file mode 100644
index 0000000..b389509
Binary files /dev/null and b/LLUCE/OVERLAY.CRC differ
diff --git a/LLUCE/PROGRAM/AUTODIR.SEG.S b/LLUCE/PROGRAM/AUTODIR.SEG.S
new file mode 100644
index 0000000..3cbc28f
--- /dev/null
+++ b/LLUCE/PROGRAM/AUTODIR.SEG.S
@@ -0,0 +1,53 @@
+;-----------------------------------------------------------------------
+;SuperTac 5.0e - January, 1988
+;Written by Larry Hawkins
+;Copyright (c), 1987-1988 - L & L Productions
+;Auto Directory Segment
+;-----------------------------------------------------------------------
+
+scan
+            lo=1:hi=50
+            ed=edit:v1$="l":v2$="j"
+            push                   link.sys
+            print                  "\nAuto-Directory 5.0"
+            print                  "Thrashing Hard Drive..."
+            i$=v1$+":directory"
+            gosub                  message:ready                                         i$:x=lo:gosub
+            print                  "\nScanning Volume [";
+dir10
+            in$=right$("0"+str$(x),2)
+            print                  in$"]";
+            x$=v1$+str$(x)+":":if  (fv>0)                                                &
+            overlay                "xcat",0,x$,fn$,ta$,th$,bu$,mo$,mt$,xd$,xt$,by$
+            clear                  #8
+            print                  #msg(x),date$" "time$
+dir2
+            if                     fn$="               "                                 copy
+            si=peek(ed+22)+(peek(ed+23)<<8)
+            print                  #6,fn$" "ta$" "bu$" "right$("    "+str$(si),5)" "xd$
+            call                   ed+3,0,fn$,ta$,th$,bu$,mo$,mt$,xd$,xt$,by$
+            goto                   dir2
+
+nxtvol
+            x=x+1:if               (x>hi)                                                close:update:print
+            print                  "\b\b\b";:goto                                        dir10
+
+link.sys
+            chain                  "program/logon.seg"
+
+message
+            ready                  " ":close:kill                                        i$:create
+            fill                   ed,255,0:poke                                         ed,16:poke
+            write                  #1,ed,2:fill                                          ed,255,0:for
+            write                  #1,ed,22:close
+            return
+
+makestr
+            fn$="               ":ta$="   ":th$="   ":bu$="     "
+            mo$="         ":mt$="     "
+            xd$="         ":xt$="     "
+            by$="         ":a=0
+            return
+
+;Janurary, 1988
+
diff --git a/LLUCE/PROGRAM/BBS.LISTER.S b/LLUCE/PROGRAM/BBS.LISTER.S
new file mode 100644
index 0000000..a55cea0
--- /dev/null
+++ b/LLUCE/PROGRAM/BBS.LISTER.S
@@ -0,0 +1,51 @@
+; **********************
+;    GBBS "Pro" V:1.3
+;  By L & L Productions
+;     Copyright 1987
+; **********************
+
+; BBS Update Seg 8/16/87
+
+	on nocar goto link.term
+
+start
+	print '
+Please take a few minutes and help
+us update the GBBS Pro BBS List
+by entering your boards information'
+
+list
+	input @3 "\nSystem Name: "z1$
+phone
+	input @3 "Phone Number [Form ###-###-####]: "i$
+	if len(i$)!=12 goto phone
+	z2$=left$(i$,3)+"-"+mid$(i$,5,3)+"-"+right$(i$,4)
+
+	input @3 "Highest Baud: "z3$
+	input @2 "Are you PCP'able (Y/N):"z4$
+	z4$=left$(z4$,1)
+	input "Your GBBS serial number:"z5$
+	input @2 "Do you want the system listed (Y/N):"z6$
+	z6$=left$(z6$,1)
+
+	print "\nWe have the following:"
+	print "\nSystem Name: "z1$
+	print "Phone Number: "z2$
+	print "Baud Rate: "z3$
+	print "PC Pursuitable: "z4$
+	print "GBBS Serial Number: "z5$
+	print "System list: "z6$
+
+	input @2 "\nIs this correct? "i$
+	if i$<>"Y" print:goto list
+
+	print "\nThank you for taking the time to"
+	print "answer these questions.  Just a"
+	print "moment while I save them."
+
+	create "system/gbbs.list":open #1,"system/gbbs.list"
+	append #1:print #1,a3$"\n"z1$"\n"z2$"\n"z3$"\n"z4$"\n"z5$"\n"z6$
+	close:flag(30)=1:chain "program/main.seg"
+
+link.term
+	chain "program/main.seg","termin2"
diff --git a/LLUCE/PROGRAM/BC.S b/LLUCE/PROGRAM/BC.S
new file mode 100644
index 0000000..a3c0c6d
--- /dev/null
+++ b/LLUCE/PROGRAM/BC.S
@@ -0,0 +1,169 @@
+; ********************
+;    GBBS Pro v1.3
+;  By L&L Productions
+;   (C)opyright 1987
+; ********************
+
+; Bulletin Copy Utility
+; By GS @ 04/30/85
+; Modified by Lance @ 4/20/87
+
+            public                            start
+
+            input                             "press [ret] to continue..."i$
+
+            flag=ram
+            s1$="<\b":s2$=">\b"
+            s3$="{\b":s4$="}\b"
+
+start
+            home
+            print                             "Bulletin Copy Utility v1.3"
+            print                             "\nWritten by Greg Schaefer"
+            print                             "Modified for v1.3 by Lance"
+            input                             "\nSource Bulletin File (ex: bulletins/B1):"f1$
+            if                                ~exist(f1$)                                      print
+            ready                             f1$:print                                        "\b";:sz=(peek(36)=79)
+            fill                              ram,64,0:if                                      msg(0)
+            print                             "\nThat message file is empty."
+            gosub                             getret:goto                                      start
+
+status
+            home:z=1:b=(msg(0)/20)*5+1
+            for                               x=1                                              to
+            a=20:if                           x=b:a=msg(0)                                     mod
+            for                               y=5                                              to
+            print                             @x,y;z;a$;:z=z+1:next:next
+
+cmd
+            print                             @1,1                                             "R=Restart, Q=Quit, V=View, C=Copy"
+            print                             "K=Kill, T=Tag, U=Untag, W=Write"
+            print                             "Enter Cmd: "chr$(0x20,28);chr$(8,28);
+            get                               i$:if                                            i$>"a":i$=chr$(asc(i$)-32)
+            print                             "\b"i$;:z=1
+            if                                i$="Q"                                           goto
+            if                                i$="V"                                           goto
+            if                                i$="C"                                           goto
+            if                                i$="K"                                           goto
+            if                                i$="T"                                           goto
+            if                                i$="U"                                           goto
+            if                                i$="R"                                           goto
+            if                                i$="W"                                           goto
+            goto                              cmd
+
+quit
+            input                             @0                                               "uit Y/N ?"i$:if
+            home:goto                         doquit
+
+restart
+            input                             @0                                               "estart Y/N ?"i$:if
+            home:goto                         start
+
+tag
+            input                             @2                                               "ag (#[,#] or ALL):"i$
+            if                                i$=""                                            goto
+            if                                left$(i$,1)="A"                                  fill
+tag2
+            a=val(i$):if                      ~((a=0)                                          |
+            a=instr(",",i$):if                a:i$=mid$(i$,a+1):goto                           tag2
+            goto                              status
+
+untag
+            input                             @2                                               "ntag (#[,#] or ALL):"i$
+            if                                i$=""                                            goto
+            if                                left$(i$,1)="A"                                  fill
+untag2
+            a=val(i$):if                      ~((a=0)                                          |
+            a=instr(",",i$):if                a:i$=mid$(i$,a+1):goto                           untag2
+            goto                              status
+
+view
+            input                             @2                                               "iew (ALL,TAG,#[,#]):"i$
+            gosub                             inprng:if                                        i$=""
+            home:print                        "Viewing Bulletin(s):"
+view2
+            d=0:gosub                         show:if                                          a
+            gosub                             getret:goto                                      status
+
+write
+            input                             @2                                               "rite (ALL,TAG,#[,#]):"i$
+            gosub                             inprng:if                                        i$=""
+write2
+            home:print                        "Write these bulletins:\n"
+            gosub                             list:input                                       @2
+            if                                f$=""                                            goto
+            create                            f$:open                                          #1,f$:append
+            print                             "\nWait...Writing bulletin(s)"
+write3
+            d=1:gosub                         show:if                                          a
+            close:goto                        status
+
+kill
+            input                             @2                                               "ill (ALL,TAG,#[,#]):"i$
+            gosub                             inprng:if                                        i$=""
+            home:print                        "Kill these bulletins:\n":gosub                  list
+            input                             @0                                               "\nKill: Are you sure Y/N ?"i$
+            if                                i$<>"Y"                                          goto
+            print                             "Wait...Killing bulletin(s)"
+            b=msg(msg(0)):for                 x=1                                              to
+            if                                flag(x+512)                                      kill
+            next:crunch:a=msg(0):if           a:msg(a)=b
+            update:if                         a                                                goto
+            home:print                        "\nAll bulletins killed."
+            gosub                             getret:goto                                      start
+
+copy
+            input                             @2                                               "opy (ALL,TAG,#[,#]):"i$
+            gosub                             inprng:if                                        i$=""
+            home:print                        "Copy these bulletins:\n":gosub                  list
+            input                             @0                                               "\nCopy: Are you sure Y/N ?"i$
+            if                                i$<>"Y"                                          goto
+copy2
+            print                             "\nEnter destination bulletin file"
+            input                             @2                                               "\nDestin Bulletin File (ex: bulletins/B2):"f$
+            if                                f$=""                                            goto
+            open                              #1,f$:a=mark(1):close:b=msg(0)
+            if                                a                                                print
+            print                             "\nWait...Copying bulletin(s): ";
+            open                              #1,"b:data":input                                #1,c1,c2,ct,ct$,da$
+            input                             #1,nu,mn,wm|lu$:close:ready                      f$
+
+            for                               x=1                                              to
+            print                             s1$;:kill                                        "dummy":create
+            print                             s2$;:ready                                       f1$:copy
+            print                             s3$;:b=msg(0)+1:copy                             "dummy",#msg(b):msg(b)=mn
+            update:mn=mn+1:print              s4$;
+copy3
+            next:open                         #1,"b:data":print                                #1,c1,c2,ct,ct$,da$
+            print                             #1,nu,mn,wm"\n"lu$:close:ready                   f1$:goto
+
+inprng
+            if                                left$(i$,1)="T"                                  move
+            if                                left$(i$,1)="A"                                  fill
+            fill                              ram2,64,0
+inprng2
+            a=val(i$):if                      (a=0)                                            |
+            flag(a+512)=1:a=instr(",",i$):if  ~a                                               return
+            i$=mid$(i$,a+1):goto              inprng2
+
+list
+            a$="":for                         x=1                                              to
+            if                                flag(x+512)                                      print
+            next:if                           peek(36)>0                                       print
+            return
+
+show
+            if                                z>msg(0):a=0:return
+            if                                flag(z+512)=0:z++:goto                           show
+            input                             #msg(z),sb$|b,b$|c,c$
+            print                             #d,"\nNumb ->"z" of "msg(0)"\n Sub ->"sb$
+            print                             #d,                                              "  To ->"b$"\nFrom ->"c$
+            copy                              #6,#d:a=1:z++:return
+
+getret
+            input                             @2                                               "\nPress [RETURN] to continue... "i$
+            return
+
+doquit
+            end
+
diff --git a/LLUCE/PROGRAM/BUGGY.S b/LLUCE/PROGRAM/BUGGY.S
new file mode 100644
index 0000000..a687609
--- /dev/null
+++ b/LLUCE/PROGRAM/BUGGY.S
@@ -0,0 +1,67 @@
+
+            dra$="/Q3/LLUCE/program"
+            drb$="/Q3/LLUCE/SYSTEMS"
+            drc$="/Q3/LLUCE"
+            drd$="/Q3/LLUCE/ANSI"
+            drg$="/Q3/LLUCE/MAIL"
+            drh$="/RAM5"
+
+; main segment rev j - 7/21/87
+
+            public                                                               fromsys
+            public                                                               return
+            public                                                               term1
+            public                                                               termin2
+            public                                                               autoread
+            on                                                                   nocar                                        goto
+
+
+            un=1:flag(1)=1:flag(34)=1
+
+            print                                                                sc$\\
+            if                                                                   flag(0)                                      goto
+            ready                                                                drg$+"/mail"
+            if                                                                   not                                          msg(un)
+            print"   You have mail waiting.      Read it now ([Y]/n) ? ";:gosub  getkey
+            if                                                                   (i$<>"N")                                    print
+autoread
+            x=(clock-clock                                                       online)/60:y=clock:x$=right$("0"+str$(x),2)
+            if                                                                   x=0                                          x$="--"
+            if                                                                   not                                          y
+            if                                                                   exec                                         x$="::"
+            if                                                                   yl                                           print
+            gosub                                                                getkey
+            if                                                                   i$<>"N"print                                 "New Messages":bb=1:push
+            print                                                                "No, thank you."
+            goto                                                                 main
+fromsys
+            on                                                                   nocar                                        goto
+            print                                                                sc$\\
+main
+            on                                                                   nocar                                        goto
+            x=(clock-clock                                                       online)/60:x$=right$(" "+str$(x),3)
+            if                                                                   x=0                                          x$="---"
+            if                                                                   exec                                         x$=":::"
+            i$="":print\\"["x$" min] [ MAIN LEVEL ] (/=Menu) Option: ";:push     main
+            if                                                                   exec                                         gf$="B?CQDFTGYENHIPUMLX/S(+A*":goto
+            if                                                                   flag(1)                                      gf$="B?CQDFTGYENHIPUMLX/S(A*":goto
+            gf$="B?CQDFTGYNHIPUMLS/":goto                                        get.key
+getkey
+            y=0
+get.2
+            z=peek(-16287)
+            if                                                                   (z=129)                                      or
+            z=key
+            if                                                                   (z=>asc("a"))                                z=z-32
+            if                                                                   z<>0                                         i$=chr$(z):return
+            y=y+1
+            if                                                                   y=4000                                       print
+            if                                                                   y=7000                                       for
+            if                                                                   y=10000                                      print
+            goto                                                                 get.2
+get.key
+            gosub                                                                getkey
+            a=instr(i$,gf$):if                                                   a                                            goto
+            goto                                                                 get.key
+
+
diff --git a/LLUCE/PROGRAM/CONF.SEG.S b/LLUCE/PROGRAM/CONF.SEG.S
new file mode 100644
index 0000000..06bf5bd
--- /dev/null
+++ b/LLUCE/PROGRAM/CONF.SEG.S
@@ -0,0 +1,649 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1991
+; L&L Productions, Inc.
+; *********************
+
+; msg segment rev a - 4/5/91
+
+	public quickscan
+	public conference
+	public return
+
+conference
+	on nocar goto link.term
+;	on error goto error
+	of=flag:ob=byte					/* save old locations of flag and byte */
+	set aa$=ram(1),30:set ab$=ram(1)+31,30
+	set ac$=ram(1)+61,20:byte=ram(1)+81
+	flag=ram(2)	/* allocate 4092 flags for user status (Overlaps into ram(3) */
+;	edit on							/* Turn on Profanity Filter */
+	prefix:prefix "conferences/":rp$=prefix
+	f$="conf.0":if exist(f$) goto conf1
+	nc=0:f$="conf.0":create f$:open #1,f$
+	print #1,nc						/* Set #number of conferences to zero */
+conf.init
+	close #1:gosub add.conf:if nc=0 goto link.main
+conf1
+	open #1,"conf.0"
+	input #1,nc:if nc=0 goto conf.init
+	x=cn:gosub rd.head:close #1
+	cc$=aa$:cs$=ab$:si$=ac$:gosub start
+
+link.main								/* reset prefix and return */
+	prefix:chain "program/main.seg","otherseg"
+
+terminate
+	print "\nTerminate Connection"
+	input @2 "\nAre you sure? ([Y]/N):"i$
+	if left$(i$,1)="N" return
+link.term								/* reset prefix and return */
+	prefix:chain "program/main.seg","term1"
+
+;	Ready message file and check status
+
+start
+	gosub time:print "\nCurrent Conference:"cc$
+	print "[("x$")] Conference Level [?=Menu] Function :";
+start1
+	get i$
+start2
+	push start
+	if i$="?" | i$="/" print "Menu":goto start4
+	if i$="L" print "List Conferences Available":goto list.conf
+	if i$="J" print "Jump to a Conference":goto join.conf
+	if i$="D" print "Drop Conference":goto quit.conf
+	if i$="Q" print "Quit to Mail Level":pop:goto link.main
+	if i$="T" print "Terminate Connection":goto terminate
+	if i$="C" print "Check for New Messages":goto scan.conf
+	if i$="M" print "Mail to Conference Sysop":goto mail.sysop
+	if i$="X" print "Conference Transfer System":goto exfer.start
+
+	if ~exec goto start3	/* They are not the sysop so ignore the following */
+	if i$="A" print "Add a Conference":goto add.conf
+	if i$="K" print "Kill a Conference":goto kill.conf
+	if i$="E" print "Edit a Conference":goto edit.conf
+	if i$="M" print "Reorder Conferences":goto move.conf
+
+start3
+	if val(i$)<33 pop:goto start1	/* mask out possible control characters */
+	a1++:print "\n\""i$"\" is not a command":if a1<3 return
+start4
+	a1=0:print '\n Valid commands:
+  C - Check for New Messages  D - Drop Conference
+  J - Jump to a Conference    L - List Conferences Available
+  Q - Quit to Main Level      M - Send Mail to Conference Sysop
+  T - Terminate Connection    ? - This Menu';
+	if exec print '
+  -------------------------------------------------------------
+  A - Add a Conference        E - Edit a Conference
+  K - Kill a Conference       M - Reorder Conferences';
+	print "\n":return
+
+
+mail.sysop
+quit.conf
+pick.conf
+scan.conf
+kill.conf
+edit.conf
+move.conf
+	print "\nCommand structure works"
+	return
+
+exfer.start
+	print "\nEntering Exfer...to be completed!!"
+	return
+
+add.conf
+	print "\nWould you like to add a conference to the system? ([Y]/N):";
+	get i$:if i$="N":print:return
+add1
+	input @3 "\nConference Title: "ct$
+	input @3 "Conference Sysop: "cs$
+	input @3 "Sysop Mail ID   : "sid$
+	input "Access Flag     : "aa:byte(1)=aa
+	input "Read Flag       : "aa:byte(2)=aa
+	input "Write Flag      : "aa:byte(3)=aa
+	print "\nThis is what we have:\n"
+	print "Conference Title: "ct$
+	print "Conference Sysop: "cs$
+	print "Sysop Mail ID   : "sid$
+	print "Access Flag     : "byte(1)
+	print "Read Flag       : "byte(2)
+	print "Write Flag      : "byte(3)
+	input "\nIs this correct? ([Y]/N):"i$
+	if i$="N" goto add.conf
+
+	open #1,f$:input #1,nc
+	nc++:position #1,96,nc
+	fill ram(1),128,0
+	aa$=ct$+chr$(0x20,(30-len(ct$)))
+	ab$=cs$+chr$(0x20,(30-len(cs$)))
+	ac$=sid$+chr$(0x20,(30-len(sid$)))
+	x=nc:gosub wr.head
+	mark(1)=0:print #1,nc:close
+	return
+
+join.conf
+	print "\nWhich Conference do you wish to Jump to? (1-"nc;
+	input ", L)ist, Q)uit):"i$
+	if i$="L":f$="conf.0":ti$="Conference":gosub list.conf:goto join.conf
+	if ~val(i$) return							/* they must want to quit */
+	if val(i$)>nc goto join.conf				/* Value out of range */
+	open #1,"conf.0":x=val(i$):gosub rd.head:close #1
+	goto start.cat
+
+list.conf
+	flag=ram(0)+22:open #1,f$
+	x$=ti$+" Name"+chr$(0x20,(32-len(ti$)))+ti$+" Sysop"+chr$(0x20,(21-len(ti$)))
+	x$=x$+"Sysop ID"
+	print x$"\n"chr$(0x2D,79)
+	for x=1 to nc
+		gosub rd.head
+		if flag(aa) print aa$;chr$(0x20,(37-len(aa$)));ab$;chr$(0x20,(27-len(ab$)));ac$
+	next x
+	flag=ram(2):return
+
+start.cat
+	get i$
+	return
+
+ld.flags
+	open #1,f$
+	read #1,ram(2),512
+	close #1:return
+
+wr.flags
+	open #1,f$
+	write #1,ram(2),512
+	close #1:return
+
+quickscan
+	print "\nThis is the quickscan routine!!"
+	return
+
+	gosub idinf
+	if bf$="" print "\nThat board is not active.":return
+	if ~b1 print "\nYou do not have access to that board.":return
+	if i$="Q" gosub qscan
+cmd1
+	if msg(0) goto cmd2
+	print "\nThe "bn$" has no messages..."
+	input @2 "\nPost a message? ([Y]/N):"i$
+	if left$(i$,1)="N" return
+	sb$="":ti$="":gosub post:if ~b2 return
+	goto cmd1
+
+cmd2
+	gosub time:print "\n"bn$" - #"bb
+	print "["x$"]["inverse$"Board Level"normal$"][1-"msg(0)"] ";
+	input "Option (?=Help):"i$
+cmd2a
+	a=val(i$):push cmd2
+	if left$(i$,1)="J":i$=mid$(i$,2):goto jmp3
+	if left$(i$,1)="F" goto fwd
+	if left$(i$,1)="R" goto rvs
+	if left$(i$,1)="K" goto kill
+	if left$(i$,1)="S" goto scan
+	if i$="A" | i$="Q" pop:return
+	if i$="M" goto mark
+	if i$="N" goto new
+	if i$="B" goto browse
+	if i$="G" goto qscan
+	if i$="H":f$="b:hlp.msg":goto show.file
+	if i$="J" goto jump
+	if i$="P":ti$="All":sb$="":d=0:goto post
+	if i$="L":y=0:goto list
+	if i$="T" goto terminate
+	if i$=">" & (bb<ab):bb++:pop:goto start
+	if i$="<" & (bb>1):bb--:pop:goto start
+	if (a>0) & (a<=msg(0)):i$="F"+i$:goto fwd
+	if i$="?" | i$="/" goto cmd.menu
+	a1++:print "\nSorry, \""i$"\" is not a command. (?=Help)":if a1<3 return
+
+cmd.menu
+	a1=0:print "\n"bn$'\n
+	Read #, OR: [N]ew   [F#]orward [S#]can [B]rowse [M]arked [L]ist
+             [R#]vse [G]lobal   [J#]ump [P]ost   [K#]ill  [H]elp
+             [Q]uit  [>] Next board     [<] Previous board\n':return
+
+;	terminate connection
+
+terminate
+	print "\nTerminate Connection"
+	input @2 "\nAre you sure? ([Y]/N):"i$
+	if left$(i$,1)="N" return
+	prefix:chain "program/main.seg","term1"
+
+; post a bulletin
+
+post
+	if ~b2 print "\nYou do not have access to that board.":return
+	edit clear:if msg(0)=mb+128 print "\nSorry, no room on this board.":return
+	if msg(0)=msg size print "\nBoard directory full.":return
+	if msg free<29 print "\nBoard bit-map full.":return
+post2
+	print "\nPost Bulletin\n"
+	if d open #1,"b:sys.users":position #1,128,d:input #1,d1$,d2$|d3$:close
+	if d ti$=d3$+" (#"+str$(d)+")":if d=1 ti$="Sysop"
+	if ti$<>"" print "  To ->"ti$" ([Y]/N):";:get i$
+	if i$="\n":n=9:gosub backup:print:goto post2a
+	if i$="N":n=len(ti$)+10:gosub backup:input @4 ti$:if ti$="" return
+	if (ti$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+	if ti$="" input @4 "  To ->"ti$:if ti$="" return
+post2a
+	i$="":if sb$<>"" print " Sub ->"sb$" ([Y]/N):";:get i$
+	if i$="\n"n=9:gosub backup:print:goto post2b
+	if i$="N":n=len(sb$)+10:gosub backup:input @4 a$:if a$="" return
+	if (sb$<>"" | a$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+	if sb$="" input @4 " Sub ->"a$:if a$="" return
+	if a$<>"":sb$=a$
+post2b
+	a$=a3$:if (un=bs) & (bs$<>""):a$=bs$
+	a$=a$+" (#"+str$(un)+")"
+	if ~exec goto post2c
+	i$="":print "From ->"a$" ([Y]/N):";:get i$
+	if i$="\n"n=9:gosub backup:print:goto post2c
+	if i$="N":n=len(a$)+10:gosub backup:input @3 a$:if a$="" return
+	if (a$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+post2c
+	i$="":if flag(36) print "\nAnonymous Posting (Y/[N]):";:get i$:print
+	if (flag(36)) & (i$="Y"):flag(37)=1:else flag(37)=0
+	input @2 "\nPost: [Y]es, N)o, P)rotocol Upload? "i$
+	if i$="N" return
+	if i$="P" gosub ptcl.up:else gosub editor
+	if ~edit size return
+	print "\n"edit size" bytes entered"
+	print "Saving Message...wait..";:bp++:disk lock:a=msg(0)+1
+	if flag(37) print #msg(a),"*"sb$:else print #msg(a),sb$
+	print #6,tn,ti$
+	if flag(37) print #6,0,a$:else print #6,un,a$
+	if flag(37) print #6,"   Date: "date$"\n"
+	if ~flag(37) print #6,"   Date: "date$" at "time$"\n"
+	copy #8,#6:msg(a)=mn:mn++:update:tm++
+	print ".saved":ti$="":a$="":disk unlock:return
+
+; show new messages
+
+new
+	print "\nNew messages"
+	if nn>msg(msg(0)) print "\nSorry, no new messages.":return
+	x=msg(0):if ~lr:a=1:goto fwd2
+new1
+	if nn=<msg(x):a=x:x--:if x goto new1
+	goto fwd2
+
+; message retrieval - Forward
+
+fwd
+	if len(i$)>1:a=val(mid$(i$,2)):goto fwd1
+	print "\nMessage Retrieval - Forward"
+	input @2 "\nStart where (#, F)irst, <CR>):"i$
+	a=val(i$):if i$="F":a=1
+fwd1
+	if a=0 return
+	if a>msg(0):a=msg(0)
+fwd2
+	print "\n"s$"\n"n$
+fwd3
+	gosub show:if x return
+	if a<msg(0):a++:goto fwd3
+	return
+
+;	message retrieval - Reverse
+
+rvs
+	if len(i$)>1:a=val(mid$(i$,2)):goto rvs1
+	print "\nMessage Retrieval - Reverse"
+	input @2 "\nStart where (#, L)ast, <CR>):"i$
+	a=val(i$):if i$="L":a=msg(0)
+rvs1
+	if a=0 return
+	if a>msg(0):a=msg(0)
+rvs2
+	print "\n"s$"\n"n$
+rvs3
+	gosub show:if x return
+	if a>1:a--:goto rvs3
+	return
+
+; kill messages
+
+kill
+	if len(i$)>1:a=val(mid$(i$,2)):goto kill.1
+	print "\nKill a message"
+	input @2 "\nKill message (#,<CR>):"a
+kill.1
+	if (a=0) | (un=0) return
+	if a>msg(0) print "\nThat message is out of range.":return
+	input #msg(a),a$|x,b$|x,c$
+	if exec | (un=bs) goto kill.2
+	if x!=un print "\nThats not your message!":return
+kill.2
+	if flag(37) & (left$(a$,1)="*"):a$=mid$(a$,2)
+	print "\n Number :"a" of "msg(0)"\nSubject :"a$
+	input @2 "\nKill this message? (Y/[N]):"i$
+	if left$(i$,1)!="Y" return
+kill.3
+	disk lock:tm--:y=msg(msg(0)):delete #msg(a):crunch
+	b=msg(0):if b:msg(b)=y:update
+	print "\nBulletin #"a" killed..."
+	disk unlock:return
+
+; browse message titles
+
+browse
+	m$="":a=0:print "\nBrowse message titles"
+	print "\nScan for what text? [<CR>=All]"
+	input @3 ":"m$:a=1:if m$="":a=0:return
+	goto scan.2
+
+; scan messages
+
+scan
+	print "\nScan messages"
+	if len(i$)>1:a=val(mid$(i$,2):goto scan.1
+	input @3 "\nStart at (#,<CR>):"a
+scan.1
+	m$="":if a=0 return
+	if a>msg(0) print "\nThat message is out of range.":return
+scan.2
+	input @2 "\nAllow message marking? (Y/[N]):"i$
+	ms=0:if left$(i$,1)="Y":ms=a
+	d=0:x=15:print:z=flag:flag=ram2
+scan.3
+	a$=" ":if msg(a)>nn:a$="*"
+	flag(a-ms)=0:input #msg(a),t$
+	if m$ if ~instr(m$,t$) goto scan.4
+	if left$(t$,1)="*":t$=mid$(t$,2)
+	x--:d++:print a$a". "t$"\n"
+	if i$<>"Y" goto scan.4
+	print "Mark message? (Y/[N]/Q):";:get a$:print
+	if a$="Q" goto scan.5
+	flag(a-ms)=(a$="Y")
+scan.4
+	if a=msg(0) goto scan.5
+	a=a+1:if x goto scan.3
+	input @2 "\nMore messages? ([Y]/N/C):"a$
+	if left$(a$,1)="C":x=msg(0)-a-1:goto scan.3
+	if left$(a$,1)!="N" print:x=15:goto scan.3
+scan.5
+	me=a:flag=z:if ~d print "Sorry, no match":ms=0:return
+	if left$(i$,1)!="Y" return
+
+; marked message retrieval
+
+mark
+	print "\nRetrieve marked messages":a=ms
+	if ~ms print "\nSorry, no marked messages.":return
+mark.2
+	z=flag:flag=ram2:b=flag(a-ms):flag=z
+	x=0:if b gosub show
+	if x=0:a++:if a<me goto mark.2
+	return
+
+;	jump to another board.
+
+jump
+	print "\nJump to another board"
+jmp2
+	print "\nJump to (1-"ab",?,<CR>):";
+	input @2 i$:if i$="" return
+jmp3
+	a=val(i$)
+	if (a>0) & (a<=ab) pop:bb=a:goto start
+	if i$<>"?" goto jmp2
+	y=1
+
+;	list of available boards.
+
+list
+	print cls"\n"s$"\n":open #1,"b:sys.data2"
+	for x=1 to ab:position #1,128,x+8
+	input #1,a$|b$|a:setint(1)
+	if instr(left$(a$,1),"^#$%"):a$=mid$(a$,2)
+	b=1:if a:b=flag(a)
+	if b & (b$<>"") print right$("00"+str$(x),3)". "a$
+	if key end setint(""):x=ab
+	next:close:if y goto jmp2
+	return
+
+; global quickscan
+
+qscan
+	ob=bb:bb=1
+	print "\nGlobal Quickscan...Spacebar Exits"
+qs1
+	setint(1):print "\nChecking board: [";
+qs2
+	i$="":a$=right$("0"+str$(bb),2)
+	print a$"]";:gosub idinf:setint(1):if key end goto qs4
+	if (~b1) | (bf$="") | (msg(0)=0) goto qs3
+	if nn>msg(msg(0)) goto qs3
+	print "\n\nThe "bn$"\ncontains new message(s)."
+	input @2 "\n[R]ead S)kip Q)uit :"i$
+	if left$(i$,1)="Q" return
+	if left$(i$,1)="S" goto qs3
+	gosub new:input @2 "\nPost a message? (Y/[N]):"i$
+	if i$="Y":sb$="":ti$="":gosub post
+	i$="Y"
+qs3
+	bb=bb+1:if bb>ab goto qs4
+	if i$<>"" goto qs1
+	print "\b\b\b";:goto qs2
+qs4
+	if i$="" | i$=" " print
+	setint(""):bb=ob:goto idinf
+
+; message show routine
+
+show
+	if nn<=msg(a):nn=msg(a)+1
+	x=0:if lr<=msg(a):lr=msg(a)+1
+show1
+	if flag(36) goto anony
+	input #msg(a),sb$|tn,ti$|d,fr$:setint(2)
+	print #x,"\n  Board: "bn$"\n Number: "a" of "msg(0)"\nSubject: "sb$
+	print #x,"     To: "ti$
+	print #x,"   From: "fr$
+show1a
+	copy #6,#x:x=0:setint("")
+	if key end x=1:return
+	if key next return
+show2
+	if i$="+" return
+	gosub time:print "\n["x$"][B"bb" #"a" of "msg(0)"] ? or Cmd [N]#";
+	get i$:print
+	if i$="?" print "\nM)ail [N]ext R)eread X)modem Q)uit D)ump ";
+	if i$="?" & (d=un | exec) print "E)dit K)ill ";
+	if i$="?" & exec print "S)wap P)rint"
+	if i$="?" print
+	if i$="D":i$="+"
+	if (i$="N") | (i$="\n") | (i$="+") return
+	if i$="Q":x=1:return
+	if i$="R" goto show
+	if i$="P" & exec:x=5:goto show1
+	if (i$="A" | i$="M") & flag(1):a$="":goto show5
+	if i$="A" | i$="M" print "\nYou must be verified to reply.":goto show2
+	if i$="X" goto ptcl.dn
+	if ~flag(1) goto show2
+	if ~((d=un) | (exec)) goto show2
+	if i$="E" & (flag(2) | exec) goto show4
+	if i$="W" & exec goto wrt.msg
+	if i$="S" & exec goto mov.msg
+	if i$<>"K" goto show2
+	input @2 "\nKill: Are you Sure? (Y/[N]):"i$
+	if left$(i$,1)!="Y" goto show2
+	gosub kill.3:a--:return
+show4
+	input @2 "\nEdit: Are you Sure? (Y/[N]):"i$
+	if left$(i$,1)!="Y" goto show2
+	edit clear:input #msg(a),a$|b,b$|c,c$|d$|e$
+	copy #6,#8:edit:if ~edit size goto show2
+	x=msg(a):delete #msg(a):print #msg(a),a$"\n"b,b$"\n"c,c$"\n"d$"\n"e$
+	copy #8,#6:msg(a)=x:update:goto show2
+show5
+	input @2 "\nIs this a private letter? (Y/[N]):"i$
+	if left$(i$,1)="Y" goto show6
+	if (d=0 & flag(36)):ti$="Anoymous User":goto show5a
+	open #1,"system/sys.users":position #1,128,d
+	input #1,d1$,d2$|d3$:close:ti$=d3$
+show5a
+	if left$(sb$,3)<>"Re:":sb$="Re: "+sb$
+	b=a:gosub post:a=b:goto show2
+show6
+	if d=0 print "\nSorry, anonymous post.":goto show2
+	input @2 "\nSend this mail with a return receipt? (Y/[N]):"i$
+	if i$="Y":rf=1:z=0:else rf=0:z=1
+	k$="program/msg.seg"
+	print "\n ":chain "program/mail.seg","msg.link"
+return
+	on nocar goto link.term
+	ready bf$:goto show2
+
+wrt.msg
+	input @2 "\nFilename (to write):"i$
+	if i$="" goto show2
+	disk lock:create i$:open #1,i$:append #1
+	copy #msg(a),#1:close:disk unlock:goto show2
+
+;	message mover routine
+
+mov.msg
+	print "\n\nMessage Mover\n\nBoards 1-"ab
+	input @2 "\nMove this message to board #" i$:zx=val(i$)
+	if (zx>ab) | (zx<1) goto show2
+	print "Message #"a" from this board...";
+	edit clear:input #msg(a),a$|b,b$|c,c$:copy #6,#8
+	x=msg(a):b5=bb:bb=zx:disk lock:gosub idinf
+	if (kl>0) & (kl<=msg(0)) delete #msg(kb):crunch
+	zx=msg(0)+1:print #msg(zx),a$"\n"b,b$"\n"c,c$:copy #8,#6:msg(a)=zx:update
+	bb=b5:gosub idinf:msg(a)=x:gosub kill.3:a--
+	print "is now on board #"i$".":disk unlock:goto show2
+
+;show a message on anoymous boards.
+
+anony
+	input #msg(a),sb$|tn,ti$|d,fr$:setint(2)
+	if left$(sb$,1)="*":sb$=mid$(sb$,2):goto anony1
+	print #x,"\n  Board :"bn$"\n Number :"a" of "msg(0)"\nSubject :"sb$
+	print #x,"     To :"ti$
+	print #x,"   From :"fr$
+	goto show1a
+
+anony1
+	print #x,"\n  Board :"bn$"\n Number :"a" of "msg(0)"\nSubject :"sb$
+	print #x,"     To :"ti$
+	if exec print #x,"   From :"fr$:goto show1a
+	print #x,"   From :Anonymous Poster":goto show1a
+
+; Protocol download of a message
+
+ptcl.dn
+	print "\nDownload message #"a;
+	input @2 " via Protocol Transfer? (Y/[N]):"i$
+	if left$(i$,1)<>"Y" return
+	print "\nPreparing Message..."
+	f$="/ram5/d"+str$(un):disk lock:create f$:ready bf$:open #1,f$
+	input #msg(a),sb$|b,ti$|c,fr$:setint(2)
+	y=0:if left$(sb$,1)="*":sb$=mid$(sb$,2):y=1
+	print #1,"\n  Board :"bn$"\n Number :"a" of "msg(0)"\nSubject :"sb$
+	print #1,"     To :"ti$
+	if y print #1,"  From :Anonymous Poster":else print #1,"  From :"fr$
+	copy #6,#1:close:print "\nReady to Send...":disk unlock
+	overlay "protocol.down",180,0,f$:delete f$:goto show2
+
+; Protocol upload of bulletin
+
+ptcl.up
+	print "\nReady to Receive...":f$="/ram5/u"+str$(un)
+	disk lock:overlay "protocol.up",180,0,f$:disk unlock
+	close:edit clear:copy f$,#8:print \edit size" bytes received"
+	delete f$:edit:return
+
+idinf
+	flag(36)=0:flag(37)=0
+	if bb=0:bf$="":bl=0:return
+	me=0:bl=bb:open #1,"system/sys.data2"
+	mark(1)=1120:input #1,ab
+	if bb>ab close:bf$="":bl=0:return
+	position #1,128,bb+8
+	input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	if left$(bn$,1)="%":flag(36)=1:bn$=mid$(bn$,2)
+	if left$(bn$,1)="$":flag(36)=1:bn$=mid$(bn$,2)
+	if left$(bn$,1)="#":flag(36)=0:bn$=mid$(bn$,2)
+	b1=1:if b3:b1=flag(b3)
+	b2=1:if b4:b2=flag(b4)
+	close:if bf$="":bl=0:return
+	if (b1) ready bf$:nn=nb
+	return
+
+;	*** sub - routines ***
+
+;	read header file
+
+rd.head
+	position #1,96,x
+	read #1,ram(1),96
+	return
+
+wr.head
+	position #1,96,x
+	write #1,ram(1),96
+	return
+
+;	backspace over text
+
+backup
+	print chr$(8,n);chr$(0x20,n);chr$(8,n);
+	return
+
+;	enter a message
+
+editor
+	print cls"[ Enter/Edit Message Now : 4k or 4096 Bytes Maximum ]"
+	print "[ Legal Commands : .A = Abort  .H = Help  .S = Save ]"
+edit2
+	cl=clock:clock=0:edit clear:edit:clock=cl:return
+
+;	show a disk file
+
+show.file
+	setint(1):print "\n"s$"\n":open #1,f$:if mark(1) close #1:return
+showfl2
+	copy (20) #1
+	if (eof(1) | key end) setint(""):close #1:return
+	if ~flag(35) goto showfl2
+	print "Press [RETURN] ";:get i$:if i$=chr$(13) print " ";
+	print chr$(8,16);chr$(0x20,16);chr$(8,16);
+	if i$=" " setint(""):close #1:return
+	setint(1):goto showfl2
+
+;	calculate time remaining
+
+time
+	z=(clock-clock online)/60:y=clock:x$=right$("00"+str$(z),3 )
+	if clock online>clock:x$="!!!":else if z=0 x$="---"
+	if ~y:x$="***"
+	if exec:x$=":::"
+	return
+
+data.read							/* read current info from the data file */
+	disk lock:open #1,"system/sys.data"
+	input #1,c1,ct,ct$,wm$
+	input #1,nu,mn,tm,nn|lu$
+	close:disk unlock:return
+
+data.write							/* write current into to the data file */
+	disk lock:open #1,"system/sys.data"
+	print #1,c1,ct,ct$,wm$
+	print #1,nu,mn,tm,nn"\n"lu$
+	close:disk unlock:return
+
+error								/* print error message and handle */
+	print "\nOne moment please, returning you to the Main Level."
+	disk lock:close:clear gosub:create "system/sys.errors"
+	open #1,"system/sys.errors":append #1
+	print #1,"Error #"err" occured at "time$" on "date$" in conf.seg"
+	close:disk unlock:chain "a:main.seg","fromsys"
diff --git a/LLUCE/PROGRAM/CONFIG.SEG.S b/LLUCE/PROGRAM/CONFIG.SEG.S
new file mode 100644
index 0000000..ab29b25
--- /dev/null
+++ b/LLUCE/PROGRAM/CONFIG.SEG.S
@@ -0,0 +1,326 @@
+
+; Rev 06/18/88 - 18:11 AW
+
+	ready " ":on nocar goto terminate
+start
+	print sc$'
+1)  Edit bulletin boards
+2)  Print a sorted user list
+3)  Purge Users
+4)  Edit access information
+5)  Quit':gosub showtime
+	print iv$"[Config]"no$" Which? (1-6)";
+	l1$=cr$+es$+"12345":gosub getone:a=val(i$):if i$=cr$ or i$=es$:a=6
+	if a=5 print "Quit":l1$="a:main.seg":l2$="fromsys":goto link
+	push start:if a=1 print "Edit boards":goto maintbrd
+	if a=2 print "User list":goto userlist
+	if a=3 print "Not finished":gosub get:return
+	if a=4 print "Edit access":goto edaccess
+
+maintbrd
+	print sc$'1)  Add a new bulletin board
+2)  Delete a bulletin board
+3)  Edit an existing board
+4)  Swap two bulletin boards
+5)  List all bulletin boards
+6)  Create board storage file
+7)  Return to Config menu':gosub showtime
+	print iv$"[BBS edit]"no$" Which? (1-7)";:l1$=cr$+es$+"1234567":gosub getone
+	a=val(i$):if i$=cr$ or i$=es$ or (a=7) return
+	push maintbrd:if a=1 print "Add":goto add.brd
+	if a=2 print "Delete":goto del.brd
+	if a=3 print "Edit":goto edit.brd
+	if a=4 print "Swap":goto sw.brd
+	if a=5 print "List":goto lst.brd
+	if a=6 print "Create":goto stocre
+
+add.brd
+	print \"Add a board?";:yn=1:es=1:gosub getyn:if i$="N" return
+	nb=1:open #1,"b:data2":mark(1)=1120:input #1,ab:close
+	bb=ab+1:bn$="New Board":bf$="F:B"+str$(bb)
+	b3=1:b4=1:bs=0:bs$="":mb=128:kl=0:kb=0:goto ed.brd1
+
+edit.brd
+	open #1,"b:data2":mark(1)=1120:input #1,ab
+	nb=0:print \"System has boards from 1-"ab
+ed.brd0
+	print \"  Edit #";:ix=2:gosub input2:if i$="" close:return
+	bb=val(i$):if (bb<1) or (bb>ab) print \iv$"Invalid Board"no$:goto ed.brd0
+	position #1,128,bb+8:input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb:close
+ed.brd1
+	print \"1)  Name: "bn$"  [#"bb"]"
+	print "2)  File: "bf$
+	print \"3)  Access: "left$(str$(b3)+" "),2)"  4)  Write: "b4
+	print \"5)  Aux Sysop Numb: "bs
+	print "6)  Aux Sysop Name: ";
+	if bs$="" print "[ No Aux Sysop ]":else print bs$
+	print \"7)  Max #  of bulletins: "mb
+	print "8)  Auto kill threshold: ";
+	if kl print kl:else print "No auto kill"
+	print "9)  Bulletin #  to Kill: "kb
+	print \"10)  Abort Without Saving"
+	print "11)  Save Changes And Quit"
+	print \"Edit? [1-11]";:ix=2:gosub input:a=val(i$):if (i$="") or a=10 return
+	if a=1 print \"Name";:ix=3:gosub input:if i$<>"":bn$=i$
+	if a=2 print \"File";:ix=3:gosub input:if i$<>"":bf$=i$
+	if a=3 print \"Access";:ix=3:gosub input:if i$<>"":b3=val(i$)
+	if a=4 print \"Write";:ix=3:gosub input:if i$<>"":b4=val(i$)
+	if a=5 print \"Aux Sysop #";:ix=4:gosub input2
+	if (a=5) and (i$<>""):bs=val(i$):gosub ed.brd3
+	if a=6 print \'
+Aux sysop Name -> 'bs$;chr$(8,len(bs$));:ix=4:gosub input2:if i$<>"":bs$=i$
+	if a=7 print \"Max # of Bulletins";:ix=4:gosub input:if i$<>"":mb=val(i$)
+	if a=8 print \"Auto kill threshold";:ix=4:gosub input:kl=val(i$)
+	if a=9 print \"Bulletin # to Kill";:ix=4:gosub input:if i$<>"":kb=val(i$)
+	if a=11 goto ed.brd2
+	goto ed.brd1
+
+ed.brd2
+	print \"Updating..";:open #1,"b:data2":mark(1)=1120:input #1,ab
+	i$=bn$+cr$+bf$+cr$+str$(b3)+","+str$(b4)+cr$+str$(bs)+","+bs$+cr$
+	i$=i$+str$(mb)+","+str$(kl)+","+str$(kb)
+	if len(i$)<127:i$=i$+cr$:if len(i$)<127:i$=i$+chr$(32,127-len(i$))
+	position #1,128,bb+8:print #1,i$:if nb=1:mark(1)=1120:print #1,ab+1
+	close:print ".board #"bb" updated":if nb=1 goto stocre1
+	return
+
+ed.brd3
+	open #1,"b:users":position #1,128,bs:input #1,a$,b$\c$:close #1
+	if a$<>"":bs$=c$:return
+	print \iv$"That user does not exist!"no$
+	if bs$="" or (bs=0):bs=0:bs$=""
+	return
+
+del.brd
+	open #1,"b:data2":mark(1)=1120:input #1,ab
+	nb=0:print \"System has boards from 1-"ab
+del.brd0
+	print \"Delete #";:ix=2:gosub input2:if i$="" close:return
+	bb=val(i$):if (bb<1) or (bb>ab) print \iv$"Invalid Board"no$:goto del.brd0
+	position #1,128,bb+8:input #1,bn$\bf$
+	print \"Delete "bn$"?";:yn=1:es=1:gosub getyn:if i$="N" close:return
+	kill bf$:ab=ab-1:mark(1)=1120:print #1,ab:if bb=(ab+1) close:return
+	for l=bb to ab-1:position #1,128,l+9:input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb
+	i$=bn$+cr$+bf$+cr$+str$(b3)+","+str$(b4)+cr$+str$(bs)+","+bs$+cr$
+	i$=i$+ctr$(mb)+","+str$(kl)+","+str$(kb)
+	if len(i$)<127:i$=i$+cr$:if len(i$)<127:i$=i$+chr$(32,127-len(i$))
+	position #1,128,l+8:print #1,i$:next:close:return
+
+sw.brd
+	open #1,"b:data2":mark(1)=1120:input #1,ab
+	nb=0:print \"System has boards from 1-"ab
+sw.brd0
+	print \"Swap #";:ix=2:gosub input2:if i$="" close:return
+	b1=val(i$):if (b1<1) or (b1>ab) print \iv$"Invalid Board"no$:goto sw.brd0
+sw.brd1
+	print "With #";:ix=2:gosub input2:if i$="" goto sw.brd0
+	b2=val(i$):if (b2<1) or (b2>ab) print \iv$"Invalid Board"no$:goto sw.brd1
+	position #1,128,b1+8:input #1,bn$:print "Swap board: "bn$
+	position #1,128,b2+8:input #1,bn$:print "With board: "bn$
+	print \"Correct?";:yn=1:es=1:gosub getyn:if i$="N" close:return
+	position #1,128,b1+8:input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb
+	edit clear:print #8,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb
+	position #1,128,b2+8:input #1,bn$\Bf$\b3,b4\bs,bs$\mb,kl,kb
+	i$=bn$+cr$+bf$+cr$+str$(b3)+","+str$(b4)+cr$+str$(bs)+","+bs$+cr$
+	i$=i$+ctr$(mb)+","+str$(kl)+","+str$(kb)
+	if len(i$)<127:i$=i$+cr$:if len(i$)<127:i$=i$+chr$(32,127-len(i$))
+	position #1,128,b1+8:print #1,i$
+	input #8,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb:edit clear
+	i$=bn$+cr$+bf$+cr$+str$(b3)+","+str$(b4)+cr$+str$(bs)+","+bs$+cr$
+	i$=i$+ctr$(mb)+","+str$(kl)+","+str$(kb)
+	if len(i$)<127:i$=i$+cr$:if len(i$)<127):i$=i$+chr$(32,127-len(i$))
+	position #1,128,b2+8:print #1,i$
+	close:return
+
+lst.brd
+	print sc$:open #1,"b:data2":mark(1)=1120:input #1,ab
+	for l=1 to ab:position #1,128,l+8:input #1,bn$,bf$
+	print right$(" "+str$(l),2)". "left$(bn$+chr$(32,32),32)bf$
+	next:close:print \"Press any key to continue";:gosub get:return
+
+stocre
+	print sc$:open #1,"b:data2":mark(1)=1120:input #1,ab
+stocre0
+	print \"Create storage file for board #";:ix=2:gosub input2
+	if i$="" close:return
+	bb=val(i$):if (bb<1) or (bb>ab) print \iv$"Invalid Board"no$:goto stocre0
+	position #1,128,bb+8:input #1,bn$\bf$\b3,b4\bs,bs$\mb,kl,kb:close
+stocre1
+	print \"Directory Capacity [Default=128]";:ix=2:gosub input:a$=i$
+	if a$="":a$="128"
+	print \"Storage Capacity  [Default=128k]";:ix=2:gosub input:b$=i$
+	if b$="":b$="128"
+	y=val(a$):z=val(b$):print sc$"Name: "bn$:print \"File: "bf$
+	print \"Max Bulletins: "y:print \"Max Storage: "z
+	print \"Is the above correct?";:yn=1:es=1:gosub getyn:if i$="N" return
+	y=(y/128)*128:z=(z/128)*128:l=(y/32)+(z/128)
+	fill ram2,64,0:poke ram2,z/128:poke ram2+1,y/32:create bf$:open #1,bf$
+	write #1,ram2,8:fill ram2,64,0:for x=1 to l:write #1,ram2,64
+	write #1,ram2,64:next:close:x=6:use "e:xtyp",bf$,x:return
+
+userlist
+	print sc$'
+1)  Print list sorted by name
+2)  Print list sorted by user number
+3)  Print list sorted by password
+4)  Print list sorted by phone number
+5)  Print list sorted by last date on
+6)  Print list sorted by security level
+7)  Return to main menu':gosub showtime
+	print iv$"[User list]"no$" Which? (1-7)";:l1$=cr$+es$+"1234567"
+	gosub getone:a=val(i$):if i$=cr$ or i$=es$ or (a=7) return
+	y=32:if a=1 print "Name":f$="b:srt.name"
+	if a=2 print "User":f$="b:srt.num"
+	if a=3 print "Pass":f$="b:srt.pw":y=64
+	if a=4 print "Phone":f$="b:srt.ph":y=64
+	if a=5 print "Date":f$="b:srt.date":y=64
+	if a=6 print "Security":f$="b:srt.sec":y=64
+	print \"Show passwords?";:yn=1:es=1:gosub getyn:pa=(i$="Y"):if es return
+	i$="":print \"To printer?";:yn=1:es=1:gosub getyn:s=5:nl=58:if es return
+	if i$="N":s=0:nl=15
+	move ram,58 to ram2:on nocar goto pterm
+	z=1:print sc$\:open #2,f$:if mark(2)=0 goto sortit
+	close:print "Reading data...":open #1,"b:users":kill f$:create f$:open #2,f$
+	for l=1 to nu:position #1,128,l:input #1,d1$,d2$\d3$\d4$,d5$
+	position #1,128,l,70:read #1,ram,58:t$="":if d1$="" goto next
+	t$=d2$+" "+d1$
+	if a=2:t$=right$("    "+str$(l),4)
+	if a=3:t$=mid$(" "+pa$+"       ",2,8)+t$
+	if a=4:i$=right$(chr$(32,12)+ph$,12)
+	if a=4:t$=left$(i$,3)+"-"+mid$(i$,5,3)+"-"+right$(i$,4)+t$
+	if a=5:t$=right$(when$,2)+"/"+left$(when$,5)+t$
+	if a=6:i$="":for x=1 to 34:i$=i$+str$(flag(x)):next:t$=i$+t$
+	position #2,y,z:print #2,t$\l:z=z+1
+next
+	next
+sortit
+	close:z=1:print "Sorting...";:use "e:rndsort.128",f$,y,z
+	print "Printing...":z=1:open #2,f$:open #1,"b:users":ln=1:r=0
+ploop
+	position #2,y,z:input #2,t$\l:if t$="" goto pend
+	position #1,128,l:input #1,d1$,d2$\d3$\d4$,d5$
+	position #1,128,l,70:read #1,ram,58
+	setint(1):if mm=2 addint(es$)
+	if ln<>1 goto skp.hdr
+	if r and (s=0) print "Press any key to continue";:gosub get
+	if r print #s,sc$;
+	print #s,'
+**  GBBS "Pro" Userlist  -  Version 1.3  -  List Sorted By: ';
+	if a=1 print #s,"User Name     ";
+	if a=2 print #s,"User Number   ";
+	if a=3 print #s,"Password      ";
+	if a=4 print #s,"Phone Number  ";
+	if a=5 print #s,"Last Date on  ";
+	if a=6 print #s,"Security level";
+	r=1:print #s,'  **
+[Name]                     [Phone]    [User] [Pass]    [Sec]    [Last]  [Time]
+[Alias]                    [Number]   [Numb] [Word]    [Lvl]    [Call] [Limit]'
+	print #s,""
+skp.hdr
+	print #s,left$(d3$+chr$(32,25),25);ph$;right$("     "+str$(l),6)"-";
+	if pa print #s,pa$;:else print #s,"********";
+	print #s,"  ";:for x=1 to 8:print #s,flag(x);:next
+	print #s,"  "when$;right$("    "+str$(nibble(5)*10),4)
+	z=z+1:ln=ln+1:if ln>nl:ln=1
+	if (mm=2) and (key=27):mm=0
+	if key flag=0 goto ploop
+pend
+	close:setint(""):if s=0 print \"Press any key to continue";:gosub get
+	print #s,sc$;:move ram2,58 to ram:return
+
+pterm
+	move ram2,58 to ram:close:setint("")
+terminate
+	l1$="a:main.seg":l2$="term1"
+link
+	open #1,"b:trace":append #1:print #1,l1$,l2$:link l1$,l2$
+
+edaccess
+	gosub showtime:print iv$"[Access]"no$" "iv$"[Q]"no$"uit, V)iew, E)dit";
+	l1$=cr$+es$+"QVE":gosub getone
+	if i$="Q" or i$=cr$ or i$=es$ print "Quit":return
+	push edaccess:if i$="E" print "Edit":goto accessed
+	print "View"\:open #1,"b:data2":for l=0 to 16
+	position #1,32,l:input #1,a$:position #1,32,l+17:input #1,b$
+	print right$(sp$+str$(l),2)". "left$(a$+chr$(32,32),32)"  ";
+	print right$(sp$+str$(l+17),2)". "b$:next
+	position #1,32,34:input #1,a$:print chr$(32,38)"34. "a$:close:return
+
+accessed
+	print \"Edit flag #";:ix=2:gosub input2:if i$="" return
+	l=val(i$):if (l<0) or (l>34) print \iv$"Invalid flag"no$;g$:goto accessed
+	open #1,"b:data2":position #1,32,l:input #1,a$
+acc.1
+	print right$(" "+str$(l),2)". "a$
+	print " ";:ix=3:gosub input:if len(i$)>31 print '
+Entry too long.. Try again..'\:goto acc.1
+	if i$<>"" goto setflag
+	print \"Zero this flag?";:yn=1:es=1:gosub getyn:if i$="N" return:else i$=""
+setflag
+	if len(i$)<31:i$=i$+cr$:if len(i$)<31:i$=i$+chr$(32,31-len(i$))
+	position #1,32,l:print #1,i$:close:goto accessed
+
+showtime
+	ty=clock online:tx=clock-ty:tx$=""
+	if ty>3599:tx$=right$("0"+str$(ty/3600),2)+":":ty=(ty mod 3600)
+	tx$=tx$+right$("0"+str$(ty/60),2)+":"+right$("0"+str$(ty mod 60),2)
+	if exec or (clock=0) goto d.time
+	tx$=tx$+"-"
+	if tx>3599:tx$=tx$+right$("0"+str$(tx/3600),2)+":":tx=(tx mod 3600)
+	tx$=tx$+right$("0"+str$(tx/60),2)+":"+right$("0"+str$(tx mod 60),2)
+d.time
+	print:if td print "["tx$"] ";
+	return
+
+getyn
+	print " (";:l1$="YN":if yn=2 print iv$"[Y]"no$;:l1$=l1$+cr$:else print "y";
+	print "/";:if yn=1 print iv$"[N]"no$;:l1$=l1$+cr$:else print "n";
+	print ")";:if es>0:l1$=l1$+es$
+	gosub getone:l1$=i$:if (i$=es$) and (es>0):i$=mid$("NY",es,1)
+	if (i$=cr$) and (yn>0):i$=mid$("NY",yn,1)
+	es=0:yn=0:if l1$=es$:es=1:print "Esc":return
+	if i$="Y" print "Yes":else print "No"
+	return
+
+getone
+	print ": ";
+getonex
+	gosub get.mac:cx=cx+1:if (mm=1) and (i$=g$) gosub savemac
+	if instr(i$,l1$) goto get2
+	goto getonex
+
+get
+	print ": ";:gosub get.mac:cx=cx+1
+get2
+	if mm=1 print #10,i$;:if mark(10)>126 goto savemac
+	return
+
+input
+	print " -> ";
+input2
+	free:if mm<>2 goto input2a
+	if key=27 get i$:mm=0:goto input2a
+	input #10,i$:print i$:goto input3
+input2a
+	if ix=-1 input i$
+	if ix=0 input @0 i$
+	if ix=1 input @1 i$
+	if ix=2 input @2 i$
+	if ix=3 input @3 i$
+	if ix=4 input @4 i$
+input3
+	cx=cx+len(i$)+1:ix=-1:if mm<>1 return
+	if mark(10)+len(i$)<127 print #10,i$:else goto macsv
+	if mark(10)<127:return
+macsv
+	print g$;
+savemac
+	open #2,"b:macros":position #2,128,un:write #2,-18816,128:close #2
+	mm=0:print g$;:return
+
+get.mac
+	free:if mm<>2 get i$:return
+	if key=27 get i$:mm=0:goto get.mac
+	mm=peek(mark(10)-18816):if mm=0 goto get.mac
+	mark(10)=mark(10)+1:i$=chr$(mm):mm=2:if mark(10)>126:mm=0
+	return
diff --git a/LLUCE/PROGRAM/COPY.S b/LLUCE/PROGRAM/COPY.S
new file mode 100644
index 0000000..d9fffec
--- /dev/null
+++ b/LLUCE/PROGRAM/COPY.S
@@ -0,0 +1,28 @@
+            public   copy.1
+
+
+begin
+            on       nocar                  goto
+            f$="":f2$=""
+
+copy
+            input    @2                     \"Input source file (ex. a:filename): "f$
+            if       f$=""                  print
+            open     #1,f$:a=mark(1):close
+            if       a:print                \"That file doesn't exist!":goto
+            input    @2                     \"Input target file ................: "f2$:print
+            if       f2$=""                 print
+
+copy.1
+            overlay  "x.copy",f$,f2$
+            a=peek(-25085)
+            if       a=71:input             @2
+            if       a<>0:print             \"Copy aborted....error #"a:print\
+
+link.net
+            if       not                    exec
+            link     "a:network.seg"
+
+link.term
+            link     "a:main.seg","term1"
+
diff --git a/LLUCE/PROGRAM/EMAIL.SEG.S b/LLUCE/PROGRAM/EMAIL.SEG.S
new file mode 100644
index 0000000..7b1a8eb
--- /dev/null
+++ b/LLUCE/PROGRAM/EMAIL.SEG.S
@@ -0,0 +1,325 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1989
+; L&L Productions, Inc.
+; *********************
+
+; email segment rev c - 5/12/90
+; Original code written by Andy Nicholas
+
+	public mailread
+	public email
+
+	on nocar goto link.term		/* setup loss of carrier vector */
+;	on error goto error			/* setup error vector */
+	gosub browse				/* show any possible mail first off */
+
+email				/* get a command from the user and handle it for email */
+	gosub time:print "\n[("x$")] E-Mail Level [?=Help] :";
+email1
+	get i$
+email2
+	push email
+	if i$="Q" print "Quit to Main Level":pop:goto link.main
+	if i$="?" print "Menu":goto menu
+	if i$="H" print "Help":ns=2:l$="HELP":goto dispatch
+	if i$="D" print "Delete Mail":goto delete
+	if i$="R" print "Read Mail":goto read
+	if i$="S" print "Send Mail":goto send
+	if i$="B" print "Browse Mail":goto browse
+	if i$="T" print "Terminate":goto terminate
+	if i$="D" print "Delete Mail":goto delete
+	if i$="X" print "Download all Mail":a=0:goto download
+	if i$="\n" | i$=" " pop:goto email1
+	if ~exec goto email3
+	if i$="F" print "Read Feedback":mb$="email/feedback":goto read1
+	if i$="L" print "Browse Feedback":mb$="email/feedback":goto browse1
+email3
+	a1++:print "\n\n"pr$"\""i$"\" is ~a valid command":if a1<3 return
+
+menu									/* show menu of valid commands */
+	if width<79:f$="system/mnu.email40":else f$="system/mnu.email80"
+menu1
+	a1=0:if ~exist(f$) goto email
+	open #1,f$:input #1,z$:setint(" "):addint(z$)
+	cls:copy #1:if key flag goto menukey
+	a=key:close:setint(""):goto email
+
+menukey							/* handle a ketpress during menu display */
+	close:setint(""):a=key:i$=chr$(a):upper$(i$)
+	if i$=" " goto email
+	print "\n["x$"][E-Mail Level] Option (?=Help):"
+	goto email2
+
+dispatch							/* link to utility segment for help */
+	y$="program/email.seg":z$="email"
+	chain "program/util.seg"
+
+terminate					/* does the user want to terminate off the system */
+	print "\nAre You Sure ["inverse$"(Yes)"normal$",No] :";
+	get i$:if i$="N" print "No":return
+	print "Yes"
+link.term					/* link back to main segment on loss of carrier */
+	chain "program/main.seg","term1"
+link.main					/* link back to the main.seg */
+	chain "program/main.seg","otherseg"
+
+send						/* send mail to a user */
+	if ~flag(1) print "\n"pr$"Only validated users may send mail":return
+	input @2 "\nTo whom: [Mail ID or Name] -> "i$:if i$="" return
+	if (instr("!",i$) | instr("@",i$)) goto netsend
+	gosub name.chk:if ~f print "\nSorry, No such user.":return
+	if (a<1) | (a>nu) print "\nSorry, No such user":return
+	move ram,60 to ram(1):open #1,"system/sys.users"
+	position #1,192,a:input #1,a$|b$|c$
+	position #1,192,a,132:read #1,ram,60
+	close:rtrim$(a$)
+	if a$="" move ram(1),60 to ram:print "\nSorry, No such user":return
+	print "\nSend to "a$" ("b$")\nLast on - "when$;
+	print "? ["inverse$"(Yes)"normal$"/No]: ";
+send4
+	get i$:move ram(1),60 to ram:if i$="N" print "No":return
+	print "Yes"
+	input @3 "\nSubject -> "sb$:if sb$="":sb$="None"
+	gosub editor:if ~edit size goto abort
+send5
+	print "\nRegistered Mail? [Yes/"inverse$"(No)"normal$"]: ";
+	get i$:if i$="Y" print "Yes":else print "No"
+	rg=(i$="Y"):sb$=left$(sb$,25)
+	if rg:st$="Registered Mail":else st$="Awaiting Reply"
+	print:f$=a$:gosub chkbox:print "Sending "edit size" bytes...";
+	ready mb$:if msg(0)=128 kill #msg(1):crunch
+	a=msg(0)+1:a$=id$:rtrim$(a$)
+	print #msg(a),date$" "time$"\n"a$" ("a1$")",un"\n"st$"\n"sb$"\n"rg
+	copy #9,#7:msg(a)=a:flush:ready "":print "Message Sent"
+	return
+
+netsend								/* parse and handle possible net-mail */
+	print "\nNetwork Mail is still being implimented.":return
+
+read							/* read mail for the user currently logged in */
+	mb$="email/"+id$:rtrim$(mb$):rs=0
+read1
+	if ~exist(mb$) print "\nNo letters waiting":return
+	ready mb$:x=0
+read2
+	if rs gosub register
+	a=0:push read2:x++:if x>msg(0) pop:ready "":goto delete
+read3
+	input #msg(x),dt$|fr$,un$|st$|sb$|rs
+	print #a,"\n"md$
+	print #a,"  From: "fr$
+	print #a,"  Date: "dt$
+	print #a,"Status: "st$
+	print #a,"  Subj: "sb$"\n"
+	setint(2):copy #7,#a:setint(""):print #a,md$:if key next return
+read4
+	print "\n[A]uto reply, "inverse$"[N]"normal$"ext, [R]e-read, [D]ownload, ";
+	print "[K]ill, [Q]uit: ";:get i$
+	if i$="Q" print "Quit":ready "":pop:return
+	if i$="R" print "Re-read":a=0:goto read3
+	if i$="F" print "Forward":goto forward
+	if i$="A" print "Auto-Reply":goto reply
+	if i$="K" print "Kill":goto kill
+	if i$="X" print "Download Message":a=1:gosub download:goto read4
+	if i$="P" & exec print "Print":a=6:goto read3
+	print "Next":return
+
+mailread		/* enter from logon seg if they want to read mail right away */
+	gosub browse:print "\nPress a key to continue...";:get i$
+	gosub read:chain "program/main.seg"
+
+reply										/* reply to someone message */
+	if (instr("!",fr$) | instr("@",fr$)) goto netsend
+	z$=mb$:if left$(sb$,4)<>"Re: " sb$="Re: "+sb$
+	f$=left$(fr$,(instr("(",fr$)-1)):rtrim$(f$)
+	gosub chkbox:gosub editor:if ~edit size gosub abort:mb$=z$:goto reply1
+	gosub send5:mb$=z$
+reply1
+	ready mb$:return
+
+forward									/* forward a message to someone else */
+	input @2 "\nForward to [Mail ID or Name] -> "i$:if i$="" goto read4
+	if (instr("!",i$) | instr("@",i$)) goto netsend
+	gosub name.chk:if ~f print "\nSorry, No such user.":goto read4
+	if (a<1) | (a>nu) print "\nSorry, No such user":goto read4
+	move ram,60 to ram(1):open #1,"system/sys.users"
+	position #1,192,a:input #1,a$|b$|c$
+	position #1,192,a,132:read #1,ram,60
+	close:rtrim$(a$)
+	if a$="" move ram(1),60 to ram:print "\nSorry, No such user"
+	print "\nSend to "a$" ("b$")\nLast on - "when$;
+	print "? ["inverse$"(Yes)"normal$"/No]: ";
+	get i$:move ram(1),60 to ram:if i$="N" print "No":goto read4
+	print "Yes"
+forward4
+	print "\nRegistered Mail? [Yes/"inverse$"(No)"normal$"]: ";
+	get i$:if i$="Y" print "Yes":else print "No"
+	rg=(i$="Y"):sb$=left$(sb$,25)
+	f$=a$:input #msg(x),dt$|fr$,un$|st$|sb$|rs
+	edit clear:print #9,"  From: "fr$
+	print #9,"  Date: "dt$
+	print #9,"Status: "st$
+	print #9,"  Subj: "sb$"\n"
+	copy #7,#9:z$=mb$
+	st$="Forwarded":gosub chkbox:ready mb$
+	if msg(0)=128 kill #msg(1):crunch
+	a=msg(0)+1:a$=id$:rtrim$(a$)
+	print #msg(a),date$" "time$"\n"a$" ("a1$")",un"\n"st$"\n"sb$"\n"rg
+	copy #9,#7:msg(a)=a:flush:mb$=z$:ready mb$
+	print "\nMessage Forwarded"
+	return
+
+kill								/* kill a message from someone mail file */
+	if msg(0)=1 ready "":kill mb$:pop:return
+	kill #msg(x):crunch:flush
+	if x>msg(0) pop:ready "":return
+	goto read3
+
+register									/* Send registered mail receipt */
+	edit clear:input #msg(x),dt$|fr$,un$|st$|sb$|rs	/* Update message to show */
+	copy #7,#9:rs=0:st$="Receipt Sent"			/* Receipt having been sent */
+	z=msg(x):kill #msg(x)
+	print #msg(x),dt$"\n"fr$,un$"\n"st$"\n"sb$"\n"rs
+	copy #9,#7:msg(x)=z:flush
+	z$=mb$:f$=left$(fr$,(instr("(",fr$)-1))
+	rtrim$(f$):a$=id$:rtrim$(a$)
+	gosub chkbox:ready mb$
+	st$="Reciept Notice":if left$(sb$,4)<>"Re: " sb$="Re: "+sb$
+	rg=0:if msg(0)=128 kill #msg(1):crunch
+	edit clear:print #9,"This letter is to let you know that "a1$
+	print #9,"read your letter on "date$" at "time$"
+	a=msg(0)+1:a$=id$:rtrim$(a$)
+	print #msg(a),date$" "time$"\n"a$" ("a1$")",un"\n"st$"\n"sb$"\n"rg
+	copy #9,#7:msg(a)=a:flush:mb$=z$:ready mb$
+	print "\nReciept Sent"
+regst1
+	return
+
+delete				/* find out if the user wants to delete there mailbox */
+	print "\nDelete mailbox? [Yes/"inverse$"(No)"normal$"]: ";
+	get i$:if i$="Y" print "Yes":else print "No":return
+delete1
+	ready "":close:kill mb$
+	print "\nYour Mailbox has been deleted"
+	return
+
+browse					/* show the user a quick summary of any waiting mail */
+	mb$="email/"+id$:rtrim$(mb$)
+browse1
+	if ~exist(mb$) print "\nNo letters waiting":return
+	ready mb$:x=0:setint(1):print "\n"s$
+	print "\nFrom                           Date     Time        R Subject"
+	print chr$(0x2D,79)
+browse2
+	x++:if x>msg(0) ready "":setint(""):return
+	input #msg(x),dt$|fr$,un$|st$|sb$|rg
+	print left$(fr$+chr$(0x20,30),30)" ";
+	print left$(dt$+chr$(0x20,20),20)" ";
+	if rg print "Y ";:else print "N ";
+	print left$(sb$,24):if key end ready "":setint(""):return
+	goto browse2
+
+download /* download a message xmodem */
+	if ~exist(mb$) print "\nNo letters waiting":return
+	if a=0: print "\nDownload all waiting mail? [Yes/"inverse$"(No)"normal$"]: ";
+	if a=1: print "\nDownload this message? [Yes/"inverse$"(No)"normal$"]: ";
+	get i$:if i$="Y" print "Yes":else print "No":goto down2
+	print "\nWait, Creating File...";
+	i$="email/mail.temp":kill i$:create i$:open #1,i$
+	if a=0 ready mb$:for x=1 to msg(0)
+down1
+	input #msg(x),dt$|fr$,un$|st$|sb$|rg
+	print #1,"  From: "fr$
+	print #1,"  Date: "dt$
+	print #1,"Status: "st$
+	print #1,"  Subj: "sb$"\n"
+	copy #7,#1:if a=0 next:ready ""
+	print "done":si=size(1):close:if si=(-1):si=1
+	print "\nSending "(si*2)+1" Xmodem blocks..."
+	print "\nStart your Xmodem receive now..."
+;	use "protocol.down",300,0,i$
+	if peek(10)=255 print "\nError in transfer...":goto down2
+	a=peek(10)
+	if a=0:i$="Standard Xmdm"
+	if a=1:i$="ProDOS Xmodem"
+	if a=2:i$="CRC-16 Xmodem"
+	if a=3:i$="ProDOS CRC-16"
+	if a=4:i$="Standard Ymdm"
+	if a=5:i$="ProDOS/Ymodem"
+	print "\nSuccessful transfer via "i$"..."
+down2
+	return
+
+; *** Sub - Routines ***
+
+name.chk							/* check tree file for valid mail ID */
+	a$=i$:rtrim$(a$):open #1,"system/sys.mailnames":t=nu:b=0:f=0
+name1
+	l=t-((t-b)/2):position #1,16,l:input #1,i$:upper$(i$)
+	rtrim$(i$):if a$=i$:f=1:input #1,a:close #1:return
+	if a$<i$:t=l-1:else b=l
+	if b<t goto name1
+	close #1:open #1,"system/sys.fullnames":t=nu:b=0:f=0
+name2
+	l=t-((t-b)/2):position #1,32,l:input #1,i$:upper$(i$)
+	rtrim$(i$):if a$=i$:f=1:input #1,a:close #1:return
+	if a$<i$:t=l-1:else b=l
+	if b<t goto name2
+	close #1:return
+
+chkbox						/* check mailbox status and create if not present */
+	ready "":mb$="email/"+f$
+	if ~exist(mb$) print "Wait, Making Mailbox...";:create mb$,msg,128
+	return
+
+abort						/* kill off the message file if not mail was sent */
+	ready mb$:if ~msg(0) ready "":kill mb$
+	return
+
+editor
+	print cls"[ Enter/Edit Message Now : 4k or 4096 Bytes Maximum ]"
+	print "[ Legal Commands : .A = Abort  .H = Help  .S = Save ]"
+edit2
+	cl=clock:clock=0:edit clear:edit:clock=cl:return
+
+time
+	x=(clock-clock online)/60:y=clock		/* Get minutes online & time limit */
+	x$=right$("00"+str$(x),2 )
+	if clock online>clock:x$="!!"
+	if b=0:x$="--"
+	if ~y:x$="**"
+	if exec:x$="::"
+	return
+
+showfile
+	if ~exist(f$) return
+	setint(1):print "\n"s$"\n":open #1,f$
+showfl2
+	copy (20) #1
+	if eof(1) | key end setint(""):close #1:return
+	if ~flag(35) goto showfl2
+	print "Press "inverse$"[RETURN]"normal$": ";:get i$
+	print chr$(8,17);chr$(0x20,17);chr$(8,17);
+	if i$=" " setint(""):close #1:return
+	setint(1):goto showfl2
+
+data.read							/* read current info from the data file */
+	disk lock:open #1,"system/sys.data"
+	input #1,c1,ct,ct$,wm$
+	input #1,nu,mn,tm,nn|lu$
+	close:disk unlock:return
+
+data.write							/* write current into to the data file */
+	disk lock:open #1,"system/sys.data"
+	print #1,c1,ct,ct$,wm$
+	print #1,nu,mn,tm,nn"\n"lu$
+	close:disk unlock:return
+
+
+error				/* handle any possible errors that occur and report them */
+	print "\n"pr$"One moment please, returning you to the Main Level."
+	clear gosub:close:disk lock:create "system/sys.errors"
+	open #1,"system/sys.errors":append #1
+	print #1,"Error #"err" occured at "time$" on "fmtdate$" in mail.seg"
+	close:disk unlock:chain "a:main.seg","fromsys"
diff --git a/LLUCE/PROGRAM/FIX.BBS.S b/LLUCE/PROGRAM/FIX.BBS.S
new file mode 100644
index 0000000..3523b72
--- /dev/null
+++ b/LLUCE/PROGRAM/FIX.BBS.S
@@ -0,0 +1,52 @@
+
+; Fix board files
+
+; turn off carrier detect
+
+            on               nocar:
+
+; get number of boards
+
+            open             #1,"b:data2":mark(1)=1120:input     #1,ab:close:tb$="f:temp"
+
+; loop for all boards
+
+            for              bb=1                                to
+
+; get board name and file name
+
+            open             #1,"b:data2":position               #1,128,bb+8:input
+            print            "Fixing board: "bn$" Messages 1-";
+
+; get board info
+
+            open             #1,bf$:read                         #1,ram2,2:close:l=peek(ram2)+peek(ram2+1)
+
+; make new board file
+
+            create           tb$,6:open                          #1,tb$:write
+            for              x=1                                 to
+
+; get number of messages on current board
+
+            ready            bf$:mt=msg(0):print                 mt" - "0;:for
+            print            chr$(8,len(str$(a-1)))a;:edit       clear
+
+; read a message
+
+            input            #msg(a),a$\b,b$\c,c$\d$\e$:copy     #6,#8:x=msg(a):ready
+
+; write it back out
+
+            print            #msg(a),a$\b,b$\c,c$\d$\e$:copy     #8,#6:msg(a)=x:next:print
+
+; clear editor buffer, delete old file, and rename the new one
+
+            edit             clear:ready                         " ":kill
+
+; link back to the system
+
+            next:close:end
+
+            next:close:link  "a1:system.seg"
+
diff --git a/LLUCE/PROGRAM/LOGON.SEG.C b/LLUCE/PROGRAM/LOGON.SEG.C
new file mode 100644
index 0000000..a1501b4
Binary files /dev/null and b/LLUCE/PROGRAM/LOGON.SEG.C differ
diff --git a/LLUCE/PROGRAM/LOGON.SEG.S b/LLUCE/PROGRAM/LOGON.SEG.S
new file mode 100644
index 0000000..eca8a7b
--- /dev/null
+++ b/LLUCE/PROGRAM/LOGON.SEG.S
@@ -0,0 +1,38 @@
+
+            modem                  ready
+
+start1
+            input                  @2                                                         "Ready -> "i$
+
+            OVERLAY                "SHELL","/MAIN/UTIL/PROSEL/CAT.DOCTOR","","","/RAM5/SAVE"
+
+; ansi on
+; commented out because the 1st gosub encountered will give a syntax error.
+
+            end
+
+start
+            i7$="\I"
+            sc$="\I\H\f"
+            print                  sc$
+            gosub                  header
+            print                  "Press Return or Q to quit. \N";:get                       i$
+            if                     i$="Q"                                                     end
+            goto                   start
+
+header
+            print                  "\N";
+            lf=0
+            ve=up+1:ho=lf+1:print  gotoxy$(ho,ve);chr$(32,80)
+            ho=8:print             gotoxy$(ho,ve)"Messages"
+            ho=26:print            gotoxy$(ho,ve)"E-Mail"
+            ho=38:print            gotoxy$(ho,ve)"Utilities"
+            ho=54:print            gotoxy$(ho,ve)"Information"
+            ve=up+2
+line
+            ho=1:ve=up+2
+            print                  gotoxy$(ho,ve);i7$;chr$(223,80);
+            return
+
+            CHAIN                  "PROGRAM/LOGON.SEG2"
+
diff --git a/LLUCE/PROGRAM/LOGON.SEG2.S b/LLUCE/PROGRAM/LOGON.SEG2.S
new file mode 100644
index 0000000..52bb245
--- /dev/null
+++ b/LLUCE/PROGRAM/LOGON.SEG2.S
@@ -0,0 +1,473 @@
+; *****************
+;    LLUCE v1.0
+;  Copyright 1992
+; L&L  Productions
+; *****************
+
+; logon segment rev d - 01/31/90 - LTW
+
+            public                                           start1
+
+; setup node #
+
+            poke                                             2048,1
+
+;on error goto error
+            clear
+            DEBUG
+            set                                              pa$=ram,8:set                                                               ph$=ram+8,12
+            when$=ram+20:flag=ram+22
+            nibble=ram+27:byte=ram+37
+
+start
+            close:gosub                                      data.read
+            open                                             read                                                                        #1,"system/sys.data1"
+            input                                            #1,sn$|sy$|sid$|spas$
+            input                                            #1,md$|s$|n$
+            input                                            #1,lg,fv,al:close
+
+            if                                               ct$<>date$
+            chain                                            "program/maint.seg"
+
+start1
+            cn$=str$(c1):window=0:cls
+            print                                            @9,1                                                                        chr$(95,61)mouse$:copy
+            print                                            @22,3                                                                       "LLUCE v1.0 - The Networking Version";
+            print                                            @17,4                                                                       "(C) 1992 L&L Productions - All Rights Reserved";
+
+            print                                            @                                                                           40-(len(sn$)/2),9
+            x$="Awaiting call "+cn$+" on "+fmtdate$:gosub    center
+            x$="This will be call "+str$(ct)+" today":gosub  center
+            x$="Last Caller - "+lu$:gosub                    center
+            z$="":f$="email/feedback"
+            if                                               exist(f$)
+            z$="feedback & "
+            f$="email/"+sid$
+            if                                               exist(f$)
+            z$=z$+"mail"
+            else
+            if                                               len(z$)
+            z$=left$(z$,(len(z$)-3))
+            if                                               z$=""
+            z$="no mail"
+            x$=sy$+" has "+z$+" waiting":gosub               center
+            f$="system/sys.errors"
+            if                                               exist(f$)
+            {
+            x$="System errors have occured"
+            gosub                                            center
+            }
+            x$="This is Node #"+str$(node):gosub             center
+
+            t1$=mid$(" "+time$,2)
+            modem                                            ready
+            t2$=mid$(" "+time$,2)
+            li$=t2$                                          /*                                                                          Get
+
+            bb=0:cls:clock                                   clear:d=0:on                                                                nocar
+            b4=val(mid$(t2$,1,2)):b5=val(mid$(t2$,4,2)):b6=val(mid$(t2$,7,2))
+            a1=val(mid$(t1$,1,2)):a2=val(mid$(t1$,4,2)):a3=val(mid$(t1$,7,2))
+
+            if                                               b6<a3
+            {
+            b3=60+(b6-a3)
+            b5--
+            }
+            else
+            b3=b6-a3
+            if                                               b5<a2
+            {
+            b2=60+(b5-a3)
+            b4--
+            }
+            else
+            b2=b5-a2
+            b1=(b4-a1)+((b4<a1)*24)
+
+            cm$=date$+" "+li$:gosub                          data.read:i$="":if                                                          online
+            print                                            "1) Auto Logon\n"inverse$"2) Normal Logon"normal$
+            print                                            "3) System Logon\n4) Logon as a user\nWhich: ";:get                         i$
+            if                                               i$="1"                                                                      |
+            if                                               i$="3"                                                                      |
+            if                                               i$<>"4"                                                                     &
+            print                                            "User Logon":input                                                          "\nUser number to log on as -> "i$:x=val(i$)
+            i$="AUTO":goto                                   autolog
+
+normlog
+            nc=0:print                                       cls"Press [Return]:\a";:get                                                 i$
+            if                                               i$="\x1F":nc=1
+            print                                            cls"\n*** Welcome to "sn$" ***"
+            print                                            "\nConnected ";:if                                                          nn>1
+            if                                               online\
+            print                                            "at ["baud*300"] baud":\
+            else\
+            print
+            setint(1):copy                                   "system/sys.intro"
+            setint(""):clear                                 key
+
+logon
+            nibble(0)=width(0)-1:mode=0:width=width(nibble(0)+1)-1
+            nibble(6)=3:byte(7)=0
+            if                                               ~nu                                                                         goto
+            print                                            "\nEnter Mail ID (\"NEW\" if New User/\"GUEST\" for one time access)"
+            un=0:input                                       "->"i$:upper$(i$):rtrim$(i$)
+            if                                               i$="NEW"                                                                    goto
+            d3$=i$:gosub                                     name.chk:if                                                                 ~f
+
+password
+            print                                            "\nEnter Password"
+            echo="X":input                                   "->"i$:echo=""
+            print                                            "\nVerifying your account..."
+
+logon2
+            i$=left$(i$+"     ",8)
+autolog
+            gosub                                            rd.user:if                                                                  d1$=""
+            if                                               i$=pa$                                                                      goto
+            if                                               i$="AUTO"                                                                   goto
+
+bad.user
+            bb++
+            if                                               bb<3                                                                        print
+            print                                            "\nYou must have an account to access this system."
+            print                                            "Please call back and logon as a \"NEW\" user."
+            goto                                             start
+
+; *** New User Logon ***
+
+new.user
+            z=0:print:copy                                   "system/sys.newinfo1"
+new.usr1
+            print                                            "\nEnter your real full name [20 chars max]"
+            input                                            @3                                                                          "->"i$:if
+            if                                               len(i$)>20                                                                  print
+            if                                               instr(",",i$)                                                               print
+            mixed$(i$):if                                    i$="Off"                                                                    goto
+            d1$=i$:if                                        z                                                                           goto
+
+get.aff
+            print                                            "\nEnter Company or User Group affillation [20 chars max]"
+            input                                            @3                                                                          "->"i$:if
+            if                                               len(i$)>20                                                                  print
+            if                                               instr(",",i$)                                                               print
+            mixed$(i$):d2$=i$:if                             z                                                                           goto
+
+get.id
+            a=instr(" ",d1$):if                              ~a:a=1
+            print                                            a
+            x$=mid$(d1$,a):b=instr(" ",x$):if                b:a=a+b
+            d3$=mid$(d1$,1,1)+mid$(d1$,a)
+            if                                               len(d3$)>10:d3$=left$(d3$,10)
+get.id1
+            upper$(d3$):gosub                                name.chk:if                                                                 ~f
+            a=len(d3$)
+            if                                               a>9:b=val(right$(d3$,1):d3$=left$(d3$,9)+str$(b+1):goto                     get.id1
+            b=val(mid$(d3$,a,1):d3$=left$(d3$,a-1)+str$(b+1)
+            goto                                             get.id1
+
+get.id2
+            print                                            "\nYou must select a mail ID for the system"
+get.id3
+            print                                            "\nThe system has chosen "d3$" as your ID, if you wish to"
+            print                                            "change it, please enter your new ID now. <RTN> to accept."
+            input                                            @3                                                                          "->"i$:if
+            upper$(i$):i$=left$(i$+chr$(32,10),10):d3$=i$
+            gosub                                            name.chk:if                                                                 (~f)
+            if                                               ~f                                                                          goto
+            print                                            "\nSorry, that mail ID is in use. Try Again"
+            goto                                             get.id3
+
+get.city
+            print                                            "\nCity [16 chars max]"
+            input                                            @3                                                                          "->"d4$
+            if                                               len(i$)>16                                                                  print
+            mixed$(d4$)
+
+get.state
+            print                                            "\nState [Form: XX]"
+            input                                            "->"d5$
+            if                                               len(d5$)<>2                                                                 print
+            if                                               z                                                                           goto
+            fill                                             ram(0),60,0
+
+get.phone
+            print                                            "\nPhone number [Form: ###-###-####]"
+            input                                            "->"i$
+            if                                               len(i$)<>12                                                                 goto
+            ph$=left$(i$,3)+"-"+mid$(i$,5,3)+"-"+right$(i$,4)
+
+chk.info
+            print                                            "\nWe have the following:\n"
+            print                                            "1) Name   : "d1$
+            print                                            "2)  of    : "d2$
+            print                                            "3) Mail ID: "d3$
+            print                                            "4) From   : "d4$", "d5$
+            print                                            "5) Phone  : "ph$
+            print                                            "\nEnter # to change or \"C\" for correct :";
+            get                                              i$:if                                                                       i$="Y"
+            z=1:x=val(i$):if                                 x>5:x=0
+
+            if                                               x=0                                                                         goto
+            if                                               x=1                                                                         goto
+            if                                               x=2                                                                         goto
+            flag(0)=0:on                                     nocar                                                                       goto
+            if                                               x=4                                                                         goto
+            if                                               x=5                                                                         goto
+
+info.ok
+            flag(0)=0:on                                     nocar                                                                       goto
+            print                                            "\nHold: Finding your account...";
+            disk                                             lock:gosub                                                                  data.read:f$="system/sys.users"
+            if                                               (~exist(f$))                                                                |
+            y=192:z=1:overlay                                "findopen",d1$,f$,y,z
+            if                                               z=(-2)                                                                      close:print
+            if                                               z=(-1)                                                                      close:print
+            if                                               z=0:nu++:a=nu:close:goto                                                    got.user
+            if                                               z>0:a=z:close
+
+got.user
+            copy                                             "system/sys.newinfo":x=0:print
+            f$="system/sys.questions":if                     ~exist(f$)                                                                  goto
+            open                                             read                                                                        #1,f$
+
+info
+            input                                            #1,a$:if                                                                    a$="*"
+            if                                               left$(a$,1)="@"                                                             |
+            print                                            a$:goto                                                                     info
+
+info.1
+; input "\n-> "i$:print #9,i$
+            goto                                             info
+
+info.2
+            close:f$="system/temp":create                    f$:open                                                                     write
+            close:disk                                       unlock
+            print                                            "\nWould you like to leave the Sysop a Message?";
+            print                                            " (Y/"inverse$"[N]"normal$"): ";
+            get                                              i$:if                                                                       i$="Y"
+            print                                            cls"[ Enter/Edit Message Now : 4k or 4096 Bytes Maximum ]"
+            print                                            "[ Legal Commands : .A = Abort  .H = Help  .S = Save ]"
+            edit                                             clear:edit:if                                                               ~edit
+            disk                                             lock:open                                                                   write
+
+info.3
+            close:edit                                       clear:copy                                                                  "system/temp",#9:kill
+info.3a
+            print                                            "\nPlease enter a password [4-8 Characters]"
+            input                                            @2                                                                          "-> "i$:if
+            x=len(i$):if                                     x<4                                                                         print
+            pa$=left$(i$+chr$(32,7),8)
+            print                                            "\n\nYour Mail ID is: "d3$
+            print                                            "       Password: "pa$
+            print                                            "    User Number: "a                                                        /***
+            print                                            "\nPlease write them down, you will need them next time you call."
+            nibble(0)=width(0):nibble(6)=3                   /*                                                                          video
+            disk                                             lock:when$=date$:open                                                       write
+            position                                         #1,192,a
+            print                                            #1                                                                          d3$"\n"d1$"\n"d2$"\n"d4$,d5$
+            position                                         #1,192,a,132
+            write                                            #1,ram,60:close
+
+; update sys.mailnames and sys.fullnames files & sort 'em
+
+            f$="system/sys.mailnames":open                   write                                                                       #1,f$
+            input                                            #1,au:au++:mark(1)=0
+            print                                            #1,au:position                                                              #1,16,au
+            print                                            #1,d3$"\n"a:close:disk                                                      unlock
+            gosub                                            data.write:sz=16:st=1
+            disk                                             lock:overlay                                                                "rndsort",f$,sz,st
+            f$="system/sys.fullnames":open                   write                                                                       #1,f$
+            input                                            #1,au:au++:mark(1)=0
+            print                                            #1,au:position                                                              #1,36,au
+            print                                            #1,d1$"\n"a:close
+            sz=36:st=1:overlay                               "rndsort",f$,sz,st:
+
+; add responses to request file
+
+            f$="system/request":create                       f$:open                                                                     write
+            append                                           #1:print                                                                    #1,a"\n"a$"NEW USER DATA"
+            print                                            #1,a$;d3$"\n"a$;d1$"\n"a$;d2$
+            print                                            #1,a$;d4$", "d5$"\n"a$"#"a"-"pa$
+            print                                            #1,a$;ph$"\n"a$;date$" @ "time$"\n":append                                  #1
+            copy                                             #9,#1:append                                                                #1:print
+            f$="email/"+di$:kill                             f$:disk                                                                     unlock
+            print                                            "\nPress <return> to enter "sn$;
+
+            input                                            @3                                                                          " "i$:x=a:i$=pa$:goto
+
+; *** Main Logon Routine ***
+
+login
+            a$=date$:if                                      lc$<>a$:nibble(5)=0:flag(36)=0:byte(7)=0
+            lr=byte(5)+byte(6)*256:if                        lr>mn:lr=mn
+            nb=lr:un=x:nulls=byte(0):b=byte(7):if            flag(1):flag(0)=0
+            exec=flag(34):if                                 ~flag(1):exec=0
+            if                                               (b<(nibble(6)*10))                                                          |
+            print                                            "\n\nDaily time limit expired.  Please call back tomarrow"
+            goto                                             start
+
+login1
+            if                                               exec                                                                        &
+            b=((nibble(6)*10)-byte(7))*60
+login1a
+            clock=b:b=((clock-clock                          online)/60)+1
+
+            id$=d3$:a1$=d1$:a2$=d2$:a4$=d4$:a5$=d5$
+            tc=byte(1)+nibble(1)*256:bp=byte(2)+nibble(2)*256
+            dn=byte(3)+nibble(3)*256:up=byte(4)+nibble(4)*256
+            ul=byte(10)*65536+byte(9)*256+byte(8)
+            dl=byte(13)*65536+byte(12)*256+byte(11)
+
+            if                                               (~exec)                                                                     |
+
+            print                                            "\nRemote Password":echo="X":input                                          "-> "i$
+            echo="":if                                       i$<>spas$:exec=0
+
+login2
+            print                                            "\nLogging you into the system\n"
+            x$="Call: "+cn$+" / ID:"+a$+" / "+a1$+" of "+a4$+", "+a5$
+            gosub                                            data.write:inverse$:window=0:cls
+            print                                            #4,chr$(45,80);
+            i$=chr$(32,14):a$=id$:rtrim$(a$)
+            x$="Call: "+cn$+" / ID:"+a$+" / "+a1$+" of "+a4$+", "+a5$
+            print                                            #4,left$(x$+chr$(32,59),59)"  Phone: "ph$;
+            print                                            #4,"TC: "left$(str$(tc)+i$,7)"#UL: "left$(str$(up)+i$,7);
+            print                                            #4,"#DL: "left$(str$(dn)+i$,7)"BU: "left$(str$(ul)+i$,7);
+            print                                            #4,"BD: "left$(str$(dl)+i$,7)"BP: "left$(str$(bp)+i$,6)"/ ";
+            print                                            #4,"Baud: "left$(str$(baud*300)+i$,5);
+            print                                            #4,"Flg: ";:for                                                             x=1
+            print                                            #4,"  LC:"lc$"  On:"date$" "left$(time$+i$,14);
+            print                                            #4,chr$(45,80)
+            window=5:normal$:cls
+
+            f$="system/sys.log":create                       f$:open                                                                     write
+            input                                            #1,x:x++:if                                                                 x>200:x=1
+            a=clock                                          online
+            position                                         #1,80,x:print                                                               #1,a/60,a
+            position                                         #1,80,x,10
+            print                                            #1,id$,a1$,date$" "time$,baud*300,node
+            mark(1)=0:print                                  #1,x:close
+
+login3
+            gosub                                            termemul
+            f$="email/"+id$:rtrim$(f$):em=exist(f$)
+            print                                            "User Name      : "left$(a1$+chr$(32,20),20)"  ";
+            print                                            "Last Date On   : "fmtwhen$
+            print                                            "Caller Number  : "left$(cn$+chr$(32,20),20)"  ";
+            print                                            "Today is       : "fmtdate$
+            print                                            "Caller # Today : "left$(str$(ct)+chr$(32,20),20)"  ";
+            print                                            "Mail Waiting   : ";:if                                                     em
+            print                                            "Terminal Emul. : "left$(i$+chr$(32,20),20)"  ";
+            if                                               ~exec:                                                                      print
+            if                                               ~flag(34):                                                                  goto
+            print                                            "Remote Pass    : ";:if                                                     exec
+            if                                               b1=0:a$=" ":
+            if                                               b1=1:a$=" "+str$(b1)+" hour ":else                                          a$=" "+str$(b1)+" hours "
+            if                                               b2=1:b$=str$(b2)+" minute":else                                             b$=str$(b2)+" minutes"
+            c$=" and ":if                                    b3=1:c$=c$+str$(b3)+" second":else                                          c$=c$+str$(b3)+" seconds"
+            x=len(a$+b$+c$):x$=left$(sn$+" was idle "+chr$(32,80-x),80-x):rtrim$(x$)
+            x$=x$+a$+b$+c$:print                             "\n"chr$(32,(80-len(x$))/2);x$
+
+login3x
+            a$=wm$:b$=lc$:gosub                              ckdate
+            if                                               x=1                                                                         setint(1):print
+
+            a=mn-lr:if                                       lr=0:a=tm
+            bb=1:f$="bulletins/b1":if                        ~exist(f$)                                                                  goto
+            ready                                            f$:z=msg(0):ready                                                           ""
+            print                                            "\nMain Bulletins from 1 to "z
+            if                                               a>1                                                                         print
+login3a
+            if                                               ~exec                                                                       goto
+            if                                               exist("system/request")                                                     print
+
+login4
+            mode=nibble(0)/4:ch=1:width=width((nibble(0)     %                                                                           4)+1)-1
+            if                                               exec                                                                        &
+            if                                               ~em                                                                         goto
+            print                                            "\nWould you like to read your mail now? ["inverse$"(Yes)"normal$",No] :";
+            get                                              i$:if                                                                       i$="N"
+            print                                            "Yes":chain                                                                 "program/email.seg"
+login5
+            chain                                            "program/main.seg"
+
+get.guest
+            d1$="Guest User":d2$="Visitor":d3$="GUEST":d4$="Unknown":d5$="XX"
+            ph$="XXX-XXX-XXXX":x=0:pa$="GUEST   ":flag(0)=1:lc$="NEVER "
+            nibble(6)=3:goto                                 login
+
+; *** Sub - Routines ***
+
+center      /*                                               Center                                                                      Text
+            print                                            @                                                                           40-(len(x$)/2)
+
+rd.user     /*                                               read                                                                        a
+            open                                             read                                                                        #1,"system/sys.users"
+            position                                         #1,192,x
+            input                                            #1,d3$|d1$|d2$|d4$,d5$
+            position                                         #1,192,x,132
+            read                                             #1,ram,60:lc$=when$
+            close                                            #1
+            return
+
+termemul
+            inverse$="":normal="":i$="None"
+            if                                               ~online:i$="Local":return
+            y=byte(14):if                                    (y<1)                                                                       |
+            if                                               y=1:i$="Datamedia 1500":inverse$="\xF":normal$="\xE":clrscn$="\xC"
+            if                                               y=2:i$="Dec VT-52":inverse$="\x19":normal$="\x1F":clrscn$="\xC"
+            if                                               y=3:i$="IBM 3101":inverse$="\x1B19":normal$="\x1B1F":clrscn$="\x1BK"
+            if                                               y=4:i$="Hazeltine 1500":inverse$="~\x19":normal$="~\x1F":clrscn$="~\x1A"
+            if                                               y=5:i$="Heathkit H-19":inverse$="\x1Bp":normal$="\x1Bq":clrscn$="\x1B\E"
+;  NOTE, \E avoids the E being counted as hex
+            if                                               y=6:i$="Soroc":inverse$="\x1B)":normal$="\x1B(":clrscn$="\x1B*"
+            if                                               y=7:i$="Adm3a":inverse$="\x19":normal$="\x1F":clrscn$="\x1A"
+            if                                               y=8:i$="Televideo 912":inverse$="\x1Bl":normal$="\x1Bm":clrscn$="\x1B1A"
+            return
+
+; check tree file for valid mail ID
+
+name.chk
+            a$=d3$:rtrim$(a$):open                           read                                                                        #1,"system/sys.mailnames":t=nu:b=0:f=0
+name1
+            l=t-((t-b)/2):position                           #1,16,l:input                                                               #1,i$:upper$(i$)
+            rtrim$(i$):if                                    a$=i$:f=1:input                                                             #1,x:close
+            if                                               a$<i$:t=l-1:else                                                            b=l
+            if                                               b<t                                                                         goto
+            close                                            #1:open                                                                     read
+name2
+            l=t-((t-b)/2):position                           #1,36,l:input                                                               #1,i$:upper$(i$)
+            rtrim$(i$):if                                    a$=i$:f=1:input                                                             #1,x:close
+            if                                               a$<i$:t=l-1:else                                                            b=l
+            if                                               b<t                                                                         goto
+            close                                            #1:return
+
+; compare two dates and return x=1 if first is after second
+
+ckdate
+            if                                               val(mid$(b$,7,2))<val(mid$(a$,7,2):x=1:return
+            if                                               val(mid$(b$,7,2))>val(mid$(a$,7,2):x=0:return
+            if                                               val(mid$(b$,1,2))<val(mid$(a$,1,2):x=1:return
+            if                                               val(mid$(b$,1,2))>val(mid$(a$,1,2):x=0:return
+            if                                               val(mid$(b$,4,2))>val(mid$(a$,4,2):x=0:return
+            x=1:return
+
+data.read   /*                                               read                                                                        current
+            disk                                             lock:open                                                                   read
+            input                                            #1,c1,ct,ct$,wm$
+            input                                            #1,nu,mn,tm,nn|lu$
+            close:disk                                       unlock:return
+
+data.write  /*                                               write                                                                       current
+            disk                                             lock:open                                                                   write
+            print                                            #1,c1,ct,ct$,wm$
+            print                                            #1,nu,mn,tm,nn"\n"lu$
+            close:disk                                       unlock:return
+
+error       /*                                               report                                                                      error
+            print                                            "\nUnable to recover from error, call again later"
+            modem                                            nocar:disk                                                                  lock:close:create
+            open                                             write                                                                       #1,"system/sys.errors":append
+            print                                            #1,"Error #"err" occured at "time$" on "fmtdate$" in logon.seg"
+            close:disk                                       unlock:goto                                                                 start
+
diff --git a/LLUCE/PROGRAM/MAIN.SEG.S b/LLUCE/PROGRAM/MAIN.SEG.S
new file mode 100644
index 0000000..0da13fd
--- /dev/null
+++ b/LLUCE/PROGRAM/MAIN.SEG.S
@@ -0,0 +1,295 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1989
+; L&L Productions, Inc.
+; *********************
+
+; main segment rev a - 01/14/88
+; main segment rev b - 08/08/89
+; main segment rev c - 11/14/89 - LPT
+; main segmetn rev d - 05/01/90 - LPT
+
+            public                       otherseg
+            public                       return
+            public                       term1
+
+; Set No Carrier and On Error Vector
+
+            on                           nocar                                                                goto
+; on error goto error
+            a1=0:if                      flag(0)                                                              goto
+
+; Check for force voting
+
+            if                           fv                                                                   chain
+
+otherseg
+            on                           nocar                                                                goto
+; on error goto error
+
+main
+            gosub                        time:print                                                           "\n[("x$")] Main Level [?=Menu] Function :";
+main1
+            get                          i$
+main2
+            clear                        gosub:push                                                           main
+            if                           i$="?"                                                               |
+            if                           left$(i$,1)="B"                                                      print
+            if                           left$(i$,1)="J"                                                      print
+            if                           i$="E"                                                               print
+            if                           i$="C"                                                               print
+            if                           i$="F"                                                               print
+            if                           i$="T"                                                               print
+            if                           i$="N"                                                               print
+            if                           i$="H"                                                               print
+            if                           i$="D"                                                               print
+            if                           i$="I"                                                               print
+            if                           i$="S"                                                               print
+            if                           i$="%"                                                               &
+
+; If user is not validated, or the sysop is not in Executive Mode
+; check to see if command is legal and return to main
+
+            if                           (~flag(1))                                                           &
+
+; All commands below this line are for validated users
+
+            if                           i$="G"                                                               print
+            if                           i$="Q"                                                               print
+            if                           i$="L"                                                               print
+            if                           i$="U"                                                               print
+            if                           i$="X"                                                               print
+            print                        "\nTransfer Section Still under Construction.":\
+            return                       /*:pop:chain                                                         "program/supertac"*/
+            if                           i$="V"                                                               print
+
+main3
+            if                           val(i$)<33                                                           pop:goto
+            a1++:print                   "\n\""i$"\" is not a command":if                                     a1<3
+
+; *** sub - routines ***
+
+menu
+            a1=0:f$="system/mnu.new":if  ~flag(1)                                                             goto
+            if                           width<79:f$="system/mnu.val.40":else                                 f$="system/mnu.val.80"
+menu.1
+            if                           ~exist(f$)                                                           goto
+            disk                         lock
+            open                         #1,f$:input                                                          #1,x$:setint(" "):addint(x$)
+            cls:copy                     #1:if                                                                key
+            a=key:close:disk             unlock:setint(""):pop:goto                                           main
+menu.key
+            close:setint(""):a=key:i$=chr$(a):upper(i$)
+            if                           i$=" "                                                               goto
+            print                        "\n[("x$")] Main Level [?=More] Function :"
+            goto                         main2
+
+; terminate from system and recycle
+
+terminate
+            print                        "\nTerminate From "sn$
+            print                        "\nAre You Sure ["inverse$"(Yes)"normal$",No] :";
+            get                          i$:if                                                                i$="N"
+            print                        "Yes"
+
+term1
+            on                           nocar:
+            print                        "\nLog Out : "a1$" of "a4$", "a5$"."
+            print                        "Caller #: "cn$"\n"
+            print                        sn$                                                                  " - log out at "fmtdate$" "time$
+            a=clock                      online:lo$=time$
+            if                           a                                                                    print
+            close:modem                  nocar:if                                                             a1$=""
+            if                           ~un                                                                  goto
+
+            nibble(5)++:byte(0)=nulls:tc++
+            byte(1)=tc                   %                                                                    256:nibble(1)=tc/256
+            byte(2)=bp                   %                                                                    256:nibble(2)=bp/256
+            byte(3)=dn                   %                                                                    256:nibble(3)=dn/256
+            byte(4)=up                   %                                                                    256:nibble(4)=up/256
+            byte(7)+=(clock              online/60):when$="x"
+            byte(10)=ul/65536:a=ul       %                                                                    65536
+            byte(9)=a/256:byte(8)=a      %                                                                    256
+            byte(13)=dl/65536:a=dl       %                                                                    65536
+            byte(12)=a/256:byte(11)=a    %                                                                    256
+
+            disk                         lock:open                                                            #1,"system/sys.users":position
+            print                        #1,id$"\n"a1$"\n"a2$"\n"a4$,a5$
+            position                     #1,192,un,132
+            write                        #1,ram,60:close
+            kill                         "system/batch"
+
+termin3
+            gosub                        data.read:da$=date$:rtrim$(id$):lu$=a1$+                             " ["+id$+"]":gosub
+            f$="system/sys.log":if       ~exist(f$)                                                           goto
+            disk                         lock:open                                                            #1,f$:input
+            a=clock                      online:print                                                         #1,a/60,a
+            close:disk                   unlock
+
+termin4
+            disk                         unlock:chain                                                         "program/logon.seg2"
+
+; chat with sysop
+
+chat
+            if                           ch>5                                                                 print
+            if                           ch>4                                                                 print
+            if                           ch>3                                                                 print
+            print                        "\nPaging "sy$" : ";:tone(100,100,100)
+            if                           flag(2)                                                              tone(125,100,100):tone(150,100,100)
+            print                        "Please Continue...":set                                             msg=1:ch++:return
+
+; feedback to sysop
+
+feedback
+            print                        cls"Feedback To "sy$
+            input                        @3                                                                   "\nSubject -> "sb$:if
+            ready                        "":f$="email/feedback"
+            gosub                        editor:if                                                            ~edit
+            print                        "\nRegistered Mail? [Yes,"inverse$"(No)"normal$"] :";
+            get                          i$:if                                                                i$="Y"
+            rg=(i$="Y"):sb$=left$(sb$,25)
+            if                           rg:st$="Registered Mail":else                                        st$="Awaiting Reply"
+            print                        "\nSending "edit                                                     size" bytes...";
+            if                           ~exist(f$)                                                           close:create
+            ready                        f$:if                                                                msg(0)=64
+            a=msg(0)+1:a$=id$:rtrim$(a$)
+            print                        #msg(a),date$" "time$"\n"a$" ("a1$")",un"\n"st$"\n"sb$"\n"rg
+            copy                         #9,#7:msg(a)=a:flush:ready                                           "":print
+            return
+
+feed2
+            ready                        f$:if                                                                ~msg(0)
+            ready                        "":return
+
+; general files
+
+general
+            disk                         lock:a$="gfiles/"+a$
+            if                           ~exist(a$)                                                           print
+            open                         #1,a$:input                                                          #1,x:print
+general2
+            print                        "\nGeneral Files: Which 1-"x" (?=Menu,<CR>) -> ";
+            input                        @3                                                                   i$:if
+            if                           i$="?"                                                               goto
+            a=val(i$):if                 (~a)                                                                 |
+            f$=a$+"."+str$(a):gosub      show.file:goto                                                       general2
+
+; show log of calls
+
+showlog
+            f$="system/sys.log"
+            if                           ~exist(f$)                                                           print
+            print                        "\n  # Mail ID    Name                  Called               Baud";
+            print                        "    Online";:if                                                     nn
+            print                        chr$(45,79):disk                                                     lock
+            open                         #1,f$:input                                                          #1,x:y=x:z=1
+shlog1
+            position                     #1,80,x:if                                                           eof(1)
+            input                        #1,f$,g$
+            position                     #1,80,x,10
+            input                        #1,a$,b$,c$,d$,e$
+            setint(1):print              right$("00"+str$(z),3)" "left$(a$+chr$(46,10),10)" ";
+            print                        left$(b$+chr$(46,21),21)" "left$(c$+chr$(32,10),20)" ";
+            if                           d$="0":d$="LOCAL":else                                               d$="0"+d$
+            print                        d$"   "right$("0"+f$,2)":"right$("0"+g$,2);
+            if                           nn                                                                   print
+            if                           key                                                                  flag:x=y+1
+            x--:z++:if                   x=0:x=200
+            if                           x<>y                                                                 goto
+shlog3
+            close:setint(""):disk        unlock:return
+
+; conference area
+
+conference
+            cn=1:if                      len(i$)<2                                                            goto
+            a=val(mid$(i$,2)):if         a:cn=a
+link.conf
+; print "cn="cn:chain "program/conf.seg","conference"
+            print                        "cn="cn:chain                                                        "program/msg.seg","bulletins"
+
+dispatch
+            y$="program/main.seg"        /*                                                                   segment
+            z$="otherseg"                /*                                                                   label
+            chain                        "program/util.seg"
+
+return
+            on                           nocar                                                                goto
+; on error goto error
+            return
+
+; *** sub - routines ***
+
+; show a disk file
+
+show.file
+            if                           ~exist(f$)                                                           return
+            setint(1):print              "\n"s$"\n":open                                                      #1,f$
+showfl2
+            copy                         (20)                                                                 #1
+            if                           eof(1)                                                               |
+            if                           ~flag(35)                                                            goto
+            print                        "Press "inverse$"[RETURN]"normal$": ";:get                           i$
+            print                        chr$(8,17);chr$(0x20,17);chr$(8,17);
+            if                           i$=" "                                                               setint(""):close
+            setint(1):goto               showfl2
+
+; get time remaining before logoff
+
+time
+            x=(clock-clock               online)/60:y=clock:x$=right$("00"+str$(x),3)
+            if                           clock                                                                online>clock:x$="!!"
+            if                           x=0:x$="--"
+            if                           ~y:x$="**"
+            if                           exec:x$="::"
+            return
+
+; editor for feedback
+
+editor
+            print                        cls"[ Enter/Edit Message Now : 4k or 4096 Bytes Maximum ]"
+            print                        "[ Legal Commands : .A = Abort  .H = Help  .S = Save ]"
+edit2
+            cl=clock:clock=0:edit        clear:edit:clock=cl:return
+
+; check date to another date
+
+check.date
+            if                           val(mid$(d$,7,2))>val(mid$(lc$,7,2)):d=1:return
+            if                           val(mid$(d$,7,2))<val(mid$(lc$,7,2)):d=0:return
+            if                           val(mid$(d$,1,2))>val(mid$(lc$,1,2)):d=1:return
+            if                           val(mid$(d$,1,2))<val(mid$(lc$,1,2)):d=0:return
+            if                           val(mid$(d$,4,2))>=val(mid$(lc$,4,2)):d=1:return
+            if                           val(mid$(d$,4,2))<val(mid$(lc$,4,2)):d=0:return
+            d=0:return
+
+chngdt
+            print                        chr$(8,8);:input                                                     @2
+            if                           i$=""                                                                return
+            if                           len(i$)<>8                                                           return
+            if                           mid$(i$,3,1)<>"/"                                                    |
+            a=val(mid$(i$,1,2)):if       (a<1)                                                                |
+            a=val(mid$(i$,4,2)):if       (a<1)                                                                |
+            a=val(mid$(i$,7,2)):if       (a<1)                                                                |
+            lc$=i$:return
+
+data.read   /*                           read                                                                 current
+            disk                         lock:open                                                            #1,"system/sys.data"
+            input                        #1,c1,ct,ct$,wm$
+            input                        #1,nu,mn,tm,nn|lu$
+            close:disk                   unlock:return
+
+data.write  /*                           write                                                                current
+            disk                         lock:open                                                            #1,"system/sys.data"
+            print                        #1,c1,ct,ct$,wm$
+            print                        #1,nu,mn,tm,nn"\n"lu$
+            close:disk                   unlock:return
+
+error       /*                           print                                                                error
+            print                        "One moment please, returning you to the Main Level."
+            disk                         lock:close:clear                                                     gosub:create
+            open                         #1,"system/sys.errors":append                                        #1
+            print                        #1,"Error #"err" occured at "time$" on "date$" in main.seg"
+            close:disk                   unlock:goto                                                          main
+
diff --git a/LLUCE/PROGRAM/MAINT.SEG.S b/LLUCE/PROGRAM/MAINT.SEG.S
new file mode 100644
index 0000000..d7ce7fb
--- /dev/null
+++ b/LLUCE/PROGRAM/MAINT.SEG.S
@@ -0,0 +1,179 @@
+; **********************
+;    GBBS "Pro" V:1.4
+;  By L & L Productions
+;     Copyright 1987
+; **********************
+
+; maintenance segment rev a - 1/14/88
+
+	public userlist
+
+	cls:kill "system/sys.maintenance"
+	f$="system/idl.node"+str$(node):create f$
+	z=0:for x=1 to nn:f$="system/idl.node"+str$(x)
+	if ~exist(f$):z=1
+	next x:if ~z goto start
+
+;	print node"\n"z"\n"x
+;	get i$
+	goto start
+
+	x$=inverse$+"DO NOT INTERRUPT"+normal$
+	print @(40-len(x$)/2),10 x$
+	x$="This node is idle until all maintenance for the night"
+	print @(40-len(x$)/2),20 x$
+	x$="has been completed"
+	print @(40-len(x$)/2),21 x$
+
+	f$="system/sys.maintenance"
+wait
+	if exist(f$):for x=1 to 1000*node:next x:goto finish
+	for x=1 to 5000*node:next x:goto wait
+
+start
+; gosub boards
+	if mid$(ct$,4,2)="01" gosub purge
+	create "system/sys.maintenance"
+
+finish
+	cls:ct=1:ct$=da$:gosub data.write
+	for x=1 to nn:f$="system/idl.node"+str$(x):kill f$:next x
+; poke 2053,77
+	chain "program/logon.seg2","start1"
+
+filebkup
+	print "       Now making data file backups"
+	kill "system2/sys.data.bk":kill "system2/sys.data1.bk"
+	kill "system2/sys.users.bk"
+	f$="system/sys.data":f2$="system2/sys.data.bk":gosub copy
+	f$="system/sys.data1":f2$="system2/sys.data1.bk":gosub copy
+	f$="system/sys.users":f2$="system2/sys.users.bk":gosub copy
+	print "Done with file backups"
+	return
+
+boards
+	print "\nDaily message maintenance now executing"
+	open #1,"system/sys.data2":mark(1)=1120:input #1,ab
+	print "Working on Board #";:for x=1 to ab:print x;
+	position #1,128,x+8:input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	ready bf$
+brd.1
+	if msg(0)>mb kill #msg(kb):crunch:goto brd.1
+	print chr$(8,len(str$(x)));:next x
+	return
+
+;	purge users from system...once a month
+
+purge
+	return
+
+;	print a list of systems users
+
+userlist
+	gosub time
+	print "\n["x$"][User List] Option (?=Help): ";
+user1
+	get i$
+user2
+	clear gosub:push userlist
+	y=32
+	if i$="1" print "Name":a=1:f$="system/srt.name":goto user3
+	if i$="2" print "User":a=2:f$="system/srt.num":goto user3
+	if i$="3" print "Pass":a=3:f$="system/srt.pw":y=64:goto user3
+	if i$="4" print "Phone":a=4:f$="system/srt.ph":y=64:goto user3
+	if i$="5" print "Date":a=5:f$="system/srt.date":y=64:goto user3
+	if i$="6" print "Security":a=6:f$="system/srt.sec":y=64:goto user3
+	if i$="7" print "Exit":pop:chain "program/system.seg"
+	if i$="?" or i$="/" print "Menu":goto usermenu
+	if i$="\n" or i$=" " goto user1
+	a1++:print "\n"pr$"\""i$"\" is not a command":if a1<3 return
+
+usermenu
+	print cls'
+1)  Print list sorted by name
+2)  Print list sorted by user number
+3)  Print list sorted by password
+4)  Print list sorted by phone number
+5)  Print list sorted by last date on
+6)  Print list sorted by security level
+7)  Return to main menu':return
+
+user3
+	print "\nShow passwords? (Y/"inverse$"[N]"normal$"): ";:get i$
+	if i$="Y" print "Yes":pa=1:else print "No":pa=0
+	print "\nOutput to printer? (Y/"inverse$"[N]"normal$"): ";:get i$
+	if i$="Y" print "Yes":s=6:nl=58:else print "No":s=0:nl=15
+	move ram,58 to ram2:on nocar goto user9
+	z=1:print cls"\n":open #2,f$:if mark(2)=0 goto user5
+	close:print "Reading data..."
+	open #1,"system/users":kill f$:create f$:open #2,f$
+	for l=1 to nu:position #1,192,l:input #1,d1$|d2$|d3$,d4$
+	position #1,192,l,132:read #1,ram,60:t$="":if d1$="" goto user4
+	t$=d2$+" "+d1$
+	if a=2:t$=right$("    "+str$(l),4)
+	if a=3:t$=mid$(" "+pa$+"       ",2,8)+t$
+	if a=4:i$=right$(chr$(32,12)+ph$,12)
+	if a=4:t$=left$(i$,3)+"-"+mid$(i$,5,3)+"-"+right$(i$,4)+t$
+	if a=5:t$=right$(when$,2)+"/"+left$(when$,5)+t$
+	if a=6:i$="":for x=1 to 34:i$=i$+str$(flag(x)):next x:t$=i$+t$
+	position #2,y,z:print #2,t$"\n"l:z++
+user4
+	next l
+user5
+	close:z=1:print "Sorting...";:overlay "rndsort.128",f$,y,z
+	print "Printing...":z=1:open #2,f$:open #1,"system/users":ln=1:r=0
+user6
+	position #2,y,z:input #2,t$|l:if t$="" goto user8
+	position #1,192,l:input #1,d1$|d2$|d3$,d4$
+	position #1,128,l,132:read #1,ram,60
+	setint(1):if ln<>1 goto user7
+	if r & (s=0) print "Press any key to continue..:";:get i$
+	if r print #s,sc$;
+	print #s,"\n**   LLUCE Userlist  -  Version 1.0  -  List Sorted By: ";
+	if a=1 print #s,"User Name     ";
+	if a=2 print #s,"User Number   ";
+	if a=3 print #s,"Password      ";
+	if a=4 print #s,"Phone Number  ";
+	if a=5 print #s,"Last Date on  ";
+	if a=6 print #s,"Security level";
+	r=1:print #s,'   **
+[Name]                     [Phone]    [User] [Pass]    [Sec]    [Last]  [Time]
+[Alias]                    [Number]   [Numb] [Word]    [Lvl]    [Call] [Limit]'
+	print #s,""
+user7
+	print #s,left$(d3$+chr$(32,25),25);ph$;right$("     "+str$(l),6)"-";
+	if pa print #s,pa$;:else print #s,"********";
+	print #s,"  ";:for x=1 to 8:print #s,flag(x);:next x
+	print #s,"  "when$;right$("    "+str$(nibble(5)*10),4)
+	z++:ln=ln+1:if ln>nl:ln=1
+	if (mm=2) & (key=0x1B):mm=0
+	if key flag=0 goto user6
+user8
+	close:setint("")
+	if s=0 print "\n"pr$"Press any key to continue..:";:get i$
+	print #s,sc$;:move ram2,58 to ram:chain "program/system.seg"
+user9
+	move ram2,58 to ram:close:setint("")
+	chain "program/main.seg","term1"
+
+;	read data file
+
+data.read
+	open #1,"system/sys.data"
+	input #1,c1,ct,ct$,da$,wm$
+	input #1,nu,mn,tm,nn|lu$
+	close:return
+
+;	write data file
+
+data.write
+	open #1,"system/sys.data"
+	print #1,c1,ct,ct$,da$,wm$
+	print #1,nu,mn,tm,nn"\n"lu$
+	close:return
+
+;	copy a file to another
+
+copy
+time
+	return
diff --git a/LLUCE/PROGRAM/MSG.SEG.S b/LLUCE/PROGRAM/MSG.SEG.S
new file mode 100644
index 0000000..5aaccfa
--- /dev/null
+++ b/LLUCE/PROGRAM/MSG.SEG.S
@@ -0,0 +1,615 @@
+; ********************
+; GBBS "Pro" V:2.1
+; By L&L Productions
+; Copyright 1986-1990
+; ********************
+
+; msg segment - 4/2/90
+
+	public bulletins
+	public rd.mail
+	public sd.mail
+	public wr.letter
+
+bulletins
+	zz=0:gosub start
+	flag(37)=1:gosub pfilter:goto link.main
+rd.mail
+	gosub rd.mail0:goto link.main
+sd.mail
+	gosub snd.mail:goto link.main
+wr.letter
+	s=9:gosub wr.ltr
+link.main
+	chain "program/main.seg","return"
+link.term
+	chain "program/main.seg","termin2"
+
+; *** bulletins / e-mail ***
+
+start
+	on nocar goto link.term
+	gosub idinf
+	if bf$="" print "\nThat board is down right now.":gosub cmd2c:return
+	if ~b1 print "\nYou do not have access to that board.":gosub cmd2c:return
+	if i$="Q" gosub qscan
+cmd1
+	if msg(0) goto cmd2
+	print "\nThe "bn$"\n has no bulletins...";
+	input @2 "Post a bulletin ([Y]/N) ?"i$
+	if left$(i$,1)="N" return
+	sb$="":ti$="All":d=0:gosub post:if ~b2 return
+	goto cmd1
+
+cmd2
+	x=(clock-clock online)/60:y=clock:x$=right$("0"+str$(x),2)
+	if clock online>clock:x$="!!"
+	if x=0:x$="--"
+	if ~y:x$="**"
+	if exec:x$="::"
+	free:print "\n"bn$"\n["x$"][Board #"bb"  1-"msg(0)"] ";
+	input "Option (?=Help):"i$
+cmd2a
+	zz=0:a=val(i$):push cmd2
+	if left$(i$,1)="J":i$=mid$(i$,2):goto jmp3
+	if left$(i$,1)="F" goto fwd
+	if left$(i$,1)="R" goto rvs
+	if left$(i$,1)="K" goto kill
+	if left$(i$,1)="S" goto scan
+	if i$="A" | i$="Q" pop:return
+	if i$="M" goto mark
+	if i$="N" goto new
+	if i$="B" goto browse
+	if i$="G" goto qscan
+	if i$="H":f$="system/hlp.msg":goto show.file
+	if i$="J":y=0:goto jump
+	if i$="P":ti$="All":sb$="":d=0:goto post
+	if i$="L":y=1:goto list
+	if i$="T" goto terminate
+	if i$=">" & (bb<ab):bb++:zz=1:pop:goto start
+	if i$="<" & (bb>1):bb--:zz=2:pop:goto start
+	if (a>0) & (a<=msg(0)):i$="F"+i$:goto fwd
+	if i$="?" | i$="/" goto cmd.menu
+	a1++:print "\nSorry, \""i$"\" is not a command. (?=Help)":if a1<3 return
+
+cmd.menu
+	a1=0:print "\n"bn$'\n
+	Read #, OR: [N]ew   [F#]orward [S#]can [B]rowse [M]arked [L]ist
+	            [R#]vse [G]lobal   [J#]ump [P]ost   [K#]ill  [H]elp
+	            [Q]uit  [>] Next board     [<] Previous board
+
+	Command letters followed with "#" have a numeric argument option.
+	"F45" reads F)orward beginning at bulletin 45
+	"K32" would K)ill bulletin #32"
+':return
+
+cmd2c
+	if ~zz return
+	if zz=1:bb++
+	if zz=2:bb--
+	zz=0:pop:goto start
+
+; terminate connection
+
+terminate
+	print "\nTerminate Connection"
+	input @2 "\nAre you sure (Y/[N]) ?"i$
+	if left$(i$,1)<>"Y" return
+	chain "program/main.seg","termin2"
+
+; post a bulletin
+
+post
+	if ~b2 print "\nYou do not have access to that board.":return
+	edit clear:if kl goto post2
+	if msg(0)=mb print "\nSorry, no room on this board.":return
+	if msg(0)=msg size print "\nBoard directory full.":return
+	if msg free<29 print "\nBoard bit-map full.":return
+post2
+	print "\nPost Bulletin\n"
+	if d open #1,"system/users":position #1,128,d:input #1,d1$,d2$|d3$:close
+	if d:ti$=d3$+" (#"+str$(d)+")":if d=1:ti$="Sysop"
+	if ti$<>"" print "  To ->"ti$" ([Y]/N):";:get i$
+	if i$="\n":n=9:gosub backup:print:goto post2a
+	if i$="N":n=len(ti$)+10:gosub backup:input @4 ti$:if ti$="" return
+	if (ti$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+	if ti$="" input @4 "  To ->"ti$:if ti$="" return
+post2a
+	i$="":if sb$<>"" print " Sub ->"sb$" ([Y]/N):";:get i$
+	if i$="\n":n=9:gosub backup:print:goto post2b
+	if i$="N":n=len(sb$)+10:gosub backup:input @4 a$:if a$="" return
+	if (sb$<>"" | a$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+	if sb$="" input @4 " Sub ->"a$:if a$="" return
+	if a$<>"":sb$=a$
+post2b
+	a$=a3$:if (un=bs) & (bs$<>""):a$=bs$
+	a$=a$+" (#"+str$(un)+")"
+	if ~exec goto post2c
+	i$="":print "From ->"a$" ([Y]/N):";:get i$
+	if i$="\n":n=9:gosub backup:print:goto post2c
+	if i$="N":n=len(a$)+10:gosub backup:input @3 a$:if a$="" return
+	if (a$<>"") & left$(i$,1)<>"N":n=10:gosub backup:print
+post2c
+	i$="":if flag(36) print "\nAnonymous Posting (Y/[N]):";:get i$:print
+	if (flag(36)) & (i$="Y"):flag(38)=1:else flag(38)=0
+	input @2 "\nPost: [Y]es, N)o, X)modem " i$
+	if i$="N" return
+	if i$="X" gosub up.xmdm:else gosub editor
+	if ~edit size return
+	print "\n"edit size" bytes entered"
+	print "Saving Message...wait..";:bp++
+	print "\nkl="kl" kb="kb" a="a" b="b" msg(0)="msg(0)
+	if (kl>0) & (kl<=msg(0)):kill #msg(kb):crunch:b--
+	print "\nkl="kl" kb="kb" a="a" b="b" msg(0)="msg(0)
+	a=msg(0)+1
+	if flag(38) print #msg(a),"*"sb$:else print #msg(a),sb$
+	print #7,tn,ti$
+	if flag(38) print #7,0,a$:else print #7,un,a$
+	if flag(38) print #7,"Date ->"date$"\n":else print #7,"Date ->"date$"  "time12$\
+	copy #9,#7:msg(a)=mn:mn++:flush:tm++
+	print ".saved":ti$="":a$="":return
+
+; show new billetins
+
+new
+	print "\nNew Bulletins"
+	if nn>msg(msg(0)) print "\nNo new bulletins":return
+	x=msg(0):if ~lr:a=1:goto fwd2
+new1
+	if nn=<msg(x):a=x--:if x goto new1
+	goto fwd2
+
+; bulletin retrieval - Forward
+
+fwd
+	if len(i$)>1:a=val(mid$(i$,2)):goto fwd1
+	print "\nSequential Retrieval - Forward"
+	input @2 "\nStart where (#, F)irst, <CR>):"i$
+	a=val(i$):if i$="F":a=1
+fwd1
+	if a<1 return
+	if a>msg(0):a=msg(0)
+fwd2
+	print "\n"s$"\n"n$
+fwd3
+	gosub show:if x return
+	if a<msg(0):a++:goto fwd3
+	return
+
+; bulletin retrieval - Reverse
+
+rvs
+	if len(i$)>1:a=val(mid$(i$,2)):goto rvs1
+	print "\nSequential Retrieval - Reverse"
+	input @2 "\nStart where (#, L)ast, <CR>):"i$
+	a=val(i$):if i$="L":a=msg(0)
+rvs1
+	if a<1 return
+	if a>msg(0):a=msg(0)
+rvs2
+	print "\n"s$"\n"n$
+rvs3
+	gosub show:if x return
+	if a>1:a--:goto rvs3
+	return
+
+; kill bulletins
+
+kill
+	if len(i$)>1:a=val(mid$(i$,2)):goto kill.1
+	print "\nKill a Bulletin"
+	input @2 "\nKill Bulletin (#,<CR>):"a
+kill.1
+	if (a<1) | (un=0) return
+	if a>msg(0) print "\nThat Bulletin Does Not Exist!":return
+	input #msg(a),a$|x,b$|x,c$
+	if (exec) | (un=bs) goto kill.2
+	if x<>un print "\nThats not your bulletin!":return
+kill.2
+	if (flag(38)) & (left$(a$,1)="*"):a$=mid$(a$,2)
+	print "\nNumb ->"a" of "msg(0)"\n Sub ->"a$
+	input @2 "\nKill this bulletin (Y/[N]) ?"i$
+	if left$(i$,1)<>"Y" return
+kill.3
+	tm--:y=msg(msg(0)):kill #msg(a):crunch
+	b=msg(0):if b:msg(b)=y:flush
+	print "\nBulletin #"a" killed..."
+	return
+
+; browse bulletins titles
+
+browse
+	m$="":a=0:print "\nScan Bulletin Titles"
+	print "\nScan for what text [<CR>=Everything]?"
+	input @3 ":"m$:a=1:if m$="":a=0:return
+	goto scan.2
+
+; scan bulletins
+
+scan
+	print "\nScan bulletins"
+	if len(i$)>1:a=val(mid$(i$,2):goto scan.1
+	input @3 "\nStart at (#,<CR>):"a
+scan.1
+	m$="":if a<1 return
+	if a>msg(0) print "\nThat Bulletin Does Not Exist!":return
+scan.2
+	input @2 "\nAllow marking (Y/[N]) ?"i$
+	ms=0:if left$(i$,1)="Y":ms=a
+	d=0:x=15:print:z=flag:flag=ram(1)
+scan.3
+	a$=" ":if msg(a)>nn:a$="*"
+	flag(a-ms)=0:input #msg(a),t$|b,b$
+	if m$ if ~instr(m$,t$) goto scan.4
+	if left$(t$,1)="*":t$=mid$(t$,2)
+	x--:d++:print a$a". "t$"\n  Addressed to:"b$"\n"
+	if i$<>"Y" goto scan.4
+	print "Mark (Y/[N]/Q) ?";:get a$:print
+	if a$="Q" goto scan.5
+	flag(a-ms)=(a$="Y")
+scan.4
+	if a=msg(0) goto scan.5
+	a++:if x goto scan.3
+	input @2 "\nMore ([Y]/N/C) ?"a$
+	if left$(a$,1)="C":x=msg(0)-a-1:goto scan.3
+	if left$(a$,1)<>"N" print:x=15:goto scan.3
+scan.5
+	me=a:flag=z:if (~d) print "Sorry, no match":ms=0:return
+	if left$(i$,1)<>"Y" return
+
+; marked bulletins retrieval
+
+mark
+	print "\nRetrieve marked bulletins":a=ms
+	if ~ms print "\nNo marked bulletins":return
+mark.2
+	z=flag:flag=ram(1):b=flag(a-ms):flag=z
+	x=0:if b gosub show
+	if x=0:a++:if a<me goto mark.2
+	return
+
+; jump to another board.
+
+jump
+	print \n"Jump to Another Board"
+jmp2
+	print "\nJump to (1-"ab",?,<CR>):";
+	input @2 i$:if i$="" return
+jmp3
+	a=val(i$)
+	if (a>0) & (a<=ab) pop:bb=a:goto start
+	if i$<>"?" goto jmp2
+
+; list of available boards.
+
+list
+	print cls"\n"s$"\n":open #1,"system/sys.data2"
+	for x=1 to ab:position #1,128,x+8
+	input #1,a$|b$|a:setint(1)
+	if instr(left$(a$,1),"#$%"):a$=mid$(a$,2)
+	b=1:if a:b=flag(a)
+	if b & (b$<>"") print x". "a$
+	if key end setint(""):x=ab
+	next:close:if y return
+	goto jmp2
+
+; global quickscan
+
+qscan
+	ob=bb:bb=1
+	print "\nGlobal Quickscan...Spacebar Exits"
+qs1
+	setint(1):print "\nChecking board: [";
+qs2
+	i$="":a$=right$("0"+str$(bb),2)
+	print a$"]";:gosub idinf:setint(1):if key end goto qs4
+	if (~b1) | (bf$="") | (msg(0)=0) goto qs3
+	if nn>msg(msg(0)) goto qs3
+	print "\nThe "bn$"\ncontains new message(s)"
+	input @2 "\n[R]ead S)kip Q)uit ?" i$
+	if left$(i$,1)="Q" return
+	if left$(i$,1)="S" goto qs3
+	gosub new:input @2 "\nPost a message (Y/[N]) ? "i$
+	if i$="Y":sb$="":ti$="":gosub post
+	i$="Y"
+qs3
+	bb++:if bb>ab goto qs4
+	if i$<>"" goto qs1
+	print "\b\b\b";:goto qs2
+qs4
+	if i$="" | i$=" " print
+	setint(""):bb=ob:goto idinf
+
+; bulletin show routine
+
+show
+	if nn<=msg(a):nn=msg(a)+1
+	x=0:if lr<=msg(a):lr=msg(a)+1
+show1
+	if flag(36) goto anony
+	input #msg(a),sb$|tn,ti$|d,fr$:setint(2)
+	print #x,"\n Brd ->"bn$"\nNumb ->"a" of "msg(0)"\n Sub ->"sb$
+	print #x,"  To ->"ti$
+	print #x,"From ->"fr$
+show1a
+	copy #7,#x:x=0:setint("")
+	if key end:x=1:return
+	if key next return
+show2
+	if i$="+" return
+	print "\n[B"bb" #"a" of "msg(0)"] ? or Cmd [N]#";
+	get i$:print
+	if i$="?" print "\nM)ail [N]ext R)eread X)modem Q)uit D)ump ";
+	if i$="?" & (d=un | exec) print "E)dit K)ill ";
+	if i$="?" & exec print "S)wap P)rint"
+	if i$="?" print
+	if i$="D":i$="+":return
+	if i$="N" | i$="\n" | i$="+" return
+	if i$="Q":x=1:return
+	if i$="R" goto show
+	if i$="P" & exec:x=6:goto show1
+	if (i$="A" | i$="M") & flag(1):a$="":goto show5
+	if i$="A" | i$="M" print "\nSecurity too low":goto show2
+	if i$="X" goto dn.xmdm
+	if ~flag(1) goto show2
+	if ~((d=un) | (exec)) goto show2
+	if i$="E" & (flag(2) | exec) goto show4
+	if i$="W" & exec goto wrt.msg
+	if i$="S" & exec goto mov.msg
+	if i$<>"K" goto show2
+	input @2 "\nKill: Are you Sure (Y/[N]) ?"i$
+	if left$(i$,1)<>"Y" goto show2
+	gosub kill.3:a--:return
+show4
+	input @2 "\nEdit: Are you Sure (Y/[N]) ?"i$
+	if left$(i$,1)<>"Y" goto show2
+	edit clear:input #msg(a),a$|b,b$|c,c$|d$|e$
+	copy #7,#9:edit:if ~edit size goto show2
+	x=msg(a):kill #msg(a):print #msg(a),a$"\n"b,b$"\n"c,c$"\n"d$"\n"e$
+	copy #9,#7:msg(a)=x:flush:goto show2
+show5
+	input @2 "\nIs this a private letter (Y/[N]) ?"i$
+	if left$(i$,1)="Y" goto show6
+	if (d=0 & flag(36)):ti$="Anoymous User":goto show5a
+	open #1,"system/users":position #1,128,d
+	input #1,d1$,d2$|d3$:close:ti$=d3$
+show5a
+	if left$(sb$,3)<>"Re:":sb$="Re: "+sb$
+	b=a:gosub post:a=b:goto show2
+show6
+	if d=0 print "\nSorry, anonymous sender":goto show2
+	gosub editor:if ~edit size goto show2
+	print "\n"edit size" bytes entered"
+	print "Wait..";:s=9:gosub wr.ltr
+	ready bf$:print ".reply sent":goto show2
+
+wrt.msg
+	input @2 "\nFilename (to write):"i$
+	if i$="" goto show2
+	create i$:open #1,i$:append #1
+	copy #msg(a),#1:close:goto show2
+
+mov.msg
+; Bulletin Mover From Al Anderson
+	print "\n\nBulletin Mover Utility\n\nBoards 1-"ab
+	input @2 "\nMove this post to board #"i$:zx=val(i$)
+	if (zx>ab) | (zx<1) goto show2
+	edit clear:input #msg(a),a$|b,b$|c,c$:copy #7,#9
+	x=msg(a):b5=bb:bb=zx:gosub idinf
+	if (kl>0) & (kl<=msg(0)) kill #msg(kb):crunch
+	zx=msg(0)+1:print #msg(zx),a$"\n"b,b$"\n"c,c$:copy #9,#7:msg(a)=zx:flush
+	bb=b5:gosub idinf:msg(a)=x:print "On this board...";:gosub kill.3:a--
+	print "Bulletin is now on other board.":goto show2
+
+;show a bulletin on anoymous boards.
+
+anony
+	input #msg(a),sb$|tn,ti$|d,fr$:setint(2)
+	if left$(sb$,1)="*":sb$=mid$(sb$,2):goto anony1
+	print #x,"\n Brd ->"bn$"\nNumb ->"a" of "msg(0)"\n Sub ->"sb$
+	print #x,"  To ->"ti$
+	print #x,"From ->"fr$
+	goto show1a
+anony1
+	print #x,"\n Brd ->"bn$"\nNumb ->"a" of "msg(0)"\n Sub ->"sb$
+	print #x,"  To ->"ti$
+	if exec print #x,"From ->"fr$:goto show1a
+	print #x,"From ->Anonymous Poster":goto show1a
+
+;xmodem d/l of bulletin by Keith Christian
+
+dn.xmdm
+	print "\nDownload bulletin #"a;
+	input @2 " via Xmodem (Y/[N]) ?"i$
+	if left$(i$,1)<>"Y" return
+	f$="system/d":create f$:ready bf$:open #1,f$
+	input #msg(a),sb$|b,ti$|c,fr$:setint(2)
+	y=0:if left$(sb$,1)="*":sb$=mid$(sb$,2):y=1
+	print #1,"\n Brd ->"bn$"\nNumb ->"a" of "msg(0)"\n Sub ->"sb$
+	print #1,"  To ->"ti$
+	if y print #1,"From ->Anonymous Poster":else print #1,"From ->"fr$
+	copy #7,#1:close:print "\nReady to Send..."
+	overlay "system/protocol.down",300,0,f$:kill f$:goto show2
+
+;xmodem u/l of bulletin by Keith Christian
+
+up.xmdm
+	input @2 "\nUpload a message via Xmodem ([Y]/N) ?"i$
+	if i$="N" pop:return
+	print "\nReady to Receive..."
+	f$="system/u":overlay "system/protocol.up",300,0,f$
+	close:edit clear:copy f$,#9
+	print "\n"edit size" bytes received"
+	kill f$:edit:return
+
+idinf
+	flag(36)=0:flag(37)=1:flag(38)=0
+	if bb=0:bf$="":bl=0:return
+	me=0:bl=bb:open #1,"system/sys.data2"
+	mark(1)=1120:input #1,ab
+	if bb>ab close:bf$="":bl=0:return
+	position #1,128,bb+8
+	input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	if left$(bn$,1)="%":flag(36)=1:flag(37)=1:bn$=mid$(bn$,2)
+	if left$(bn$,1)="$":flag(36)=1:flag(37)=0:bn$=mid$(bn$,2)
+	if left$(bn$,1)="#":flag(36)=0:flag(37)=0:bn$=mid$(bn$,2)
+	b1=1:if b3:b1=flag(b3)
+	b2=1:if b4:b2=flag(b4)
+	close:if bf$="":bl=0:return
+	if (b1) ready bf$:nn=nb
+pfilter
+	if ~flag(37) edit on:else edit off
+	return
+
+; read e-mail
+
+rd.mail0
+	on nocar goto link.term
+	print "\nRead Mail"
+	if flag(0) print "\nGuests can not receive mail":return
+	ready "email/mail"
+	if ~msg(un) print "\nNo mail for you":return
+	ready #msg(un)
+rd.mail2
+	x=0:input #7,i$:d=val(i$)
+	if i$="":ma=1:return
+rd.mail3
+	print #x,"\n"md$:setint(2):copy #7,#x
+	setint(""):print #x,md$
+	if key next goto rd.mail2
+rd.mail4
+	input @2 "\n(A)uto reply, [C]ontinue, (R)e-read :"i$
+	if i$="" | i$="C" | i$="N" goto rd.mail2
+	if i$="Q" return
+	if i$="R" rewind:x=0:goto rd.mail3
+	if i$="P" & exec rewind:x=6:goto rd.mail3
+	if i$="W" & exec goto wr.mail
+	if i$="F" goto forward
+	if i$<>"A" goto rd.mail4
+	if d=0 print "\nSorry, anonymous sender":goto rd.mail4
+	input @2 "\nSubject:"sb$:if sb$="" goto rd.mail4
+	gosub editor:if ~edit size goto rd.mail4
+	print "\n"edit size" bytes entered"
+	print "Wait..";:h$="":s=9:gosub wr.ltr
+	print ".reply sent":goto rd.mail2
+
+wr.mail
+	input @2 "\nFilename (to write):"i$:if i$="" goto rd.mail4
+	create i$:rewind:open #1,i$:input #7,i$
+	append #1:copy #7,#1:close:goto rd.mail4
+
+forward
+	print "\nForward letter"
+	a=d:gosub mail.who
+	if d=0:d=a:goto rd.mail4
+	rewind:s=8
+	input @2 "Subject:"sb$:if sb$="":sb$="For your information"
+	h$="   --> A Forwarded Letter <--"
+	r$=".letter forwarded":gosub snd.bulk
+	d=a:goto rd.mail4
+
+; send e-mail
+
+snd.mail
+	on nocar goto link.term
+	print "\nSend Mail"
+	gosub mail.who:if d=0 return
+	input @3 "Subject:"sb$:if sb$="":sb$="None"
+	gosub editor:if ~edit size return
+	h$="":r$=".letter sent"
+	s=9:goto snd.bulk
+
+mail.who
+	input @2 "\nTo who: Name, #, B)ulk mailing, <CR>):"i$
+	clear #10:if i$="":d=0:return
+	if i$<>"B" gosub mail.wh2:print #10,d"\n"0:return
+	print "\nBulk Mailing":x=1
+	y=5:if flag(2):y=25
+
+bulk1
+	input @2 "\nSend copy to (#,<CR>):"i$
+	if i$="":d=0:if x=1 return
+	if i$<>"" gosub mail.wh2:if d=0 goto bulk1
+	print #10,d:x++:if d if x<y goto bulk1
+	d=1:return
+
+mail.wh2
+	if left$(i$,1)="#":i$=mid$(i$,2):goto snd.num
+	if val(left$(i$,1)) goto snd.num
+	d$=i$:if (d$="SYSOP") | (d$=sys$):d=1:return
+	if ~instr(" ",i$) goto snd.usr2
+	open #1,"system/users":d=1
+
+snd.user
+	position #1,128,d
+	input #1,a$,b$|c$
+	if (a$+" "+b$=d$) | (a$+b$=d$) close:return
+	if d<nu:d++:goto snd.user
+	close:d=0
+	print "\n"d$" is not a user":return
+snd.usr2
+	print "\nThat user does not exist"
+	d=0:return
+
+snd.num
+	d=val(i$)
+	if (d<1) | (d>nu) goto snd.usr2
+	move ram,58 to ram(1):open #1,"system/users"
+	position #1,128,d:input #1,a$,b$|c$
+	position #1,128,d,70:read #1,ram,58
+	close:i$=when$:move ram(1),58 to ram
+	if a$="" goto snd.usr2
+	print "\nSend to "c$"\nLast on "i$;
+	input @2 " ([Y]\\N) ?"i$
+	if left$(i$,1)="N":d=0
+	return
+
+; write a bunch of letters to disk
+
+snd.bulk
+	print "\n"edit size" bytes entered"
+	print "Wait..";:mark(10)=0
+snd.blk2
+	input #10,d:if d=0 print r$:return
+	gosub wr.ltr:print ".";:if s=8 rewind
+	goto snd.blk2
+
+; write the letter to disk
+
+wr.ltr
+	ready "email/mail"
+	if msg free<29 print "\nMail bit-map full":return
+	print #msg(d),un:if h$<>"" print #7,h$"\n"
+	print #7,"Subj ->"sb$
+	print #7,"From ->"a3$" (#"un")"
+	print #7,"Date ->"date$" "time12$"\n"
+	copy #s,#7:print #msg(d),"\x0400";
+	msg(d)=1:flush:return
+
+; *** sub - routines ***
+
+; backspace over text
+
+backup
+	print chr$(8,n);chr$(0x20,n);chr$(8,n);
+	return
+
+; enter a message
+
+editor
+	print "\nEnter message now, "width" cols, [4k] max"
+	print "[DONE] when finished, [.H] for help'
+	cl=clock:clock=0:edit clear:edit:clock=cl:return
+
+; show a disk file
+
+show.file
+	setint(1):print "\n"s$"\n":open #1,f$:if mark(1) close #1:return
+showfl2
+	copy (20) #1
+	if (eof(1) | key end) setint(""):close #1:return
+	if ~flag(35) goto showfl2
+	print "Press [RETURN] ";:get i$:if i$="\n" print " ";
+	print chr$(8,16);chr$(0x20,16);chr$(8,16);
+	if i$=" " setint(""):close #1:return
+	setint(1):goto showfl2
diff --git a/LLUCE/PROGRAM/MSG.TEST.S b/LLUCE/PROGRAM/MSG.TEST.S
new file mode 100644
index 0000000..a4cd2d0
--- /dev/null
+++ b/LLUCE/PROGRAM/MSG.TEST.S
@@ -0,0 +1,211 @@
+;E-mail
+;Modified by Wabbit 10/01/91
+
+            get                           i$
+
+; define drb$ as the pathname for your USERS file
+            drb$="SYSTEM"
+; define drg$ as the pathname for your MAIL file
+            drg$="EMAIL"
+; specify number of users
+            input                         "Enter user number to read -> "i$
+            nu=300
+            uget=1:gosub                  snd.num:uget=0
+            un=d:a3$=c$
+            print                         "User #"un" - "c$:get                               i$
+
+            md$="=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
+
+            print                         "\f\n\n\n"
+start
+            push                          start
+            if                            ~exist(drg$+"/mail")                                gosub
+            ready                         drg$+"/mail"
+            print                         "Email segment\n\n"
+            print                         "Send mail"
+            print                         "Read mail"
+            print                         "Create new mail file on "drg$
+            print                         "Delete mail"
+            print                         "Quit (end program)"
+            if                            msg(un)                                             gosub
+            print                         "\n  Option (S,R,C,D,Q): ";
+
+getopt
+            get                           i$
+            if                            i$="R"                                              goto
+            if                            i$="S"                                              goto
+            if                            i$="C"                                              goto
+            if                            i$="D"                                              goto
+            if                            i$="Q"                                              end
+            goto                          getopt
+
+rd.mail0
+            on                            nocar                                               goto
+            print                         "\nRead Mail"
+            if                            flag(0)                                             print
+            ready                         "email/mail"
+            if                            ~msg(un)                                            print
+            ready                         #msg(un)
+rd.mail2
+            x=0:input                     #8,i$:d=val(i$)
+            if                            i$="":ma=1:return
+rd.mail3
+            print                         #x,"\n"md$:setint(2):copy                           #8,#x
+            setint(""):print              #x,md$
+            if                            key                                                 next
+rd.mail4
+            input                         @2                                                  "\n(A)uto reply, [C]ontinue, (R)e-read :"i$
+            if                            i$=""                                               |
+            if                            i$="Q"                                              return
+            if                            i$="R"                                              rewind:x=0:goto
+            if                            i$="P"                                              &
+            if                            i$="W"                                              &
+            if                            i$="F"                                              goto
+            if                            i$<>"A"                                             goto
+            if                            d=0                                                 print
+            input                         @2                                                  "\nSubject:"sb$:if
+            gosub                         editor:if                                           ~edit
+            print                         "\n"edit                                            size" bytes entered"
+            print                         "Wait..";:h$="":s=9:gosub                           wr.ltr
+            print                         ".reply sent":goto                                  rd.mail2
+
+wr.mail
+            input                         @2                                                  "\nFilename (to write):"i$:if
+            create                        i$:rewind:open                                      #1,i$:input
+            append                        #1:copy                                             #8,#1:close:goto
+
+forward
+            print                         "\nForward letter"
+            a=d:gosub                     mail.who
+            if                            d=0:d=a:goto                                        rd.mail4
+            rewind:s=8
+            input                         @2                                                  "Subject:"sb$:if
+            h$="   --> A Forwarded Letter <--"
+            r$=".letter forwarded":gosub  snd.bulk
+            d=a:goto                      rd.mail4
+
+; send e-mail
+
+snd.mail
+            on                            nocar                                               goto
+            print                         "\nSend Mail"
+            gosub                         mail.who:if                                         d=0
+            input                         @3                                                  "Subject:"sb$:if
+            gosub                         editor:if                                           ~edit
+            h$="":r$=".letter sent"
+            s=9:goto                      snd.bulk
+
+mail.who
+            input                         @2                                                  "\nTo who: Name, #, B)ulk mailing, <CR>):"i$
+            clear                         #10:if                                              i$="":d=0:return
+            if                            i$<>"B"                                             gosub
+            print                         "\nBulk Mailing":x=1
+            y=5:if                        flag(2):y=25
+
+bulk1
+            input                         @2                                                  "\nSend copy to (#,<CR>):"i$
+            if                            i$="":d=0:if                                        x=1
+            if                            i$<>""                                              gosub
+            print                         #10,d:x++:if                                        d
+            d=1:return
+
+mail.wh2
+            if                            left$(i$,1)="#":i$=mid$(i$,2):goto                  snd.num
+            if                            val(left$(i$,1))                                    goto
+            d$=i$:if                      (d$="SYSOP")                                        |
+            if                            ~instr(" ",i$)                                      goto
+            open                          #1,"system/sys.users":d=1
+
+snd.user
+            position                      #1,192,d:input                                      #1,a$,b$|c$
+            if                            (a$+" "+b$=d$)                                      |
+            if                            d<nu:d++:goto                                       snd.user
+            close:d=0
+            print                         "\n"d$" is not a user":return
+snd.usr2
+            print                         "\nThat user does not exist"
+            d=0:return
+
+snd.num
+            d=val(i$)
+            if                            (d<1)                                               |
+            move                          ram,58                                              to
+            position                      #1,192,d:input                                      #1,a$,b$|c$
+            position                      #1,192,d,70:read                                    #1,ram,58
+            close:i$=when$:move           ram(1),58                                           to
+            IF                            UGET                                                return
+            if                            a$=""                                               goto
+            print                         "\nSend to "c$"\nLast on "i$;
+            input                         @2                                                  " ([Y]\\N) ?"i$
+            if                            left$(i$,1)="N":d=0
+            return
+
+; write a bunch of letters to disk
+
+snd.bulk
+            print                         "\n"edit                                            size" bytes entered"
+            print                         "Wait..";:mark(10)=0
+snd.blk2
+            input                         #10,d:if                                            d=0
+            gosub                         wr.ltr:print                                        ".";:if
+            goto                          snd.blk2
+
+; write the letter to disk
+
+wr.ltr
+            PRINT                         "SENDING TO USER "D;
+            ready                         "email/mail"
+            if                            msg                                                 free<29
+            print                         #msg(d),un:if                                       h$<>""
+            print                         #7,"Subj ->"sb$
+            print                         #7,"From ->"a3$" (#"un")"
+            print                         #7,"Date ->"date$" "time12$"\n"
+            copy                          #s,#7
+            print                         #MSG(D),"\x0400";
+            msg(d)=1:flush:return
+
+delete
+            ready                         "email/mail"
+            ready                         #msg(un)
+            msg(un)=0
+            kill                          #msg(un)
+            return
+
+; enter a message
+
+editor
+            print                         "\n                   Enter message now, [4k] max"
+            print"\n   /s  to save,   /h  for help,    /a  to abort,    done  for options"
+            cl=clock:clock=0:edit         clear:debug:edit:clock=cl:return
+
+waiting
+            ve=18:ho=47:gotoxy$(ho,ve)
+            print"  \x10Z\xF \xE";:ve++:gotoxy$(ho,ve)
+            print"  \x10Z_";:ve++:gotoxy$(ho,ve)
+            print" \xF       \xE";:ve++:gotoxy$(ho,ve)
+            print"\x10Z\xF       \xE";:ve++:gotoxy$(ho,ve)
+            print"\x10   VW";:ve++:gotoxy$(ho,ve)
+            print"   VW\xE";
+            ve=ve-3:gotoxy$(ho,ve)
+            print" \xF       \xE /";:ve++:gotoxy$(ho,ve)
+            print"\x10Z\xF       \xE/";
+            ve--:gotoxy$(ho,ve)
+            print" \xF      \x10N_\xE   ";:ve++:gotoxy$(ho,ve)
+            print"\x10Z\xF      \x10NT\xE___\b\b\b\b\x10LLLL";
+            ve--:gotoxy$(ho,ve)
+            print" \xF      \x10N_\xE!\b\6g\b\6n\b\6i\b\6t\b\6i\b\6a\b\6w\b\6 ";
+            print"\b\6l\b\6i\b\6a\b\6m\b\6 \b\6e\b\6v\b\6a\b\6h\b\6 \b\6u\b\6o\b\6Y";
+            print"\n\n\xE"
+            return
+
+create
+            ready                         ""
+            kill                          drg$+"/mail"
+            print                         "\n\nCreating mail file....";
+            create                        drg$+"/mail",msg,512
+            print                         "done.\n\n"
+            return
+
+link.term
+            chain                         dra$+"/main.seg","termin2"
+
diff --git a/LLUCE/PROGRAM/PURGE.SEG.S b/LLUCE/PROGRAM/PURGE.SEG.S
new file mode 100644
index 0000000..1e4b6de
--- /dev/null
+++ b/LLUCE/PROGRAM/PURGE.SEG.S
@@ -0,0 +1,221 @@
+;	SuperTac 5.30
+;	Written by Larry Hawkins
+;	Copyright (c), 1987-1988 - L & L Productions
+;	Purge Segment
+
+warespur
+            poke                      220,106
+            on                        nocar                                                             goto
+            ed=edit:sc$="\f":si=99:nc=0:nl=0:nk=0
+            wk=3:wc$="C":cn$="Y":ac$="L":nd$="Y":x=0
+            gosub                     chngvl:gosub                                                      find.sdate
+            print                     cls"\nPurge since "lc$;
+            gosub                     chngdt
+            print                     "\nWhich date:\n C)reation (uploaded) [Default]\n M)odification"
+            gosub                     chngwc
+            print                     "\nInclude [No Date] as date 00/00/00\n Y)es [Default]\n N)o"
+            gosub                     chngnd
+            print                     "Action:\n L)ist [Default]\n P)urge"
+            gosub                     chngac:if                                                         ac$="L"
+            print                     "\nConfirm actions:\n Y)es [Default]\n N)o\n Q)uit"
+            gosub                     chngcn
+wares1
+            gosub                     chkok
+            push                      link.sys
+            print                     "\n\nPurge 5.30"
+            print                     "Thrashing Hard Drive..."
+            xx=lo:gosub               makestr
+dir10
+            z=key:if                  z!=0                                                              return
+            ready                     v1$+":vol.headers"
+            input                     #msg(xx),vp$
+            if                        (un!=1)                                                           &
+            if                        si!=0                                                             print
+            in$=right$("0"+str$(xx),2)
+            print                     #x,in$"]";
+            x$=v1$+str$(xx)+":":if    (fv>0)                                                            &
+            overlay                   "xcat",0,x$,fn$,ta$,th$,bu$,mo$,mt$,xd$,xt$,by$
+            si=0:ww=0
+dir2
+            if                        fn$="               "                                             goto
+            gosub                     check.date:if                                                     d
+            si=peek(ed+22)+(peek(ed+23)<<8)
+            ww++:nc++:if              ww=1                                                              print
+            print                     #x,fn$" "ta$" "bu$" "right$("    "+str$(si),5)" "xd$" "mo$" ";
+            gosub                     kill.list
+dir3
+            call                      ed+3,0,fn$,ta$,th$,bu$,mo$,mt$,xd$,xt$,by$
+            goto                      dir2
+
+nxtvol
+            xx=xx+1:if                (xx>hi)                                                           close:update:gosub
+            print                     #x,"\b\b\b";:goto                                                 dir10
+
+prnt.done
+            print                     #x,"\nNumber considered: "nc
+            if                        ac$="L"                                                           print
+            if                        ac$="P"                                                           print
+            print                     "\nSuccessfully Thrashed":return
+
+link.sys
+            chain                     "program/supertac.sys"
+
+check.date
+            gosub                     find.date
+            if                        val(mid$(d$,7,2))>val(mid$(lc$,7,2)):d=1:return
+            if                        val(mid$(d$,7,2))<val(mid$(lc$,7,2)):d=0:return
+            if                        val(mid$(d$,1,2))>val(mid$(lc$,1,2)):d=1:return
+            if                        val(mid$(d$,1,2))<val(mid$(lc$,1,2)):d=0:return
+            if                        val(mid$(d$,4,2))>=val(mid$(lc$,4,2)):d=1:return
+            if                        val(mid$(d$,4,2))<val(mid$(lc$,4,2)):d=0:return
+            d=0:return
+
+chngvl
+            print                     "\nLow Volume  #"vl;:print                                        chr$(8,len(str$(vl)));
+            input                     @2                                                                i$:if
+            lo=val(i$):if             lo<vl:lo=vl
+            print                     "High Volume #"vh;:print                                          chr$(8,len(str$(vh)));
+            input                     @2                                                                i$:if
+            hi=val(i$):if             hi>vh:hi=vh
+            return
+
+chngdt
+            print                     chr$(8,8);:input                                                  @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=8                                                        return
+            if                        (mid$(i$,3,1)!="/")                                               |
+            a=val(mid$(i$,1,2)):if    (a<1)                                                             |
+            a=val(mid$(i$,4,2)):if    (a<1)                                                             |
+            a=val(mid$(i$,7,2)):if    (a<1)                                                             |
+            lc$=i$:return
+
+chngwc
+            print                     "Which: "wc$"\b";:input                                           @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="C"                                                            |
+            return
+
+chngnd
+            print                     "Which: "nd$"\b";:input                                           @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="Y"                                                            |
+            return
+
+chngac
+            print                     "Which: "ac$"\b";:input                                           @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="L"                                                            |
+            return
+
+chkprt
+            print                     \"Use the printer: N\b";:input                                    @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="Y":x=5
+            return
+
+chngcn
+            print                     "Which: "cn$"\b";:input                                           @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="Y"                                                            |
+            return
+
+find.sdate
+            mo=val(left$(date$,2))
+            da=val(mid$(date$,4,2))
+            yr=val(mid$(date$,7,2))
+            da-=(wk*7):if             da<1:da+=30:mo=mo-1:if                                            mo<1:mo=1:yr--
+            lc$=right$("00"+str$(mo),2)+"/"+right$("00"+str$(da),2)+"/"+str$(yr)
+            return
+
+find.date
+            d$="98/98/98":dc$=xd$:if  wc$="M"                                                           dc$=mo$
+            if                        dc$="[No Date]"                                                   &
+            if                        mid$(dc$,4,3)="Jan":d$="01/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Feb":d$="02/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Mar":d$="03/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Apr":d$="04/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="May":d$="05/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Jun":d$="06/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Jul":d$="07/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Aug":d$="08/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Sep":d$="09/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Oct":d$="10/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Nov":d$="11/":goto                                 find.fin
+            if                        mid$(dc$,4,3)="Dec":d$="12/":goto                                 find.fin
+            return
+find.fin
+            d$=d$+mid$(dc$,1,2)+"/"+mid$(dc$,8,2)
+            return
+
+makestr
+            fn$="               ":ta$="   ":th$="   ":bu$="     "
+            mo$="         ":mt$="     "
+            xd$="         ":xt$="     "
+            by$="         ":a=0
+            return
+
+chkok
+            print                     cls"\nYou have chosen the following:"
+            Print                     "Starting volume   : "lo
+            print                     "Stopping volume   : "hi
+            print                     "Action            : ";
+            If                        ac$="L"                                                           print
+            print                     "Printer           : ";
+            if                        x=0                                                               print
+            print                     "Date for action   : ";
+            if                        wc$="C"                                                           print
+            print                     "Include [No Date] : ";
+            if                        nd$="Y"                                                           print
+            print                     "Date of action    : "lc$:if                                      ac$="L"
+            Print                     "Confirm each      : ";
+            if                        cn$="Y"                                                           print
+chkok1
+            print                     "\nIs this selection correct: Y\b";:input                         @2
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="Q"                                                            pop:goto
+            if                        i$="N"                                                            pop:goto
+            return
+
+kill.list
+            sb=peek(ed+7)
+            if                        (ac$="L")                                                         &
+            if                        ac$="L"                                                           print
+            if                        cn$="N"                                                           goto
+            gosub                     chk.kill:if                                                       kf$="N"
+kill.it
+            if                        sb!=227                                                           print
+            print                     "Killed":nk++
+            kill                      fn$
+            return
+
+chk.kill
+            kf$="Y"
+            print                     "Kill: "kf$"\b";:gosub                                            getkey
+            if                        i$=""                                                             return
+            if                        len(i$)!=1                                                        return
+            if                        i$="Y"                                                            |
+            return
+
+getkey
+            xy=0
+get2
+            if                        (clock!=0)                                                        &
+            print                     "\nTime Limit Exceeded":pop:modem                                 nocar:goto
+            zx=peek(-16384)
+            if                        (zx=129)                                                          |
+            zx=key:if                 (zx>96)                                                           &
+            if                        zx!=0:i$=chr$(zx):return
+            zy++
+            if                        zy=1500:print                                                     "\a";:goto
+            if                        zy=3000:print                                                     "\aTimeout...":pop:modem
+            goto                      get2
+
+link.term
+            chain                     "progran/main.seg","term1"
+
diff --git a/LLUCE/PROGRAM/SYSTEM.SEG.S b/LLUCE/PROGRAM/SYSTEM.SEG.S
new file mode 100644
index 0000000..6478a36
--- /dev/null
+++ b/LLUCE/PROGRAM/SYSTEM.SEG.S
@@ -0,0 +1,563 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1989
+; L&L Productions, Inc.
+; *********************
+
+; system segment rev b - 4/10/89
+
+	public return
+
+	on nocar goto link.term
+; on error goto error
+	pr$=inverse$+"[System]"+normal$+"...":pl=len(pr$)-2
+
+system
+	gosub time:print "\n[("x$")] System Level [?=Menu] Function";
+system1
+	l1$="?/LSRWNTEKGBFPQ%*":gosub getone
+system2
+	clear gosub:push system
+	if i$="?" | i$="/" print "Menu":goto menu
+	if i$="L" print "View System Log":goto log
+	if i$="S" print "Show a Text File":goto file
+	if i$="R" print "Read Request File":goto request
+	if i$="W" print "Update System Welcome Message":goto welcome
+;	if i$="D" print "Dos Command":goto dos.cmd
+	if i$="N" print "Add a New User":goto new.user
+	if i$="T" print "Terminate":goto terminate
+	if i$="E" print "Edit Users Status":goto edit.pass
+	if i$="H" print "Help":ns=4:l$="HELP":goto dispatch
+	if i$="K" print "Kill a Users Account":goto kill.pass
+	if i$="G" print "Edit a Text FIle":goto edit.file
+	if i$="B" print "Edit Conference/Board Status":l$="BOARDS":pop:goto dispatch
+	if i$="F" print "Edit Flag Access Level Prompts":goto ed.flags
+	if i$="P" print "Print User List":pop:chain "program/maint.seg","userlist"
+	if i$="Q" print "Quit to Main Level":pop:goto link.main
+	if i$="%" print "Edit Help File":goto hlp.edit
+	if i$="*" print "Configure Auto Validation":goto val.flags
+system2
+	a1++:print "\n"pr$"\""i$"\" is not a command":if a1<3 return
+
+; *** sub - routines ***
+
+menu
+	a1=0:f$="system/mnu.system80":if width<79:f$="system/mnu.system40"
+menu1
+	if ~exist(f$) return
+	disk lock:open #1,f$:input #1,x$:setint(" "):addint(x$)
+	cls:copy #1:if key flag goto menukey
+	a=key:close:disk unlock:setint(""):pop:goto system
+
+menukey
+	close:disk unlock:setint(""):a=key:i$=chr$(a):upper$(i$)
+	if i$=" " goto system
+	print "\n\n["x$"][System Level] Option (?=Help) :";
+	goto system2
+
+; terminate connection from system
+
+terminate
+	print "\nTerminate From "sn$
+	print "\nAre You Sure";:yn=2:gosub getyn
+	if i$="N" return
+	pop
+link.term
+	chain "program/main.seg","term1"
+link.main
+	chain "program/main.seg","otherseg"
+
+; edit/verifiy users accounts
+
+edit.pass
+	input @2 "\nAccount # ->"i$:if i$="" return
+	a=val(i$):if i$="C":a=un:v$="0"
+
+ed.pass0
+	if (a<1) | (a>nu) print "\nUser does not exist.":return
+	d1$=a1$:d2$=a2$:d3$=id$:d4$=a4$:d5$=a5$
+	move ram,60 to ram(1):gosub rd.user
+	if d1$<>"" goto ed.pass2
+	print "\nUser does not exist - create?";:yn=2:gosub getyn
+	if i$="N" move ram(1),60 to ram:return
+ed.pass1
+	fill ram,60,0:d3$="NOMAILID":d1$="New User"
+	d2$="Unknown":d4$="Somewhere":d5$="ST"
+	pa$="PASSWORD":ph$="XXX-XXX-XXXX":nibble(6)=3
+
+ed.pass2
+	ul=(byte(10)<<16)+(byte(9)<<8)+byte(8)
+	dl=(byte(13)<<16)+(byte(12)<<8)+byte(11)
+	print "\nA) Mail ID:"d3$"\nB) Name   :"d1$
+	print "C) Affil. :"d2$"\nD) From   :"d4$", "d5$
+	print "E) Pass   :"a"-"pa$"\nF) Phone  :"ph$
+	print "G) Flags  :";
+	for x=1 to 34:print flag(x);:next
+	print "\nH) Time   :"nibble(6)*10
+	print "I) Blks Up:"ul"\nJ) Blks Dn:"dl"\nK) Mins On:"byte(7)
+	input @2 "\nWhich [A-K] or press \"*\" to Auto-Validate : "i$
+
+	if i$="A" gosub edit.id
+	if i$="B" input @3 "\nFull name ->"d1$:mixed$(d1$)
+	if i$="C" input @3 "\nAffilication ->"d2$:mixed$(d2$)
+	if i$="D" input "\nCity ->"d4$:mixed$(d4$)
+	if i$="D" input "State ->"d5$:d5$=left$(d5$,2):upper$(d5$)
+	if i$="E" input "\nPass :"pa$:pa$=left$(pa$+chr$(0x20,8),8)
+	if i$="F" input "\nPhone :"ph$
+	if i$="G" gosub edit.flg
+	if i$="H" input "\nTime Limit :"x:nibble(6)=x/10
+	if i$="I" gosub edit.up
+	if i$="J" gosub edit.dn
+	if i$="K" input "\nMinutes online today: "x:byte(7)=x
+	if i$="*" gosub ed.val
+	if i$="" goto ed.pass5
+	goto ed.pass2
+
+ed.pass5
+	b=len(d1$+d2$):if b<60 goto ed5a
+	print "\n"pr$"Name and affiliation are too long."
+	print chr$(0x20,pl)"Max len=60, current len="b
+	goto ed.pass2
+
+ed5a
+	b=len(d4$+d5$):if b<22 goto ed.pass6
+	print "\n"pr$"City and State are too long."
+	print chr$(0x20,pl)"Max len=22, current len="b
+	goto ed.pass2
+
+ed.pass6
+	input "\nSave, Abort, or Return? "i$
+	if i$="A" goto ed.exit
+	if i$="R" goto ed.pass2
+	if i$<>"S" goto ed.pass6
+	print "\n"pr$"Saving...";:if a>nu:nu=a
+	if a=un:a1$=d1$:a2$=d2$:id$=d3$:a4$=d4$:a5$=d5$
+	gosub wr.user:print ".Done":if a=un return
+ed.exit
+	move ram(1),60 to ram
+	ul=(byte(10)<<16)+(byte(9)<<8)+byte(8)
+	dl=(byte(13)<<16)+(byte(12)<<8)+byte(11)
+	return
+
+edit.flg
+	gosub flg.ttl:input @2 a$:if a$="" goto ed.flg2
+	if a$="?" goto ed.flg1
+	y=len(a$):if y>35:y=34
+	for x=1 to y:flag(x)=(mid$(a$,x,1)="1"):next:goto ed.flg2
+
+ed.flg1
+	disk lock:open #1,"system/sys.data2"
+	for x=0 to 34:i$=""
+	position #1,32,x:input #1,a$
+	if a$<>"" print "\n"a$:input "Set Flag? [Y,N,S,Q]:"i$
+	if i$="Q":x=34
+	if i$="Y":flag(x)=1
+	if i$="N":flag(x)=0
+	next:close #1
+ed.flg2
+	disk unlock:if flag(1):flag(0)=0:return
+
+edit.id
+	x$=d3$:input "\nMail ID ->"a$
+	if a$="" goto edit.id1
+	upper$(a$):a$=left$(a$+chr$(0x20,10),10):d3$=a$
+	gosub name.chk:if ~f:x$=d3$:goto edit.id1
+	print "\nSorry, that mail ID is in use. Try Again"
+	goto edit.id
+
+edit.id1
+	d3$=x$:return
+
+edit.up
+	input "\nUploaded Blocks ->"a$
+	if a$="" return
+	ul=val(a$)
+	byte(10)=(ul>>16):b=ul & 0xFFFF
+	byte(9)=(b>>8):byte(8)=b & 0xFF
+	return
+
+edit.dn
+	input "\nDownloaded Blocks ->"a$
+	if a$="" return
+	dl=val(a$)
+	byte(13)=(dl>>16):b=dl & 0xFFFF
+	byte(12)=(b>>8):byte(11)=b & 0xFF
+	return
+
+ed.val
+	f$="system/sys.autoval":if ~exist(f$) return
+	disk lock:open #1,f$:input #1,i$:close:disk unlock
+	for x=1 to 34:flag(x)=val(mid$(i$,x,1)):next
+	return
+
+val.flags
+	print "\nDo you want to modify the auto-validation flags?";
+	yn=2:gosub getyn:if i$="N" return
+	f$="system/sys.autoval"
+	if ~exist(f$):i$=chr$(48,34):create f$:goto val.fl2
+	disk lock:open #1,f$:input #1,i$:close:disk unlock
+val.fl2
+	print "\nCurrent Auto-Validation flags are set as:"
+	gosub flg.ttl:print left$(i$,34)
+	print "\nEnter the new auto-valadation flags:\n"
+	gosub flg.ttl:input @2 i$:if i$="" return
+	i$=left$(i$+chr$(0x30,34),34)
+	disk lock:open #1,f$:print #1,i$:close:disk unlock
+	return
+
+flg.ttl
+	print '
+Flag: 0000000001111111111222222222233333
+     _1234567890123456789012345678901234_
+Lvl : ';:return
+
+kill.pass
+	print "\n"pr$"Kill User # ->";:input a
+	if (a<1) | (a>nu) return
+	move ram,60 to ram(1):gosub rd.user
+	a$=mid$(" "+when$,2)
+	if d1$="" print "\n"pr$"That user does not exist":\
+		move ram(1),60 to ram:return
+	print "\n"pr$"Kill "d1$"\n"chr$(0x20,pl)"Last on - "a$"?";
+	yn=2:gosub getyn:if i$="N" move ram(1),60 to ram:return
+	d1$="":disk lock:gosub wr.user:disk unlock
+	print "\nUser Killed"
+	move ram(1),60 to ram:return
+
+request
+	f$="system/request"
+	if ~exist(f$) print "\n"pr$"Sorry, no new users":return
+	disk lock:open #2,f$
+	print "\n"pr$"Send file to printer?";:yn=1:es=1:gosub getyn
+	if i$="\x1B" close:return
+	if i$="Y" setint(1):copy #2,#5:mark(2)=0
+req2
+	input #2,a:b=mark(2):if a goto req3
+	close:disk unlock:print "\n"pr$"Delete File?";
+	yn=2:gosub getyn:if i$="Y" delete "system/request"
+	return
+
+req3
+	mark(2)=b:print "\n"md$
+req3a
+	input #2,i$:if i$<>chr$(1) print i$:goto req3a
+	print md$
+req4
+	print "\nRequest [V, K, "inverse$"C"normal$", R, A, Q, ?]";
+	l1$="RQ?CKVA\n":gosub getone
+	if i$="R" print "Re-read":goto req3
+	if i$="Q" print "Quit":close:return
+	if i$="?" print 'Help
+
+(V)alidate, (K)ill, (C)ontinue/skip, (R)e-read, (A)uto-reply, (Q)uit'
+	if i$="?" goto req4
+	if i$="C" | i$="\n" print "Continue":goto req2
+	if i$="K" print "Kill"::d1$="":gosub wr.user:goto req2
+	if i$="V" print "Validate":gosub ed.pass0:goto req2
+	print "Auto-reply":k=mark(2):close:disk unlock
+	k$="program/system.seg":d=a
+	chain "program/mail.seg","message.link"
+
+return
+	on nocar goto link.term
+	disk lock:open #2,"system/request":mark(2)=k
+	goto req4
+
+dispatch
+	y$="program/system.seg"			/* segment to return to upon compleation */
+	z$=""							/* enter segment at beginning */
+	chain "program/util.seg","dispatch"
+
+file
+	input @2 "\nFile Name (to read) ->"i$
+	f$=i$:if i$="" return
+	print "\nShow file on printer?";
+	yn=1:gosub getyn:if i$="N" goto show.file
+	setint(1):copy f$,#5:return
+
+log
+	f$="system/log.system"
+	print "\n"pr$"[ SysOp Log ] : D)elete, S)how, P)rint, Q)uit";
+	l1$="DSPAQ\n":gosub getone
+	if i$="D" print "Kill":delete f$:return
+	if i$="S" print "Show":gosub show.file
+	if i$="P" print "Print":setint(1):copy f$,#5:setint("")
+	if i$="A" | i$="Q" | i$="\n" print "Quit":return
+	goto log
+
+welcome
+	print "\n"pr$"Show current welcome to all users?";
+	yn=2:gosub getyn:if i$="N" return
+	gosub data.read:wm$=da$:disk lock:gosub data.write
+	disk unlock:print "\n"pr$"News updated":return
+
+edit.file
+	print "\n"pr$"File Name (to load) ->";:input @2 i$
+	edit clear:if i$<>"" disk lock:copy i$,#9:disk unlock
+	print "\nEnter/Edit File Now: "width" cols, 4k max"
+	print "Type \"DONE\" when finished \".h\" for help"
+	edit:if ~edit size return
+	print "\n"pr$"File Name (to save) ->";:input @2 i$
+	if i$="" return
+	disk lock:delete i$:create i$:open #1,i$
+	copy #9,#1:close:disk unlock
+	return
+
+dos.cmd
+	print "\n"pr$"DOS:";:input @2 i$:if i$="" return
+	overlay "xdos",i$:return
+
+new.user
+	print "\n"pr$"Add a new user?";
+	yn=1:gosub getyn:if i$="N" return
+	move ram,60 to ram(1)
+	a=nu+1:goto ed.pass1
+
+hlp.edit
+	f$="system/sys.help"
+	if ~exist(f$) create f$,msg,1024:msg(1023)=1		/* if no file, make it */
+hlp.ed1
+	print cls'\nSelect section to edit
+
+0.  Return to system
+1.  Main level commands
+2.  Email commands
+3.  Utility commands
+4.  Bulletin board commands
+5.  System level commands
+6.  Transfer system commands
+
+    Select section';
+	l1$="0123456\n\x1B":gosub getone
+	if i$="\n" | i$="\x1B" | i$="0" print "Quit":ns=4:return
+	ns=(val(i$)-1)*64
+	ready f$:cls										/* ready the file */
+	for x=0 to 15:i$=""									/* doing 16 lines */
+	for y=0 to 3										/* doing 4 columns */
+	t=x+(y*16)											/* calculate character */
+	x$=chr$(t+32)
+	input #msg(t+ns),z,a$								/* read in msg info */
+	i$=i$+x$+"-"+left$(a$+chr$(0x20,17),17)+" "			/* make string */
+	next:i$=left$(i$,79):print i$:next
+hlp.ed2
+	l1$="":for x=33 to 95:l1$=l1$+chr$(x):next:l1$=l1$+"\n\x1B"
+	print "\nWhich selection?";:gosub getone			/* get message key */
+	if i$="\n" | i$="\x1B" print "Quit":goto hlp.ed1	/* if no entry, exit */
+
+	print i$:l=(asc(i$)-32)+(64*ns)				/* calculate message number */
+
+hlp.ed2a
+	push hlp.ed2						/* save return */
+	if l=0 return						/* if it's 0, exit */
+	edit clear							/* clear the editor */
+	input #msg(l),z,a$					/* read the header */
+	if z copy #7,#9						/* if a message, copy to editor */
+	print "\nRead in a file?";
+	yn=1:es=1:gosub getyn				/* check if file to be read */
+	if es return						/* if escape pressed, exit */
+	if i$="N" goto hlp.ed3				/* no, check for Xmodem */
+	input @2 "\nFile to read -> "i$		/* get file to read */
+	if i$<>"" edit clear:copy i$,#9		/* if name given, read it */
+hlp.ed3
+	print "\nUpload by Xmodem?";
+	yn=1:es=1:gosub getyn				/* check if message upload */
+	if es return						/* if escape, exit */
+	if i$="Y" gosub up.xmdm				/* yes, do it */
+	print "\nEditing command: "a$"\n"	/* print header */
+	print "Enter/Edit File Now: "width+1" cols, \"4k\" max"
+	print "Type 'DONE' when finished \".H\" for help"
+	edit								/* edit the message */
+	s=1									/* set aborting flag */
+	if edit size goto hlp.ed4			/* if data in editor, go save it */
+	print "\nZero this message?";
+	yn=1:es=1:gosub getyn				/* message to be zeroed? */
+	s=0									/* flag yes */
+	if i$="N" return					/* no, exit */
+
+hlp.ed4
+	print "\nCurrent message  name is: "a$		/* show original header */
+	input @3 "Enter new name or <CR> -> "i$		/* get new header (maybe) */
+	if i$<>"":a$=i$								/* not blank entry, new header */
+	delete #msg(l)								/* remove old message */
+	print #msg(l),edit size,a$					/* save size and header */
+	copy #9,#7									/* copy the editor to record */
+	msg(l)=s									/* save deleted flag */
+	flush										/* write to disk */
+	return										/* back to system file editor */
+
+/*
+		Standard Xmodem upload routine
+		NOTE:	old Xmodem upload routine used here
+				can be replaced with new protocol routine
+*/
+
+up.xmdm
+	print "\nSelect Xmodem type:\n"
+	print "P)roDOS  D)OS3.3  S)tandard";
+	l1$="PDS\n\x1B":gosub getone:z=instr(i$,"PDS")
+	if z=0 pop:return
+	z=z*(z<>3):print i$"\n\nReady to Receive..."
+	f$="u":overlay "x.up",z,f$:close:edit clear
+	copy f$,#9:print "\n"edit size" bytes received"
+	kill f$:return
+
+/*
+		This routine gets a Yes/No answer
+		A prompt is printed, hilighting the default
+		response (if any)
+
+		Input parameters are:
+
+		yn	= 0:	No default
+		yn	= 1:	Default is no
+		yn	= 2:	Default is yes
+
+		es	= 0:	Escape not accepted
+		es	= 1:	Escape returns a No
+		es	= 2:	Escape returns a Yes
+
+		Output parameters are:
+
+		i$	=		Entered response, see possibilities above
+		es	=		0: no escape pressed
+					1: escape pressed
+					NOTE: es = 0 if escape not active
+*/
+
+;
+
+getyn
+	print " (";:l1$="YN"
+	if yn=2 print inverse$"[Y]"normal$;:l1$=l1$+"\n":else print "y";
+	print "/";
+	if yn=1 print inverse$"[N]"normal$;:l1$=l1$+"\n":else print "n";
+	print ")";
+	if es>0:l1$=l1$+"\x1B"							/* if escape active, add it */
+	gosub getone:l1$=i$								/* get the response */
+	if (i$="\x1B") and (es>0):i$=mid$("NY",es,1)	/* check escape response */
+	if (i$="\n") and (yn>0):i$=mid$("NY",yn,1)		/* check default response */
+	es=0:yn=0										/* zero the codes */
+	if l1$="\x1B":es=1:print "Esc":return			/* if escape pressed, print it */
+	if i$="Y" print "Yes":else print "No"			/* print response */
+	return
+
+;		l1$ is the available keys
+
+getone
+	print ": ";							/* print standard single key prompt */
+getonex
+	get i$								/* get a key */
+	if instr(i$,l1$) return				/* if valid key, exit */
+	goto getonex						/* try again */
+
+;	Edit access level prompts
+
+ed.flags
+	print "\n"pr$"Edit Access Flags Text - "inverse$"[Q]"normal$"uit, V)iew, E)dit";
+ed.flgs0
+	l1$="QEV\n\x1B":gosub getone
+	if i$="Q" | i$="\n" | i$="\x1B" print "Quit":return
+	push ed.flags:if i$="E" print "Edit":goto ed.flgs1
+	print "View\n":disk lock:open #1,"system/sys.data2":for l=0 to 16
+	position #1,32,l:input #1,a$:position #1,32,l+17:input #1,b$
+	print right$(sp$+str$(l),2)". "left$(a$+chr$(0x20,32),32)"  ";
+	print right$(sp$+str$(l+17),2)". "b$:next
+	position #1,32,34:input #1,a$:print chr$(0x20,38)"34. "a$:close
+	disk unlock:return
+
+ed.flgs1
+	input "\nEdit text for flag #" i$:if i$="" return
+	l=val(i$)
+	if (l<0) | (l>34) print "\n"pr$"Invalid flag number":goto ed.flgs1
+	disk lock:open #1,"system/sys.data2":position #1,32,l:input #1,a$
+ed.flgs2
+	print "\nOld Text: "a$
+	input @3 "New Text: "i$
+	if len(i$)>31 print "\n"pr$"Entry too long.. Try again..':goto ed.flgs2
+	if i$<>"" goto ed.flgs3
+	print pr$"\nClear this flag?";:yn=1:gosub getyn:if i$="N" return
+	i$=""
+ed.flgs3
+	if len(i$)<31:i$=i$+"\n"
+	position #1,32,l:print #1,i$:close:disk unlock:goto ed.flgs1
+
+
+;	check tree file for valid mail ID
+
+name.chk
+	a$=d3$:rtrim$(a$):disk lock:open #1,"system/sys.mailnames":t=nu:b=0:f=0
+name1
+	l=t-((t-b)/2):position #1,16,l:input #1,i$:upper$(i$)
+	print "t="t":l="l":b="b":i$="i$":d3$="d3$	/* REMOVE THIS LINE WHEN DONE */
+	rtrim$(i$):if a$=i$:f=1:input #1,x:close #1:return
+	if a$<i$:t=l-1:else b=l
+	if b<t goto name1
+	close #1:disk unlock:return
+
+;	get time remaining before logoff
+
+time
+	x=(clock-clock online)/60:y=clock:x$=right$("00"+str$(x),3)
+	if clock online>clock:x$="!!!"
+	if x=0:x$="---"
+	if ~y:x$="***"
+	if exec:x$=":::"
+	return
+
+data.read							/* read current info from the data file */
+	disk lock:open #1,"system/sys.data"
+	input #1,c1,ct,ct$,wm$
+	input #1,nu,mn,tm,nn|lu$
+	close:disk unlock:return
+
+data.write							/* write current into to the data file */
+	disk lock:open #1,"system/sys.data"
+	print #1,c1,ct,ct$,wm$
+	print #1,nu,mn,tm,nn"\n"lu$
+	close:disk unlock:return
+
+;	read a users info into temp areas
+
+rd.user
+	disk lock:open #1,"system/sys.users"
+	position #1,192,a
+	input #1,d3$|d1$|d2$|d4$,d5$
+	position #1,192,a,132
+	read #1,ram,60
+	close #1:disk unlock
+	return
+
+;	write a users stats back to disk (kill mail if user purged)
+
+wr.user
+	disk lock:open #1,"system/sys.users"
+	position #1,192,a:x$=d3$
+	if d1$="":d2$="":d3$=""
+	print #1,d3$"\n"d1$"\n"d2$"\n"d4$","d5$
+	position #1,192,a,132
+	write #1,ram,60:close #1:disk unlock
+	if d1$="":f$="email/"+x$:delete f$
+	return
+
+;	show a file w/ page pause (if active)
+
+show.file
+	if ~exist(f$) return
+	setint(1):print "\n"s$"\n":disk lock:open #1,f$
+showfl2
+	copy (20) #1
+	if (eof(1) | key end) setint(""):close #1:return
+	if ~flag(35) goto showfl2
+	print "Press ["inverse$"RETURN"normal$"] ";:get i$
+	print chr$(8,16);chr$(0x20,16);chr$(8,16);
+	if i$=" " setint(""):close #1:disk unlock:return
+	setint(1):goto showfl2
+
+;	routine to handle on error
+
+error
+	print "\n[System]...One moment please, returning you to the Main Level."
+	disk lock:close:clear gosub:create "system/sys.errors"
+	open #1,"system/sys.errors":append #1
+	print #1,"Error #"err" occured at "time$" on "date$" in system.seg"
+	close:disk unlock:chain "program/main.seg","fromsys"
diff --git a/LLUCE/PROGRAM/TEST.SEG.S b/LLUCE/PROGRAM/TEST.SEG.S
new file mode 100644
index 0000000..50e8568
--- /dev/null
+++ b/LLUCE/PROGRAM/TEST.SEG.S
@@ -0,0 +1,178 @@
+
+            get                   i$
+
+            gosub                 data.read                                /*
+
+            print                 ct$"A"
+            print                 date$"A"
+            a$=date$
+            print                 a$"A"
+
+            b$="1":c$="1"
+            if                    b$=c$                                    print
+
+            b=150
+            for                   x=                                       1
+            if                    b<100                                    print
+            if                    b=100                                    print
+            if                    b>100                                    print
+            b=b-10:next           x
+
+
+            if                    ct$<>a$                                  print
+
+
+            print                 c1\ct\ct$\wm$
+            print                 nu\mn\tm\nn\lu$
+
+            lu$="Dummy"
+
+            gosub                 data.write
+
+            get                   i$
+
+            end
+
+            flag=ram(2)
+            byte=ram(1)+81
+            set                   aa$=ram(1),30
+            set                   ab$=ram(1)+31,30
+            set                   ac$=ram(1)+61,20
+
+            byte(1)=0:byte(2)=0:byte(3)=0
+
+
+            open                  #1,"test.conf"
+            position              #1,96,1
+            read                  #1,ram(1),96
+            close                 #1
+            print                 aa$,ab$,ac$,byte(1),byte(2),byte(3)
+
+            get                   i$
+
+init
+            fill                  ram(1),128,0
+            a$="Lance Taylor-Warren"aa$=a$+Chr$(32,(30-len(a$)))
+            b$="General Discussions":ab$=b$+chr$(32,(30-len(b$)))
+            c$="LL Lance":ac$=c$+chr$(32,(20-len(c$)))
+            byte(1)=11:byte(2)=22:byte(3)=33
+
+            print                 aa$,ab$,ac$,d,e,f
+            print                 "Check Memory":get                       i$
+
+            create                "test.conf"
+            open                  #1,"test.conf"
+            position              #1,96,1
+            write                 #1,ram(1),96
+            close                 #1:get                                   i$:end
+
+            for                   x=1                                      to
+
+            open                  #1,"test.flags"
+            read                  #1,ram(1),512
+            close                 #1
+
+            for                   x=1                                      to
+            end
+
+
+
+            get                   i$:
+            x=flag
+            print                 "Flag address is:"x
+            flag=ram(2)
+            x=flag
+            print                 "flag address is:"x
+            flag(512)=1
+            flag(4096)=1
+            print                 "Flag(1)="flag(1)
+            print                 "Flag(512)="flag(512)
+            print                 "flag(4096)="flag(4096)
+            get                   i$
+
+            end
+
+
+
+
+            get                   i$:
+            overlay               "rndsort","system/sys.names",16,1
+            get                   i$
+            end
+
+            create                "system/test.data":open                  #1,"system/test.data"
+            set                   pa$=ram,8:set                            ph$=ram+8,12
+            fill                  ram,60,0
+            fill                  ram2,60,0
+            pa$="OUR2CUTE":ph$="303-420-3156"
+            gosub                 check:position                           #1,64,1:write
+            move                  ram,60                                   to
+            gosub                 check
+            pa$="LANCER   ":ph$="303-431-9183"
+            gosub                 check:position                           #1,64,2:write
+            move                  ram2,60                                  to
+            gosub                 check:position                           #1,64,3:write
+            print                 "Press a key":get                        i$
+            end
+
+
+check
+            print                 \"Ram  ---"
+            for                   x=768                                    to
+            print                 \"Ram2 ---"
+            for                   x=832                                    to
+            get                   i$:return
+
+
+            z=0:print             "Z="z
+            if                    z                                        print
+            if                    not                                      z
+            if                    z>0                                      print
+            if                    z<0                                      print
+            z=1
+            if                    z                                        print
+            if                    not                                      z
+            if                    z>0                                      print
+            if                    z<0                                      print
+            end
+
+
+start
+            disable:ready         "":f$="system/sys.log"
+            gosub                 chkfile:if                               a
+            ready                 f$:if                                    msg(0)=512
+            a=msg(0)+1
+            print                 #msg(a),date$" "time$
+            print                 #6,a2$
+            print                 #6,a3$,a4$
+            print                 #6,(baud*300)
+            print                 #6,cn$,cm$,lc$,un,ph$,node
+            a=clock(1):print      #6,(a/60),(a                             mod
+            clear                 #8:copy                                  #8,#6
+            msg(a)=a:flush:ready  ""
+
+            get                   i$:if                                    i$="Q"
+
+
+chkfile
+            open                  #1,f$:a=mark(1):si=size(1):close:return
+
+makelog
+            ready                 "":delete                                f$:create
+            open                  #1,f$:ed=ram3:fill                       ed,255,0:poke
+            write                 #1,ed,2:fill                             ed,255,0:for
+            write                 #1,ed,22:close
+            return
+
+data.read   /*                    read                                     current
+            disk                  lock:open                                #1,"system/sys.data"
+            input                 #1,c1,ct,ct$,wm$
+            input                 #1,nu,mn,tm,nn\lu$
+            close:disk            unlock:return
+
+data.write  /*                    write                                    current
+            disk                  lock:open                                #1,"system/sys.data"
+            print                 #1,c1,ct,ct$,wm$
+            print                 #1,nu,mn,tm,nn\lu$
+            close:disk            unlock:return
+
diff --git a/LLUCE/PROGRAM/TEST.SEG2.C b/LLUCE/PROGRAM/TEST.SEG2.C
new file mode 100644
index 0000000..45cc5f8
Binary files /dev/null and b/LLUCE/PROGRAM/TEST.SEG2.C differ
diff --git a/LLUCE/PROGRAM/TEST.SEG2.S b/LLUCE/PROGRAM/TEST.SEG2.S
new file mode 100644
index 0000000..0b2b588
--- /dev/null
+++ b/LLUCE/PROGRAM/TEST.SEG2.S
@@ -0,0 +1,67 @@
+            get                        i$
+
+
+;* overlay "shell","system.prog"
+;*   [,"startpath"][,"initial.pfx"][,"save.name"]
+;*
+
+            overlay                    "shell","/main/util/prosel/cat.doctor","","/main/util/prosel","/ram5/save"
+
+            print                      "We should restart here after quitting Cat.Doctor"
+            get                        i$
+
+
+start
+            cls
+            input                      @2                                                                          "This will make a window. ";\
+            "Checking for new line 1"\
+            "Checking for new line 2"  i$
+            for                        x=9                                                                         to
+            gotoxy$(20,x)
+            print"\I\R \x28"           /*print                                                                     40
+            next
+            window=9,16,20,60
+            gotoxy$(31,13)
+            print                      "This is a Window\N"
+            get                        i$
+            cls
+            end
+            copy                       "PROGRAM/MAIN.SEG.S"
+            get                        i$
+            goto                       start
+
+
+
+            get                        i$
+
+            MODEM                      READY
+
+            input                      @2                                                                          "Ready -> "i$
+            ansi                       on
+; commented out because the 1st gosub encountered will give a syntax error.
+
+start1
+            i7$="\I"
+            sc$="\I\H\f"
+            print                      sc$
+            gosub                      header
+            print                      "Press Return or Q to quit. \N";:get                                        i$
+            if                         i$="Q"                                                                      end
+            goto                       start
+
+header
+            print                      "\N";
+            lf=0
+            ve=up+1:ho=lf+1:print      gotoxy$(ho,ve);chr$(32,80)
+            ho=8:print                 gotoxy$(ho,ve)"Messages"
+            ho=26:print                gotoxy$(ho,ve)"E-Mail"
+            ho=38:print                gotoxy$(ho,ve)"Utilities"
+            ho=54:print                gotoxy$(ho,ve)"Information"
+            ve=up+2
+line
+            ho=1:ve=up+2
+            print                      gotoxy$(ho,ve);i7$;chr$(223,80);
+            return
+
+            CHAIN                      "PROGRAM/LOGON.SEG2"
+
diff --git a/LLUCE/PROGRAM/UTIL.SEG.S b/LLUCE/PROGRAM/UTIL.SEG.S
new file mode 100644
index 0000000..6f7c307
--- /dev/null
+++ b/LLUCE/PROGRAM/UTIL.SEG.S
@@ -0,0 +1,498 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1990
+; L&L Productions, Inc.
+; *********************
+
+; utility segment rev b - 2/1/90
+
+	public dispatch
+
+	on nocar goto link.term
+	on error goto error
+
+util
+	gosub time:print "\n["x$"][Utility Level] Option (?=Help): ";
+util1
+	get i$
+util2
+	clear gosub:push util
+	if i$="?" | i$="/" print "Menu":goto menu
+	if i$="B" print "Set Backspace Mode":goto backspace
+	if i$="C" print "Change Password":goto setpass
+	if i$="E" print "Set Terminal Emulation":goto set.term
+	if i$="H" print "Help":ns=2:goto help
+	if i$="N" print "Set Nulls":goto nulls
+	if i$="P" print "Set Page Pause Mode":goto paging
+	if i$="S" print "Show Your Status":goto showstat
+	if i$="T" print "Terminate":goto terminate
+	if i$="U" print "View Userlist":goto userlist
+	if i$="V" print "Set Video Width":goto video
+	if i$="X" print "Exit back to Main Level":pop:goto link.main
+	if i$="%" & exec print "System Segment":pop:chain "program/system.seg"
+	if val(i$)<33 goto util1 /* mask out possible control characters */
+
+	a1++:print "\n\""i$"\" is not a command":if a1<3 return
+
+; *** sub - routines ***
+
+menu
+	a1=0:if ~flag(1) goto menu1
+	if width<79:f$="system/mnu.util40":else f$="system/mnu.util80"
+menu1
+	if ~exist(f$) return
+	open #1,f$:input #1,x$:setint(" "):addint(x$)
+	cls:copy #1:if key flag goto menukey
+	a=key:close:setint(""):goto util
+
+menukey
+	close:setint(""):a=key:i$=chr$(a):upper$(i$)
+	if i$=" " goto util
+	print "\n\n["x$"][Utility Level] Option (?=Help):";
+	goto util2
+
+; terminate connection
+
+terminate
+	print "\nTerminate From "sn$
+	print "\nAre You Sure ["inverse$"(Yes)"normal$",No] :";
+	get i$:if i$="N" print "No":return
+	print "Yes":pop
+link.term
+	chain "program/main.seg","term1"
+link.main
+	chain "program/main.seg","otherseg"
+
+; control program flow from other segments
+
+dispatch
+	print l$:get i$
+	push dreturn
+	if l$="HELP" goto help /* handle the request for help on a command */
+	if l$="USERLIST" goto userlist /* handle request for a user list */
+	if l$="SHOWSTAT" goto showstat /* handle request for show stats */
+	if l$="BOARDS" goto ed.brds /* handle request for editting board info */
+	if l$="DISPLAY" goto display /* handle request for system configuration */
+
+dreturn
+	chain y$,z$ /* return to calling segment at return point */
+
+; show user's status
+
+showstat
+	print cls"Your Status on "sn$"\n"
+	print "Your Name ..... "a1$
+	print "Mail ID ....... "mi$
+	print "Affillation ... "a3$
+	print "From .......... "a4$", "a5$
+	print "Phone Number .. "ph$
+	print "User Number ... "un
+	print "Last Date On .. "lc$
+	print "Access Level .. ";
+	for x=1 to 33:print flag(x);:next
+	print "\n\nLast Caller ... "lu$
+	print "\nCalls Total ... "tc
+	print "Caller Number . "cn$
+	print "Today's Calls . "ct
+	print "nTotal Posts ... "bp
+	print "Downloads ..... "dl
+	print "Uploads ....... "ul
+	print "Blocks Up ..... "ul$
+	print "Blocks Down ... "dl$
+	print "\nLogon time .... "cm$
+	print "Actual time ... "date$" "time$:a=clock online
+	print "Connected ..... "a/60" mins, "a % 60" secs"
+	b=clock:if b print "Time left ..... "(b-a)/60" mins"
+	print "\nOptions Available\n"
+	open #1,"system/sys.data2":z=0:for x=0 to 34:a$=""
+	if flag(x) position #1,32,x:input #1,a$
+	if a$<>"" setint(1):print a$:z=1
+	if key end:x=34
+	next:close:if ~z print "Limited System Access"
+	setint(""):return
+
+; show list of system users
+
+userlist
+	input @2 "\nMatch letters (<CR>=All,?) -> "i$
+	if i$="?":f$="system/hlp.user":gosub showfile:goto userlist
+	print "\n"s$:open #1,"system/sys.names"
+	open #2,"system/sys.users":x=1
+	print "\nMail ID     User's Name           Last  On    From                ";
+	if exec print " Pass    ":else print
+	print "----------  --------------------  --------    --------------------";
+	if exec print " --------":else print
+usrlst2
+	position #1,16,x:input #1,a$|a
+	position #2,192,a:input #2,a$|b$|c$
+	rtrim$(a$):setint(1):if a$="" goto usrlst4
+	if instr(i$,a$) goto usrlst3
+	if ~instr(i$,b$) goto usrlst4
+usrlst3
+	input #2,d$,e$:position #2,192,a,132
+	move ram,60 to ram(1):on nocar goto usrlst5
+	read #2,ram(0),60
+	setint(1)
+	print left$(a$+"..........",10)"  ";
+	print left$(b$+"....................",20)"  ";
+	print when$"    "left$(d$+", "+e$+"                      ",20);
+	if exec print pa$:else print
+	move ram(1),60 to ram:on nocar goto link.term
+usrlst4
+	if (not key end) & (x<nu):x++:goto usrlst2
+	setint(""):close:return
+usrlst5
+	move ram(1),60 to ram:goto link.term
+
+; set display characteristics
+
+display
+	push display:gosub get.term
+	print "\nDisplay Characteristics\n"
+	print "Video width now = "width+1
+	print "Back-space mode = ";
+	a=nibble(0)/4:if a=1 print "non-";
+	if a=0 print "Unknown":else print "destruct"
+	print "Nulls sent @ LF = "nulls
+	print "Page pause mode = ";
+	if flag(35) print "ON":else print "OFF"
+	print "Terminal Emul.  = "i$
+	print "Show phone numb = ";
+	if mid$(ph$,4,1)=" " print "YES":else print "NO"
+display2
+	input @0 "\nSet: [V, B, N, P, T, S, or Q=Quit] ?" i$
+	if i$="Q" pop:return
+	if i$="B" goto backspace
+	if i$="S" goto phone
+	if i$="N" goto nulls
+	if i$="T" goto set.term
+	if i$="P" goto paging
+	if i$<>"V" goto display2
+
+video
+	print "\nEnter new width ("width(1)","width(2)","width(3)","width(4);
+	input @2 ", <cr>=No change) -> "i$:if i$="" return
+	a=val(i$):for x=1 to 4
+	if a=width(x):nibble(0)=nibble(0)/4*4+(x-1):width=a-1
+	next:return
+
+backspace
+	print "\n123456"chr$(8,3):a=0
+	input @2 "\nHow many numbers do you see (3, 6 or <CR>=No Change):" i$
+	if i$="" return
+	if i$="6":a=1
+	if i$="3":a=2
+	nibble(0)=(nibble(0) % 4)+(a*4)
+	mode=a:return
+
+nulls
+	input @2 "\nSet new value to (0-127 or <CR>=No Change):" i$
+	if i$<>"":nulls=val(i$)
+	return
+
+phone
+	print "Show phone number to other users?";
+	print " ["inverse$"(Yes)"normal$",No] :";:get i$
+	if i$="N" print "No":ph$=left$(ph$,3)+"-"+mid$(ph$,5):return
+	print "Yes":ph$=left$(ph$,3)+" "+mid$(ph$,5):return
+
+paging
+	if flag(35) print "ON":else print "OFF"
+	input @2 "\nSet paging mode (ON, OFF or <CR>=No Change):" i$
+	if i$="ON":flag(35)=1
+	if i$="OFF":flag(35)=0
+	return
+
+; get a new password
+
+setpass
+	input @2 "\nEnter your current password -> "; i$
+	if i$="" return
+	i$=left$(i$+"    ",8):if i$<>pa$ print "\nIncorrect!":return
+	print "\nYour password may be 4-8 chars long"
+	echo="X":input @2 "\nEnter your new password -> "; i$
+	if i$="":echo="":return
+	input @2 "Please type it in again -> " a$
+	echo="":a=len(i$)
+	if a$<>i$ print "\nPasswords do not match":return
+	if (a<4) | (a>8) print "\nPassword must be 4-8 chars":return
+	pa$=left$(i$+"    ",8):print "\nNew Password Accepted":return
+
+set.term
+	print cls"Set Terminal Emulation\n"
+	return
+
+termemul
+	inverse$="":normal$="":clrscn$="":i$="None"
+	if ~online:i$="Local":return
+	y=byte(14) if (y<1) | (y>9):return
+	if y=1:i$="Datamedia 1500":\
+	   inverse$="\x0F":normal$="\x0E":clrscn$="\x0C"
+	if y=2:i$="Dec VT-52":\
+	   inverse$="\x19":normal$="\x1F":clrscn$="\x0C"
+	if y=3:i$="IBM 3101":\
+	   inverse$="\x1B19":normal$="\x1B1F":clrscn$="\x1BK"
+	if y=4:i$="Hazeltine 1500":\
+	   inverse$="~\x19":normal$="~\x1F":clrscn$="~\x1A"
+	if y=5:i$="Heathkit H-19":\
+	   inverse$="\x1Bp":normal$="\x1Bq":clrscn$="\x1B\E"
+	if y=6:i$="Soroc":\
+	   inverse$="\x1B)":normal$="\x1B(":clrscn$="\x1B*"
+	if y=7:i$="Adm3a":\
+	   inverse$="\x19":normal$="\x1F":clrscn$="\x1A"
+	if y=8:i$="Televideo 912":\
+	   inverse$="\x1Bl":normal$="\x1Bm":clrscn$="\x1B1A"
+	if y=9:i$="ViewPoint":\
+	   inverse$="\x0E":normal$="\x0F:clrscn$="\x0C"
+	return
+
+; show help for a certain command
+
+help
+	cr$="\n":es$="\x1B"
+	disk lock:if ~flag(1):f$="system/mnu.new":else f$="system/mnu.val.40"
+	if exist(f$) open #1,f$:input #1,a$:close
+	a$=a$+cr$+es$:ready "system/sys.help"
+help2
+	setint(""):print "\nHelp on what command?\n"
+	print inverse$"[RETURN]"normal$" for all, "inverse$"[ESC]"normal$" to quit :";
+help3
+	get i$:if ~instr(i$,a$) goto help3
+	if i$=es$ print "Quit":ready "":disk unlock:return
+	push help2:if i$<>cr$:l=asc(i$):s=1:print i$:goto showhelp
+	s=0:print "All\n\n"s$"\n"
+	for l=33 to 95                            /* loop for all possible keys */
+	gosub showhelp:if key flag:l=95             /* if any interrupt key, quit */
+	next
+	ready "":disk unlock:return
+
+; show the entry of the help file for the command asked
+
+showhelp
+	x=(l-32)+(ns*64)                         /* convert key for segment */
+	if msg(x)=0 goto showhlp2                /* if no message, exit */
+	input #msg(x),y,i$                       /* bypass flag and header */
+	if exec goto showhlp1                    /* if exec, show all help messages */
+	if left$(i$,1)="*" & (len(i$)>1) goto showhlp2
+showhlp1
+	if left$(i$,1)="*" & (len(i$)>1):i$=mid$(i$,2)
+	setint(1)
+	print "\n"inverse$;i$;normal$"\n"
+	copy #7 /* show the message */
+	return
+
+showhlp2
+	if s print "\nNo help available on that command" /* show err if not loop */
+	return
+
+; edit boards
+
+ed.brds
+	disk lock:open #1,"system/sys.data2"
+	mark(1)=1120:input #1,ab:close:disk unlock
+ed.brd1
+	gosub time:print "\n["x$"][Board Maintenance] ";
+	input "Option (?=Help):" i$:push ed.brd1
+
+	if i$="P" goto brd.prg
+	if i$="A" goto brd.add
+	if i$="D" goto brd.del
+	if i$="E" goto brd.edt
+	if i$="S" goto brd.swp
+	if i$="L" goto brd.lst
+	if i$="C" goto brd.cre
+	if i$="X" pop:return
+	if i$<>"?" print "\nSorry, \""i$"\" is not a valid command. (?=Help)":return
+
+	setint(1):print cls"\n"s$'\n
+::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:      Board Maintenance Section Vaild Commands      :
+::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: A - Add a Subboard     : C - Create a Storage File :
+: D - Delete a Subboard  : E - Edit a Subboard       :
+: L - List all Subboards : P - Purge all Subboards   :
+: S - Swap two Subboards : X - Exit to System Level  :
+::::::::::::::::::::::::::::::::::::::::::::::::::::::':return
+
+brd.lst
+	print "\n"pr$"Send list to the printer? (Y/"inverse$"[N]"normal$"): ";
+	get i$:if i$="Y" s=6:print "Yes":else s=0:print "No"
+	print #s,"\n###  Board Name               File Name"
+	print #s,"---------------------------------------"
+	disk lock:open #1,"sys.data2":for a=1 to ab:position #1,128,a+8
+	input #1,bn$|bf$:w1$=right$("00"+str$(a),3)
+	if instr(left$(bn$,1),"^#$%"):bn$=mid$(bn$,2)
+	bn$=left$(bn$+chr$(0x20,23),23):print #s,w1$"  " bn$"  "bf$:next
+	close:disk unlock:print "\nPress [Return]";:get i$:return
+
+brd.prg
+	print "\n"pr$"This operation will erase your board configuration."
+	print chr$(0x20,len(pr$)-2)"Do you really wish to continue? ";
+	print "[Yes,"inverse$"(No)"normal$"] :";
+	get i$:if i$<>"Y" print "No":return
+	print "Yes":disk lock:open #1,"sys.data2":mark(1)=1120
+	print #1,0:ab=0:close:disk unlock:goto brd.add1
+
+brd.add
+	print "\n"pr$"Do you wish to add another board to your system? (";
+	print inverse$"[Y]"normal$"/N): ";:get i$
+	if i$="N" print "No":return
+	print "Yes"
+brd.add1
+	ab++:bn$=New Board":bf$="bulletins/b"+str$(ab):b3=0:b4=0:bs=0:mb=128
+	kl=0:kb=0:z=1:a=ab:goto brd.edt2
+
+brd.del
+	print "\n"pr$"Delete Board (#1-#"ab",Q=quit):";:input i$:a=val(i$)
+	if i$="Q" return
+	if (a>ab) | (a<1) goto brd.del
+	disk lock:open #1,"system/sys.data2":for x=a to ab
+	position #1,128,x+9:input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	position #1,128,x+8:print #1,bn$"\n"bf$"\n"b3,b4"\n"bs,bs$"\n"mb,kl,kb
+	next:ab--:mark(1)=1120:print #1,ab:close:disk unlock:return
+
+brd.swp
+	print "\n"pr$"Enter the numbers of the two bulletin"
+	print chr$(0x20,len(pr$)-2)"boards that you wish to swap."
+brd.swp1
+	print  "\n"pr$"Swap Board (1-"ab",Q=Quit): ";:input i$:a1=val(i$)
+	if i$="Q" return
+	if (a1>ab) | (a1<1) goto brd.swp1
+brd.swp2
+	print "\n"pr$"With Board (1-"ab",Q=quit): ";:input i$:a2=val(i$)
+	if i$="Q" return
+	if (a2>ab) | (a2<1) goto brd.swp2
+	disk lock:open #1,"system/sys.data2"
+	position #1,128,a1+8:input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	position #1,128,a2+8:input #1,w1$|w2$|w3,w4|ws,ws$|wb,wl,kw
+	position #1,128,a1+8:print #1,w1$"\n"w2$"\n"w3,w4"\n"ws,ws$"\n"wb,wl,kw
+	position #1,128,a2+8:print #1,bn$"\n"bf$"\n"b3,b4"\n"bs,bs$"\n"mb,kl,kb
+	close:disk unlock:return
+
+brd.edt
+	print "\nEnter the number of the bulletin board that you want to edit."
+brd.edt1
+	print "\n"pr$"Edit Board (1-"ab",Q=quit): ";:input i$:a=val(i$)
+	if i$="Q" return
+	if (a>ab) | (a<1) goto brd.edt1
+	gosub brd.read
+brd.edt2
+	cls:if bs=0:bs$=""
+	if bs$="" & (bs=0):w2$="[ No Aux Sysop ]"
+	if bs$="" & (bs>0):w2$="[ Use Real Name ]"
+	if bs$<>"" & (bs>0):w2$=bs$
+	print "\n 1) Name: "bn$"\n 2) File: "bf$"\n\n 3) Access: "b3"  4) Write: "b4
+	print "\n 5) Aux Sysop Numb: "bs"\n 6) Aux Sysop Name: "w2$
+	print "\n 7) Max  # of  Messages: "mb"\n 8) Auto-kill Threshold: "kl
+	print " 9) Bulletin # to  kill: "kb
+	print "\n10) Abort without Saving\n11> Save changes and Quit"
+
+	push brd.edt2:input "\nEdit #1 - #11:" i$:x=val(i$):i$=""
+	if x=1 input @3 "\nBoard Name: " i$:if i$<>"":bn$=i$
+	if x=2 input @3 "\nFile Name: " i$:if i$<>"":bf$=i$
+	if x=3 input @3 "\nAccess Flag: " i$:if i$<>"":b3=val(i$)
+	if x=4 input @3 "\nWrite Flag: " i$:if i$<>"":b4=val(i$)
+	if x=5 input @3 "\nSubop #:" i$:if i$<>"":bs=val(i$)
+	if x=6 input @3 "\nSubop Name:" i$:if i$<>"":bs$=i$
+	if x=7 input @3 "\nMax # Messages:" i$:if i$<>"":mb=val(i$)
+	if x=8 input @3 "\nKill Threshold:" i$:if i$<>"":kl=val(i$)
+	if x=9 input @3 "\nMessage to kill:" i$:if i$<>"":kb=val(i$)
+	if (x=10) & (z=1) input @2 "\nAbort: Are you sure? (Y/[N]): " i$
+	if (x=10) & (z=1) & (i$="Y"):ab--:pop:return
+	if x=10 input @2 "\nAbort: Are you sure? (Y/[N]): "i$:if i$="Y" pop
+	if x=11 input @2 "\nSave: Are you sure? ([Y]/N): "i$:if i$="":i$="Y"
+	if (x=11) & i$="Y" gosub brd.write:z=0:pop
+	return
+
+brd.read
+	disk lock:open #1,"system/sys.data2":position #1,128,a+8
+	input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb:close:disk unlock
+	return
+
+brd.write
+	disk lock:open #1,"system/sys.data2":position #1,128,a+8
+	print #1,bn$"\n"bf$"\n"b3,b4"\n"bs,bs$"\n"mb,kl,kb
+	mark(1)=1120:print #1,ab:close:disk unlock
+	if z=1 goto brd.cre2
+	return
+
+brd.cre
+	print "\n"pr$"Enter the number of the board you"
+	print chr$(0x20,len(pr$)-2)"wish to create a storage file for."
+brd.cre1
+	print "\n"pr$"Create storage file for board (#1 - #"ab",Q=quit):";
+	input i$:a=val(i$):if i$="Q" return
+	if (a>ab) | (a<1) goto brd.cre1
+	gosub brd.read
+brd.cre2
+	print "\nBoard Specifications:"
+	print "\nName: "bn$"\nFile: "bf$
+	input @2 "\nIs the above Correct? ([Y]/N)?"i$:if i$="N" return
+	w1=0:w1=instr("/",bf$):w1$=mid$(bf$,1,w1):if w1$="" goto brd.cre4
+	print "\nMake sure "w1$" is on-line."
+	print "\nAre you ready? ["inverse$"(Yes)"normal$",No] :";:get i$
+	if i$="N" print "No":return
+	print "Yes":disk lock: open #1,bf$:x=mark(1):close:disk unlock
+	if ~x goto brd.cre5
+brd.cre3
+	print "\nCreating Storage File...";
+	disk lock:create bf$,msg,128:disk unlock:print "Done.":return
+
+brd.cre4
+	print "\n"pr$"Error: This board does not have a drive"
+	print chr$(0x20,len(pr$)-2)"specifier in its filename.
+	input @3 "\nPress <Return> to continue..." i$:i$="":return
+brd.cre5
+	print "\n"pr$"There is already a message storage file with this"
+	print chr$(0x20,len(pr$)-2)"name. If you preceed, the messages in that file"
+	print chr$(0x20,len(pr$)-2)" will be destroyed"
+	print "\n"chr$(0x20,len(pr$)-2)"Do you wish to continue? "
+	print "(Y/"inverse$"[N]"normal$"): ";:get i$
+	if i$="Y" print "Yes":delete bf$:goto brd.cre3
+	print "No":return
+
+
+; calculate time remaining
+
+time
+	x=(clock-clock online)/60:y=clock:x$=right$("00"+str$(x),3)
+	if clock online>clock:x$="!!!":else if x=0:x$="---"
+	if exec:x$=":::":else if ~y:x$="***"
+	return
+
+; show text file to screen with page mode
+
+showfile
+	if ~exist(f$) return
+	setint(1):print "\n"s$"\n":open #1,f$
+showfl2
+	copy (20) #1
+	if (eof(1) | key end) setint(""):close #1:return
+	if ~flag(35) goto showfl2
+	print "Press "inverse$"[RETURN]"normal$" ";:get i$
+	print chr$(8,16);chr$(0x20,16);chr$(8,16);
+	if i$=" " setint(""):close #1:return
+	setint(1):goto showfl2
+
+get.term
+	if ~online:i$="Local":return
+	y=byte(14) if (y<1) | (y>9):i$="None":return
+	if y=1:i$="Datamedia 1500"
+	if y=2:i$="Dec VT-52"
+	if y=3:i$="IBM 3101"
+	if y=4:i$="Hazeltine 1500"
+	if y=5:i$="Heathkit H-19"
+	if y=6:i$="Soroc"
+	if y=7:i$="Adm3a"
+	if y=8:i$="Televideo 912"
+	if y=9:i$="ViewPoint"
+	return
+
+; routine to handle on error
+
+error
+	print "\nOne moment please, returning you to the Main Level."
+	clear gosub:close:create "system/sys.errors"
+	open #1,"system/sys.errors":append #1
+	print #1,"Error #"err" occured at "time$" on "date$" in util.seg"
+	close:chain "program/main.seg","fromsys"
diff --git a/LLUCE/PROGRAM/VOTING.SEG.S b/LLUCE/PROGRAM/VOTING.SEG.S
new file mode 100644
index 0000000..05325ab
--- /dev/null
+++ b/LLUCE/PROGRAM/VOTING.SEG.S
@@ -0,0 +1,391 @@
+; *********************
+;      LLUCE v1.0
+;    Copyright 1989
+; L&L Productions, Inc.
+; *********************
+
+; voting segment rev a - 3/06/89
+
+	public force
+
+start
+	on nocar goto link.term
+;	on error goto error
+	create "voting/v.catalog":open #1,"voting/v.catalog"
+	position #1,64,0:input #1,y,vl:
+	if (~y) goto v.sysop
+
+v.select
+	cls:print "Num  Topics Available           Online"
+	print "--------------------------------------"
+	for x=1 to y:position #1,64,x
+	input #1,tp$:y1=len(tp$):x$=right$("  "+str$(x),2)
+	print x$".  "left$(tp$+chr$(0x20,25),25);
+	f$="voting/v"+str$(x)+".1":a=exist(f$)
+	if a print "     Yes":else print "      No"
+	next
+
+v.input
+	s=0:edit clear:gosub time
+	print "\n["x$"][Select a topic: (1-"y", Q=Quit, ?=More)] ->";:input @2 i$
+	x2=val(i$)
+	if (i$="%") & (exec | (un=vl)):goto v.sysop
+	if i$="Q" close:goto link.main
+	if i$="?" goto v.select
+	if (x2<1) | (x2>y) print "\n\""i$"\" is not a valid choice":goto v.input
+	a$="voting/v"+i$:close #1:gosub voting:goto start
+
+
+voting
+	s=0:zx=18:i$="":t4=0:t2=0:t1=0
+	if ~(un=vl) | exec goto voting1
+	print "\nVoting Booth"
+	print "------------"
+	gosub time
+	input @0 "\n[Voting Sysop][ P)ost, D)ump or V)iew results ] Cmd:"i$
+	if i$="V":s=0:goto voting1
+	if i$="B":s=8
+	if i$="P":s=5:goto voting1
+	print "\n{Default board #18}":input @3 "Post Voting Results on board #"i$
+	if i$<>"":zx=val(i$)
+	if zx=0 goto voting
+voting1
+	close:edit clear
+	create a$:open #1,a$:mark(1)=(un/512)*64
+	x=mark(1):fill ram(1),64,0
+	read #1,ram(1),64:z=flag:flag=ram(1):a=flag(un % 512)
+	flag(un % 512)=1:flag=z:mark(1)=x
+	write #1,ram(1),64:x=1:z=byte:byte=ram(1)
+	if t2:x=d
+
+vote2
+	open #2,a$+"."+str$(x):if mark(2) goto vote5
+	input #2,y,x1,x4,u
+	if u:t1=1:t2=1:t3=0:t4=1
+	if ~a goto vote2.2
+	setint(1):print #s "\n":x1=x1-1
+	for y=1 to x1:input #2,i$
+	if ~t3 print #s,i$
+	next:t3=0:goto vote2.3
+vote2.2
+	copy (x1-1) #2:print "\nNum  Option":print chr$(0x3D,78):copy #2
+vote2.3
+	position #1,32,x+7:fill ram(1),32,0:read #1,ram(1),32
+	b=byte(0)+byte(1)*256:if a goto vote4
+
+vote3
+	print "\n":if x4 print "A)dd option or ";
+	input "Your vote : "i$
+	if i$="A" & x4=1:gosub add.o:close #2:goto vote2
+	d=val(i$):if (d<1) | (d>y) goto vote3
+vote3.1
+	print "\nTabulating...";
+	b++:byte(0)=b % 256:byte(1)=b/256
+	c=byte(d*2)+byte(d*2+1)*256:c++
+	byte(d*2)=c % 256:byte(d*2+1)=c/256
+	position #1,32,x+7:write #1,ram(1),32
+	print".Done!"
+	if t1 close:p5=x:a$="voting/a"+str$(x2):t1=0:t3=1:i$="":goto voting1
+	if t2:x=p5:a$="voting/v"+str$(x2)
+	close
+	open #1,a$:position #1,32,x+7
+	fill ram(1),32,0:read #1,ram(1),32
+	b=byte(0)+byte(1)*256
+
+vote4
+	t2=0:c=0:c3=0:b=b+(b=0)
+	print #s,"\nOption"chr$(0x20,57)"Percent [Votes]"
+	print #s,chr$(0x3D,78)
+	close:open #2,a$+"."+str$(x):input #2,y,x1
+	copy (x1-1)#2,#9:clear #9:y4=y:for c=1 to y
+	y=byte(c*2)+byte(c*2+1)*256
+	b1$=str$((y*100)/b)+"%":y3=len(b1$):y3=4-y3
+	input #2,b$:y2=len(b$):b$=right$(b$,y2-5):y2=len(b$)
+	y2=67+y3-y2:goto vote4.1
+vote4.1
+	c3=c3+y
+	if t2 print #s,"\n";
+	if t4:t2=1
+	print #s,b$chr$(0x2E,y2) (y*100)/b"% ["right$("000"+str$(y),3)"]"
+	if ~t2 goto vote4.2
+	print "x2="x2
+	a=mark(2):close:gosub show.vo
+	a$="voting/v"+str$(x2):close
+	open #1,a$
+	position #1,32,x+7
+	fill ram(1),32,0:read #1,ram(1),32
+	b=byte(0)+byte(1)*256
+	open #2,a$+"."+str$(x)
+	mark(2)=a
+vote4.2
+	next:b1$=str$((c3*100)/b)+"%":y3=len(b1$)
+	y3=4-y3:y2=11:y2=67+y3-y2
+	print #s chr$(0x20,y2-1);"----------------------"
+	print #s chr$(0x20,y2-1);"Users Voted "right$("000"+str$((c3*100)/nu),3);
+	print #s "% ["right$("000"+str$(c3),3)"]"
+	if ~s print "\nPress Return :";:get i$
+	close:x++:print "\n":open #1,a$:goto vote2
+
+vote5
+	close:byte=z
+	if edit size gosub vo.resu
+	gosub v.remove
+	return
+
+v.sysop
+	print '
+
+Sysop Control Section
+---------------------
+
+{T} Edit Voting Topics      {E}  Edit Voting Questions
+{C} Number of Categories    {A}  View option additions
+{Q} Quit'
+
+	input @2 "\nCmd :"i$
+	if i$="T" goto v.catalog
+	if i$="E" goto v.edit
+	if i$="C" goto v.num
+	if i$="A" goto opt
+	if i$="Q" close:goto start
+	goto v.sysop
+
+opt
+	f$="voting/add.vote":open #2,f$:copy #2:close #2
+	input @2 "\nDelete [(Yes),No]: "i$
+	if i$<>"N" delete f$
+	goto v.sysop
+
+v.catalog
+	print "Edit Category Topics"
+	print "--------------------\n\n"
+	for x=1 to y:position #1,64,x
+	input #1,tp$:print x". "tp$:next
+	print "\n[1-"y" Q)uit] Edit: ";:input i$
+	if i$="Q" goto v.sysop
+	x=val(i$):if (x<1) | (x>y) goto v.catalog
+	position #1,64,x
+	input @3 "\nEnter new topic ->";tp$
+	print #1,tp$:goto v.catalog
+
+v.num
+	print "\nTotal Categories? ";:input i$
+	y=val(i$)
+	if exec print "\nCurrent user sysop num #:"vl
+	if exec input " Voting user sysop num  #:"i$
+	if exec:vl=val(i$)
+	position #1,64,0:print #1,y,vl:goto v.sysop
+
+v.edit
+	print  "\nEditing Questions"
+	print  "-----------------\n\n"
+	print "Edit which category (1-"y") ? ";:input i$
+	z1=val(i$):x1=1
+	input @2 "\nAllow for sub-category votes? [Y/N]:"i$
+	t=0:if i$="Y":t=1
+
+v.edit0
+	close
+	print "\n\n             -+- Enter question #"x1" now at "width" columns -+-\n"
+	print "Type 'DONE' on seperate line when completed -  'Exit' when thru.\n"
+	z=2:edit clear
+
+v.edit1
+	input @3 ">" i$
+	if (i$="EXIT") | (i$="exit") goto v.edit3a
+	if (i$="DONE") | (i$="done") goto v.edit2
+	print #9,i$:z++:goto v.edit1
+
+v.edit2
+	print "\n\nEnter possible answers now at 65 columns - \"Done\" when thru.\n"
+	a=width:width=65:y1=0
+
+v.edit2a
+	print "\nAnswer #"y1+1" >";:input @3 i$
+	if (i$="DONE") | (i$="done") goto v.edit3
+	y1++:i$=right$("00"+str$(y1),2)+".  "+i$
+	print #9,i$
+	if ~t goto v.edit2a
+	gosub v.1sub
+	print "\n\nEnter possible answers now at 65 columns, for the question:\n"
+	copy #9:print "\nType \"DONE\" when completed:"
+	goto v.edit2a
+
+v.edit3
+	if t:x3=0:goto v.edit3b
+	input @2 "\nAllow for user to add options? [Y/N]:"i$
+	if i$="Y":x3=1:else x3=0
+
+v.edit3b
+	i$="voting/a"+str$(z1):delete i$
+	i$="voting/v"+str$(z1):delete i$:i$=i$+"."+str$(x1)
+	delete i$:create i$:open #2, i$:print #2,y1,z+1,x3,t
+	print #2,"Created by: "left$(a1$+chr$(0x20,37),27);
+	print #2,"Creation date: "fmtdate$" "time$" "
+	copy #9,#2:close #2:width=a:x1++
+	if t=0 goto v.edit0
+
+v.edit3a
+	close:open #1,"voting/v.catalog":goto v.sysop
+	i$="voting/v"+str$(z1)+"."+str$(x1):open #2,i$:a=mark(2)
+	if a close:open #1,"voting/v.catalog":goto v.sysop
+	delete i$:goto v.edit3a
+
+v.1sub
+	close:delete "voting/scratch":create "voting/scratch"
+	open #1,"voting/scratch"
+	input @2 "\nAllow for user to add options? [Y/N]:"i$
+	x3=0:if i$="Y":x3=1
+
+v.sub2
+	print "\n\nEnter possible SUB-Answers now at 55 columns - Type";
+	print " 'DONE' when completed.\n"
+	width=55:y2=0
+
+v.sub2a
+	print "Sub-Answer #"y2+1" >";:input @3 i$
+	if i$="" goto v.sub2a
+	if (i$="DONE") | (i$="done") goto v.sub3
+	y2++:i$=right$("00"+str$(y2),2)+".  "+i$
+	print #1,i$:goto v.sub2a
+
+v.sub3
+	i$="voting/a"+str$(z1):delete i$:i$=i$+"."+str$(y1)
+	delete i$:create i$:open #2,i$:print #2,y2,3,x3,0
+	print #2,"\n":close #1:open #1,"voting/scratch"
+	copy #1,#2:close:width=a:return
+
+v.sub3a
+	i$="voting/a"+str$(z1)+"."+str$(x1)
+	open #2,i$:a=mark(1):close #2
+	if a goto v.sysop:else delete i$:goto v.sub3a
+	return
+
+vo.resu
+	a$="Voting Results":b=0:b$="All":c=0:c$="Voting Librarian"
+	x=msg(a):b5=bb:bb=zx:gosub idinf
+	if (kl>0) & (kl<=msg(0)) delete #msg(kb):crunch
+	zx=msg(0)+1:print #msg(zx),a$"\n"b,b$"\n"c,c$
+	copy #9,#7:msg(zx)=mn:mn++:update:tm++
+	open #2,"voting/quick":position #2,128,bb
+	print #2,msg(msg(0)):close #2:bb=b5
+	print "\n\nVoting results have been posted."
+	x=0:return
+
+vo.resu1
+	x=x+1:b$="voting/v"+str$(x2)+"."+str$(x)
+	i$="voting/a"+str$(x2)+"."+str$(x)
+	open #2,i$:b=mark(2):open #1,b$:a=mark(1)
+	if (~a) | (~b) close:delete b$:delete i$:goto vo.resu1
+	close:return
+
+idinf
+	flag(36)=0:flag(37)=1:flag(38)=0
+	if bb=0:bf$="":bl=0:return
+	me=0:bl=bb:open #1,"b:data2"
+	mark(1)=1120:input #1,ab
+	if bb>ab close #1:bf$="":bl=0:return
+	position #1,128,bb+8
+	input #1,bn$|bf$|b3,b4|bs,bs$|mb,kl,kb
+	if left$(bn$,1)="%":flag(36)=1:flag(37)=1:bn$=mid$(bn$,2)
+	if left$(bn$,1)="$":flag(36)=1:flag(37)=0:bn$=mid$(bn$,2)
+	if left$(bn$,1)="#":flag(36)=0:flag(37)=0:bn$=mid$(bn$,2)
+	b1=1:if b3:b1=flag(b3)
+	b2=1:if b4:b2=flag(b4)
+	close #1:if bf$="":bl=0:return
+	if (b1) ready bf$:nn=nb
+	return
+
+add.o
+	print "\nEnter new option at 55 columns"
+	a=width:width=55
+	input @3 "\n:"b$
+	print "\nIt reads:"
+	print b$
+	width=a
+	input @0 "\nCorrect [Yes/No] "i$
+	if i$="N" return
+	if b$="" goto add.o
+	close #2
+	open #2,a$+"."+str$(x):input #2,y,x1,x4,u
+	y++:close #2:open #2,a$+"."+str$(x)
+	print #2,y,x1,x4,u:b$=right$("00"+str$(y),2)+".  "+b$
+	append #2:print #2,b$:close #2
+	f$="voting/add.vote":create f$:open #2,f$
+	append #2:print #2,a2$" - "b$
+	d=y:pop:a=0:goto vote3.1
+
+show.vo
+	print "x2="x2
+	close:p2=0:a$="voting/a"+str$(x2)
+	open #1,a$:position #1,32,c+7
+	fill ram(1),32,0:read #1,ram(1),32
+	b2=byte(0)+byte(1)*256:b2 += (b2=0)
+	open #2,a$+"."+str$(c)
+	input #2,p1,p3:copy (p3-1)#2,#9:clear #9:y4=p1
+	for p2=1 to p1:p1=byte(p2*2)+byte(p2*2+1)*256
+	b1$=right$("...."+str$((p1*100)/b2)+"%",4):y3=len(b1$):y3=4-y3
+	input #2,b$:y2=len(b$):b$=right$(b$,y2-5):y2=len(b$)
+	y2=55+y3-y2
+	print #s,"  "b$chr$(0x2E,y2);
+	print #s,right$("...."+str$((p1*100)/b2)+"%",4)" ["right$("000"+str$(p1),3)"]"
+	next:return
+
+v.remove
+	if ~(un=vl) | exec return
+	print "\nRemove Voting Topic"
+	print "-------------------"
+	input @0 "\nDelete [Yes/No]: "i$
+	if i$="Y":x=0:goto vo.resu1
+	return
+
+force		{Check to see if the user has voted on any active topics}
+	on nocar goto link.term
+	open #1,"voting/v.catalog":input #1,x3,b:close #1
+	for x2 = 1 to x3
+		t4=0:t2=0:t1=0
+		a$="voting/v"+str$(x):s=0:edit clear:b=0
+		if ~flag(1):x2=x3:goto force1
+		open #1,a$:mark(1)=(un/512)*64:fill ram(1),64,0
+		read #1,ram(1),64:z=flag:flag=ram(1):a=flag(un % 512)
+		flag=z:close:if a goto force1
+		gosub voting
+force1
+	next
+	goto link.main
+
+; system links
+
+link.main
+	chain "program/main.seg","fromsys"
+
+link.term
+	chain "program/main.seg","term1"
+
+; get time remaining before logoff
+
+time
+	yy=(clock-clock online)/60:zz=clock:x$=right$("00"+str$(yy),3)
+	if clock online>clock:x$="!!!"
+	if yy=0:x$="---"
+	if ~zz:x$="***"
+	if exec:x$=":::"
+	return
+
+; handle an error
+
+error
+	print "\nOne moment please, returning you to the Main Level."
+	clear gosub:close:create "system/sys.errors"
+	open #1,"b:sys.errors":append #1
+	print #1,"Error #"err" occured at "time$" on "date$" in voting.seg"
+	close:chain "a:main.seg","fromsys"
+
+
+; Variable Lists
+
+
+; vl = User number of Voting Librarian
+
+; pr$ = prompt for messages from segment
+; f$  = file name of various file
diff --git a/LLUCE/QUIT.TST b/LLUCE/QUIT.TST
new file mode 100644
index 0000000..d35cec8
Binary files /dev/null and b/LLUCE/QUIT.TST differ
diff --git a/LLUCE/SETUP b/LLUCE/SETUP
new file mode 100644
index 0000000..6fbd514
Binary files /dev/null and b/LLUCE/SETUP differ
diff --git a/LLUCE/SYSTEM/ARCLIST b/LLUCE/SYSTEM/ARCLIST
new file mode 100644
index 0000000..7cae7a6
Binary files /dev/null and b/LLUCE/SYSTEM/ARCLIST differ
diff --git a/LLUCE/SYSTEM/COMPILER b/LLUCE/SYSTEM/COMPILER
new file mode 100644
index 0000000..65974a6
Binary files /dev/null and b/LLUCE/SYSTEM/COMPILER differ
diff --git a/LLUCE/SYSTEM/DECODE b/LLUCE/SYSTEM/DECODE
new file mode 100644
index 0000000..771cbe1
Binary files /dev/null and b/LLUCE/SYSTEM/DECODE differ
diff --git a/LLUCE/SYSTEM/EDITOR b/LLUCE/SYSTEM/EDITOR
new file mode 100644
index 0000000..a98fd6b
Binary files /dev/null and b/LLUCE/SYSTEM/EDITOR differ
diff --git a/LLUCE/SYSTEM/EXT.COPY b/LLUCE/SYSTEM/EXT.COPY
new file mode 100644
index 0000000..c604b45
Binary files /dev/null and b/LLUCE/SYSTEM/EXT.COPY differ
diff --git a/LLUCE/SYSTEM/EXT.DOS b/LLUCE/SYSTEM/EXT.DOS
new file mode 100644
index 0000000..dc33768
Binary files /dev/null and b/LLUCE/SYSTEM/EXT.DOS differ
diff --git a/LLUCE/SYSTEM/EXT.XDOWN b/LLUCE/SYSTEM/EXT.XDOWN
new file mode 100644
index 0000000..c4b189c
Binary files /dev/null and b/LLUCE/SYSTEM/EXT.XDOWN differ
diff --git a/LLUCE/SYSTEM/EXT.XUP b/LLUCE/SYSTEM/EXT.XUP
new file mode 100644
index 0000000..fa21da3
Binary files /dev/null and b/LLUCE/SYSTEM/EXT.XUP differ
diff --git a/LLUCE/SYSTEM/HLP.EDIT b/LLUCE/SYSTEM/HLP.EDIT
new file mode 100644
index 0000000..3c6502d
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.EDIT
@@ -0,0 +1,223 @@
+
+              Editor Help
+
+         ---------------------
+         [ Editor Prompt Bar ]
+         ---------------------
+
+Enter message now, ## col, 4K bytes max
+Type 'done' when finished '.h' for help
+
+The  above two lines show that you  are
+in  the editor.   The ## show the width
+of  the message you are  typing  (which
+you  can  change from the  main  menu).
+
+The following commands are used in  the
+editor.  They  are entered by  pressing
+[CTRL]  plus the appropriate letter key
+at the same time. All of these commands
+can  be  used if the user  has  non-de-
+structible backspacing (that is;  their
+terminal program will not erase a char-
+acter  when it backs over it).  If  the
+user  does  not  have  non-destructible
+backspacing, some of these commands may
+not work.   You can set the curser from
+the main menu.
+
+[CTRL] [B]:  This command will move the
+             cursor to the beginning of
+             the  current line of  text
+             that you are typing.
+
+[CTRL] [C]:  This  command will  center
+             the  current line of  text
+             that you are typing.
+
+[CTRL] [D]:  This  command will  delete
+             the character that is  di-
+             rectly  above  the  cursor
+             and  shift all text  after
+             the  cursor  one space  to
+             the left.
+
+[CTRL] [E]:  This command will move the
+             cursor  to the end of  the
+             current  line of text that
+             you are typing.
+
+[CTRL] [F]:  This command will insert a
+             space  directly above  the
+             cursor  and shift all text
+             after the cursor one space
+             to the right.
+
+[CTRL] [H]:  Control   H  is  the  back
+             space key. 
+
+[CTRL] [I]:  This command will move the
+             cursor  to  the  next  tab
+             stop by printing eight  or
+             less spaces.
+
+[CTRL] [Q]:  This  command  will   move
+             back  to the beginning  of
+             the  word before the  cur-
+             ser.
+
+[CTRL] [T]:  This  command will  delete
+             all   the  text  from  the
+             cursor  to the end of  the
+             current line of text  that
+             you are typing.
+
+[CTRL] [U]:  Control  U  will move  the
+             curser forward one charac-
+             ter.
+
+[CTRL] [W]:  This  command  will   move
+             forward  to the  beginning
+             of the next word.
+
+[CTRL] [X]:  This  command will  delete
+             the  entire  line of  text
+             that you are typing.
+
+The  following dot commands are for the
+expert,  and  can  only be used in  the
+first  column of each line  within  the
+editor  as you are typing in your  text
+(they  will  not work in the middle  of
+your text):
+
+        -----------------------
+        [ Editor Dot Commands ]
+        -----------------------
+
+[ .A ]  This command will automatically
+        abort  your text entry.  Before
+        it  clears the editor  it  will
+        first  ask  you if you wish  to
+        abort.
+       
+[ .D ]  If you enter a number after the
+        .D command,  that corresponding
+        line  of text will be  deleted.
+        If  you enter a range of  lines
+        (.Dx,y),   lines  x,y  will  be
+        deleted.   To  delete the  last
+        line entered use .DL.
+
+[ .E ]  If you enter a number after the
+        .E command,  that corresponding
+        line of text will be edited. To
+        edit the last line type .EL.
+
+[ .H ]  This  will  print out  the  Dot
+        command help file on the screen
+        and  let you continue to  write
+        your message.
+
+[ .I ]  The .I command must be followed
+        by a number. Upon entering this
+        command,  you  will be able  to
+        insert as many lines of text as
+        you want.  Type 'Done' when you
+        are  finished.  Typing .IL will
+        insert before the last line.
+
+[ .L ]  Typing  .L will list  the  con-
+        tents  of the entire editor  to
+        your screen.  (.Lx,y) will list
+        the  lines  you want  to  view.
+        Typing .LY will list the  lines
+        with line numbers.
+
+[ .N ]  Typing  .N  will allow  you  to
+        erase the contents of the  edi-
+        tor  and  enter new  text.  The
+        system will ask you if you want
+        to erase and start over.
+
+[ .O ]  This dot command will save  the
+        file  ("O.K.") without allowing
+        you  to  edit the  file  again.
+        This  is helpful if  you   have
+        typed  in  the file before  you
+        called  this  system  and  only
+        want to upload your file.
+
+[ .S ]  This command will automatically
+        save  your message to disk.  It
+        is  the same as the  ".O"  com-
+        mand.
+
+      --------------------------
+      [ Editor Information Bar ]
+      --------------------------
+
+         [ Editing (?=Help): ]
+
+After you have typed 'Done' you come to
+the   above  Editor  Information   Bar.
+Typing [?] gives you the following:
+
+          -------------------
+          [ Editor Menu Bar ]
+          -------------------
+
+[ A)bort, C)ontinue, D)elete, E)dit ]
+[ H)elp, I)nsert,  L)ist, N)ew, O)k ]
+
+The following commands at the menu  bar
+can  be  used  after you type  in  your
+text:
+
+[A]:  If  you decide you don't want  to
+      send your message for some reason
+      than you can  [A]bort from  send-
+      ing it.
+
+[C]:  This will  let you [C]ontinue and
+      append  at  the end of your  cur-
+      rent text.
+
+[D]:  By entering a line number you can
+      [D]elete  one or more  lines.  If
+      you  enter  [RETURN],   then  the
+      attempt will be aborted.  You can
+      also  issue  the [L]  command  to
+      list a range of lines.
+
+[E]:  You  can  [E]dit a line  of  your
+      message by entering its line num-
+      ber.   If you enter [L]  then you
+      can list the message.
+
+[H]:  This  [H]elp  file  is  displayed
+      using this command.
+
+[I]:  Using    this  command  you   can
+      [I]nsert  before the line  number
+      you specify.  You can use the [L]
+      command to list a range of lines.
+
+[L]:  You  can  [L]ist your message  in
+      part  or in whole.  You  will  be
+      asked for a starting line number.
+      If  you press  [RETURN] then  the
+      entire message will be listed. If
+      you enter a range of lines,  then
+      only  those  lines will  be  dis-
+      played.
+
+[N]:  [N]  will allow you to erase  the
+      contents  of the editor and enter
+      new text. The system will ask you
+      if  you  want to erase and  start
+      over.
+
+[O]:  This  stands for  [O]k.  It  says
+      that  your  message is   complete
+      and you wish to send it.
diff --git a/LLUCE/SYSTEM/HLP.EMAIL b/LLUCE/SYSTEM/HLP.EMAIL
new file mode 100644
index 0000000..5b15e34
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.EMAIL
@@ -0,0 +1,3 @@
+This is the Help file for the email segment
+
+
diff --git a/LLUCE/SYSTEM/HLP.MAIN b/LLUCE/SYSTEM/HLP.MAIN
new file mode 100644
index 0000000..b9aae6f
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.MAIN
@@ -0,0 +1,274 @@
+              System Help
+ 
+The  following is a list of some of the
+system  commands and their use on  this
+system.   There  are other  help  files
+available throughout the system. If you
+still have a question or problem with a
+command  after reading these files then
+please leave [F]eedback to the Sysop.
+
+          -------------------
+          [ System Menu Bar ]
+          -------------------
+
+         [ Command (?=Help): ]
+
+This is the main System Prompt of  GBBS
+"PRO".  This system has a 128 character
+type  ahead buffer which means you  can
+type  characters before you come to  an
+option   (except  during  the  system's
+read/write activity of the disk drive).
+If  you made a mistake in typing  some-
+thing  you wish to  cancel,  a  "[CTRL]
+[^]"  (Control Shift 6) will clear  the
+buffer  of commands that have not  been
+processed.
+
+[ B ]  [B] gives you access to the Main
+       Bulletin  Board  on the  system.
+From  here you can type a question mark
+to see a list of commands and get  more
+help.   You  also have access to all of
+the other bulletin boards on the system
+from this point.
+
+[ B# ] If  you type [B#] you will  have
+       access directly to that Bulletin
+Board  from  the system as long  as  it
+exists and you have access to it. (i.e.
+"B6" puts you on Board 6).
+ 
+[ C ]  [C]hat with the Sysop.  You need
+       only issue this command once  as
+the  Sysop is constantly reminded  that
+you wish to chat with him.
+
+[ D ]  Use  this command to define sys-
+       tem  display  parameters.    You
+will get the option to  view,  set,  or
+change  your  characteristics with  the
+following menu:
+
+ ------------------------------------
+ [ Display Characteristics Menu Bar ]
+ ------------------------------------
+
+[ Video width now = 79           ]
+[ Back-space mode = non-destruct ]
+[ Nulls sent @ LF = 0            ]
+[ Page pause mode = ON           ]
+[ Show phone numb = NO           ]
+
+[ Set: [V, B, N, P, S, or Q=Quit] ? ]
+
+[ V ]  [V]ideo  width  can  be  changed
+       from  the  default of 40 to  32,
+       64,  or  80 columns wide at  the
+       following prompt:
+
+[ Set Video Width ]
+[ New width (32,40,64,80) ? ]
+
+[ B ]  Use  this  command  to  set  the
+       back-space  mode for a destruct-
+       ible or a not-destructible  cur-
+       ser.  The default characteristic
+       is  set to "unknown".  You  will
+       also  be asked [How many numbers
+       you see (3 or 6) ?] as shown:
+
+[Set Curser Characteristics           ]
+[123456                               ]
+[How many numbers do you see          ]
+[3 shows a destructible backspace     ]
+[6 shows a non-destructible backspace ]
+[How many (3 or 6) ?                  ]
+
+[ N ]  By  changing the [N]ulls  value,
+       you  change  the  delay  (0-127)
+       that follows a line feed:
+
+[ Set New Null Value ]
+[ Set to (0-127):    ]
+
+[ P ]  When the page pause mode is  on,
+       the  system waits after display-
+       ing  20 lines for you to [ Press
+       [RETURN] ] to continue.   Press-
+       ing  the  space bar  will  abort
+       from  reading  the rest  of  the
+       file.  This option is active  in
+       General  Files,  Download lists,
+       and help files:
+
+[ Pause after page     ]
+[ Set paging (ON,OFF): ]
+
+[ S ]  [S] will allow you to permit the
+       system to show your phone number
+       to  other  users when  they  are
+       viewing  the  user  list.   Your
+       number  is not displayed  unless
+       you use this option.  Using this
+       command again will permit you to
+       change your option:
+
+[ Show phone number to other users ? ]
+
+[ E ]  The  system  contains a list  of
+       stats on you as well as  general
+system stats.  These include your name,
+city  and  state,  phone  number,  user
+number,  the last date you called, part
+of  your  security  level,   the   last
+caller,  the  total number of calls  to
+the  system,  the  number of calls  the
+system has received today,  your  logon
+time,  the  present time,  how long you
+have been connected,  how much time you
+have left if you have a time limit, and
+the [ Options Available ] to which  you
+have access.
+
+[ F ]  You  can send comments  directly
+       to  the Sysop using  [F]eedback.
+You  will use the editor to create your
+message.  The  Sysop  will be  able  to
+reply to your feedback.
+ 
+[ G ]  You can look at a list of [G]en-
+       eral files  with  this  command.
+Each number listed represents a differ-
+ent  topic.  Enter the number  you wish
+to read or [RETURN] to quit.
+ 
+[ H ]  Typing  [H]  gives  you  context
+       sensitive   help  in   different
+areas of the system.   There is a  help
+file  for the Bulletin Board,  the Xfer
+system which contains  Download/Upload,
+and the Editor.
+
+[ I ]  This  will  list   [I]nformation
+       about  the system you are  using
+such  as  which GBBS software  you  are
+using,  GBBS ][ or GBBS "PRO", hardware
+configuration, and system sponsor.
+  
+[ O ]  This will give a list of [O]ther
+       GBBS  bulletin  board  telephone
+numbers.
+ 
+[ P ]  New users who logged on as  one-
+       time  guests  can  change  their
+mind and  use this  command to obtain a
+[P]assword.  If you are a verified user
+you can use this command to change your
+password to 4-8  characters.  Your user
+number remains the same.
+
+        ----------------------
+        [ Read Mail Menu Bar ] 
+        ----------------------
+
+[ R ]  If  you  have mail  waiting  and
+       wish  to  [R]ead  it,  use  this
+command.   After  each letter you  will
+have the following options:
+
+[[A]uto reply, [C]ontinue, [R]e-read :]
+ 
+[ A ]  [A]uto-Reply  will reply to  the
+       person who sent you mail.
+
+[ C ]  [C]ontinue  will go to the  next
+       piece of mail you have.
+
+[ F ]  [F]orward will send the  current
+       letter   you  are   reading   to
+       another user on the system.
+
+[ Q ]  [Q]uit will abort out of reading
+       your mail.
+
+[ R ]  [R]e-Read  will display the  en-
+       tire current letter again.
+
+        ----------------------
+        [ Send Mail Menu Bar ] 
+        ----------------------
+
+[ S ]  You can [S]end E-Mail to a user,
+       or a number of users,  with this
+command.  Enter  the  full name of  the
+user or their user  number.   The  user
+number  is the number that is displayed
+next  to their name on  bulletins  they
+post.  It  is also listed next to their
+name in the user list.  If you  entered
+their number,  then their name  will be
+shown  after  the system verifies  that
+the user exists.  Answer [Y] if this is
+the  user  you want to send  mail.  You
+will  use the editor to enter the  mes-
+sage.
+
+[ Send Electronic Mail ]
+[ To who (#,B,<CR>): ]
+
+[ B ]  If  you  want  to send  the same 
+       letter to 2 or more people, then
+       you  can  use  [B]ulk mail. Type
+       [B] at the above prompt. Type in
+       the user number or the full name
+       of  each  person at  the  prompt
+       below:
+
+[ Bulk Mailing ]
+[ Send copy to (#,<CR>): ]
+ 
+[ T ]  This  command  will  [T]erminate
+       your connection from the system.
+Your  mail  will be  deleted  and  your
+stats updated.   The system keeps track
+of  how  many times you call in a  day,
+the  total number of calls made to  the
+system, how many uploads you have made,
+the number of downloads you have taken,
+and  the number of bulletins  you  have
+posted.
+
+[ U ]  Using this command,  you can get
+       a  list  of all or  some of  the
+system [U]sers.  You can search for one
+name,  a partial name,   every one with
+the  same first/last name,  or get  the
+entire  list with a [RETURN].   Next to
+each  users name will be a number  that
+can  be used for sending mail.   Typing
+"?" will give you more help.
+ 
+[ List of System Users ]
+[ Match letters (<CR>=ALL,?): ]
+
+[ V ]  [V] allows you to vote one  time
+on  a series of  questions.   The  next
+time  you type [V] you can see the cur-
+rent results of the voting.
+
+[ X ]   With  this command,  you go  to
+        the [X]fer system where you can
+[D]ownload public domain programs  from
+this  system,  or [U]pload programs  to
+the system.   File transfer can be done
+by  Ascii  or  Xmodem.   More  help  is
+available there.
+
+[ $ ]  This  option  will  display  the
+       most recent system news.
+
+[ ? ]  The  question mark will  give  a
+       list   of   available   commands
+almost  anywhere in the system.
diff --git a/LLUCE/SYSTEM/HLP.MSG b/LLUCE/SYSTEM/HLP.MSG
new file mode 100644
index 0000000..d73e497
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.MSG
@@ -0,0 +1,157 @@
+          Bulletin Board Help
+
+          -------------------
+          [ Option Menu Bar ]
+          -------------------
+
+    [ [B1,1-##] Option (?=Help): ]
+
+The  Option  Menu  Bar tells  you  what
+Board you are presently on and how many
+bulletins on posted on that board.  "B"
+from  the  main system sent you to  the
+main bulletin board.  From here you can
+type  a  question   mark  to  see   the
+following list of commands:
+
+ 
+   --------------------------------
+   [ Bulletin Board Help Menu Bar ]
+   --------------------------------
+
+[ Read Number,  N)ew, F)orward, S)can ]
+[ B)rowse, M)arked, G)lobal Quickscan ]
+[ J)ump,  P)ost, K)ill,  H)elp, Q)uit ]
+
+[ B ]  This will permit you to [B]rowse
+       through  the message subjects of
+a  bulletin  board to find all  of  the
+bulletins  that  are  on  a  particular
+subject.   Just type in the subject you
+wish  to  search  on and you   will  be
+asked if you wish to [ Mark  Messages ]
+after  each  title.  If you answer  [Y]
+this will allow you to read the  bulle-
+tins you [M]arked when you are finished
+viewing the titles.  After 15 bulletins
+titles are displayed, you will be asked
+if you wish to see more titles.  If you
+have  been  on the system  before,  you
+will  see a ">" in front of the  number
+of the titles you have not yet read.
+ 
+[ F ]  You  can list all the  bulletins
+       starting  [F]orward at a partic-
+ular number.
+ 
+[ G ]  [G]lobal Quickscan will scan all
+       of the boards you have access to
+for new bulletins.   If a board has new
+bulletins,  you  will be asked [ [R]ead
+[S]kip [Q]uit ?  ].   [R] will let  you
+read all of the new bulletins, [S] will
+skip  to the next board,  and [Q]  will
+quit Global Quickscan.
+ 
+[ H ]  This  [H]elp  file is  displayed
+       using this command.
+
+[ J ]  [J]ump   to   another   bulletin
+       board.  If you type [J#] you can
+jump directly to that board number.  If
+you type "J [RETURN]" it will list  all
+of the boards on the system and you can
+type in the number of the one you want.
+If  you do not have access to them  you
+will  get the message,  [ Security  too
+low ].
+
+[ K ]  [K]ills bulletins you have left.
+ 
+[ M ]  When  you [S]can or [B]rowse the
+       subjects  you will be  asked  if
+you want to [ Allow marking? ] the mes-
+sages  to read them after you pick them
+with a [Yes/No/Quit] option.  The first
+message  will print automatically  when
+you are done.   Use the [N] command  to
+see  the next ones you  marked.   After
+you  have  finished reading the  marked
+messages the first time,  [M] will dis-
+play the same marked messages again.
+
+[ N ]  This  retrieves [N]ew  bulletins
+       that  have  been left since  the
+last time you called.
+
+[ P ]  [P]ost a bulletin  for all users
+       to see.   You will be placed  in
+the editor to enter your message.
+ 
+[ Q ]  This will return you back to the
+       main menu.
+
+[ S ]  This  [S]cans  message  subjects
+       starting at a certain number. If
+you  wish  to [ Mark Messages ]   after
+each title, you should answer [Y]. This
+will  allow you to read  the  bulletins
+you  "marked" when you are done reading
+the titles.   After 15 bulletins titles
+are displayed, you will be asked if you
+wish to see more titles.   If you  have
+been on the system before, you will see
+a  ">"  in front of the number  of  the
+titles you have not yet read.
+ 
+[ # ]  The [Read Number]  option allows
+       you  to  enter the number  of  a
+bulletin  on  a  board  and  read  that
+individual bulletin.
+
+         ---------------------
+         [ Bulletin Menu Bar ]
+         ---------------------
+
+[A]uto reply [N]ext [R]e-read [Q]uit :
+ 
+After displaying a message,  the  above
+Menu Bar is displayed after each bulle-
+tin  is shown.   You have the following
+options:
+
+[ A ]  [A]uto reply allows you to reply
+       in one of two ways to the person
+who wrote the message.  After you enter
+[A] you are asked:  [ Is this a private
+letter? ].  If you answer [Y] then  the
+person receives the letter in his mail-
+box.  If you  answer [N] then you  will
+post a message on the board as a  reply
+to the original message for everyone to
+read.  You will use the editor to enter
+the message  and when you are finished,
+you will return to the Menu Bar.
+
+[ N ]  [N]ext or a [RETURN] will go  to
+       the next  bulletin on the board.
+
+[ R ]  [R]e-read allows you to read the
+       present bulletin again.
+
+[ Q ]  [Q]uit will stop retrieving bul-
+       letins  and  exit  back  to  the
+Option Menu Bar.
+
+[ + ]  This  command must be used after
+       the  [F]orward  command  at  the
+Menu  Bar  prompt.  First use  [F]  for
+Forward;  then type the bulletin number
+you  wish to start with.   At the first
+menu  bar type a [+] and all  remaining
+bulletins will fly by without stopping.
+Use  this  when you want to  print  out
+more than one bulletin at once  without
+having  to  hit [N] after each one.  Or
+use it to save  them all to a buffer to
+view later when you log off.
diff --git a/LLUCE/SYSTEM/HLP.USER b/LLUCE/SYSTEM/HLP.USER
new file mode 100644
index 0000000..672f7e7
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.USER
@@ -0,0 +1,31 @@
+         ---------------------
+         [ Userlist Menu Bar ]
+         ---------------------
+
+    [ Match letters (<CR>=All,?) ]
+
+There are 4 options that may be used in
+the  userlist command when you see  the
+Userlist Menu Bar:
+
+[1]  A blank <CR>.  This will list  all
+     the users of this system.
+
+[2]  If  you  type a [#] followed by  a
+     number,  the system will show  you
+     that user,  and all the users that
+     follow.
+ 
+[3]  A person's  full name.  The system
+     will match the person if he is  on
+     this system.
+ 
+[4]  A partial,  first or last name. If
+     you  forget a person's name,  need
+     to  know  an  exact  spelling,  or
+     don't know their user number  then
+     you  can  find it by  telling  the
+     system  as  much of the  first  or
+     last name as you know, and it will
+     print  the full name of users that
+     fit the pattern.
diff --git a/LLUCE/SYSTEM/HLP.UTIL b/LLUCE/SYSTEM/HLP.UTIL
new file mode 100644
index 0000000..31ed69f
--- /dev/null
+++ b/LLUCE/SYSTEM/HLP.UTIL
@@ -0,0 +1,3 @@
+This is the Help file for the utility segment
+
+
diff --git a/LLUCE/SYSTEM/LIST b/LLUCE/SYSTEM/LIST
new file mode 100644
index 0000000..a585da8
Binary files /dev/null and b/LLUCE/SYSTEM/LIST differ
diff --git a/LLUCE/SYSTEM/MNU.EMAIL40 b/LLUCE/SYSTEM/MNU.EMAIL40
new file mode 100644
index 0000000..4666097
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.EMAIL40
@@ -0,0 +1,16 @@
+BDHRSTX?FL
+::::::::::::::::::::::::::::::::::::::
+: Electronic Mail Level Command List :
+::::::::::::::::::::::::::::::::::::::
+: B - Browse your mailbox            :
+: D - Delete your mailbox            :
+: H - Read detailed help file        :
+: R - Read mail in your box (if any) :
+: S - Send a user Electronic Mail    :
+: T - Terminate from System          :
+: X - Exit back to Main Level        :
+: ? - See the Command List           :
+::::::::::::::::::::::::::::::::::::::
+: F - Read Feedback (Sysop only)     :
+: L - List Feedback (Sysop only)     :
+::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.EMAIL80 b/LLUCE/SYSTEM/MNU.EMAIL80
new file mode 100644
index 0000000..1ecd122
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.EMAIL80
@@ -0,0 +1,11 @@
+BDHRSTX?FL
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:                    Electronic Mail Level Command List                     :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: B - Browse your mailbox             : D - Delete your mailbox             :
+: H - Read detailed help file         : R - Read mail in your box (if any)  :
+: S - Send a user Electronic Mail     : T - Terminate from System           :
+: X - Exit back to Main Level         : ? - See the Command List            :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: F - Read Feedback (Sysop only)      : L - List Feedback (Sysop only)      :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.NEW b/LLUCE/SYSTEM/MNU.NEW
new file mode 100644
index 0000000..fe2d21f
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.NEW
@@ -0,0 +1,17 @@
+BCEFGHINTU
+::::::::::::::::::::::::::::::::::::::
+:     List of Supported Commands     :
+::::::::::::::::::::::::::::::::::::::
+:   <(B)> Goto the Bulletin Boards   :
+::::::::::::::::::::::::::::::::::::::
+: E -> Goto Electronic Mail Segment  :
+: U -> Goto Utility Segment          :
+: F -> Feedback to the Sysop         :
+: G -> General files menu            :
+: H -> See the detailed help file    :
+: I -> Read System Information       :
+: N -> Read the latest System News   :
+: T -> Terminate connection (Logoff) :
+: C -> Chat With the Sysop           :
+: U -> See list of users on system   :
+::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.SYSTEM40 b/LLUCE/SYSTEM/MNU.SYSTEM40
new file mode 100644
index 0000000..1c1ac3b
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.SYSTEM40
@@ -0,0 +1,21 @@
+BCDEFGKLNPQRSTW
+:::::::::::::::::::::::::::::::::::::::
+:     System Level Vaild Commands     :
+:::::::::::::::::::::::::::::::::::::::
+: B - Board Maintanence               :
+: C - Change Drive Specifiers (temp)  :
+: D - DOS commands                    :
+: E - Edit a users Account            :
+: F - Edit Security Flags             :
+: G - Get (edit) a text file          :
+: K - Kill a Users Account            :
+: L - View System Log                 :
+: N - Add a New User                  :
+: P - Print (view) a User List        :
+: R - Read request file               :
+: S - Show a text file                :
+: T - Terminate Connection            :
+: W - Update System News              :
+: Q - Quit to Main Level              :
+:::::::::::::::::::::::::::::::::::::::
+
diff --git a/LLUCE/SYSTEM/MNU.SYSTEM80 b/LLUCE/SYSTEM/MNU.SYSTEM80
new file mode 100644
index 0000000..40b6851
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.SYSTEM80
@@ -0,0 +1,14 @@
+BCDEFGKLNPQRSTW
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:                       System Level Vaild Commands                         :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: B - Board Maintanence               : C - Change Drive Specifiers (temp)  :
+: D - DOS commands                    : E - Edit a users Account            :
+: F - Edit Security Flags             : G - Get (edit) a text file          :
+: K - Kill a Users Account            : L - View System Log                 :
+: N - Add a New User                  : P - Print (view) a User List        :
+: R - Read request file               : S - Show a text file                :
+: T - Terminate Connection            : W - Update System News              :
+:                                     : Q - Quit to Main Level              :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+
diff --git a/LLUCE/SYSTEM/MNU.UTIL40 b/LLUCE/SYSTEM/MNU.UTIL40
new file mode 100644
index 0000000..69f30f7
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.UTIL40
@@ -0,0 +1,16 @@
+BCHNPSTUVX?
+::::::::::::::::::::::::::::::::::::::
+:  User Utility Level Command List   :
+::::::::::::::::::::::::::::::::::::::
+: B - Set Backspace Mode             :
+: C - Change your password           :
+: H - Read detailed help file        :
+: N - Set System Nulls               :
+: P - Set Page Pause Mode            :
+: S - See your System Status         :
+: T - Terminate from System          :
+: U - List System Users              :
+: V - Set Video Width                :
+: X - Exit back to Main Level        :
+: ? - See the Command List           :
+::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.UTIL80 b/LLUCE/SYSTEM/MNU.UTIL80
new file mode 100644
index 0000000..a82bc7a
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.UTIL80
@@ -0,0 +1,11 @@
+BCHNPSTUVX?
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:                     User Utility Level Command List                     :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: B - Set Backspace Mode             : C - Change your password           :
+: H - Read detailed help file        : N - Set System Nulls               :
+: P - Set Page Pause Mode            : S - See your System Status         :
+: T - Terminate from System          : U - List System Users              :
+: V - Set Video Width                : X - Exit back to Main Level        :
+: ? - See the Command List           :                                    :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.VAL.40 b/LLUCE/SYSTEM/MNU.VAL.40
new file mode 100644
index 0000000..e1bc118
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.VAL.40
@@ -0,0 +1,23 @@
+BCDEFGHILNQSTUVX
+::::::::::::::::::::::::::::::::::::::
+:     List of Supported Commands     :
+::::::::::::::::::::::::::::::::::::::
+:   <(B)> Goto the Bulletin Boards   :
+::::::::::::::::::::::::::::::::::::::
+: E -> Goto Electronic Mail Segment  :
+: F -> Feedback to the Sysop         :
+: G -> General files menu            :
+: H -> See the detailed help file    :
+: I -> Read System Information       :
+: N -> Read the latest System News   :
+: T -> Terminate connection (Logoff) :
+: C -> Chat With the Sysop           :
+: D -> Define System Configurations  :
+: U -> See list of users on system   :
+: S -> Show your account status      :
+::::::::::::::::::::::::::::::::::::::
+: L -> Log of todays callers         :
+: Q -> Quick scan of bulletin boards :
+: V -> Goto the Voting Segment       :
+: X -> Goto the file transfer area   :
+::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/MNU.VAL.80 b/LLUCE/SYSTEM/MNU.VAL.80
new file mode 100644
index 0000000..7de7a21
--- /dev/null
+++ b/LLUCE/SYSTEM/MNU.VAL.80
@@ -0,0 +1,16 @@
+BCDEFGHILNQSTUVX
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:                     List of Supported Commands                          :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+:                   <(B)> Goto the Bulletin Boards                        :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: E -> Goto Electronic Mail Segment  : F -> Feedback to the Sysop         :
+: G -> General files menu            : H -> See the detailed help file    :
+: I -> Read System Information       : N -> Read the latest System News   :
+: T -> Terminate connection (Logoff) : C -> Chat With the Sysop           :
+: U -> See list of users on system   : D -> Define system configurations  :
+: S -> Show user status on system    :                                    :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+: L -> Log of todays callers         : Q -> Quick scan of bulletin boards :
+: V -> Goto the Voting Segment       : X -> Goto the file transfer area   :
+:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
diff --git a/LLUCE/SYSTEM/OVERLAY.CRC b/LLUCE/SYSTEM/OVERLAY.CRC
new file mode 100644
index 0000000..b389509
Binary files /dev/null and b/LLUCE/SYSTEM/OVERLAY.CRC differ
diff --git a/LLUCE/SYSTEM/PROTOCOL.DOWN b/LLUCE/SYSTEM/PROTOCOL.DOWN
new file mode 100644
index 0000000..f9a2205
Binary files /dev/null and b/LLUCE/SYSTEM/PROTOCOL.DOWN differ
diff --git a/LLUCE/SYSTEM/PROTOCOL.UP b/LLUCE/SYSTEM/PROTOCOL.UP
new file mode 100644
index 0000000..cf480a5
Binary files /dev/null and b/LLUCE/SYSTEM/PROTOCOL.UP differ
diff --git a/LLUCE/SYSTEM/PROTODOWN b/LLUCE/SYSTEM/PROTODOWN
new file mode 100644
index 0000000..a042869
Binary files /dev/null and b/LLUCE/SYSTEM/PROTODOWN differ
diff --git a/LLUCE/SYSTEM/PROTOUP b/LLUCE/SYSTEM/PROTOUP
new file mode 100644
index 0000000..67dc4a3
Binary files /dev/null and b/LLUCE/SYSTEM/PROTOUP differ
diff --git a/LLUCE/SYSTEM/REQUEST b/LLUCE/SYSTEM/REQUEST
new file mode 100644
index 0000000..532877f
--- /dev/null
+++ b/LLUCE/SYSTEM/REQUEST
@@ -0,0 +1,24 @@
+6
+(> NEW USER DATA
+(> SSCHNEIDER
+(> Steve Schneider
+(> Rainforrest Bbs
+(> Cooper City, FL
+(> #6-TESTER  
+(> 305-434-4936
+(> 07/04/90 @ 17:52
+
+6
+

+6
+(> NEW USER DATA
+(> GWILLETT
+(> George Willett
+(> G-Tech
+(> Golden, CO
+(> #6-G-TECH  
+(> 303-526-1328
+(> 07/16/90 @ 17:53
+
+7
+

diff --git a/LLUCE/SYSTEM/SHELL b/LLUCE/SYSTEM/SHELL
new file mode 100644
index 0000000..b5205a6
Binary files /dev/null and b/LLUCE/SYSTEM/SHELL differ
diff --git a/LLUCE/SYSTEM/SYS.AUTOVAL b/LLUCE/SYSTEM/SYS.AUTOVAL
new file mode 100644
index 0000000..ab4de48
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.AUTOVAL
@@ -0,0 +1 @@
+101011011110001111010
diff --git a/LLUCE/SYSTEM/SYS.CALLWAITING b/LLUCE/SYSTEM/SYS.CALLWAITING
new file mode 100644
index 0000000..9dbdc51
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.CALLWAITING
@@ -0,0 +1,6 @@
+       ZWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVW_
+       ZWV                                                         VW_
+       ZWV                                                         VW_
+       ZWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVW_
+        LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
+
diff --git a/LLUCE/SYSTEM/SYS.DATA b/LLUCE/SYSTEM/SYS.DATA
new file mode 100644
index 0000000..a98feb0
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.DATA
@@ -0,0 +1,4 @@
+43932,1,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,10/13/92
+6,0,0,1
+
+n [LL LANCE]
diff --git a/LLUCE/SYSTEM/SYS.DATA1 b/LLUCE/SYSTEM/SYS.DATA1
new file mode 100644
index 0000000..5364f5d
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.DATA1
@@ -0,0 +1,8 @@
+LLUCE 1.0 Beta Test System
+Lance Taylor-Warren
+LL LANCE
+LLUCE*VT
+----------------------------------------------------------------------
+Ctrl-S Stop/Start  Spacebar to Exit
+Press N for Next Bulletin
+1,0,1
diff --git a/LLUCE/SYSTEM/SYS.DATA2 b/LLUCE/SYSTEM/SYS.DATA2
new file mode 100644
index 0000000..66f2320
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.DATA2 differ
diff --git a/LLUCE/SYSTEM/SYS.DATA3 b/LLUCE/SYSTEM/SYS.DATA3
new file mode 100644
index 0000000..e5d310a
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.DATA3 differ
diff --git a/LLUCE/SYSTEM/SYS.FULLNAMES b/LLUCE/SYSTEM/SYS.FULLNAMES
new file mode 100644
index 0000000..1a24f59
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.FULLNAMES differ
diff --git a/LLUCE/SYSTEM/SYS.HELP b/LLUCE/SYSTEM/SYS.HELP
new file mode 100644
index 0000000..4e59a15
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.HELP differ
diff --git a/LLUCE/SYSTEM/SYS.IDLE.SCREEN b/LLUCE/SYSTEM/SYS.IDLE.SCREEN
new file mode 100644
index 0000000..bfad5b7
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.IDLE.SCREEN
@@ -0,0 +1,23 @@
+
+ ZVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVW                                                                        VW_
+ ZVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVWVW_
+  LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
diff --git a/LLUCE/SYSTEM/SYS.INFO b/LLUCE/SYSTEM/SYS.INFO
new file mode 100644
index 0000000..f7de901
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.INFO
@@ -0,0 +1,14 @@
+  This system runs on an Apple computer
+with  at least 2  disk drives.  It uses
+a  300/1200 baud modem.  This system is
+in operation 24 hours a day.
+
+  The  software  used  on  this  system
+is GBBS "Pro". This software is avail-
+able for purchase at the price of $125.
+If you would like to get more informa-
+tion on GBBS "Pro", you can contact:
+ 
+           L & L Productions  
+        (303) 420-3156  (Voice)
+        (303) 420-3568  (Modem)
\ No newline at end of file
diff --git a/LLUCE/SYSTEM/SYS.LOG b/LLUCE/SYSTEM/SYS.LOG
new file mode 100644
index 0000000..7927112
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.LOG differ
diff --git a/LLUCE/SYSTEM/SYS.MAILNAMES b/LLUCE/SYSTEM/SYS.MAILNAMES
new file mode 100644
index 0000000..fe1db88
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.MAILNAMES differ
diff --git a/LLUCE/SYSTEM/SYS.NEWINFO1 b/LLUCE/SYSTEM/SYS.NEWINFO1
new file mode 100644
index 0000000..414a2de
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.NEWINFO1
@@ -0,0 +1,8 @@
+     Because this system allows networking to other systems, you MUST use your
+REAL name.  Your mail ID can be anything you wish, however for validation your
+legal name is required.  If you are unable to comply please enter 'OFF' at the
+next prompt.
+
+Thank-you,
+
+     The Management
diff --git a/LLUCE/SYSTEM/SYS.NEWS b/LLUCE/SYSTEM/SYS.NEWS
new file mode 100644
index 0000000..b2facee
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.NEWS
@@ -0,0 +1,10 @@
+            ---------------
+            [ System News ]
+            ---------------
+
+  Welcome all to the system!  It is my
+hope  that  we can  make  this  into a
+great system.  I would ask  all of you
+to participate  in any way you  can to
+help make this board that success that
+it can be. Thanks for calling!
diff --git a/LLUCE/SYSTEM/SYS.QUESTIONS b/LLUCE/SYSTEM/SYS.QUESTIONS
new file mode 100644
index 0000000..2d4d50b
--- /dev/null
+++ b/LLUCE/SYSTEM/SYS.QUESTIONS
@@ -0,0 +1,16 @@
+If you logged on under an alias what
+is your real name?
+*
+
+What is your age?
+*
+
+What type of computer are you using to
+call this system?
+*
+
+What are your hobbies?
+*
+
+@
+
diff --git a/LLUCE/SYSTEM/SYS.USERS b/LLUCE/SYSTEM/SYS.USERS
new file mode 100644
index 0000000..193be5c
Binary files /dev/null and b/LLUCE/SYSTEM/SYS.USERS differ
diff --git a/LLUCE/SYSTEM/SYSTEMP b/LLUCE/SYSTEM/SYSTEMP
new file mode 100644
index 0000000..55dcada
Binary files /dev/null and b/LLUCE/SYSTEM/SYSTEMP differ
diff --git a/LLUCE/SYSTEM/TEST.DATA b/LLUCE/SYSTEM/TEST.DATA
new file mode 100644
index 0000000..6be4d08
Binary files /dev/null and b/LLUCE/SYSTEM/TEST.DATA differ
diff --git a/LLUCE/SYSTEM/XY.UPLOAD b/LLUCE/SYSTEM/XY.UPLOAD
new file mode 100644
index 0000000..a8fa912
Binary files /dev/null and b/LLUCE/SYSTEM/XY.UPLOAD differ
diff --git a/LLUCE/TEXT/ANSI.TEST b/LLUCE/TEXT/ANSI.TEST
new file mode 100644
index 0000000..9186560
--- /dev/null
+++ b/LLUCE/TEXT/ANSI.TEST
@@ -0,0 +1,21 @@
+Welcome to the..   [[[ \[\ [ [ [  [ [[   [[  [[[ [[[ \[\ [  [\\\[   [ [ [ [ [[ [ [ [ [  [  [   [  [ [ [[ [\[[[[[  [ [ [ [ [ [[ [ [ [[[[  [   [  [ [ [ [[
+
+[[_[   [ [ [ [ [  [ [ [ [  [  [   [  [ [ [  [   \[[[[[\  \[[[[[\    [   _[_ [[[ [  [ [[  [  [  [  [[[ _[_ [  [ \\\\\\\\\\\\\\\\\\\\[[[[[[[[[[[[[[[[[[__\\[
+
+\\[[[[[[[[[[[[[[[[\\[[[[[\\_\\\\\\\\\\\\__ _[[[[[[[_\\\[[[[[[[[[[[[[[[[ [\_[[[_\[_\[ [[[[[[[[[[[[[[[\\
+
+ [[[\_\[_\_[[  ________________\\_\_[[[[\_ \_\_[[[[[_ _[[[[[[_[\_\_[[[\_\_[
+
+__[\_\[_\_\[[ \_\\__\__[\__\[_\_\\[[__[[_\_\[[[\\___\[[[[___
+
+_[___BBS             BBS       BBS  BBS           BBS          BBS        
+
+Sysop:]-[appy ]-[inter]-[appy ]-[inter            ]-[appy ]-[inter              ]-[appy ]-[inter        Co-sysop:-=* Arkady *=-     
+
+     -=* Arkady *=-           -=* Arkady *=-                  -=* Arkady *=-              -=* Arkady *=-   Screen By:Mr.CoolMr.
+
+Cool        Mr.Cool      Mr.Cool       Mr.Cool              Mr.CoolApple // Forever!!\\\\\\\\\\\\\\\\\\\\[ _ 
+
+_ _ _ _ _ _ _ _ _ _ _ _ _ _ 
+
+_ _ _ _ _                     
\ No newline at end of file
diff --git a/LLUCE/TEXT/FOUNDINT.TXT b/LLUCE/TEXT/FOUNDINT.TXT
new file mode 100644
index 0000000..bac99bf
Binary files /dev/null and b/LLUCE/TEXT/FOUNDINT.TXT differ
diff --git a/LLUCE/TEXT/PSE.TEST b/LLUCE/TEXT/PSE.TEST
new file mode 100644
index 0000000..a38f248
--- /dev/null
+++ b/LLUCE/TEXT/PSE.TEST
@@ -0,0 +1,29 @@
+
+
+ Foundation  BBS 
+
+""Z^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+"#Z^j#Z^"$Z^j$Z^"%Z^j%Z^"&Z^j&Z^"'Z^j'Z^"(Z^j(Z^")Z^j)Z^"*Z^
+j*Z^"+Z^j+Z^",Z^j,Z^"-Z^j-Z^".Z^j.Z^"/Z^j/Z^"0Z^j0Z^"1Z^j1Z^
+"2Z^j2Z^
+"3Z^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+?# The  Foundation 
+%$#]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]#
+('/LLLLLLLLLLLLLLLLLLLLLLLLLLLLLTLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL\
+'(Z-(IF(|J($f(_')Z-)QF)|J)Bf)_'*Z-*KF*|J*Jf*_'+Z-+U
+F+|J++f+_',Z-,-,PF,|J,Df,_'-Z--FF-|J-Cf-_'.Z-.OF.|J.M
+f._'/Z-/LF/|J/Yf/_'0Z-0GF0|J0Xf0_
+(1\____________________________________________________________/
+)&R>&SS&E12TJ2:
+Y&E-Mail UtilsD&Send Mail/&Read Mail62Terminate Call
+O2Life or Death2(System Info2)Quickscan Boards2*Configure QuickScan
+2+User Listing2,Change Pass Word2-FeedBack to Sysops
+2.Other Local BBSs2/Log of Calls Today20Game RoomO(System News
+O)General Mess BaseO*Jump to Mess BaseO+Your Status
+O,Display ParamitersO-ChatO.BBS Data BaseO/Yesterdays Callers
+O0Xfer Section
+/(=>L(=>/)=>L)=>/*=>L*=>/+=>L+=>
+/,=>L,=>/-=>L-=>/.=>L.=>//=>L/=>/0=>L0=>32=>L2=>,&=>A&=>V&=>
+?
~F
~4
~.
@#
@)
~.
@#
@)
~4
~.
~?
~F
~
+;% H -> For Detailed Help ?# The Foundation 
+f5
diff --git a/SOURCE/CALC.CRC.S b/SOURCE/CALC.CRC.S
new file mode 100644
index 0000000..3182474
--- /dev/null
+++ b/SOURCE/CALC.CRC.S
@@ -0,0 +1,321 @@
+            TTL    'Overlay CRC Calculator'
+********************************
+*                              *
+*          CRC Calculator      *
+*                              *
+********************************
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            PUT    EQUATES/OS.EQUATES
+
+]TYPE       =      ^sysfile                    ; set file type
+]AUX        =      sysfile                     ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/SHOW.CRC
+            DO     LISTOBJ
+            LST
+            FIN
+
+PRN         =      6
+PROMPT      =      $33
+Cr          =      $8D
+LNBUF       =      $200
+FLNAME      =      $280
+
+SOFTEV      =      $3F4
+
+Quit        =      $65
+Open        =      $C8
+Read        =      $CA
+Write       =      $CB
+Close       =      $CC
+Geteof      =      $D1                         ; Get End Of File Pointer
+
+MLI         =      $BF00
+
+KBD         =      $C000
+SET40       =      $C00C
+SETALTCH    =      $C00F
+KBDSTRB     =      $C010
+
+INIT        =      $FB2F
+HOME        =      $FC58
+INPLN       =      $FD6F
+CROUT       =      $FD8E
+PRBYTE      =      $FDDA
+COUT        =      $FDED
+SETNORM     =      $FE84
+SETKBD      =      $FE89
+SETVID      =      $FE93
+RESET       =      $FFFC
+
+            ORG    $2000
+
+            JSR    SETNORM
+            JSR    INIT
+            JSR    SETVID
+            JSR    SETKBD
+            STZ    SET40                       ; Set 40 Columns
+            STZ    SETALTCH
+            LDA    #">"
+            STA    PROMPT
+            JSR    STARTCRC                    ; Set Up CRC Tables
+
+RESTART     JSR    HOME                        ; Control L (Clear Screen)
+            STZ    CRC                         ; Zero CRC Count
+            STZ    CRC+1
+            JSR    CROUT
+            JSR    PRINT
+            STR    "Filename -> "
+            JSR    INPLN
+            CPX    #0                          ; Null File Name?
+            BNE    :MVNAME                     ; Nope
+
+            JMP    EXIT
+
+:MVNAME     STX    FLNAME                      ; Save Length Of Name
+:NAMELUP    LDA    LNBUF,X                     ; Move Name
+            AND    #$7F                        ; Clear Hi Bit
+            CMP    #'a'                        ; Make It Upper Case
+            BLT    :OK
+
+            CMP    #'z'+1
+            BGE    :OK
+
+            SBC    #$1F
+:OK         STA    FLNAME+1,X                  ; Save It
+            DEX                                ; Next Byte
+            CPX    #-1
+            BNE    :NAMELUP
+
+            JSR    MLI                         ; Open The File
+            DB     Open
+            DA     OPENLST
+            BCC    :OPENOK
+
+            JMP    OPENERR
+
+:OPENOK     LDA    OPENREF                     ; Move Reference Numbers
+            STA    READREF
+            STA    WRITEREF
+            STA    CLOSEREF
+            STA    EOFREF
+            JSR    MLI
+            DB     Geteof
+            DA     EOFLST
+            JSR    PRINT                       ; Print Size Of Code
+            DCI    "Code Size: $"
+            LDA    EOF+2
+            JSR    PRBYTE
+            LDA    EOF+1
+            JSR    PRBYTE
+            LDA    EOF
+            JSR    PRBYTE
+            JSR    CROUT
+
+:CRCLUP     JSR    RDBYTE                      ; Read Overlay Byte
+            JSR    ADDCRC                      ; Add To Crc
+            LDA    EOF                         ; Bump Size Pointer
+            BNE    :DWNEOF2
+            LDA    EOF+1
+            BNE    :DWNEOF1
+            DEC    EOF+2
+:DWNEOF1    DEC    EOF+1
+:DWNEOF2    DEC    EOF
+            LDA    EOF                         ; Done?
+            ORA    EOF+1
+            ORA    EOF+2
+            BNE    :CRCLUP                     ; Nope
+
+            JSR    PRINT
+            DCI    "Code CRC : $"
+            LDA    CRC+1
+            JSR    PRBYTE
+            LDA    CRC                         ; Move CRC To Program
+            JSR    PRBYTE
+            JSR    CROUT
+
+ANOTHER     JSR    MLI                         ; Close The File
+            DB     Close
+            DA     CLOSELST
+            JSR    PRINT
+            DB     Cr
+            ASC    "Do Another File? -> _"08
+:WAIT       LDA    KBD                         ; Wait For A Keypress
+            BPL    :WAIT
+
+            BIT    KBDSTRB                     ; Clear Strobe
+            CMP    #"N"                        ; How About A No?
+            BEQ    :QUIT
+            CMP    #"n"
+            BEQ    :QUIT
+
+            CMP    #"Y"                        ; Is It A Yes?
+            BEQ    :AGAIN
+
+            CMP    #"y"
+            BNE    :WAIT
+
+:AGAIN      JSR    COUT                        ; Print Input
+            JMP    RESTART                     ; Start Again
+
+:QUIT       JSR    COUT                        ; Print Input
+EXIT        JSR    MLI                         ; Try To Quit
+            DB     Quit
+            DA     QUITLST
+
+*-------------------------------
+* Should Never Get Here
+*-------------------------------
+
+            INC    SOFTEV                      ; Force Cold Start
+            JMP    (RESET)
+
+OPENERR     JSR    PRINT
+            DB     Cr
+            ASC    "Error Opening File"0D
+:N          BRA    ANOTHER
+
+RDERR       JSR    PRINT
+            DB     Cr
+            ASC    "Error Reading File"0D
+:N          PLA
+            PLA
+            JMP    ANOTHER
+
+RDBYTE      JSR    MLI
+            DB     Read
+            DA     READLST
+            BCS    RDERR
+
+            LDA    BYTE                        ; Get Byte Read
+            RTS
+
+*-------------------------------
+* Standard In-Line Print Routine
+*-------------------------------
+
+PRINT       PLA
+            STA    PRN
+            PLA
+            STA    PRN+1
+            JSR    INCPRN
+:PLOOP      LDA    (PRN)
+            PHP
+            ORA    #$80
+            JSR    COUT
+            JSR    INCPRN
+            PLP
+            BMI    :PLOOP
+
+            JMP    (PRN)
+
+INCPRN      INC    PRN
+            BNE    :DONE
+            INC    PRN+1
+:DONE       RTS
+
+QUITLST     DB     4
+            DS     8
+
+OPENLST     DB     3
+            DA     FLNAME
+            DA     IOBUF
+OPENREF     DB     0
+
+READLST     DB     4
+READREF     DB     0
+            DA     BYTE
+            DA     1                           ; Reading 1 Byte
+            DA     0
+
+WRITELST    DB     4
+WRITEREF    DB     0
+            DA     BYTE
+            DA     1                           ; Writing 1 Byte
+            DA     0
+
+CLOSELST    DB     1
+CLOSEREF    DB     0
+
+EOFLST      DB     2
+EOFREF      DB     0
+EOF         DB     0,0,0
+
+BYTE        DB     0
+
+*===============================
+* Calculate CRC
+*===============================
+
+STARTCRC    LDX    #0                          ; Zero Crc Pages
+:CLRCRC     STZ    CRCLO,X
+            STZ    CRCHI,X
+            INX
+            BNE    :CLRCRC
+
+:FETCH      TXA                                ; Set Up CRC Table
+            EOR    CRCHI,X
+            STA    CRCHI,X
+            LDY    #8
+:MKCRC      ASL    CRCLO,X
+            ROL    CRCHI,X
+            BCC    :LOOP1
+
+            LDA    CRCHI,X
+            EOR    #$10
+            STA    CRCHI,X
+            LDA    CRCLO,X
+            EOR    #$21
+            STA    CRCLO,X
+:LOOP1      DEY
+            BNE    :MKCRC
+
+            INX
+            BNE    :FETCH
+
+            RTS
+
+ADDCRC      EOR    CRC+1                       ; Add It To Crc
+            TAX
+            LDA    CRC
+            EOR    CRCHI,X
+            STA    CRC+1
+            LDA    CRCLO,X
+            STA    CRC
+            RTS
+
+CRC         DA     0
+
+            DUM    CRC+2
+
+            DS     \                           ; Set To Page Boundary
+CRCLO       DS     $100
+CRCHI       DS     $100
+IOBUF       DS     $400
+            DEND
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+
diff --git a/SOURCE/CLOCKS/GS.S b/SOURCE/CLOCKS/GS.S
new file mode 100644
index 0000000..d16d00e
--- /dev/null
+++ b/SOURCE/CLOCKS/GS.S
@@ -0,0 +1,118 @@
+             LST   RTN
+             TTL   'LLUCE - Apple //Gs Clock'
+             PAG
+             XC                                ; Uses 65816 Codes
+
+ReadTimeHex  =     $D03
+Tool_Entry   =     $E10000
+
+CLOCKDVR     DB    0
+CLKMODE      DB    0
+
+GETDATE      JMP   G_DATE
+GETTIME      JMP   G_TIME
+SETDATE      JMP   S_DATE
+
+*-------------------------------
+* Get The Date In Prodos Format
+*-------------------------------
+
+G_DATE       JSR   MLI
+             DB    Gettime
+             DA    0
+             LDX   DATE
+             LDA   DATE+1
+S_DATE       RTS
+
+*-------------------------------
+* Get The Current Time
+*-------------------------------
+
+G_TIME       CLC
+             XCE
+             REP   %00110000
+             PHA
+             PHA
+             PHA
+             PHA
+             LDX   #ReadTimeHex
+             JSL   Tool_Entry
+             SEC
+             XCE
+             LDA   #' '                        ; Clear AM/PM
+             STA   :TIMESTR+9
+             STA   :TIMESTR+10
+             PLA                               ; Seconds
+             JSR   :BINDEC8
+             STA   :TIMESTR+6
+             STX   :TIMESTR+7
+             PLA                               ; Minutes
+             JSR   :BINDEC8
+             STA   :TIMESTR+3
+             STX   :TIMESTR+4
+             LDA   #<:TIMESTR
+             STA   :TIMELOC+1
+             PLA                               ; Hours
+             LDY   #8
+             BIT   CLKMODE
+             BPL   :RTNTIME
+
+             LDY   #11
+             LDX   #'A'                        ; Default To Am
+             CMP   #12+1                       ; Is It After Noon?
+             BLT   :AM                         ; Nope
+             SBC   #12                         ; Subtract For PM
+             LDX   #'P'
+:AM          STX   :TIMESTR+9
+             LDX   #'M'
+             STX   :TIMESTR+10
+             CMP   #0                          ; If 0, Actually 12
+             BNE   :RTNTIME
+
+             LDA   #12
+:RTNTIME     JSR   :BINDEC8
+             CMP   #'0'                        ; Hour Less Than 10?
+             BNE   :DOIT                       ; Nope
+
+             LDA   #' '                        ; Make It A Space
+             DEY                               ; String Length Is 1 Less
+             INC   :TIMELOC+1                  ; String Start Is 1 More
+:DOIT        STA   :TIMESTR
+             STX   :TIMESTR+1
+             PLA                               ; Year
+             PLA                               ; Date
+             PLA                               ; Month
+             PLA                               ; Reserved
+             PLA                               ; Dayofweek
+             STA   CLOCKDVR
+:TIMELOC     LDX   #<:TIMESTR
+             LDA   #>:TIMESTR
+             RTS
+
+*-------------------------------
+* Translate A Binary To Text [0-99]
+*-------------------------------
+
+:BINDEC8     CMP   #60
+             BLT   :INRNG
+             LDA   #59
+:INRNG       LDX   #0
+:CNTDN       CMP   #10
+             BLT   :MKASC
+             SBC   #10
+             INX
+             BNE   :CNTDN
+
+:MKASC       ADC   #'0'
+             PHA
+             TXA
+             ADC   #'0'
+             PLX
+             RTS
+
+*-------------------------------
+*              '01234567890
+:TIMESTR     ASC   '12:00:00   '
+             DS    \
+             LST   OFF
+
diff --git a/SOURCE/CLOCKS/PRODOS.S b/SOURCE/CLOCKS/PRODOS.S
new file mode 100644
index 0000000..5c2ac98
--- /dev/null
+++ b/SOURCE/CLOCKS/PRODOS.S
@@ -0,0 +1,95 @@
+            LST   RTN
+            TTL   'LLUCE - ProDOS Clock'
+            PAG
+CLOCKDVR    DB    0
+CLKMODE     DB    0
+
+GETDATE     JMP   G_DATE
+GETTIME     JMP   G_TIME
+SETDATE     JMP   S_DATE
+
+*-------------------------------
+* Get The Date In Prodos Format
+*-------------------------------
+
+G_DATE      JSR   MLI                     ; Mli Call
+            DB    Gettime
+            DW    0                       ; No Parameter Table
+            LDX   DATE
+            LDA   DATE+1
+S_DATE      RTS
+
+*-------------------------------
+* Get The Current Time
+*-------------------------------
+
+G_TIME      JSR   G_DATE
+            LDA   #<:TIMESTR
+            STA   :TIMELOC+1
+            LDA   #' '                    ; Clear Out Any Possible Am/Pm
+            STA   :TIMESTR+5
+            STA   :TIMESTR+6
+            LDA   TIME+1                  ; Get Hours
+            LDY   #5                      ; 24 Hour Format Is 5 Chars.
+            BIT   CLKMODE                 ; Need To Convert?
+            BPL   :GTIME1                 ; Nope, Want 24 Hour Format
+
+            LDY   #8                      ; 12 Hour Format Is 8 Chars
+            LDX   #'A'                    ; Set Far Am
+            CMP   #12                     ; Are We In AM?
+            BLT   :CONV2                  ; Yep, No Need To Convert
+
+            LDX   #'P'                    ; It Is Pm, So We Need To
+            SBC   #12                     ; Subtract 12
+:CONV2      CMP   #0                      ; Was It Noon?
+            BNE   :CONV3                  ; Nope
+
+            LDA   #12                     ; Noon Must Be 12 Pm
+:CONV3      STX   :TIMESTR+5              ; Save The A Or P
+            LDX   #'m'                    ; And The M
+            STX   :TIMESTR+6
+:GTIME1     JSR   :BINDEC8                Translate
+            CMP   #'0'                    Strip
+            BNE   :GTIME2
+
+            INC   :TIMELOC+1
+            DEY
+            LDA   #' '
+:GTIME2     STA   :TIMESTR                ; Save Hour
+            STX   :TIMESTR+1
+            LDA   TIME                    ; Get Minutes
+            JSR   :BINDEC8                ; Translate To Ascii
+            STA   :TIMESTR+3              ; Save Minute
+            STX   :TIMESTR+4
+:TIMELOC    LDX   #<:TIMESTR              ; Point To String
+            LDA   #>:TIMESTR              ; Length Is In Y
+            RTS
+
+*-------------------------------
+* Translate A Binary To Text [0-99]
+*-------------------------------
+
+:BINDEC8    CMP   #60                     ; Put Limit Of 59
+            BLT   :BIN8
+            LDA   #59
+:BIN8       LDX   #0                      ; Start 10's Counter
+]LOOP       CMP   #10
+            BCC   :BIN8B                  ; Less Than 10, Were Done
+
+            SBC   #10                     ; Minus 10
+            INX                           ; Add 1 To The 10's Counter
+            BNE   ]LOOP                   ; Loop
+
+:BIN8B      ADC   #'0'                    ; Make 1's Into Text
+            PHA
+            TXA
+            ADC   #'0'                    ; Make 10's Into Text
+            PLX
+            RTS                           ; Were Done
+
+*-------------------------------
+*              '01234567890
+:TIMESTR    ASC   '12:00   '
+            DS    \
+            LST   OFF
+
diff --git a/SOURCE/CLOCKS/TCLK.S b/SOURCE/CLOCKS/TCLK.S
new file mode 100644
index 0000000..a9f7b99
--- /dev/null
+++ b/SOURCE/CLOCKS/TCLK.S
@@ -0,0 +1,100 @@
+            LST   RTN
+            TTL   'LLUCE - ThunderClock'
+            PAG
+CLOCKDVR    DB    0
+CLKMODE     DB    0
+
+GETDATE     JMP   G_DATE
+GETTIME     JMP   G_TIME
+SETDATE     JMP   S_DATE
+
+*-------------------------------
+* Get The Date In Prodos Format
+*-------------------------------
+
+G_DATE      JSR   MLI                     ; MLI Call
+            DB    Gettime
+            DW    0                       ; No Parameter Table
+            LDX   DATE
+            LDA   DATE+1
+S_DATE      RTS
+
+*-------------------------------
+* Get The Current Time
+*-------------------------------
+
+G_TIME      JSR   G_DATE
+            LDA   #<:TIMESTR
+            STA   :TIMELOC+1
+            LDA   #' '                    ; Clear Out Any Am/Pm
+            STA   :TIMESTR+9
+            STA   :TIMESTR+10
+            LDA   TIME+1                  ; Get Hours
+            LDY   #8                      ; 24 Hour Format Is 8 Chars.
+            BIT   CLKMODE                 ; Need To Convert?
+            BPL   :GTIME1                 ; Nope, Want 24 Hour Format
+
+            LDY   #11                     ; 12 Hour Format Is 11 Chars
+            LDX   #'A'                    ; Set Far Am
+            CMP   #12                     ; Are We In AM?
+            BLT   :CONV2                  ; Yep, No Need To Convert
+
+            LDX   #'P'                    ; It Is Pm, So We Need To
+            SBC   #12                     ; Subtract 12
+:CONV2      CMP   #0                      ; Was It Noon?
+            BNE   :CONV3                  ; Nope
+
+            LDA   #12                     ; Noon Must Be 12 Pm
+:CONV3      STX   :TIMESTR+9              ; Save The A Or P
+            LDX   #'m'                    ; And The M
+            STX   :TIMESTR+10
+:GTIME1     JSR   :BINDEC8                ; Translate To Ascii
+            CMP   #'0'                    ; Strip Leading 0
+            BNE   :GTIME2
+
+            INC   :TIMELOC+1
+            DEY
+            LDA   #' '
+:GTIME2     STA   :TIMESTR                ; Save Hour
+            STX   :TIMESTR+1
+            LDA   TIME                    ; Get Minutes
+            JSR   :BINDEC8                ; Translate To Ascii
+            STA   :TIMESTR+3              ; Save Minute
+            STX   :TIMESTR+4
+            LDA   LNBUF+15                ; Seconds
+            STA   :TIMESTR+6
+            LDA   LNBUF+16
+            STA   :TIMESTR+7
+:TIMELOC    LDX   #<:TIMESTR              ; Point To String
+            LDA   #>:TIMESTR              ; Length Is In Y
+            RTS
+
+*-------------------------------
+* Translate A Binary To Text [0-99]
+*-------------------------------
+
+:BINDEC8    CMP   #60                     ; Put Limit Of 59
+            BLT   :BIN8
+
+            LDA   #59
+:BIN8       LDX   #0                      ; Start 10's Counter
+]LOOP       CMP   #10
+            BCC   :BIN8B                  ; Less Than 10, Were Done
+
+            SBC   #10                     ; Minus 10
+            INX                           ; Add 1 To The 10's Counter
+            BNE   ]LOOP                   ; Loop
+
+:BIN8B      ADC   #'0'                    ; Make 1's Into Text
+            PHA
+            TXA
+            ADC   #'0'                    ; Make 10's Into Text
+            PLX
+            RTS                           ; Were Done
+
+*-------------------------------
+*              '01234567890
+:TIMESTR    ASC   '12:00:00   '
+            DS    \
+            LST   OFF
+
diff --git a/SOURCE/COMPILER.S b/SOURCE/COMPILER.S
new file mode 100644
index 0000000..48d93fb
--- /dev/null
+++ b/SOURCE/COMPILER.S
@@ -0,0 +1,111 @@
+********************************
+*                              *
+*    LLUCE Segment Compiler    *
+*                              *
+********************************
+* Copyright 1986-1993 By L&L Productions
+*-------------------------------
+* Version 1.0 Final 4
+*-------------------------------
+* This Follows Apple's Version Types.
+* First Byte Is Main Version #.
+* Second Byte Contains 2 Nibbles
+* The First Nibble Is The Sub Version
+* The Second Is A Description Character:
+*
+* 0 - Release      Version
+* A - Alpha        Version
+* B - Beta         Version
+* D - Development  Version
+* E - Experimental Version
+* F - Final test   Version
+*
+* E Should Not Be Released At All
+* A, B, D, F Only To Beta Testers
+*-------------------------------
+            DATE
+*-------------------------------
+
+Version     =      $01F4
+
+Id          =      1
+Aux         =      1
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+            PUT    EQUATES/TOKENS
+
+]TYPE       =      ^overlays                   ; set file type
+]AUX        =      overlays                    ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/COMPILER
+            TTL    'LLUCE - Segment Compiler'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                           ; CRC Goes Here
+            LST    OFF
+            ORG    $D000
+
+LBLTAB      =      $9B00
+LNBUF2      =      $9B00+$800
+SYMTAB      =      $E600
+
+CODESTRT    =      *
+            PUT    OVERLAYS/COMP.MAIN          ; Compiler Main Line Code
+            PUT    OVERLAYS/COMP.SUBS          ; Compiler Subroutines
+            PUT    OVERLAYS/COMP.TOKENS        ; Compiler Token List
+            LST    RTN
+SYMNUM      DB     0
+LBLNUM      DB     0
+LNCNT2      DB     0
+TOKTYP      DB     0
+ERRFLG      DB     0
+COMMENT     DB     0
+ONCOUNT     DB     0
+ONFLAG      DB     0
+PUBCNT      DB     0
+LINENUM     DW     0
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'Compiler - Symbol Table'
+            PAG
+
diff --git a/SOURCE/COPY.S b/SOURCE/COPY.S
new file mode 100644
index 0000000..01cf932
--- /dev/null
+++ b/SOURCE/COPY.S
@@ -0,0 +1,200 @@
+********************************
+*                              *
+*         File Copier          *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      2
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+            PUT    EQUATES/ERRORS
+            LST    RTN
+
+]TYPE       =      ^overlays                   ; set file type
+]AUX        =      overlays                    ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/COPY
+
+            TTL    'LLUCE - File Copier'
+            DO     LISTOBJ
+            LST
+            FIN
+*===============================
+* File Copy Overlay
+*===============================
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-COPY
+            DA     0                           ; CRC Goes Here
+
+            ORG    $D000
+
+COPY        JSR    GOBCOM                      ; Eat The Comma
+            JSR    MOVNAME                     ; Get Source File Name
+            LDA    #10                         ; Get Original Info
+            STA    ENDMOD
+            LDA    #<FLNAME
+            STA    ENDMOD+1
+            LDA    #>FLNAME
+            STA    ENDMOD+2
+            JSR    MLI
+            DB     Getinfo
+            DA     ENDMOD
+            BCS    ERROR                       ; Doesn't Exist
+
+            LDA    #%00100001                  ; Request Read, Deny Write
+            JSR    PD_OPEN                     ; Open It If It Can
+            BCS    ERROR                       ; If Not, Error
+
+            LDA    REFNUM                      ; Save Source Ref Number
+            STA    SRCREF
+            STZ    ERRFLG
+            JSR    GOBCOM                      ; Eat Next Comma
+            JSR    MOVNAME                     ; Get Dest File Name
+TRYOPEN     LDX    #5
+MV_OLST     LDA    OPENLST,X
+            STA    ENDMOD+$40,X
+            DEX
+            BPL    MV_OLST
+
+            JSR    MLI                         ; Try To Open It
+            DB     Open
+            DA     ENDMOD+$40
+            BCC    EXISTS                      ; It Exists, Use It
+
+            LDA    ERRFLG                      ; First Try?
+            BNE    ERROR                       ; No, Can't Do It
+
+            LDA    #7
+            STA    ENDMOD
+            LDX    #$D                         ; Save Original File Stats
+MV_FINFO    LDA    ENDMOD,X
+            STA    FINFO,X
+            DEX
+            BPL    MV_FINFO
+
+            LDX    #3                          ; Move Creation Date
+MV_DATE     LDA    ENDMOD+$E,X
+            STA    ENDMOD+8,X
+            DEX
+            BPL    MV_DATE
+
+            LDA    #%11000011                  ; Set Full Access
+            STA    ENDMOD+3
+            JSR    MLI                         ; Create The New File
+            DB     Create
+            DA     ENDMOD
+            BCS    ERROR
+
+            INC    ERRFLG                      ; Flag File Created
+            BRA    TRYOPEN
+
+ERROR       LDA    #Usrerr+1                   ; Do Error
+            JMP    BADERR
+
+EXISTS      LDA    ENDMOD+$45                  ; Save Dest Ref Number
+            STA    DSTREF
+CPY_LOOP    LDA    SRCREF                      ; Get Source Reference
+            STA    REFNUM
+            LDX    #<ENDMOD                    ; Read A Chunk Of Source
+            LDA    #>ENDMOD
+            LDY    #32                         ; Read 32-128 Byte Pages, 4K
+            JSR    PD_RDBLK
+            BCS    CPY_DONE                    ; Error Means Done (Usually)
+
+            LDA    DSTREF                      ; Get Destination Reference
+            STA    REFNUM
+            LDX    #<ENDMOD                    ; Write Chunk To Destination
+            LDA    #>ENDMOD
+            LDY    #32                         ; Write 32-128 Byte Pages
+            JSR    PD_WRBLK
+            BCC    CPY_LOOP                    ; Error Is No Good
+
+            LDA    #Usrerr+2
+            JMP    BADERR
+
+CPY_DONE    LDA    #2                          ; Set Up For Eof Calls
+            STA    ENDMOD
+            LDA    SRCREF                      ; Get Eof Of Original
+            STA    ENDMOD+1
+            STA    REFNUM
+            JSR    MLI
+            DB     Geteof
+            DA     ENDMOD
+            JSR    PD_CLOSE                    ; And Close Original
+            LDA    DSTREF                      ; Set Eof Of New File
+            STA    ENDMOD+1
+            STA    REFNUM
+            JSR    MLI
+            DB     Seteof
+            DA     ENDMOD
+            JSR    PD_CLOSE                    ; Close It Too
+            LDX    #$D                         ; Set File Stats To Original
+CPY_ACS     LDA    FINFO,X                     ; Mainly Sets Access Byte At
+            STA    ENDMOD,X                    ; This Time
+            DEX
+            BPL    CPY_ACS
+
+            JSR    MLI
+            DB     Setinfo
+            DA     ENDMOD
+            RTS
+
+OPENLST     DB     3
+            DA     FLNAME
+            DA     MSGBUF
+            DB     0
+
+ERRFLG      DS     1
+
+SRCREF      DS     1
+DSTREF      DS     1
+
+FINFO       DS     $E
+CODEEND     =      *
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'COPY - Symbol Table'
+
diff --git a/SOURCE/DATA/ACOS.LLUCE b/SOURCE/DATA/ACOS.LLUCE
new file mode 100644
index 0000000..9575922
--- /dev/null
+++ b/SOURCE/DATA/ACOS.LLUCE
@@ -0,0 +1,364 @@
+LLUCE Command Syntax
+
+  All operations in this section are the same as in ACOS
+
+ +                                              Add numbers/concat strings
+ -                                              Subtract numbers
+ *                                              Multiply numbers
+ /                                              Divide numbers
+ =                                              Equate or compare equals
+ <                                              Compare less than
+ >                                              Compare greater than
+ <>                                             Compare not equal
+ <=                                             Compare less or equal to
+ =>                                             Compare greater or equal to
+ Value    =ABS(Value)                           Make positive
+ AND                                            Logical AND numbers
+ MOD                                            Logical MODULO numbers
+ NOT                                            Logical NOT number
+ OR                                             Logical OR numbers
+ XOR                                            Logical exclusive OR numbers
+-------------------------------
+# ADDINT(String)                                Add interrupt character
+  APPEND   #Channel(File)                       Append to a file
+  Value    =ASC(String)                         Get ASCII value of the first
+                                                character of specified string
+! ANSI    OFF                                   Turn ANSI term emulation off
+! ANSI    ON                                    Turn ANSI term emulation on
+-------------------------------
+  BYTE     =Address                             Set byte address
+  Value    =BYTE                                Get byte address
+  BYTE(Value8)                 =(Value8)        Set a byte
+  Value    =BYTE(Value8)                        Get a byte
+$ Value   =BAUD                                 Get users baud rate
+-------------------------------
+  CALL     Address                              Call routine at address
+$ CHAIN   Filename                              Chain to segment filename
+$ CHAIN   Filename,Label                        Chain to segment filename
+                                                Start at specified label
+  String   =CHR$(Value8)                        Make a 1 character string
+  String   =CHR$(Value8,Value8)                 Make a multi character string
+! CLEAR                                         See CLOCK, EDIT and MODEM
+                                                statements
+  CLEAR                                         Clear variables
+  CLOCK(0)                                      CHANGED TO CLOCK CLEAR
+  CLOCK(1)                                      CHANGED TO CLOCK ONLINE
+  CLOCK(2)                                      CHANGED TO CLOCK
+$ CLOCK   CLEAR                                 Set timer start
+$ CLOCK   ONLINE                                Get time connected
+$ CLOCK   =Value16                              Set time limit
+$ Value   =CLOCK                                Get time limit
+  CLOSE                                         Close any open file(s)
+  CLOSE    #Channel(File)                       Close file at specified channel
+! print   CLS                                   Clear the screen
+! CLS                                           Clear the screen
+! CLS     =Value8                               Set CLS character
+! Value   =CLS                                  Get CLS character
+  COPY     Filename                             Copy a text file to console
+  COPY     (Lines)Filename                      Copy (lines) of a text
+                                                file to the console
+  COPY     Filename,#Channel(File|7|9..10)      Copy a text file to device
+  COPY     (Lines)Filename,#Channel(File|7|9..10) Copy (lines) of a text file
+                                                to device
+  COPY     #Channel(File|7..10),#(File|7|9..10) Copy text from device to
+                                                device
+  COPY     (Lines)#Channel(File|7..10),#(File|7|9..10) Copy (lines) of text
+                                                from device to device
+  CREATE   Filename                             Create a text file
+! CREATE  Filename,Msg,Value16                  Create a message file
+! CREATE  Filename,Type8                        Create a file with Type8
+! CREATE  Filename,Type8,Subtype                Create a file with Type8,
+                                                AuxType of Subtype
+  CRUNCH                                        Compact current message file
+-------------------------------
+  DATE$    =String                              Set date (for no clock)
+  String   =DATE$                               Get date
+! DISK    LOCK                                  Reserve network
+! DISK    UNLOCK                                Release network
+-------------------------------
+  ECHO     =String                              Character to echo on input
+  EDIT(0)                                       CHANGED TO EDIT CLEAR
+  EDIT(1)                                       CHANGED TO EDIT
+  EDIT(2)                                       CHANGED TO EDIT SIZE
+  EDIT(3)                                       CHANGED TO WIDTH
+  EDIT(4)                                       CHANGED TO MODE
+  EDIT(5)                                       CHANGED TO EDIT
+$ EDIT                                          Enter the editor
+$ EDIT    CLEAR                                 Clear editor buffer
+! EDIT    OFF                                   Turn off profanity filter
+! EDIT    ON                                    Turn on profanity filter
+! EDIT    =Filename                             Set editor filename
+$ Value   =EDIT                                 Get editor buffer location
+! Value   =EDIT ERROR                           Get .X hack attempt
+$ Value   =EDIT SIZE                            Get size of message
+  ELSE                                          See IF statement
+! END                                           See KEY statement
+  END                                           End program execution
+  EOF(Channel(File))                            Check for end of file
+! Value   =ERR                                  Get last error number
+? ERROR                                         See ON and EDIT statements
+$ EXEC    =Value8                               Set exec user status
+$ Value   =EXEC                                 Get exec user status
+! Value   =EXIST(Filename)                      Check If file exists
+! EXIT                                          Exit from LLUCE
+! EXIT    CompletePathname                      Exit from LLUCE, execute path
+-------------------------------
+  FILL     Address,Bytes8,Value8                Fill Address range with data
+  FLAG                                          See KEY statement
+  FLAG     =Address                             Set flag pointer
+  Value    =FLAG                                Get flag pointer
+  FLAG(Value8)                 =(Value1)        Set a flag
+  Value    =FLAG(Value8)                        Get a flag
+! FLASH   ON                                    GS screen flash on
+! FLASH   OFF                                   GS screen flash off
+$ FLUSH                                         Flush any open file(s)
+$ FLUSH   #Channel(File)                        Flush specified file
+? String  =FMTDATE$                             Get formatted date
+! String  =FMTWHEN$                             Get stored formatted date
+  FOR      L=Value TO Value                     Loop from value to value
+  FOR      L=Value TO Value STEP Value          Loop from value to value
+                                                stepping by specified count
+  FREE                                          Compact variables
+! FREE                                          See MSG statement
+-------------------------------
+  GET      String|Number                        Get a single character
+  GOTO     Label                                Go to a label
+                                                Alse see ON, ON ERROR and
+                                                ON NOCAR statements
+! print   GOTOXY(X-Value8,Y-Value8)             Move cursor to X,Y
+! GOTOXY(X-Value8,Y-Value8)                     Move cursor to X,Y
+! GOTOXY  =Value8                               Set GOTOXY character
+! Value   =GOTOXY                               Get GOTOXY character
+  GOSUB    Label                                Go to a subroutine
+                                                Also see ON statement
+-------------------------------
+! print   HOME                                  Move cursor to upper left
+! HOME                                          Move cursor to upper left
+! HOME    =Value8                               Set HOME character
+! Value   =HOME                                 Get HOME character
+-------------------------------
+  IF statement [THEN] statement [ELSE] statement Conditional
+  INFO(0)                                       CHANGED TO ONLINE
+  INFO(1)                                       CHANGED TO MSG SIZE
+  INFO(2)                                       CHANGED TO BAUD
+  INFO(3)                                       CHANGED TO NULLS
+  INFO(4)                                       CHANGED TO SET MSG
+  INFO(5)                                       CHANGED TO EXEC
+  INFO(6)                                       CHANGED TO MSG FREE
+  INPUT @n String|Number                        Get a line of text
+  Value    =INSTR(String1,String2)              Find a string in another string
+# Value   =INSTR(String1,String2,start8)        Find a string in another string
+                                                starting at specified character
+! print   INVERSE                               Set Inverse characters
+! INVERSE                                       Set Inverse characters
+! INVERSE =Value8                               Set INVERSE character
+! Value   =INVERSE                              Get INVERSE character
+-------------------------------
+  KEY(0)                                        CHANGED TO KEY
+  KEY(1)                                        CHANGED TO KEY END
+  KEY(2)                                        CHANGED TO KEY NEXT
+  KEY(3)                                        CHANGED TO KEY FLAG
+$ Value   =KEY                                  Return keypress (if any)
+$ Value   =KEY END                              1 If 'stop' char pressed
+$ Value   =KEY NEXT                             1 If 'next' char pressed
+$ Value   =KEY FLAG                             Any interrupt char pressed
+  KILL     Filename                             Delete a file
+  KILL     #MSG(Value16)                        Delete a message
+-------------------------------
+! LEADIN   =Value8                              Set LEADIN character
+! Value    =LEADIN                              Get LEADIN character
+  String    =LEFT$(String,Value8)               Get left part of a string
+  Value     =LEN(String)                        Get length of a string
+$ LINK                                          CHANGED TO CHAIN
+! LOCK                                          See DISK statement
+! LOCK     Filename                             Lock a file
+$ LOG     DriveSpec                             CHANGED TO PREFIX
+! LOWER$(String)                                Convert string to lower case
+! LTRIM$(String)                                Trim strings trailing spaces
+-------------------------------
+  MARK(Channel(File|10))       =Value           Set file mark
+  Value    =MARK(Channel(File|10))              Get file mark
+  String   =MID$(String,Value8)                 Get part of a string, starting
+                                                at specified point to end
+  String   =MID$(String,Value8,Value8)          Get part of a string, starting
+                                                at specified point, for
+                                                specified number of characters
+! MID$(string,Value8)=string                    copy a string into part of
+                                                another, starting at specified
+                                                point, to end of string
+! MID$(string,Value8,Value8)=string             copy a string into part of
+                                                another, starting at specified
+                                                point, to end of string, or to
+                                                the specified size.
+! MIXED$(String)                                Convert string to mixed case
+$ MODE    =Value8                               Set backspace mode
+$ Value   =MODE                                 Get backspace mode
+  MODEM(0)                                      NOT USED IN LLUCE (REMOVE)
+  MODEM(1)                                      CHANGED TO MODEM READY
+  MODEM(2)                                      CHANGED TO MODEM NOCAR
+$ MODEM   READY                                 Wait for a call
+$ MODEM   NOCAR                                 Hang up
+! MODEM   ONLINE=Value8                         Dial out at Value8 100 baud
+! MODEM   TIME$=String                          Set auto logon time
+! MODEM   CLEAR                                 Clear auto logon
+! print   MOUSE                                 Set Mousetext characters
+! MOUSE                                         Set Mousetext characters
+! MOUSE   =Value8                               Set MOUSE character
+! Value   =MOUSE                                Get MOUSE character
+  MOVE     Address,Bytes TO Address             Move data
+  MSG(Value16)                 =Value           Set message data
+# MSG(Value16,Value2)         =Value            Set message data indexed
+  Value    =MSG(Value16)                        Get message data
+# Value   =MSG(Value16,Value2)                  Get message data indexed
+$ Value   =MSG FREE                             Get message file blocks free
+$ Value   =MSG SIZE                             Get message file capacity
+-------------------------------
+! NAME    Filename,Filename                     Rename a file
+  NEXT                                          End of closest FOR loop
+! NEXT    Nvar                                  End of specified FOR loop
+                                                Also see FOR and KEY statements
+  NIBBLE   =Address                             Set NIBBLE address
+  Value    =NIBBLE                              Get NIBBLE address
+  NIBBLE(Value8)               =(Value4)        Set a NIBBLE
+  Value    =NIBBLE(Value8)                      Get a NIBBLE
+  NOCAR                                         See ON and MODEM statements
+! Value   =NODE                                 Get network NODE number
+! print   NORMAL                                Set normal characters
+! NORMAL                                        Set normal characters
+! NORMAL  =Value8                               Set NORMAL character
+! Value   =NORMAL                               Get NORMAL character
+$ NULLS   =Value8                               Set number of nulls
+$ Value   =NULLS                                Get number of nulls
+-------------------------------
+! OFF                                           See EDIT and FLASH statements
+! OFFSET  =Value8                               Set OFFSET character
+! Value   =OFFSET                               Get OFFSET character
+! ON                                            See EDIT and FLASH statements
+? ON ERROR :                                    Clear error detect
+? ON ERROR GOTO Label                           Set error routine
+! ON N GOTO Label1,Label2,Label3                Indexed goto
+! ON N GOSUB Label1,Label2,Label3               Indexed gosub
+  ON NOCAR :                                    Clear carrier loss detect
+  ON NOCAR GOTO Label                           Set carrier loss routine
+! ON N PUSH Label1,Label2,Label3                Indexed push
+! ONLINE                                        See CLOCK and MODEM statements
+$ Value   =ONLINE                               Get online/local status
+  OPEN     #Channel(File),Filename              Open any file for read/write
+* OPEN READ #Channel(File),Filename             Open any file for read only
+* OPEN WRITE #Channel(File),Filename            Open any file for write only
+! OVERLAY  Filename[,Parameters]                Execute an overlay
+-------------------------------
+  Value    =PDL(Value4)                         Get game control value
+  Value    =PEEK(Address)                       Get value at address
+  POKE     Address,Value                        Put value to address
+  POP                                           Remove subroutine
+  POSITION #Channel(File),Reclen,Recnum         Position to start of record
+  POSITION #Channel(File),Reclen,Recnum,Byte    Position to specified byte of
+                                                record
+! PREFIX                                        Set to startup prefix
+$ PREFIX Pathname                               Set the prefix
+! String  =PREFIX                               Get current prefix
+  PRINT                                         Print data
+  PUBLIC   Label                                Set a public label
+! PUSH                                          See ON statement
+  PUSH     Label                                Push routine to return to
+-------------------------------
+  RAM                                           CHANGED TO RAM OR RAM(0)
+  RAM2                                          CHANGED TO RAM(1)
+$ RAM                                           Location of scratch Ram
+$ RAM(0)                                        Location of scratch Ram
+$ RAM(1)                                        Location of scratch Ram 1
+  RAM(2)                                        Location of scratch Ram 2
+  RAM(3)                                        Location of scratch Ram 3
+  Value    =RANDOM(Value)                       Get a random value
+  READ     #Channel(File),Address,Bytes         Read binary data
+  READY                                         See MODEM statement
+  READY    Filename|Nullstring                  Get a message file ready
+  RECALL   Filename                             Recall program variables
+  RESUME                                        Resume program after error
+  RETURN                                        Return from subroutine
+  REWIND                                        Restart current ,essage
+  String   =RIGHT$(String,Value8)               Get right part of a string
+  String   =RND$                                Get a random character
+! RTRIM$(String)                                Trim strings leading spaces
+-------------------------------
+  SET      String=Address,Length                Set variable pointer
+$ SET MSG =Value8                               Set top of screen message
+  SETINT(String)                                Set interrupt character
+! SIZE                                          See EDIT and MSG statements
+  SIZE(Channel(File))                           Get file size
+  STEP                                          See FOR statement
+  STORE    Filename                             Save program variables
+  String   =STR$(Value)                         Make numeric string
+-------------------------------
+  TERMINAL =Value8                              Set terminal type number
+  Value    =TERMINAL                            Get terminal type number
+  TEXT                                          NOT USED IN LLUCE, SEE WINDOW
+  THEN                                          See IF statement
+  String   =TIME$                               Get current time, 24 hour
+! String  =TIME12$                              Get current time, 12 hour
+  TO                                            See FOR and MOVE statements
+! print TONE(Value8,Duration)                   Execute a pure tone
+! print TONE(Value8,Value8,Duration)            Execute a dual tone
+  TONE(Value8,Duration)                         Execute a pure tone
+  TONE(Value8,Value8,Duration)                  Execute a dual tone
+! TYPE    Filename                              Type text, SRC or AW file
+                                                to the console
+! TYPE    Filename,#Channel(File)               Type text, SRC or AW file
+                                                to the specified channel
+-------------------------------
+! UNLOCK                                        See DISK statement
+! UNLOCK  Filename                              Unlock a file
+  UPDATE                                        CHANGED TO FLUSH
+! UPPER$(String)                                Convert string to upper case
+  USE                                           NOT USED IN LLUCE, SEE OVERLAY
+-------------------------------
+  Value    =VAL(String)                         Get value of a string
+-------------------------------
+  WHEN$    =Address                             Set date storage address
+# WHEN$   =String                               Store a date
+  String   =WHEN$                               Get stored date
+$ WIDTH   =Value8                               Set editor width
+$ Value   =WIDTH                                Get editor width
+  Value    =WIDTH(Value2)                       Get fixed widths
+! WINDOW  =Value8                               Set window top
+! WINDOW  =Value8,Value8                        Set window top and bottom
+! WINDOW  =Value8,Value8,Value8                 Set window top, bottom and left
+! WINDOW  =Value8,Value8,Value8,Value8          Set all window limits
+           First  Value =Screen Top
+           Second Value =Screen Bottom
+           Third  Value =Screen Left
+           Fourth Value =Screen Right
+! WORD    =Address                              Set word address
+! Value   =WORD                                 Get word address
+! WORD(Value8)                =(Value16)        Set a word
+! Value   =WORD(Value8)                         Get a word
+  WRITE    #Channel(File),Address,Bytes         Write binary data
+----------------------------------------------------------------------------
+    Value 1  =        0 through       1
+    Value 2  =        0 through       3
+    File     =        1 through       3
+    Value 4  =        0 through      15
+    Byte     =        0 through     255
+    Bytes    =        0 through     255
+    Length   =        0 through     255
+    Lines    =        0 through     255
+    Reclen   =        0 through     255
+    Value 8  =        0 through     255
+    Address  =        0 through   65535
+    Recnum   =        0 through   65535
+    Subtype  =        0 through   65535
+    Value 16 =        0 through   65535
+    Value    = -8388608 through 8388607
+----------------------------------------------------------------------------
+KEY TO SYMBOLS
+
+!   New to LLUCE
+?   New as of ACOS 2.0
+#   Enhanced in LLUCE
+$   Syntax changed in LLUCE
+*   Used only on AppleTalk networks,
+    modifier (READ or WRITE) ignored if no AppleTalk network present
+
+If no notation preceeds a command, the command has the same syntax as ACOS
+----------------------------------------------------------------------------
diff --git a/SOURCE/DATA/CHANGES b/SOURCE/DATA/CHANGES
new file mode 100644
index 0000000..832a3ad
--- /dev/null
+++ b/SOURCE/DATA/CHANGES
@@ -0,0 +1,138 @@
+L & L  Universal Communications Environment (LLUCE)
+
+This document was prepared by Andrew Wells on November 27, 1992.
+
+This is mostely just a list of the differences between LLUCE and ACOS,
+comparing LLUCE with a system that a lot of people already are familiar with.
+
+LLUCE has been long in coming, but I think those who have had the patience to
+wait won't be disappointed.  I have spent many hours, days, etc. putting
+everything I and others could think of into it without making it so big that it
+wouldn't fit within a 128k environment.  I also didn't want to take so much
+time adding stuff that wouldn't get used (at least not much), like arrays, that
+it take even longer to release, and would tend to slow it down too.
+
+This is a list of what LLUCE has evolved into.  We wanted to stay fairly close
+to the ACOS syntax so as to not confuse some of the less programming literate
+BBS owners out there, but we also wanted to make it as useful, as fast and as
+close to some of the accepted language standards out there.
+
+The following is a list of the major changes.  Minor bug fixes aren't listed
+here, but you can be sure that all reported bugs have been taken care of along
+with quite a few that no one ever came across..
+
+Source/Compiler
+---------------
+- The compiler is more than 1500% faster than ACOS was.  What this means is
+  that a segment which would take 2 minutes, 45 seconds with ACOS, when
+  converted to LLUCE syntax (probably making it a slight bit larger) will take
+  only 10 seconds to compile with LLUCE.
+- In line/multiple line (block) comments work same as pascal { }
+- Line continue character allows more free-form coding.
+- LLUCE and ACOS both allow 8 public labels per segment.  ACOS did no checking
+  at all (other than the label exists) on the number of labels, LLUCE shows an
+  error message (but continues compiling).  Also, only those labels that are
+  designated as public are available from outside of the segment (ACOS allowed
+  the first 8 labels declared)
+- Variable names may contain as many as 4 signifigant characters.  The compiler
+  will only place as many characters as are needed in the compiled code
+  (A$ with ACOS used 3 bytes, the string designator, the A and a space, LLUCE
+  uses the string designator and just the A)
+
+EXTERNAL stuff
+--------------
+- Allows shell programs to insert pathnames
+- CRC16 routines are built in
+- Overlays are only loaded if they haven't been loaded, or have been corrupted
+- Added read/write multiple bytes routines
+- DCI string print routine is callable from overlays
+- Variables can be stored and recalled by overlays
+- A routine is available that sets the current prefix to the SYSTEM prefix.
+  This is where all LLUCE system modules (Compiler, Editor and overlays) are
+  kept.
+
+Optimizations/Changes
+---------------------
+- Support for 3 disk files (one more than ACOS)
+- Full 24 bit arithmetic and variables
+- There are now 4 256 byte RAM areas instead of just 2 64 byte RAM areas
+- DriveSpecs are GONE!  Standard ProDOS pathnames are now used throughout
+
+Existing command changes
+------------------------
+- The INSTR function has been changed to allow an optional starting position
+- DATE$ and WHEN$ work with any year
+- WHEN$ lets you use any date, not just the current date
+- The NEXT command will allow the use of a variable to abort inner loops
+- Major syntax changes have been made to all those functions that required a
+  number for a parameter (eg MODEM(0)).  The syntax is more descriptive now
+- CREATE has been changed to be able to create directories and message files
+- FLAG, NIBBLE, BYTE, WORD, FILL, MOVE, READ and WRITE will accept position
+  or count parameters greater than 255
+- OPEN command allows a READ or WRITE parameter for network file access.  If no
+  READ or WRITE parameter is used, files are opened for READ/WRITE access.
+  If there is no AppleTalk network available, the access parameter is ignored.
+- The LINK command was changed to CHAIN.  LINK could mean several things
+
+New commands added
+------------------
+- ON ERROR GOTO and RESUME commands
+- WORD function (like FLAG, NIBBLE and BYTE that ACOS has, but uses 2 bytes)
+- TIME12$ can be used to get time in 12 hour format
+- EDIT ON/OFF turns profanity filter on or off
+- ON x GOSUB, ON x GOTO and ON x PUSH commands
+- RTRIM$ and LTRIM$ string trim commands
+- UPPER$, LOWER$ and MIXED$ string case conversions
+- FLASH enables or disables GS screen color changes
+- WINDOW function to set window boundaries (not fully implemented, needs
+  rewritten video driver)
+- EXIST was added to check if files exist on disk
+- LOCK, UNLOCK and RENAME are built in
+- TYPE was added to support files other than straight text (SRC, AWP)
+- The USE command was removed.  In it's place is OVERLAY.  Not only do overlays
+  load and execute in a different location than the ACOS USE files, but they
+  don't disturb the editor buffer, and their format is slightly different - see
+  Security below.
+- PREFIX was added to support ProDOS pathnames
+- Many terminal emulation commands were added.  These can be used in several
+  ways.  You can use them to generate terminal control characters, or you can
+  set or read the values of the terminal control codes.
+
+Security
+--------
+- All overlays are checked with CRC16 and ID code for validity
+- The main LLUCE code is checked for valid CRC before running to insure it's
+  integrity
+
+Messages
+--------
+- Message system allows 4 MSG numbers instead of just 1
+- MSG numbers are 24 bit numbers
+- Removed text compression/decompression so 8 bit ASCII can be used
+
+Editor
+------
+- Editor hack line was changed from ^T to ^Y (per HIN)
+- Added support for normal, inverse and moustext
+- More than one editor is possible.  The name of the editor to use can be set
+  to any editor in the LLUCE system directory
+
+Miscellaneous
+-------------
+- Waiting for call uses 2 flashing apples and current time to show it's active.
+
+- Screen saver is built in, and is active while waiting for calls
+  The screen will blank on //e, and the screen will change colors on GS
+  The screen saver timeout value can be set where you want it
+
+- The filename processor will change any illegal characters to periods (.)
+
+- The NIBBLE command stored nibbles backwards in ACOS.  This would result in
+  problems if you wanted to set values with nibbles and read them back as FLAGs
+  or BYTEs (and now WORDs).  For example, you have BYTE and NIBBLE set to RAM,
+  then set NIBBLE(0)=1, NIBBLE(1)=0.  What you should expect from a
+  PRINT BYTE(0) would be a 1, but with ACOS, you'd get a 16, and that isn't the
+  way it should be.
+
+- LLUCE allows commands to be sent to the modem, so a terminal program could be
+  written that supports dialing.
diff --git a/SOURCE/DATA/FTN.2D.8002 b/SOURCE/DATA/FTN.2D.8002
new file mode 100644
index 0000000..f889183
--- /dev/null
+++ b/SOURCE/DATA/FTN.2D.8002
@@ -0,0 +1,86 @@
+L&L Productions
+File Type Notes
+______________________________________________________________________________
+
+File Type:  $2D
+Auxtype:    $8002
+
+Name:       All Purpose Communications Operating System Message File Format
+
+Written By: Andy Wells                                     January, 1990
+
+Format of files used to store messages by ACOS
+______________________________________________________________________________
+
+This file is used to store packed text used for messages and mail.
+There are four parts to the file.
+
+The first part is a header, containing information about the file itself as
+well as a copy of the data for the highest used message number.
+The header is always 8 bytes long.
+
+The second part is a bitmap containing bits that refer to individual blocks
+within the actual text storage area of the file.
+
+The third part is the directory containing information relating to each message
+in the file.
+
+The fourth part is used for actual text storage.
+
+HEADER FORMAT
+-------------
+
+$00  BITSIZE    Byte          Size of bitmap in blocks
+
+$01  DIRSIZE    Byte          Size of directory in blocks
+
+$02  USEDBLKS   Word          Number of blocks in use
+
+$04  NUMFILES   Word          Actual number of messages in file
+
+$06  HIMSGNUM   Word          Number of last message in file
+
+BITMAP FORMAT
+-------------
+
+Each bitmap block is 128 bytes long.  Each byte contains 8 bits corresponding
+to available blocks in the text storage area of the file.  The bit pattern is
+from least significant bit to most significant bit.  Eg: Bit 0 of byte 0
+corresponds to block 0.
+
+There are 4 bytes for each message allowed in the file.  This allows for
+messages up to a total of 4K each.  If some messages are shorter, then others
+can be longer.
+
+DIRECTORY FORMAT
+----------------
+
+$00  BLKPTR     Word          Pointer to first block used by this message
+                              If zero, this message has been deleted.
+
+$02  MSGNUM     Wordt         Message number
+
+Message numbers are referred to by the command MSG(X)
+
+TEXT AREA FORMAT
+----------------
+
+$00  TEXT       126 Bytes     Packed text.  8 bytes are packed into 7 bytes
+$7D                           with the last byte stored in the high bit of
+                              the first 7 bytes.  Bits of the last byte are
+                              stored in order, low order bit first.
+
+$7E  NXTBLK     Word          Pointer to next block of message.
+                              If zero, there are no more blocks.
+
+------------------------------------------------------------------------------
+
+The header starts at byte 0 of the file.
+The bitmap starts at byte 8.
+To calculate the start of the directory, use the following formula:
+
+Dir Start = 8 + (BITSIZE * 128)
+
+To calculate the start of the text area, use the following formula:
+
+Text Start = 8 + (BITSIZE * 128) + (DIRSIZE * 128)
diff --git a/SOURCE/DATA/FTN.2D.8004 b/SOURCE/DATA/FTN.2D.8004
new file mode 100644
index 0000000..8a00445
--- /dev/null
+++ b/SOURCE/DATA/FTN.2D.8004
@@ -0,0 +1,101 @@
+L&L Productions
+File Type Notes
+______________________________________________________________________________
+
+File Type:  $2D
+Auxtype:    $8004
+
+Name:       L&L Universal Communications Environment Message File Format
+
+Written By: Andy Wells                                     January, 1990
+
+Format Of Files Used To Store Messages By LLUCE.
+______________________________________________________________________________
+
+This file is used to store text used for messages and mail.
+There are four parts to the file.
+
+The first part is a header, containing information about the file itself as
+well as a copy of the data for the highest used message number.
+The header is always 32 bytes long.
+
+The second part is a bitmap containing bits that refer to individual blocks
+within the actual text storage area of the file.
+
+The third part is the directory containing information relating to each message
+in the file as well as the first block used by the message.
+
+The fourth part is used for actual text storage.
+
+HEADER FORMAT
+-------------
+
+$00  BITSIZE    Byte          Size of bitmap in blocks
+
+$01  DIRSIZE    Byte          Size of directory in blocks
+
+$02  USEDBLKS   Word          Number of blocks in use
+
+$04  NUMFILES   Word          Actual number of messages in file
+
+$06             Word          Reserved
+
+$08  HIMSGNUM   Long word     First number of last message in file
+$0C             Long word     Second number of last message in file
+$10             Long word     Third number of last message in file
+$14             Long word     Fourth number of last message in file
+
+$18             8 Bytes       Reserved
+
+4 byte numbers are stored low byte first.  High order bit of the third byte is
+used as a negative flag.
+
+BITMAP FORMAT
+-------------
+
+Each bitmap block is 128 bytes long.  Each byte contains 8 bits corresponding
+to available blocks in the text storage area of the file.  The bit pattern is
+from least significant bit to most significant bit.  Eg: Bit 0 of byte 0
+corresponds to block 0.
+
+There are 16 bytes for each message allowed in the file.  this allows for
+messages up to a total of 8K each.  If some messages are shorter, then others
+can be longer.
+
+DIRECTORY FORMAT
+----------------
+
+$00  BLKPTR     Word          Pointer to first block used by this message
+                              If zero, this message has been deleted.
+
+$02  MSGx       3 Bytes       First number of message
+                3 Bytes       Second number of message
+                3 Bytes       Third number of message
+                3 Bytes       Fourth number of message
+
+$0E             Word          Reserved
+
+Message numbers are referred to by the command MSG(X) or MSG(X,Y).
+
+MSG(X) is equivalent to MSG(X,0).  Y is in the range 0..3.
+
+TEXT AREA FORMAT
+----------------
+
+$00  TEXT       126 Bytes     This is standard text, no formatting is done.
+$7D
+
+$7E  NXTBLK     Word          Pointer to next block of message.
+                              If zero, there are no more blocks.
+
+------------------------------------------------------------------------------
+
+The header starts at byte 0 of the file.
+The bitmap starts at byte 32.
+To calculate the start of the directory, use the following formula:
+
+Dir Start = 32 + (BITSIZE * 128)
+
+To calculate the start of the text area, use the following formula:
+
+Text Start = 32 + (BITSIZE * 128) + (DIRSIZE * 128)
diff --git a/SOURCE/DATA/HISTORY b/SOURCE/DATA/HISTORY
new file mode 100644
index 0000000..2c465ae
--- /dev/null
+++ b/SOURCE/DATA/HISTORY
@@ -0,0 +1,988 @@
+Date	Who
+Segment		Action : Description
+----------------------------------------------------
+11/04/89 AMW
+
+SETUP		Changed: Allows shell programs to insert pathnames
+		Added  : Additional error checking display of actual LLUCE
+			 pathname
+INIT		Bug Fix: Useing pathname supplied by shells
+-----------------------------------------------------
+11/06/89 AMW
+
+SETUP		Changed: Default pathname so that the current prefix is used
+			 with the filename LLUCE.SYSTEM
+START
+PROG.SUBS
+MISC.CMDS	Removed: RSETUP and all calls to it
+START		Changed: IRQ handler now calls modem routine
+DISK		Bug Fix: DO_MAKE, message file create
+LOAD		Bug Fix: LD_MOD0, if .S and .C files dont exist
+-----------------------------------------------------
+11/07/89 AMW
+
+ALL SEGMENTS	Added  : History section
+		Added  : Segment titles
+MAKE.DRIVERS
+LLUCE
+GLOBALS		Renamed: DRVSPEC to GLOBALS
+FILTER		Removed: SUCK from list (too common in context)
+ALL MODEMS	Changed: For LLUCE
+-----------------------------------------------------
+11/09/89 AMW
+
+EQUATES		Changed: Interrupt ROM vector address
+START		Moved  : Modem IRQ setup call from IO.CMDS to START
+		Bug Fix: STACKSET, page 0 is not used
+TOKENS		Added  : Second token text list and second token jump table
+INIT		Removed: SEI's so network can be used
+COMP.MAIN	Added  : In-line/multiple line comments works same as Pascal
+			 { } but not */ /* (Changed to C syntax later)
+-----------------------------------------------------
+11/10/89 AMW
+
+MAKE.DRIVERS
+LLUCE
+INIT		Added  : 1 page for drivers
+GLOBALS
+INIT		Added  : AppleShare stuff
+PROG.SUBS	Added  : Code for second dispatch table
+INIT		Added  : Check for 128K 'enhanced'
+		Removed: Reset vector patch
+COMP.MAIN	Changed: TOKEN for different way to search which makes this
+			 thing fly
+		Added  : Code for double token tables
+ALL MODEMS	Added  : Interrupt buffers (removed later)
+-----------------------------------------------------
+11/11/89 AMW
+
+STRING
+TOKENS
+COMP.MAIN	Added  : UPPER/LOWER/MIXED case conversions
+DATETIME	Bug Fix: DATE$, any year can be used
+			 (also fixes same problem in WHEN$)
+-----------------------------------------------------
+11/12/89 AMW
+
+STRING
+TOKENS
+COMP.MAIN	Added  : TRIM command
+-----------------------------------------------------
+11/13/89 AMW
+
+EQUATES		Added  : Error address location ($E0)
+			 Equate for RAMAREA WORD pointer
+START		Added  : Save of error location (for RESUME)
+FLOW
+TOKENS
+COMP.MAIN	Added  : RESUME command
+MISC.CMDS	Changed: CLEAR, resets error location
+RAMCARD		Added  : 'no error occurred' message
+-----------------------------------------------------
+11/14/89 AMW
+
+SETUP		Changed: For new START location in LLUCE
+MAKE.DRIVERS
+LLUCE
+INIT		Added  : Another page for drivers
+LLUCE		Moved  : System entry point here
+		Split  : RAMCARD into 3 parts TOKENS, RAMCARD And RAMAREA
+			 (RAMAREA will be duplicated in OVERLAYS)
+GLOBALS		Added  : ProDOS entry point vector
+RAMAREA		Removed: Labels SYMNUM, LBLNUM, LNCNT2, TOKTYP
+DISK
+INIT		Changed: ProDOS calling routine and quit routine to use vector
+			 in global page
+MEMORY
+TOKENS
+COMP.MAIN	Added  : WORD function
+INIT		Moved  : Code (move to page 3 not required any more)
+		Changed: Id routine rejects only unenhanced ROM signatures
+		Removed: 65C02 opcodes before id test
+		Moved  : Init routines to end of LLUCE instead of beginning
+COMPILER	Changed: For multiple PUT files
+COMP.MAIN	Removed: Label LNCNT (now located in RAMAREA)
+EDIT.SUBS	Added  : DO_MATH, ascii to hex convert
+-----------------------------------------------------
+11/15/89 AMW
+
+EQUATES		Added  : Modem slot
+		Added  : CRC table buffers
+-----------------------------------------------------
+11/16/89 AMW
+
+ALL MODEMS	Changed: MDMIRQ to handle IRQs
+-----------------------------------------------------
+11/20/89 AMW
+
+LLUCE		Changed: Gets modem driver from MODEMS directory
+EQUATES
+IO.CMDS		Added  : MDM1, flashing apple indicator
+-----------------------------------------------------
+11/21/89 AMW
+
+LLUCE
+GLOBALS		Moved  : Startup pathname from GLOBALS to LLUCE
+PROG.SUBS	Bug Fix: NUMIN and ZNUMIN for negatives
+INIT		Added  : Prefix check at start of INIT
+EDIT.SUBS	Bug Fix: NUMIN
+-----------------------------------------------------
+11/22/89 AMW
+
+LLUCE		Changed: All moved areas aligned to page boundarys
+
+LLUCE, CMD, CMD2, FLOW, STRING, MEMORY, DATETIME, IO.CMDS, MISC.CMDS
+		Moved  : Command segments into more logical pieces
+COMPILER
+COMP.MAIN	Moved  : Into 2 files for future stand-alone compiler
+-----------------------------------------------------
+11/23/89 AMW
+
+OVERLAY.CRC	Added  : Program to calculate CRC's for overlays
+GLOBALS
+PROG.SUBS	Added  : CRC16 routine, tables and storage
+LOAD		Added  : CRC test for overlays
+RAMCARD		Added  : 4 bytes to overlay ID areas (8 total)
+INIT		Added  : CRC check for main code
+ENCODE		Added  : CRC count
+ALL OVERLAYS	Added  : Storage for CRC and code size
+-----------------------------------------------------
+11/27/89 AMW
+
+IO.CMDS		Changed: MDM1, flashing apple time constant
+INIT		Bug Fix: CRC check
+-----------------------------------------------------
+11/28/89 AMW
+
+EQUATES		Added  : Equate for line 23
+GLOBALS		Added  : Time display flag
+FLOW		Bug Fix: IFGOB, could cause errors
+			 when 2nd token table was used
+DATETIME
+TOKENS		Added  : DO_TIME2, for 12 hour time
+IO.CMDS		Changed: MDM1, for 2 flashing apples time and apples moved to
+			 line 23 allows 12 or 24 hour time display selection
+			 from global page
+MISC.CMDS	Changed: Variable LET routine, makes sure all strings are in
+			 string space
+TOKENS
+COMP.MAIN	Changed: Token order
+-----------------------------------------------------
+11/30/89 AMW
+
+TOKENS		Added  : Room for special tokens at beginning of table
+-----------------------------------------------------
+12/01/89 AMW
+
+ALL PRINTERS
+ALL CLOCKS	Moved  : Into different files
+-----------------------------------------------------
+12/17/89 AMW
+
+EQUATES		Removed: Typeahead buffer (See PROG.SUBS)
+		Changed: Size of ramdisk to 256 bytes
+		Moved  : Ramdisk to ramcard area
+IO.SUBS		Changed: PUTCHR and GETCHR for 256 byte buffer
+		Moved  : Typeahead buffer to modem driver space
+PROG.SUBS	Changed: RAMIN/RAMOUT for 256 byte buffers RAMIN/RAMOUT buffer
+			 to ramcard ADDCRC to save X
+MISC.CMDS	Bug Fix: EDIT SET/CLEAR
+ENTRY		Added  : Entry point for ADDCRC
+EQUATES		Changed: Buffer locations
+DISK		Changed: DO_OPEN, support for 3 files
+			 IFOPEN,	"
+			 DO_CLOS,	"
+			 DO_CL3,	"
+			 DISKIN,	"
+			 DSKOUT,	"
+			 GETDEV,	"
+			 CHKDSK,	"
+			 GET_CHNL,	"
+			 DO_MARK,	"
+			 DO_SHOW,	"
+			 DO_MAKE,	"
+MSG		Changed: DO_RDY, changed ref numbers
+MISC.CMDS	Changed: DO_CLR, changed ref numbers
+RAMCARD		Added  : Third file channel to INPVEC/OUTVEC
+		Changed: DEVTBL for third file channel
+		Added  : Third position to REFTAB
+		Added  : Third file buffer address to BUFADR
+-----------------------------------------------------
+12/18/89 AMW
+
+START		Added  : SOFTEV fix so reset does not reboot if M or S is
+			 entered to the restart prompt
+IO.CMDS		Changed: Window function.  window can no longer be read.
+			 All parms can now be set
+			 NOTE: screen handler not changed
+-----------------------------------------------------
+12/26/89
+
+LOAD		Changed: AUXTYPE test for .S files to retain compatibility with
+			 programs that check AUXTYPE for record length
+-----------------------------------------------------
+12/28/89 AMW
+
+MSG		Changed: DO_RDY, FINISH, DO_MSG, MSG and DO_CNCH
+			 for 24 bit numbers, 16 byte header
+DISKIO		Changed: POSMSG, for 16 byte header
+-----------------------------------------------------
+12/29/89 AMW
+
+EQUATES		Added  : Characters for normal, inverse and mousetext
+			 to editor characters
+		Changed: Editor hack line from ^T to ^Y (Apple suggested)
+RAMAREA
+MSG
+MISC.CMDS	Added  : More descriptive labels for MSGINFO
+DISK		Bug Fix: MAKEMSG to zero DEVUSED
+		Changed: MAKEMSG for larger MSG directory size.
+			 Allows for 24 bit numbers in messages
+EDIT.MAIN	Added  : Normal, inverse and moustext
+-----------------------------------------------------
+12/30/89 AMW
+
+ALL SEGMENTS	Moved  : All history to separate file
+RAMCARD		Changed: Error messages
+-----------------------------------------------------
+12/31/89 AMW
+
+PROG.SUBS	Bug Fix: LIST, when displaying secondary tokens
+-----------------------------------------------------
+01/02/90 AMW
+
+LOAD		Bug Fix: Filename too long returns proper error.
+			 If segment and source dont exist returns error
+DATETIME	Changed: WHEN$ to allow specified dates
+-----------------------------------------------------
+01/03/90 AMW
+
+IO.SUBS		Moved  : PUTCHR & GETCHR to HIGH.SUBS
+PROG.SUBS	Moved  : INPTYP, BINDEC8, ADDCRC, RAMIN & RAMOUT to HIGH.SUBS
+VAR		Moved  : DO_FRE to HIGH.SUBS
+FLOW		Moved  : IFGOB, DO_NOCD & DO_ONERR to HIGH.SUBS
+MISC.CMDS	Moved  : CLRSMT & DO_RNDS to HIGH.SUBS
+HIGH.SUBS	Added  : New file for above routines
+MODEMS		Moved  : Typeahead buffer to ramcard area free up 1 page
+LLUCE
+INIT		Changed: For moved typeahead buffer
+-----------------------------------------------------
+01/07/90 AMW
+
+DISK		Changed: DO_MAKE, for 8K messages in file
+MSG		Bug Fix: Messed up block pointers
+-----------------------------------------------------
+01/08/90 AMW
+
+START		Bug Fix: STACKSET, X now saved in main memory (STACKSET removed
+			 later as it could not work as a subroutine)
+DISK		Changed: Rearranged routines, in a more ProDOS call order
+-----------------------------------------------------
+01/10/90 AMW
+
+DISK		Moved  : MAKEMSG to MSG
+MSG		Bug Fix: Message System Number Storage
+		Bug Fix: Made very large disk file (Sparce)
+		Added  : MSG(X,0..3)
+-----------------------------------------------------
+01/11/90 AMW
+
+SETUP		Changed: To allow any serial number.
+-----------------------------------------------------
+01/12/90 AMW
+
+SETUP		Bug Fix: Pointers not reset after first setup
+-----------------------------------------------------
+01/30/90 AMW
+
+IO.SUBS		Bug Fix: GET, OA commands, convert to upper case
+-----------------------------------------------------
+01/31/90 AMW
+
+LLUCE		Changed: Version number to beta 1
+LOAD		Added  : Compiler version test
+VAR		Bug Fix: STRCOPY, now checks string length
+RAMCARD		Added  : Incompatible compiler version message
+INIT		Added  : Version number insertion
+COMPILER	Added  : Version number
+COMP.MAIN	Added  : Version number storage
+-----------------------------------------------------
+02/03/90 AMW
+
+MISC.CMDS	Bug Fix: DO_LET, new string test removed, all strings not in
+			 variable space moved to string stack.
+-----------------------------------------------------
+02/06/90 AMW
+
+FINDOPEN	Changed: Field parameter added.
+			 Returned code now in field parameter
+		Bug Fix: Returned codes are proper codes now
+-----------------------------------------------------
+02/12/90 AMW
+
+VAR		Changed: VARSET, extra entry point added
+			 for variable search by name
+FLOW		Changed: DO_FOR, instead of variable location used for NEXT,
+			 variable name now used
+		Changed: DO_NEXT, variable searched for by name instead of
+			 location, variable may now be specified for NEXT.
+MISC.CMDS	Changed: DO_LET, if string variable is being set,
+			 then CHKFRE is executed.
+-----------------------------------------------------
+02/14/90 AMW
+
+IO.CMDS		Bug Fix: Print routine skipped commas, clear hi bit
+INIT		Added  : Check for last used device, per apple removal of
+			 /RAM device
+-----------------------------------------------------
+02/23/90 AMW
+
+VAR		Bug Fix: Added check for high order tokens.
+			 Fixes problem with INPNUM checking invalid tokens
+-----------------------------------------------------
+03/01/90 AMW
+
+EQUATES
+GLOBALS		Changed: Moved ERRNO from EQUATES to GLOBALS
+MISC.CMDS	Bug Fix: DO_LET, strings not getting moved to scratch RAM.
+-----------------------------------------------------
+03/05/90 AMW
+
+(OVERLAYS DIR)
+ENTRY		Bug Fix: Modem driver size back to $400 bytes
+RNDSORT		Bug Fix: Main bug from wrong modem driver size put read/write
+			 Routines in subroutines rearranged code so no reload.
+EDIT.MAIN	Bug Fix: ED_RW pathname now moved properly
+-----------------------------------------------------
+03/19/90 AMW
+
+INIT		Changed: AppleTalk ID routines.  Checks if AppleTalk available,
+			 and if LLUCE launched from an AppleTalk volume
+GLOBALS		Added  : AppleTalk launch flag
+-----------------------------------------------------
+03/20/90 AMW
+
+START		Changed: Removed STACKSET (Possibly causes AppleTalk to crash)
+-----------------------------------------------------
+03/24/90 AMW
+
+ALL SEGS WITH	Added  : Code for AppleTalk special open
+FILE OPEN CALLS		 for file locking on network
+-----------------------------------------------------
+03/26/90 AMW/LTW
+
+INIT		Bug Fix: AppleTalk now recognized as existing and as launching
+			 volume.  Global flags now set properly.
+-----------------------------------------------------
+03/29/90 AMW
+
+ALL SEGS	Added  : Extra comments added some extra code removed
+-----------------------------------------------------
+04/13/90 AMW
+
+GLOBALS		Added  : Screen saver timeout value
+IO.CMDS		Added  : Screen saver while waiting for call
+HIGH.SUBS	Added  : Screen data move routines
+-----------------------------------------------------
+04/14/90 AMW
+
+PROG.SUBS	Changed: Negative conversion for INPNUM
+VAR		Changed: Rearranged routines
+MATH		Bug Fix: Multiply/Divide start and end routines
+			 for negative numbers
+-----------------------------------------------------
+04/16/90 AMW
+
+COMPILER	Changed: Split compiler into sections for easier modifications
+COMP.MAIN	Added  : Check for line continue character
+			 to allow more free-form coding
+COMP.SUBS
+COMP.TOKENS	Changed: Split from compiler main code
+-----------------------------------------------------
+05/03/90 AMW
+
+EQUATES		Changed: Location of scratch ram buffer
+MEMORY		Changed: RAM, to allow 4 ram areas accessed by RAM(X)
+MISC.CMDS	Changed: EDIT, so edit buffer location is returned by X=EDIT
+TOKENS
+COMP.TOKENS	Changed: Removed RAM2, RAM3 tokens
+MEMORY.MAP	Changed: To reflect changes to RAM
+SYNTAX		Changed: To reflect changes to RAM and EDIT commands
+LLUCE
+COMPILER	Changed: Version number to main program/compiler
+			 for token changes
+-----------------------------------------------------
+05/11/90 AMW
+
+MEMORY		Changed: FLAG, NIBBLE, BYTE, WORD, FILL, MOVE
+			 for positions greater than 255
+DISK		Changed: READ, WRITE for positions greater than 255
+-----------------------------------------------------
+05/12/90 AMW
+
+COMPILER
+COMP.MAIN
+COMP.SUBS
+COMP.TOKENS	Changed: Modified for ON GOSUB, GOTO, PUSH
+FLOW
+TOKENS.JMP
+TOKENS.TXT	Changed: Added ON GOSUB, GOTO, PUSH
+-----------------------------------------------------
+05/13/90 AMW
+
+LOAD		Changed: MOVNAME, changes illegal characters to '.'
+-----------------------------------------------------
+07/11/90 AMW
+
+STRING		Added  : LEFTRIM, leading space trim
+TOKENS.JMP
+TOKENS.TXT	Changed: TRIM to RTRIM$
+			 UPPER to UPPER$
+			 LOWER to LOWER$
+			 MIXED to MIXED$
+		Added  : LTRIM$
+-----------------------------------------------------
+07/17/90 AMW
+
+All Segs	Changed: All 'DO_' labels to remove the 'DO_'
+			 for more descriptive labels
+EQUATES		Changed: Repositioned zero page labels in a more logical order
+-----------------------------------------------------
+07/20/90 AMW
+
+MISC.CMDS	Bug Fix: LET, now properly allocates strings in high memory
+-----------------------------------------------------
+08/07/90 AMW
+
+MEMORY		Changed: FLAG, NIBBLE, BYTE, WORD will not store data at $0000
+-----------------------------------------------------
+08/08/90 AMW
+
+DATETIME	Bug Fix: DATE$, TIME$, FMTDATE$, WHEN$, FMTWHEN$
+			 forced copy of strings to dtring space
+-----------------------------------------------------
+09/21/90 AMW
+
+EQUATES		Added  : GS screen color equates
+GLOBALS		Added  : Flag for useing GS
+INIT		Added  : Check for GS
+IO.CMDS		Changed: Screen will blank on //e,
+			 Screen will change colors on GS
+-----------------------------------------------------
+05/01/91 AMW
+
+ALL SEGS	Added  : Contents header
+DISK		Added  : SYSSTORE, store variables from external
+			 SYSRCAL, recall variables from external
+-----------------------------------------------------
+Sometime between the last date and the following date AMW
+
+- Restructured source code directories
+- Completely rewrote the variable compress/uncompress routines
+- Rewrote STORE and RECALL to work with the new compression routines
+- Changed the variable handler to allow 4 char names, or to use less
+- Changed the compiler to so it will only put as many chars as are in a
+  variable's name into the code
+- Variables now use 8 bytes each instead of 6
+- Changed LIST to properly list the new variables and numbers
+- Made FREE use compress/uncompress to remove unused strings
+- Added the FLASH command to enable/disable GS screen color changes
+- Changed GETRAW so it keeps the status of the byte gotten
+- Fixed a problem with negative numbers causing overflows where they shouldn't
+- Major syntax changes to remove all the cryptic functions
+- Fixed FOR and NEXT to work with the new variable format
+- Added read/write multiple bytes routines to DISK, and entry points
+- Added OFF token
+- Removed INFO token
+- Changed all local and variable labels (in the source) to normal labels
+- Changed the compiler so it handles any of the changes mentioned that it
+  is supposed to handle
+- Fixed a bug in the compiler so it would handle block comments with the
+  { in the first column (Comments later changed, see 01/21/93)
+- EDIT SET/CLEAR changed to EDIT ON/OFF
+-----------------------------------------------------
+11/17/92 AMW
+
+START		Changed: code order so error messages aren't printed if
+			 the ONERR flag is set
+MISC.CMDS	Changed: EDIT command to pass the next token to the editor
+HIGH.SUBS	Bug fix: IFGOB to check the proper byte (next, not current)
+EDITOR		Bug fix: Changed some DCI's to ASC's that caused problems
+			 when printing certain text
+-----------------------------------------------------
+11/18/92 AMW
+
+FLOW		Changed: RESUME to use the IFGOB routine to avoid code dup
+EDIT.SUBS	Bug Fix: FINDLN.  It wasn't counting down properly since a
+			 LDA was missing (left out by accident when optimizing
+			 the editor's code)
+-----------------------------------------------------
+11/19/92 AMW
+
+HIGH.SUBS	Bug fix: IFGOB to not check for quotes in variable name eat
+-----------------------------------------------------
+11/22/92 AMW
+
+START		Changed: Clear the onerr flag prior to executing error handler
+COMP.MAIN	Bug fix: Public label area zero routine was clearing the
+			 wrong 128 bytes.
+HIGH.SUBS	Bug fix: IFGOB - so the ON token is handled properly (if at the
+			 start of a line, or statement, it's an ON x, ON ERROR
+			 or ON NOCAR, otherwise it's a modifier token)
+START		Bug Fix: PRGINIT - Changed call to CLOSE to PD_CLOSE
+			 This properly closes all files
+			 (it was not closing message files)
+MSG		Bug Fix: CRUNCH - Was still skipping 4 bytes (ACOS size)
+			 changed to skip 16 bytes per directory entry
+			 KILL2 - Killed 2 messages, the specified one and the
+			 one following.
+MSG		Changed: Removed text compression/decompression code.
+-----------------------------------------------------
+11/23/92 AMW
+
+STRING		Changed: INSTR - Added starting location
+COMPILER	Changed: Altered public label copier so it copies only public
+			 labels, and no extra garbage to file header block
+-----------------------------------------------------
+12/11/92 AMW
+
+DRIVEREQU	Added  : Entry points for MDMCBUF and MDMQUIT
+START		Added  : Call to MDMQUIT when quitting LLUCE
+DISKIO		Bug Fix: ADDINT parameter count changed to 2
+-----------------------------------------------------
+12/14/92 AMW
+
+COMP.MAIN	Bug Fix: Fixed bug that was caused by a ! (an ON token)
+			 in a literal.
+			 this resulted in the next GOTO, GOSUB or PUSH
+			 being interpreted as the corresponding ON xxx
+-----------------------------------------------------
+12/18/92 AMW
+
+IO.CMDS		Bug Fix: Changed ZP pointer used by screen save timer.
+			 This was being used by the screen move routines
+HIGH.SUBS	Bug Fix: Changed screen save/restore routines to only save
+			 and restore actual screen data, and not the holes
+INIT		Bug Fix: Changed the way interrupts are handled.
+			 Since P8 isn't available, IRQVEC ($3FE) is now patched
+			 to point to our interrupt handler instead of P8's
+-----------------------------------------------------
+12/21/92 AMW
+
+MISC.CMDS	Bug Fix: Changed random function to make it as random as
+			 possible
+PROG.SUBS	Added  : Additional increment of RNDNUM for more randomness
+-----------------------------------------------------
+12/23/92 AMW
+
+DISK		Bug Fix: Mark wouldn't work for channels > 1
+FLOW		Bug Fix: Else would terminate if a chr$(15) was embedded in
+			 quotes in the if false portion.
+-----------------------------------------------------
+12/29/92 AMW
+
+HIGH.SUBS	Bug Fix: Fix clear.  Improper register store.
+STRING		Changed: Changed to return a -1 if a string doesn't exist
+			 instead of 255 since 255 is now a valid character
+-----------------------------------------------------
+12/31/92 AMW
+
+XCAT		Changed: Made into overlay for LLUCE
+-----------------------------------------------------
+01/01/93 LTW
+
+START		Bug Fix: Error routine wasn't saving the error number
+IO.SUBS		Changed: SHOW_ERR, Removed store of error code. See above
+MISC.CMDS	Bug Fix: MODE, Returned the wrong mode number.
+
+01/01/93 AMW
+
+XCAT		Bug Fix: Wasn't closing the directory if a directory was open
+			 and a specific file number was supplied.
+COMP.TOKENS	Added  : EXIT token
+DISKIO		Added  : QUIT_TYP and QUITPATH labels in pd_quit
+DISK		Added  : EXIT routine
+COMP.MAIN
+COMP.SUBS	Bug fix: Fixed bug where blank lines were being skipped
+			 in text blocks
+-----------------------------------------------------
+01/03/93 AMW
+
+START		Bug Fix: Added test for no ON NOCAR routine installed.
+			 If none, works same as END statement.
+-----------------------------------------------------
+01/05/93 AMW
+
+IO.SUBS		Added  : Support for ANSI in output routines
+IO.CMDS		Added  : Support for ANSI in emulation routines
+		Added  : ANSI command
+		Bug fix: Fixed serial number display routine
+		Bug fix: MODEM ONLINE had Online instead of OnlineTkn for check
+TOKENS.TXT
+TOKENS.JMP
+COMP.TOKENS	Added  : ANSI token
+RAMCARD		Added  : ANSI char tables
+DRIVEREQU
+GLOBALS		Added  : ANSIFLAG
+-----------------------------------------------------
+01/11/93 AMW
+
+CONSOLE
+IO.SUBS
+IO.CMDS
+HIGH.SUBS
+TOKENS.JMP
+TOKENS.TXT
+RAMCARD
+COMP.TOKENS	Added  : Multi character ANSI strings, removed old stuff
+-----------------------------------------------------
+01/13/93 AMW
+
+VAR		Moved  : ARGTYP, STRCOPY to HIGH.SUBS
+MATH		Moved  : DO_MUL0, DO_DIV1 to HIGH.SUBS
+MSG		Moved  : SWPBLK to HIGH.SUBS
+STRING		Moved  : DO_NSR0, UPPERSTR, LOWERSTR, MIXEDSTR,
+			 RGTTRIM, LFTTRIM to HIGH.SUBS
+DATETIME	Moved  : DO_FDT2 to HIGH.SUBS
+TOKENS.TXT
+TOKENS.JMP
+COMP.TOKENS	Added  : ~, &, &=, &&, |, |=, ||, ^, ^=,
+			 <<, >>, <<=, >>=, ++, --,
+			 +=, -=, *=, /=, %, %=, != tokens
+COMP.MAIN	Changed: Made compiler scan for any non-numeric in input line
+-----------------------------------------------------
+01/14/93 AMW
+
+VAR
+MATH
+MISC.CMDS	Added  : Implemented &=, &&, |=, ||, ^=, <<, >>, <<=, >>=,
+			 ++, --, +=, -=, *=, /=, %= functions
+-----------------------------------------------------
+01/17/93 AMW
+
+IO.CMDS		Fixed  : All emulation stuff
+		Added  : Read of ANSI flag
+-----------------------------------------------------
+01/19/93 AMW
+
+COMP.MAIN
+COMP.SUBS	Added  : Textual support for C escape sequences
+			 Support for HEX representation of numbers
+-----------------------------------------------------
+01/21/93 AMW
+
+COMP.MAIN
+COMP.SUBS	Changed: Text blocks and comments handled by separate
+			 routines.  Comments delimiters are /* and */
+FLOW		Changed: IF to handle blocks of code rather than a single
+			 line.
+IO.SUBS
+PROG.SUBS
+VAR
+MATH
+DISK
+IO.CMDS		Moved  : Code to allow BRA to the STZ SETRAM2, RTS sequence
+			 to save space
+IO.CMDS		Changed: \ character no longer supported in print statement
+			 \ character changed to | in input statement
+STRING		Changed: Made RTRIM$ and LTRIM$ not trim strings not in
+			 string space
+HIGH.SUBS	Changed: Moved code to allow branches to duplicate code
+COMP.TOKENS
+TOKENS.JMP
+TOKENS.TXT	Added  : Added '{' and '}' tokens
+-----------------------------------------------------
+01/24/93 AMW
+
+COMP.TOKENS
+TOKENS.JMP
+TOKENS.TXT
+TOKENS		Added  : Added DO and WHILE tokens
+EQUATES		Added  : DOLVL equate
+RAMAREA		Added  : DO stack
+FLOW		Added  : DO, WHILE and POP DO statements
+RAMCARD		Added  : 'DO stack full' and 'No pending DO' errors
+-----------------------------------------------------
+01/25/93 AMW
+
+EQUATES		Added  : WHILELVL equate
+RAMAREA		Added  : WHILE stack
+		Moved  : Message file work area to RAMCARD
+FLOW		Added  : WHILE statement (evaluate the while first)
+RAMCARD		Added  : 'WHILE stack full' error message
+			 Message file work area (from RAMAREA)
+-----------------------------------------------------
+01/30/92 AMW
+
+ALL SEGMENTS	Changed: Added macros to all segments
+INIT		Fixed  : Fixed bug in device removal routine for /RAM
+EDIT.MAIN	Fixed  : Fixed bug, Y not set when checking for data
+			 already in edit buffer
+COMP.MAIN	Fixed  : Line continue characters that didn't get changed
+COMP.SUBS	Fixed  : Fixed bug where hex escape sequences were placing
+			 double codes for complete bytes and changed alpha
+			 nibbles incorrectly
+PROG.SUBS	Fixed  : LIST was incorrectly setting the token table pointer
+			 for high order tokens
+		Added  : Display of control chars as inverse, except for BS,
+			 LF, VT and CR which show up as mousetext arrows
+IO.CMDS		Fixed  : Bug where a literal \0 would abort the literal
+RAMCARD		Changed: Moved all message stuff back here.
+			 Moved REMOTE and NULLS to GLOBALS and DRIVEREQU.
+			 Moved overlay info to RAMAREA.
+RAMAREA		Changed: Moved message stuff back to RAMCARD.
+			 Moved overlay info from RAMCARD.
+MSG		Changed: MAKEMSG now sets EOF instead of writing zeros.
+			 Removed references to 8-7 bit conversions.
+-----------------------------------------------------
+01/31/93-02/01/93 AMW	V 1.0D2
+
+MSG		Changed: Removed unnecessary code
+		Fixed  : Deleting last message now sets count to zero
+LLUCE
+COMPILER	Changed: Version number to 1.0D2
+EDITOR		Added  : Version number
+MISC.CMDS	Added  : Editor version number test
+HIGH.SUBS	Fixed  : SWPBLK0 had incorrect loop count
+-----------------------------------------------------
+02/02/93-02/03/93 AMW	V 1.0D3
+
+START		Changed: Main run call
+PROG.SUBS	Changed: RUNSUB2 to return after each call
+		Added  : RUN to execute a token or a block of code
+		Changed: BLKSTRT to RUNBLOCK
+MATH		Added  : Bitwise NOT
+FLOW		Changed: DO and WHILE to work as documented for ANSI/C
+		Changed: GOTO to reset any loops it leaves (any level)
+MISC.CMDS	Moved  : Logical NOT to MATH
+ENTRY		Added  : DO/WHILE loop type table (nowhere else to put it)
+TOKENS.JMP
+TOKENS.TXT
+TOKENS
+COMP.TOKENS	Added  : BREAK token, renumbered tokens
+RAMCARD		Moved  : OFFSET value to here
+EQUATES		Added  : WHATLVL for loop type table
+RAMAREA		Added  : DO end and WHILE end stacks, moved OFFSET to RAMCARD,
+			 put things back in a logical order
+XCAT		Fixed  : Call made to INPNUM that should have gone to INPSTR
+-----------------------------------------------------
+01/06/93 AMW
+
+COMP.MAIN	Fixed  : An ON following a FLASH, ANSI or EDIT would get
+			 interpreted improperly causing the next gosub, goto
+			 or push label to be skipped
+-----------------------------------------------------
+02/07/93 AMW		v 1.0f1
+
+CONSOLE		Changed: Removed interpretation of high bit set chars to
+			 control.  All high ASCII chars are ignored
+IO.SUBS		Changed: All printed chars are checked here for control
+			 sequences.  All emulation chars are converted.
+			 The clear screen token was changed to the clrscn char
+IO.CMDS		Changed: Emulation tokens are converted to the proper local
+			 emulation char prior to sending to console driver.
+INIT		Changed: Normal and Clear screen tokens changed to the
+			 proper control characters
+COMP.MAIN
+COMP.SUBS	Changed: Error handling.  Now displays text line, line number,
+			 error code, message and text pointer
+		Added  : Additional escape codes for emulation (control) codes
+			 \A, \B, \C, \D, \F, \G, \H, \I, \M, \N, \O, \P, \R
+			 \T, \V, \W, \Y, \Z
+ENTRY		Changed: Placed token for Undefined symbol in entry point list
+			 08 was selected as it's a PHP, and the BRA following
+			 the token branches to the actual jump (no return
+			 from this call, so the PHP is moot)
+TOKENS.JMP	Added  : Vector for Undefined symbol error
+RAMCARD		Removed: All error messages specific to the compiler
+ERRORS		Changed: To reflect the removal of compiler specific errors
+TOKENS		Added  : Undefined symbol token
+-----------------------------------------------------
+02/08/93 AMW		v 1.0f2
+
+COMP.MAIN
+COMP.SUBS	Changed: Lines have comments and trailing white spaces
+			 removed before the parser gets ahold of them.
+		Added  : \E escape code (missed it the first time)
+-----------------------------------------------------
+02/09/93 AMW
+
+IO.SUBS
+IO.CMDS		Fixed  : ANSI emulations now work properly.
+-----------------------------------------------------
+02/10/93 AMW
+
+EQUATES		Added  : Counter for emulation repeat conversion
+CONSOLE		Changed: Chars with high bit set allowed when the char is
+			 part of a gotoxy, tone or repeat argument
+IO.SUBS		Added  : Conversion of PT repeat when PT emulation isn't active
+MISC.CMDS	Changed: Large char strings to repeated chars
+-----------------------------------------------------
+02/10/93 AMW		v1.0F3
+
+COMP.MAIN	Changed: Version number to standard word
+			 Added test for CONVERT ON
+COMP.TOKENS	Added  : CONVERT token
+		Changed: Token numbers to use TOKENS.S file
+EDIT.MAIN	Changed: Version number to standard word
+IO.SUBS		Added  : Check of emulation conversion flag
+IO.CMDS		Moved  : FLASH and ANSI commands to MISC.CMDS
+MISC.CMDS	Moved  : FLASH and ANSI commands here
+		Added  : CONVERT command
+TOKENS.JMP
+TOKENS.TXT	Added  : CONVERT
+INIT		Changed: Version number set to standard word
+GLOBALS
+DRIVEREQU	Changed: Re-ordered to a more logical order
+		Added  : CONVFLAG for emulation conversion
+TOKENS		Added  : Convert token
+MACROS		Changed: TKN macro for DB of token number
+LLUCE
+COMPILER
+EDITOR		Changed: Version to 1.0F3
+-----------------------------------------------------
+02/18/93 AMW		v1.0F4
+
+CONSOLE		Changed: Top of screen message routine.  Uses message text.
+IO.SUBS		Added  : New message print routine
+		Changed: Error message print routine
+START
+MISC.CMDS	Changed: Uses new message print routine
+RAMCARD		Removed: Error message text
+TEXT		New    : New segment, contains all printable text
+ALL SEGMENTS	Removed: All single quote marks from comments
+-----------------------------------------------------
+02/20/93 AMW
+
+IO.SUBS		Fixed  : Changed immediate load for timeout value to get the
+			 value from the global page
+		Changed: Made exec mode print message #3 to the screen top
+			 Chat mode now properly prints message #2
+TEXT		Added  : Top of screen message #3 "[ Exec: On ]"
+GLOBALS		Changed: Placed timeout values for local/remote keyin
+-----------------------------------------------------
+02/24/93 AMW
+
+EQUATES		Added  : Save point for current segment name
+START		Added  : Call to segment name save routine
+DISK		Added  : Segment reload routine
+ENTRY		Added  : Entry point for RELOAD, COMPRESS, UNCOMPRESS
+-----------------------------------------------------
+02/26/93 AMW
+
+START		Added  : initialize CO_XY and CO_RPT to zero
+IO.SUBS		Fixed  : gotoxy and repeat chars got lost in PT emulation
+DISK		Changed: COPY, now allows lines longer than 255 characters
+IO.CMDS		Changed: call to SETPTERM goes to PTERM, PTERM sets TERMNO
+MISC.CMDS	Changed: CLRSMT, now resets DOLVL, WHILELVL and WHATLVL
+INIT		Added  : call to PTERM so default emulation table is set up
+-----------------------------------------------------
+02/28/93 AMW
+
+SHELL		New    : Began work: New overlay to allow shelling out to
+			 other system programs
+ENTRY		Added  : Entry point for DO_CL3 to allow closing all files
+			 and clearing channel in-use map (needed for SHELL)
+-----------------------------------------------------
+03/02/93 AMW
+
+EQUATES		Added  : /RAM driver info save locations
+DISK		Fixed  : Bug in SSYSTEMP.  String not properly setup
+DISKIO		Fixed  : PD_QUIT: Now restores /RAM if we disconnected it
+INIT		Fixed  : /RAM disconnect routine conforms to Apple guidelines
+-----------------------------------------------------
+03/03/93 AMW
+
+LLUCE		Changed: More specific description of version numbers
+START		Fixed  : Starting prefix saved in SEGSAVE before the segment
+			 name is added
+DISK		Fixed  : Bug in STORE: zero length strings no longer saved
+		Added  : CHAIN: Before getting segment name, gets and saves
+			 current prefix
+		Fixed  : SAVESEG now adds the segment name to an existing path
+IO.CMDS		Changed: Made version number print differently.
+			 Non-release versions will print as:  VV.TM
+			 Release versions will print as:      VV.M.S
+			 Where VV is the main version (lead zero not printer)
+			 T is test type (Alpha, Beta, etc..)
+			 M is the minor version number
+			 S is the sub-minor version number
+SHELL		Fixed  : Added additional error checking so missing files and
+			 prefixes are detected prior to moving code around
+		Fixed  : Code aux memory swap routines.  Swap in crashed.
+			 Now using the auxMove routines in ROM
+-----------------------------------------------------
+03/05/93 AMW
+
+IO.SUBS		Fixed  : Reversed standard XY order to YX order for PT.
+		Added  : Check for terminal number 0.  Acts same as CONVERT OFF
+SHELL		Changed: Removed save of unnecessary memory (save 14 blocks)
+SHELL.GS	New    : New GS specific version of SHELL
+-----------------------------------------------------
+03/06/93 AMW
+
+PROG.SUBS	Added  : FRMFLN, TOFLN - moves filename to and from buffer
+			 SWITCH2 - Switches in LC bank2 for read/write
+START		Changed: Filename moves to use FRMFLN and TOFLN,
+			 STZ SETRAM2, STZ SETRAM2 to call SWITCH2
+DISK
+LOAD		Changed: Filename moves to use FRMFLN and TOFLN
+ENTRY		Added  : Entry points for FRMFLN and TOFLN
+VAR
+MATH		Changed: Some code optimization
+COMPILER	Changed: Sets the modification time to 1 minute past the
+			 modification time of the source.  Avoids multiple
+			 compiles
+SHELL		Changed: Calls FRMFLN instead of moving filenames itself
+IO.SUBS
+IO.CMDS		Changed: A DEC of INCHAT to a MOVX #-1;INCHAT to allow setting
+			 INCHAT to a non-zero value so it can be tested to
+			 find out if chat has been entered
+-----------------------------------------------------
+03/07/93 AMW
+
+TXT.DECOMP	New    : New overlay: Decompiles LLUCE text to the editor
+			 buffer
+TXT.COMP	New    : New overlay: Compiles LLUCE text from the editor
+			 buffer
+-----------------------------------------------------
+03/08/93 AMW
+
+IO.SUBS
+IO.CMDS		Fixed  : ANSI emulation was sending the X and Y values
+			 in the reverse order to the modem
+-----------------------------------------------------
+03/11/93 AMW
+
+ALL OVERLAYS	Changed: File/aux type to conform to new type numbers
+COMP.MAIN	Changed: Compiled segment file/aux type
+DISK		Changed: STORE to save variables as type overlay
+MSG		Changed: Message file/aux type in MAKEMSG
+OS.EQUATES	Changed: File type info
+-----------------------------------------------------
+03/12/93 AMW
+
+SHELL		Changed: Interrupts aren't disabled during memory moves
+-----------------------------------------------------
+03/18/93 AMW
+
+IO.CMDS		Fixed  : GotoXY offset wasn't being set by the PTERM routine
+		Changed: Now allows for multiple literal strings and semicolons
+			 in prompt portion of input command.
+SHELL		Fixed  : Was clearing VIDECHO when it shouldn't have
+-----------------------------------------------------
+03/30/93 AMW
+
+SHELL		Changed: Default prefix is the prefix where the application
+			 being launched is rather than the current directory.
+-----------------------------------------------------
+04/03/93 AMW
+
+COMP.MAIN	Added  : Check for // for end of line comments
+COMP.TOKENS	Added  : ? token as alternate print command
+-----------------------------------------------------
+04/28/93 AMW
+
+LOAD		Added  : Changed pathname parser.  Any valid separator
+			 (/, \, or :) will now be accepted and converted.
+-----------------------------------------------------
diff --git a/SOURCE/DATA/LLUCE.REF b/SOURCE/DATA/LLUCE.REF
new file mode 100644
index 0000000..0a49001
Binary files /dev/null and b/SOURCE/DATA/LLUCE.REF differ
diff --git a/SOURCE/DATA/MEMORYMAP b/SOURCE/DATA/MEMORYMAP
new file mode 100644
index 0000000..f0bb0e6
--- /dev/null
+++ b/SOURCE/DATA/MEMORYMAP
@@ -0,0 +1,133 @@
+
+       STANDARD MEMORY (64K)           |       ALTERNATE MEMORY (128K)
+---------------------------------------+0000----------------------------------
+                                       |       Monitor reserved
+                                       +FF00---------------------------------
+                                       |       Scratch RAM(3)
+                                       +FE00---------------------------------
+                                       |       Scratch RAM(2)
+                                       +FD00---------------------------------
+                                       |       Scratch RAM(1)
+                                       +FC00---------------------------------
+                                       |       Scratch RAM(0)/RAM
+                                       +FB00---------------------------------
+                                       |
+                                       | FA00  In use emulation strings
+                                       | F9F4  Math work area
+                                       | F9E9  Device in use table
+                                       | F9E0  Link label
+                                       | F960  Pathname buffers
+                                       | F8A0  FOR stacks
+                                       | F880  GOSUB stack
+                                       | F840  WHILE stacks
+                                       |       DO stacks
+                                       +F800----------------------------------
+                                       |
+                                       | F61F  Free area
+                                       | F576  Editor I/O routines
+                                       | F542  Message file work area
+                                       | F532  Misc tables
+                                       | F4F6  I/O vectors & flags
+                                       | F4EA  String compare routine vectors
+                                       | F478  Date text
+                                       |       Pathnames
+                                       +F400---------------------------------
+                                       |       Token jump table (to F37C)
+                                       +F200---------------------------------
+                                       |       Entry points
+                                       +F100---------------------------------
+                                       |       Profanity filter
+             ProDOS kernel             +F000---------------------------------
+                                       |
+                                       |
+                                       |              Overlays
+                                       |
+                                       |
+                                       |
+                   +E000---------------+E000---------------+
+                   |                   |       Emulation   |
+                   |                   |       String      |
+                   |       Screen top  |       Save area   |
+                   |                   +DF00---------------+
+                   |                   |       Fixed       |
+                   |       messages    |       ANSI        |
+                   |                   |       tables      |
+                   |                   +DE00---------------+
+                   +DD00---------------+       Extra       |
+                   |       Misc msgs   |       LLUCE       |
+                   +D900---------------|       code        |
+                   |                   +D800---------------+
+                   |       Error msgs  |                   |
+                   |                   |       Token text  |
+                   +D500---------------+                   |
+                   |                   +D400---------------+
+                   |                   |       Type ahead  |
+                   |       ProDOS quit +D300---------------+
+                   |                   |       Ramdisk     |
+                   |       code buffer +D200---------------+
+                   |                   |       CRC high    |
+                   +D100---------------+D100---------------+
+                   |       Reserved    |       CRC low     |
+D000---------------+D000---------------+D000---------------+D000-------------
+       I/O area                                I/O area
+C000-----------------------------------+C000---------------------------------
+       ProDOS globals                  |       Reserved
+BF00-----------------------------------+-------------------------------------
+       Message file buffer             |
+BB00-----------------------------------+
+       File buffer 2                   |
+B700-----------------------------------+
+       File buffer 1                   |
+B300-----------------------------------+
+       Message directory buffer        |
+B100-----------------------------------+
+       Message block buffer 2          |
+B080-----------------------------------+
+       Message block buffer 1          |       Free area
+B000-----------------------------------+
+       Message file bitmap buffer      |
+AF80-----------------------------------+
+       Interrupt character buffer      |
+AF00-----------------------------------+
+       File buffer 3                   |
+AB00-----------------------------------+
+       Editor buffer                   |
+9B00-----------------------------------+
+       Segment/variables area (19.25k) |
+4E00-----------------------------------+       (Used by variable packer)
+                                       |
+                                       +4000---------------------------------
+       LLUCE main code                 |       Free area
+                                       +2800---------------------------------
+       and console driver              |       Screen save area (shared)
+                                       +2000---------------------------------
+                                       |
+                                       |
+0F00-----------------------------------+
+       Modem initialization string     |
+0ED0-----------------------------------+
+       Modem answer string             |
+0EC0-----------------------------------+
+       Modem driver                    |       Free area
+0B00-----------------------------------+
+       Clock driver                    |
+0A00-----------------------------------+
+       Printer driver                  |
+0900-----------------------------------+
+       LLUCE global page               |
+0800-----------------------------------+0800---------------------------------
+       Video buffer                    |       Video buffer
+0400-----------------------------------+0400---------------------------------
+       Misc ProDOS/monitor vectors     |
+03D0-----------------------------------+
+       Free area, Overlays should use  |
+       this area for their ProDOS tbls |       ProDOS reserved
+0300-----------------------------------+
+       Pathname buffer                 |
+0280-----------------------------------+-------------------------------------
+       Input line buffer               |       Chat prompt line save area
+0200-----------------------------------+0200---------------------------------
+       ProDOS/monitor stack            |       LLUCE stack
+0100-----------------------------------+0100---------------------------------
+       ProDOS/Monitor zero page        |       LLUCE zero page
+0000-----------------------------------+0000---------------------------------
diff --git a/SOURCE/DATA/SYNTAX b/SOURCE/DATA/SYNTAX
new file mode 100644
index 0000000..c4f19c6
--- /dev/null
+++ b/SOURCE/DATA/SYNTAX
@@ -0,0 +1,410 @@
+********************************
+*                              *
+*  LLUCE Command Syntax        *
+*                              *
+********************************
+*
+* !                                              Bitwise NOT
+* %     (same as MOD)                            Remainder of divide
+* &     (same as AND)                            Bitwise AND
+* *                                              Multiply numbers
+* +                                              Add numbers/concat strings
+* -                                              Subtract numbers
+* /                                              Divide numbers
+* :                                              Statement separator
+* <                                              Compare less than
+* =                                              Equate or compare equals
+* >                                              Compare greater than
+* ^     (same as EOR and XOR)                    Bitwise exclusive OR
+* \                                              Line continuation
+* |     (same as OR)                             Bitwise OR
+* ~                                              Logical NOT
+* !=    (same as <>)                             Compare not equal
+* %=                                             Remainder to variable
+* &&                                             Logical AND
+* &=                                             Bitwise AND to variable
+* *=                                             Multiply to variable
+* ++                                             Increment variable
+* +=                                             Add to variable
+* --                                             Decrement variable
+* -=                                             Subtract from variable
+* /=                                             Divide to variable
+* <<                                             Bitwise shift left
+* <=                                             Compare less or equal to
+* <>    (same as !=)                             Compare not equal
+* =>                                             Compare greater or equal to
+* ==                                             Equate or compare equals
+* =<                                             Compare less or equal to
+* >=                                             Compare greater or equal to
+* >>                                             Bitwise shift right
+* ><    (same as !=)                             Compare not equal
+* ^=                                             Bitwise exclusive OR to var.
+* |=                                             Bitwise OR to variable
+* ||                                             Logical OR
+* <<=                                            Bitwise shift left to variable
+* >>=                                            Bitwise shift right to variable
+* Value    =ABS(Value)                           Make positive
+* AND   (same as &)                              Bitwise AND
+* EOR   (same as XOR and ^)                      Bitwise exclusive OR
+* MOD   (same as %)                              Remainder of divide
+* NOT   (same as !)                              Logical NOT
+* OR    (same as |)                              Bitwise OR
+* XOR   (same as EOR and ^)                      Bitwise exclusive OR
+*-------------------------------
+* ADDINT(String)                                 Add interrupt character
+* ANSI     OFF                                   Turn ANSI term emulation off
+* ANSI     ON                                    Turn ANSI term emulation on
+* Value    =ANSI                                 Get the value of ANSI
+*                                                0 = off, 255 = on
+* APPEND   #Channel(File)                        Append to a file
+* Value    =ASC(String)                          Get ASCII value of the first
+*                                                character of specified string
+*-------------------------------
+* Value    =BAUD                                 Get users baud rate
+* BREAK                                          Exit from DO or WHILE loop
+* BYTE     =Address                              Set byte address
+* Value    =BYTE                                 Get byte address
+* BYTE(Value8)                 =(Value8)         Set a byte
+* Value    =BYTE(Value8)                         Get a byte
+*-------------------------------
+* CALL     Address                               Call routine at address
+* CHAIN    Filename                              Chain to segment filename
+* CHAIN    Filename,Label                        Chain to segment filename
+*                                                Start at specified label
+* CHARDEL$                                       Send char delete sequence
+* CHARDEL$ =String(7)                            Set char delete sequence
+* String   =CHARDEL$                             Get char delete sequence
+* print    CHARDEL$                              Send char delete sequence
+* CHARINS$                                       Send char insert sequence
+* CHARINS$ =String(7)                            Set char insert sequence
+* String   =CHARINS$                             Get char insert sequence
+* print    CHARINS$                              Send char insert sequence
+* String   =CHR$(Value8)                         Make a 1 character string
+* String   =CHR$(Value8,Value8)                  Make a multi character string
+* CLEAR                                          See CLOCK, EDIT and MODEM
+*                                                statements
+* CLEAR                                          Clear variables
+* CLOCK    CLEAR                                 Set timer start
+* CLOCK    ONLINE                                Get time connected
+* CLOCK    =Value16                              Set time limit
+* Value    =CLOCK                                Get time limit
+* CLOSE                                          Close any open file(s)
+* CLOSE    #Channel(File)                        Close file at specified channel
+* CLRBOL$                                        Send clr to line begin sequence
+* CLRBOL$  =String(7)                            Set clr to line begin sequence
+* String   =CLRBOL$                              Get clr to line begin sequence
+* print    CLRBOL$                               Send clr to line begin sequence
+* CLRBOS$                                        Send clr to screen top sequence
+* CLRBOS$  =String(7)                            Set clr to screen top sequence
+* String   =CLRBOS$                              Get clr to screen top sequence
+* print    CLRBOS$                               Send clr to screen top sequence
+* CLREOL$                                        Send clr to line end sequence
+* CLREOL$  =String(7)                            Set clr to line end sequence
+* String   =CLREOL$                              Get clr to line end sequence
+* print    CLREOL$                               Send clr to line end sequence
+* CLREOS$                                        Send clr to screen end sequence
+* CLREOS$  =String(7)                            Set clr to screen end sequence
+* String   =CLREOS$                              Get clr to screen end sequence
+* print    CLREOS$                               Send clr to screen end sequence
+* print    CLS                                   Clear the screen
+* CLS                                            Clear the screen
+* CONTINUE                                       Continue DO or WHILE loop,
+*                                                bypass remaining statements
+* CONVERT  ON|OFF                                Switch emulation conversion
+*                                                mode on or off
+* COPY     Filename                              Copy a text file to console
+* COPY     (Lines)Filename                       Copy (lines) of a text
+*                                                file to the console
+* COPY     Filename,#Channel(File|7|9..10)       Copy a text file to device
+* COPY     (Lines)Filename,#Channel(File|7|9..10) Copy (lines) of a text file
+*                                                to device
+* COPY     #Channel(File|7..10),#(File|7|9..10)  Copy text from device to device
+* COPY     (Lines)#Channel(File|7..10),#(File|7|9..10) Copy (lines) of text from
+*                                                device to device
+* CREATE   Filename                              Create a text file
+* CREATE   Filename,Msg,Value16                  Create a message file
+* CREATE   Filename,Type8                        Create a file with Type8
+* CREATE   Filename,Type8,Subtype                Create a file with Type8,
+*                                                AuxType of Subtype
+* CRUNCH                                         Compact current message file
+* CURSORD$                                       Send cursor down sequence
+* CURSORD$ =String(7)                            Set cursor down sequence
+* String   =CURSORD$                             Get cursor down sequence
+* print    CURSORD$                              Send cursor down sequence
+* CURSORU$                                       Send cursor up sequence
+* CURSORU$ =String(7)                            Set cursor up sequence
+* String   =CURSORU$                             Get cursor up sequence
+* print    CURSORU$                              Send cursor up sequence
+* CURSORL$                                       Send cursor left sequence
+* CURSORL$ =String(7)                            Set cursor left sequence
+* String   =CURSORL$                             Get cursor left sequence
+* print    CURSORL$                              Send cursor left sequence
+* CURSORR$                                       Send cursor right sequence
+* CURSORR$ =String(7)                            Set cursor right sequence
+* String   =CURSORR$                             Get cursor right sequence
+* print    CURSORR$                              Send cursor right sequence
+*-------------------------------
+* DATE$    =String                               Set date (for no clock)
+* String   =DATE$                                Get date
+* DISK     LOCK                                  Reserve network
+* DISK     UNLOCK                                Release network
+* DO       statement  WHILE (expression)         DO loop
+* DO       { statements } WHILE (expression)     DO loop
+*-------------------------------
+* ECHO     =String                               Character to echo on input
+* EDIT                                           Enter the editor
+* EDIT     CLEAR                                 Clear editor buffer
+* EDIT     OFF                                   Turn off profanity filter
+* EDIT     ON                                    Turn on profanity filter
+* EDIT     =Filename                             Set editor filename
+* Value    =EDIT                                 Get editor buffer location
+* Value    =EDIT ERROR                           Get .X hack attempt
+* Value    =EDIT SIZE                            Get size of message
+* ELSE                                           See IF statement
+* END                                            See KEY statement
+* END                                            End program execution
+* EOF(Channel(File))                             Check for end of file
+* Value    =ERR                                  Get last error number
+* ERROR                                          See ON and EDIT statements
+* EXEC     =Value8                               Set exec user status
+* Value    =EXEC                                 Get exec user status
+* Value    =EXIST(Filename)                      Check If file exists
+* EXIT                                           Exit from LLUCE
+* EXIT     CompletePathname                      Exit from LLUCE, execute path
+*-------------------------------
+* FILL     Address,Bytes8,Value8                 Fill Address range with data
+* FLAG                                           See KEY statement
+* FLAG     =Address                              Set flag pointer
+* Value    =FLAG                                 Get flag pointer
+* FLAG(Value8)                 =(Value1)         Set a flag
+* Value    =FLAG(Value8)                         Get a flag
+* FLASH    ON                                    GS screen flash on
+* FLASH    OFF                                   GS screen flash off
+* FLUSH                                          Flush any open file(s)
+* FLUSH    #Channel(File)                        Flush specified file
+* String   =FMTDATE$                             Get formatted date
+* String   =FMTWHEN$                             Get stored formatted date
+* FOR      L=Value TO Value                      Loop from value to value
+* FOR      L=Value TO Value STEP Value           Loop from value to value
+*                                                stepping by specified count
+* FREE                                           Compact variables
+* FREE                                           See MSG statement
+*-------------------------------
+* GET      String|Number                         Get a single character
+* GOSUB    Label                                 Go to a subroutine
+*                                                Alse see ON statement
+* GOTO     Label                                 Go to a label
+*                                                Alse see ON, ON ERROR and
+*                                                ON NOCAR statements
+* GOTOXY$  (X-Value8,Y-Value8)                   Send gotoxy sequence
+* GOTOXY$  =String(7)                            Set gotoxy sequence
+* String   =GOTOXY$                              Get gotoxy sequence
+* print    GOTOXY$                               Send gotoxy sequence
+*-------------------------------
+* HOME$                                          Send cursor home sequence
+* HOME$    =String(7)                            Set cursor home sequence
+* String   =HOME$                                Get cursor home sequence
+* print    HOME$                                 Send cursor home sequence
+*-------------------------------
+* IF statement [THEN] statement [ELSE statement] Conditional
+* IF statement { statements } [ELSE statement]
+* IF statement [THEN] statement [ELSE { statements }
+* IF statement { statements } [ELSE { statements }
+* INPUT @n String|Number                         Get a line of text
+* Value    =INSTR(String1,String2)               Find a string in another string
+* Value    =INSTR(String1,String2,start8)        Find a string in another string
+*                                                starting at specified character
+* INVERSE$                                       Send invert chars sequence
+* INVERSE$ =String(7)                            Set invert chars sequence
+* String   =INVERSE$                             Get invert chars sequence
+* print    INVERSE$                              Send invert chars sequence
+*-------------------------------
+* Value    =KEY                                  Return keypress (if any)
+* Value    =KEY END                              1 If 'stop' char pressed
+* Value    =KEY NEXT                             1 If 'next' char pressed
+* Value    =KEY FLAG                             Any interrupt char pressed
+* KILL     Filename                              Delete a file
+*-------------------------------
+* String   =LEFT$(String,Value8)                 Get left part of a string
+* Value    =LEN(String)                          Get length of a string
+* LINEDEL$                                       Send line delete sequence
+* LINEDEL$ =String(7)                            Set line delete sequence
+* String   =LINEDEL$                             Get line delete sequence
+* print    LINEDEL$                              Send line delete sequence
+* LINEINS$                                       Send line insert sequence
+* LINEINS$ =String(7)                            Set line insert sequence
+* String   =LINEINS$                             Get line insert sequence
+* print    LINEINS$                              Send line insert sequence
+* LOCK                                           See DISK statement
+* LOCK     Filename                              Lock a file
+* LOWER$(String)                                 Convert string to lower case
+* LTRIM$(String)                                 Trim strings trailing spaces
+*-------------------------------
+* MARK(Channel(File|10))       =Value            Set file mark
+* Value    =MARK(Channel(File|10))               Get file mark
+* String   =MID$(String,Value8)                  Get part of a string, starting
+*                                                at specified point to end
+* String   =MID$(String,Value8,Value8)           Get part of a string, starting
+*                                                at specified point, for
+*                                                specified number of characters
+* MID$(string,Value8)=string                     copy a string into part of
+*                                                another, starting at specified
+*                                                point, to end of string
+* MID$(string,Value8,Value8)=string              copy a string into part of
+*                                                another, starting at specified
+*                                                point, to end of string, or to
+*                                                the specified size.
+* MIXED$(String)                                 Convert string to mixed case
+* MODE     =Value8                               Set backspace mode
+* Value    =MODE                                 Get backspace mode
+* MODEM    READY                                 Wait for a call
+* MODEM    NOCAR                                 Hang up
+* MODEM    ONLINE=Value8                         Dial out at Value8 * 100 baud
+* MODEM    TIME$=String                          Set auto logon time
+* MODEM    CLEAR                                 Clear auto logon
+* MOUSE$                                         Send mousetext sequence
+* MOUSE$   =String(7)                            Set mousetext sequence
+* String   =MOUSE$                               Get mousetext sequence
+* print    MOUSE$                                Send mousetext sequence
+* MOVE     Address,Bytes TO Address              Move data
+* MSG(Value16)                 =Value            Set message data
+* MSG(Value16,Value2)          =Value            Set message data indexed
+* Value    =MSG(Value16)                         Get message data
+* Value    =MSG(Value16,Value2)                  Get message data indexed
+* Value    =MSG FREE                             Get message file blocks free
+* Value    =MSG SIZE                             Get message file capacity
+*-------------------------------
+* NAME     Filename,Filename                     Rename a file
+* NEXT                                           End of closest FOR loop
+* NEXT     Nvar                                  End of specified FOR loop
+*                                                Alse see FOR and KEY statements
+* NIBBLE   =Address                              Set NIBBLE address
+* Value    =NIBBLE                               Get NIBBLE address
+* NIBBLE(Value8)               =(Value4)         Set a NIBBLE
+* Value    =NIBBLE(Value8)                       Get a NIBBLE
+* NOCAR                                          See ON and MODEM statements
+* Value    =NODE                                 Get network NODE number
+* NORMAL$                                        Send normal chars sequence
+* NORMAL$  =String(7)                            Set normal chars sequence
+* String   =NORMAL$                              Get normal chars sequence
+* print    NORMAL$                               Send normal chars sequence
+* NULLS    =Value8                               Set number of nulls
+* Value    =NULLS                                Get number of nulls
+*-------------------------------
+* OFF                                            See EDIT and FLASH statements
+* OFFSET   =Value8                               Set OFFSET character
+* Value    =OFFSET                               Get OFFSET character
+* ON                                             See EDIT and FLASH statements
+* ON ERROR :                                     Clear error detect
+* ON ERROR GOTO Label                            Set error routine
+* ON N GOTO Label1,Label2,Label3                 Indexed goto
+* ON N GOSUB Label1,Label2,Label3                Indexed gosub
+* ON NOCAR :                                     Clear carrier loss detect
+* ON NOCAR GOTO Label                            Set carrier loss routine
+* ON N PUSH Label1,Label2,Label3                 Indexed push
+* ONLINE                                         See CLOCK and MODEM statements
+* Value    =ONLINE                               Get online/local status
+* OPEN     #Channel(File),Filename               Open any file
+* OVERLAY  Filename[Parameters]                  Execute an overlay
+*-------------------------------
+* Value    =PDL(Value4)                          Get game control value
+* Value    =PEEK(Address)                        Get value at address
+* POKE     Address,Value                         Put value to address
+* POP                                            Remove subroutine
+* POP DO                                         Remove DO/WHILE from stack
+* POSITION #Channel(File),Reclen,Recnum          Position to start of record
+* POSITION #Channel(File),Reclen,Recnum,Byte     Position to specified byte of
+*                                                record
+* PREFIX                                         Set to startup prefix
+* PREFIX   Pathname                              Set the prefix
+* String   =PREFIX                               Get current prefix
+* PRINT                                          Print data
+* PUBLIC   Label                                 Set a public label
+* PUSH                                           See ON statement
+* PUSH     Label                                 Push routine to return to
+*-------------------------------
+* RAM                                            Location of scratch Ram
+* RAM(0)                                         Location of scratch Ram
+* RAM(1)                                         Location of scratch Ram 1
+* RAM(2)                                         Location of scratch Ram 2
+* RAM(3)                                         Location of scratch Ram 3
+* Value    =RANDOM(Value)                        Get a random value
+* READ     #Channel(File),Address,Bytes          Read binary data
+* READY                                          See MODEM statement
+* READY    Filename|Nullstring                   Get a message file ready
+* RECALL   Filename                              Recall program variables
+* RESUME                                         Resume program after error
+* RETURN                                         Return from subroutine
+* REWIND                                         Restart current ,essage
+* String   =RIGHT$(String,Value8)                Get right part of a string
+* String   =RND$                                 Get a random character
+* RTRIM$(String)                                 Trim strings leading spaces
+*-------------------------------
+* SET      String=Address,Length                 Set variable pointer
+* SET MSG  =Value8                               Set top of screen message
+* SETINT(String)                                 Set interrupt character
+* SIZE                                           See EDIT and MSG statements
+* SIZE(Channel(File))                            Get file size
+* STEP                                           See FOR statement
+* STORE    Filename                              Save program variables
+* String   =STR$(Value)                          Make numeric string
+*-------------------------------
+* TERMINAL =Value8                               Set terminal type number
+* Value    =TERMINAL                             Get terminal type number
+* THEN                                           See IF statement
+* String   =TIME$                                Get current time, 24 hour
+* String   =TIME12$                              Get current time, 12 hour
+* TO                                             See FOR and MOVE statements
+* print TONE(Value8,Duration)                    Execute a pure tone
+* print TONE(Value8,Value8,Duration)             Execute a dual tone
+* TONE(Value8,Duration)                          Execute a pure tone
+* TONE(Value8,Value8,Duration)                   Execute a dual tone
+* TYPE     Filename                              Type text, SRC or AW file
+*                                                to the console
+* TYPE     Filename,#Channel(File)               Type text, SRC or AW file
+*                                                to the specified channel
+*-------------------------------
+* UNLOCK                                         See DISK statement
+* UNLOCK   Filename                              Unlock a file
+* UPPER$(String)                                 Convert string to upper case
+*-------------------------------
+* Value    =VAL(String)                          Get value of a string
+*-------------------------------
+* WHEN$    =Address                              Set date storage address
+* WHEN$    =String                               Store a date
+* String   =WHEN$                                Get stored date
+* WHILE    (expression) statements               WHILE loop                  
+* WHILE    (expression) { statements }           WHILE loop
+* WIDTH    =Value8                               Set editor width
+* Value    =WIDTH                                Get editor width
+* Value    =WIDTH(Value2)                        Get fixed widths
+* WINDOW   =Value8                               Set window top
+* WINDOW   =Value8,Value8                        Set window top and bottom
+* WINDOW   =Value8,Value8,Value8                 Set window top, bottom and left
+* WINDOW   =Value8,Value8,Value8,Value8          Set all window limits
+*           First  Value =Screen Top
+*           Second Value =Screen Bottom
+*           Third  Value =Screen Left
+*           Fourth Value =Screen Right
+* WORD     =Address                              Set word address
+* Value    =WORD                                 Get word address
+* WORD(Value8)                 =(Value16)        Set a word
+* Value    =WORD(Value8)                         Get a word
+* WRITE    #Channel(File),Address,Bytes          Write binary data
+*----------------------------------------------------------------------------
+*     Value 1  =        0 through       1
+*     Value 2  =        0 through       3
+*     File     =        1 through       3
+*     Value 4  =        0 through      15
+*     Byte     =        0 through     255
+*     Bytes    =        0 through     255
+*     Length   =        0 through     255
+*     Lines    =        0 through     255
+*     Reclen   =        0 through     255
+*     Value 8  =        0 through     255
+*     Address  =        0 through   65535
+*     Recnum   =        0 through   65535
+*     Subtype  =        0 through   65535
+*     Value 16 =        0 through   65535
+*     Value    = -8388608 through 8388607
+*----------------------------------------------------------------------------
diff --git a/SOURCE/DATA/TOKENS.ALPHA b/SOURCE/DATA/TOKENS.ALPHA
new file mode 100644
index 0000000..b7c015e
Binary files /dev/null and b/SOURCE/DATA/TOKENS.ALPHA differ
diff --git a/SOURCE/DATA/TOKENS.NUM b/SOURCE/DATA/TOKENS.NUM
new file mode 100644
index 0000000..5402756
Binary files /dev/null and b/SOURCE/DATA/TOKENS.NUM differ
diff --git a/SOURCE/DATA/XCAT.DOC b/SOURCE/DATA/XCAT.DOC
new file mode 100644
index 0000000..68eac11
--- /dev/null
+++ b/SOURCE/DATA/XCAT.DOC
@@ -0,0 +1,159 @@
+XCAT uses and other amazing features
+Written by Andy Nicholas                                        April 12, 1991
+Modified by Andy Wells                                       December 31, 1992
+
+THIS NOTE COVERS ONLY THE LLUCE VERSION OF XCAT.  SEE SUPERTAC.TECH.6 FOR ACOS
+------------------------------------------------------------------------------
+Changes since April 1991:
+
+A new version of XCAT has been written for LLUCE.
+
+New features include:
+---------------------
+Support for all current file type codes.
+Support for lower case characters in filenames.
+
+Changes:
+--------
+XCAT is now an overlay.  It should only be called using the OVERLAY command.
+The file type list can be easily altered using a block editor when new
+filetypes are assigned.
+The parameter list has been moved to 768 ($300).
+Mixed case filenames are fully supported.  The case flags are also in the
+parameter list.
+
+------------------------------------------------------------------------------
+
+When SuperTac 5.0 was introduced, a rather remarkable [for acos anyway]
+external file was shipped with it.  The file is called "XCAT" and allows
+a number of parameters to be found out about each file in a catalog.  It even
+allows someone to request that a certain file number be returned along with
+it's stats.
+
+the format of the call is:
+
+overlay "xcat",<special>,vl$,fn$,ta$,th$,md$,mt$,xd$,xt$,by$
+
+where
+
+vl$ = acos pathname of volume to be cataloged [only needed first time]
+fn$ = filename [15 characters]
+ta$ = filetype in ascii [3 characters]
+th$ = filetype in hex   [3 characters]
+md$ = modification date of file [form = 00-mon-00, 9 chars]
+mt$ = modification time, 24 hour format [5 chars]
+xd$ = creation date of file [form = 00-mon-00, 9 chars]
+xt$ = creation time, 24 hour format [5 chars]
+by$ = bytes used [9 chars]
+
+The strings must be setup beforehand so that the numbers need to only be
+passed back to the routine.  They must be re-initialized back this way every
+time xcat is "used." for example --
+
+makestr
+ fn$="               ":ta$="   ":th$="   ":bu$="     "
+ md$="         ":mt$="     "
+ xd$="         ":xt$="     "
+ by$="         ":a=0
+ return
+
+If you are planning on "building" a catalog, then you have to instruct xcat
+to return each catalog entry sequentially.  You do this by filling the
+<special> position with a zero (0) every time you want to get a catalog entry
+from the directory.  Keep in mind that the first time xcat is used in this
+mode VL$ must be supplied, but every time thereafter, VL$ should be omitted
+to save time [after all, VL$ is only used once to set the prefix and get
+the filename to operate on -- if there were 30 files, this routine would
+be called 30 times, and much time wasted for nothing]
+
+In addition to all of the strings that are returned each time the routine is
+called, a parameter list at 768 is also returned.  The values returned for each
+directory entry is as follows:
+
+Location     # of Bytes     What it is
+--------     ----------     --------------------------------------------------
+768+0            1          Length of previous filename
+768+1            1          access bits (locked, unlocked, etc - normally $E3)
+768+2            1          filetype (0-255)
+768+3            2          aux filetype ($0-$FFFF)
+768+5            1          storage type (seedling, sapling, tree, or sparse)
+768+6            2          number of prodos blocks ($0-$FFFF)
+768+8            2          date of last modification in prodos format
+768+10           2          time of last modification
+768+12           2          date of creation
+768+14           2          time of creation
+768+16           2          Xmodem Blocks
+768+18           3          # of bytes
+768+20           2          Filename case flags
+
+Remember to avoid leaving the catalog routine before a filename with 15 spaces
+is returned [signaling the end of the directory, and that xcat has closed the
+file].  If you suddenly decide to go elsewhere in the code before the catalog
+routine is done [and the file closed by prodos] you guarantee certain doom for
+your segment.
+
+Most external files do a general 'close' from prodos when they are done.
+This closes all levels of files that may be active.
+
+This includes board message files.  Xcat will <NOT> close all the files, only
+the directory is was operating on.  Thus, you can have either a text file or
+a board message file open while xcat is doing it's thing... for instance
+
+dir
+ print "Directory"
+dir1
+ print \"Volume "vo$\
+ kill "dir":create "dir"
+ ready "vol.headers"
+ input #msg(lg),a$
+ copy #6
+ open #2,"dir"
+ print \"  ##  Filename        Typ   Blks   Xmdm";
+ if cc=2 print"      Length   Uploaded   Packer/Type";
+ print \chr$(45,41);
+ if cc=2 print chr$(45,38):else print
+ gosub makestr
+{ First entry to xcat }
+ overlay "xcat",0,vl$,fn$,ta$,th$,bu$,md$,mt$,xd$,xt$,by$
+dloop
+ if fn$="               " goto endloop
+ a=a+1
+ if (left$(fn$,2)="S.") and (not exec) goto dloop2
+ si=peek(768+16)+peek(768+17)*256
+ print #2,"| "right$("00"+str$(a),2)"  "fn$" "ta$;
+ print #2," "bu$" | "right$("    "+str$(si),5)" |";
+ if cc<>2 print #2:goto dloop2
+ print #2," "by$" | "xd$" | ";
+ if ta$="REL" print #2,"DDD/Daltons |":goto dloop2
+ if th$="$F5" print #2,"ProPacker   |":goto dloop2
+ if ta$="SYS" print #2,"System File |":goto dloop2
+ if th$="$B0" print #2,"APW Source  |":goto dloop2
+ if ta$="AWP" print #2,"AppleWorks  |":goto dloop2
+ b=peek(768):if right$(left$(fn$,b),4)=".BNY" print #2,"Binary II   |":goto dloop2
+ if right$(left$(fn$,b),4)=".BQY" print #2,"Bin II/Sqz  |":goto dloop2
+ print #2,"            |"
+dloop2
+{ not the first entry }
+ overlay "xcat",0,fn$,ta$,th$,bu$,md$,mt$,xd$,xt$,by$:goto dloop
+endloop
+ close:gosub add:copy "dir"
+ print chr$(45,41);
+ if cc=2 print chr$(45,38):else print
+ setint(""):return
+
+This (^^^^^) routine uses channel #2 [and file buffer #2] to write the
+contents of the directory to a file.
+
+The alternate mode of xcat is used to retrieve information about a certain
+file number in a directory.  You have to pass the number in the <special> byte
+of the parameter list like so:
+
+ b = filenumber
+ gosub makestr
+ overlay "xcat",b,vl$,fn$,ta$,th$,md$,mt$,xd$,xt$,by$
+
+This part of xcat closes the directory when done.  If a 15 space string is
+returned in fn$, then the file entry does not exist.
+When getting info about a specific file, the directory name MUST be provided.
+
+------------------------------------------------------------------------------
diff --git a/SOURCE/DOWN4K.S b/SOURCE/DOWN4K.S
new file mode 100644
index 0000000..8b1b2a6
--- /dev/null
+++ b/SOURCE/DOWN4K.S
@@ -0,0 +1,1656 @@
+                    TR
+                    TR    ADR
+* Xmodem, Ymodem, Ymodem-4K, And 4Modem Transfer Drivers
+* Written Damn Well By Andy Nicholas -- 2/8/89
+*
+* Format:
+*
+* Use "A:Protocol.Down",100,0,F$ = Intelligent Xmodem
+* Use "A:Protocol.Down",100,1,F$ = Ymodem
+*-------------------------------
+
+                    ORG   $9E00
+
+* Protocol Stuff
+*-------------------------------
+
+Soh                 =     1                    ; <Soh> = 128  Byte Block
+Stx                 =     2                    ; <Stx> = 1024 Byte Block
+Sstx                =     $82                  ; <Sstx> = 4096 Byte Block
+Eot                 =     4                    ; <Eot> = End Of Transfer
+Ack                 =     6                    ; <Ack> = Good Packet
+Nak                 =     $15                  ; <Nak> = Bad Packet
+Can                 =     $18                  ; <Can> = Cancel Transfer
+Syn                 =     $16
+Etb                 =     $17
+Esc                 =     $9B                  ; Escape Keypress
+Bs                  =     8
+
+* ProDOS MLI Calls
+*-------------------------------
+
+GET_FILE_INFO       =     $C4
+OPEN                =     $C8
+READ                =     $CA
+CLOSE               =     $CC
+GET_EOF             =     $D1
+
+* General Global Equates
+*-------------------------------
+
+Bad                 =     $FF                  ; Boolean Equates
+Good                =     0
+
+POINTER             =     0                    ; General Purpose Pointer
+FAILFLAG            =     $A
+TMODE               =     $B
+HTAB                =     $24
+GOBCOM              =     $386                 ; Acos Routine To Eat Commas
+INPNUM              =     $389                 ; Get Character Into X Reg
+INPSTR              =     $38C                 ; Get A String
+MOVNAME             =     $38F                 ; Get Filename Into Filename Buffer
+SETOVEC             =     $3A1                 ; Set Output Vector To Y Reg
+ACOSPATH            =     $3CB                 ; Pathname Addr From Acos
+LOCPRINT            =     $906                 ; Print To The Local Screen
+MDMIN               =     $E15                 ; Modem Driver Input Routine
+MDMOUT              =     $E18                 ; Modem Driver Output Routine
+MDMDCD              =     $E1B                 ; Modem Driver Carrier Detect
+MLI                 =     $BF00                ; Prodos Calls
+KEY                 =     $C000                ; Read Keyboard
+STROBE              =     $C010                ; Keyboard Strobe
+PAGE1               =     $C054
+PAGE2               =     $C055
+HIRES               =     $C057
+LORES               =     $C056
+PTRIG               =     $C070                ; Paddle Trigger
+CHKBYT              =     $383                 ; Check Next Byte In Segment
+
+BLOCKBUFFER         =     $2000                ; 4K Block Buffer ($2000-$2Fff)
+CRCLO               =     $3100                ; Page For Crc Lo Bytes
+CRCHI               =     $3200                ; Page For Crc Hi Bytes
+FILEBUFFER          =     $AE00
+
+* Program Starts Here...
+*-------------------------------
+
+DOWNLOAD            JMP   DOSTART
+                    JMP   DOSTART
+
+*
+* Get/Set File Info Parms
+*
+PARMLIST            DB    $C3                  ; Access
+                    DB    4                    ; Filetype (Text)
+                    DA    0                    ; Auxtype
+                    DB    1                    ; Not Used
+                    DA    0                    ; Blocks_Used
+                    DA    0                    ; Mod Date
+                    DA    0                    ; Mod Time
+                    DA    0                    ; Create Date
+                    DA    0                    ; Create Time
+
+*
+* EOF Parms To Set The Proper End Of The File
+*
+:EOFParms           DB    2                    ; Parm Count
+                    DB    0                    ; Ref_Number
+                    DS    3
+
+BLOCKCOUNT          DA    0                    ; Blocks Sent
+TOTALERR            DA    0                    ; Total Amount Of Errors
+
+*
+*  Rest Of The Code Starts Here
+*
+DIE                 LDA   #255                 ; Syntax Error
+                    STA   FAILFLAG
+                    RTS
+
+DOSTART             LDA   #7                   ; Start At Prodos 4Modem
+                    STA   TMODE                ; Trans Mode To Prodos 4Modem
+                    LDA   #0
+                    STA   FAILFLAG             ; Innocent Until Proven Guilty
+                    STA   HTAB                 ; Htab 0
+                    STA   PACKETNUM            ; Always Packet 0
+                    STA   BLOCKCOUNT           ; Block = 0000
+                    STA   BLOCKCOUNT+1
+                    STA   TOTALERR
+                    STA   TOTALERR+1
+                    STA   CONSECERR
+                    STA   INNERLOOP            ; Abort From Outer Loop, Not Inner
+                    STA   USECSUM              ; Don't Use Checksum Mode
+                    STA   SENDSMALL            ; Don't Send Small Packets
+                    STA   ACKFLAG              ; Always Wait For Acks (No Ymodem-G)
+                    LDY   #3                   ; Get Output Channel
+                    JSR   SETOVEC              ; Channel 3, Sysop (Local)
+                    JSR   GOBCOM
+                    JSR   INPNUM               ; Get Timeout
+                    STX   TIMEOUT
+                    STX   WAITFOR
+                    STA   TIMEOUT+1
+                    STA   WAITFOR+1
+                    STA   STROBE               ; Reset Keyboard Strobe
+                    JSR   GOBCOM               ; Get Protocol
+                    JSR   INPNUM
+                    BNE   DIE
+
+                    STX   TRANSTYPE
+                    CPX   #0
+                    BEQ   :NOTBATCH
+
+                    JSR   CHKBYT
+                    CMP   #","                 ; Is It A Comma?
+                    BEQ   :NOTBATCH            ; Yes, Don't Try Final Stuff
+
+                    LDA   #1
+                    STA   LASTPACKET
+                    LDA   #<FINALBLOCK
+                    STA   POINTER
+                    LDA   #>FINALBLOCK
+                    STA   POINTER+1
+                    JSR   PRINTPSTRING
+                    STA   $C001                ; Switch Aux Memory In For
+                    STA   HIRES                ; The Final Block
+                    STA   PAGE2
+                    JSR   MAKETABLE            ; Make The Crc Table
+                    JSR   CLEARBUF             ; Clear The Block Buffer
+                    JMP   SEND_FINAL
+
+:NOTBATCH           JSR   GOBCOM               ; Go To Eat Next Comma
+                    JSR   MOVNAME              ; Move Filename For Open Call
+                    LDA   ACOSPATH
+                    STA   POINTER
+                    LDA   ACOSPATH+1
+                    STA   POINTER+1
+                    LDY   #0                   ; Get LENGTH Of Filename
+                    LDA   (POINTER),Y
+                    STA   FILENAME
+                    TAY
+:FNAME              LDA   (POINTER),Y          ; Move Acos's Filename To Ours
+                    STA   FILENAME,Y
+                    DEY
+                    BNE   :FNAME
+
+                    JSR   MLI                  ; Open Our File
+                    DB    OPEN
+                    DA    OPENPARMS
+                    BCC   :OK3                 ; No Errors-Keep Going'
+
+                    JMP   :DIE2
+
+*
+* Switch In Proper Memory Banks
+*
+
+:OK3                STA   $C001
+                    STA   HIRES
+                    STA   PAGE2
+                    JSR   MAKETABLE            ; Make The Crc Table
+                    JSR   CLEARBUF             ; Clear The Block Buffer
+                    JSR   MLI
+                    DB    GET_FILE_INFO        ; Mli Get_File_Info
+                    DA    GFIPARMS
+                    BCS   :DIE2
+
+                    LDA   OPENPARMS+5          ; Get Ref_Num
+                    STA   GETEOFPARMS+1        ; And Use For Eof Ref Number
+                    STA   CLOSEPARMS+1
+                    STA   READPARMS+1
+                    JSR   MLI
+                    DB    GET_EOF              Mli
+                    DA    GETEOFPARMS
+                    BCS   :DIE2
+
+*
+*  Put The Status Line On The Bottom Of The Screen
+*
+
+                    LDY   #19                  ; Move All 19 Parameters
+:MLOOP              LDA   GFIPARMS+3
+                    STA   PARMLIST,Y
+                    DEY
+                    BPL   :MLOOP
+
+                    LDA   #<SCREENTXT          ; Put The Screentext On The Screen
+                    STA   POINTER
+                    LDA   #>SCREENTXT
+                    STA   POINTER+1
+                    JSR   PRINTPSTRING
+                    JSR   PRINTCOUNT           ; Show All 0's In The Beginning
+                    JSR   PRINTERR
+*
+*  Put The Filename On The Screen
+*
+                    LDA   #64
+                    STA   HTAB
+                    LDA   #<FILENAME           ; Get Pointer To Filename/Lo
+                    STA   POINTER              ; Set Up Indirect Address
+                    LDA   #>FILENAME           ; Get Pointer To Filename/Hi
+                    STA   POINTER+1            ; Finish Setting Up
+                    JSR   PRINTPSTRING
+                    LDY   #0
+:LOOP               INY
+                    LDA   FILENAME,Y           ; Get Character In Filename
+                    STA   BLOCKBUFFER-1,Y
+                    CPY   FILENAME
+                    BNE   :LOOP
+
+                    LDA   TRANSTYPE
+                    CMP   #0
+                    BEQ   XDOWN                ; Is It 0? Yes, Intelligent
+
+                    CMP   #1                   ; Is It 1?
+                    BNE   :DIE3                ; Nope, Try Ymodem
+
+                    JMP   YBATCH               ; Yes, Batch Ymode
+
+:DIE2               STA   FAILFLAG
+:DIE3               JMP   ENDIT
+
+* Init For Ae Xmodem Send
+*-------------------------------
+
+XDOWN               LDA   #10                  ; And 10
+                    STA   RETRY                ; Retry
+                    JSR   CIN                  ; Look For The Starting C
+*
+*  If We Got This Far, We Got The Initial Packet,
+*  Now Check For AE Mode
+*
+                    LDA   #3
+                    STA   CTRIES
+:TRYC               DEC   CTRIES
+                    BEQ   :STANDARD
+
+                    LDA   #$81                 ; Soh With Hi Bit Set
+                    JSR   MDMOUT               ; Send It
+                    LDA   #0                   ; Get Ae Filetype
+                    JSR   MDMOUT               ; Send It
+                    LDA   #255                 ; Flip The Bits
+                    JSR   MDMOUT               ; And Send That
+                    JSR   ACKIN                ; Look For Ack
+                    BCS   :TRYC                ; Error->Resend
+
+                    JMP   :PRODOS
+
+:STANDARD           DEC   TMODE                ; Drop Into Standard Mode
+:PRODOS             LDA   TMODE
+                    ASL
+                    TAX
+                    LDA   PROTOCOLTADDR,X      ; Get Low Byte Of Address
+                    STA   POINTER              ; For Text
+                    INX
+                    LDA   PROTOCOLTADDR,X      ; Get High Byte Of Address For Text
+                    STA   POINTER+1
+                    LDA   #41
+                    STA   HTAB                 ; Htab 12
+                    JSR   PRINTPSTRING         ; Print The Xfer Type
+                    LDA   TMODE                ; Get The Transfer Type
+                    CMP   #6
+                    BGE   X4096
+
+                    CMP   #4                   ; Can We Use 1K Blocks?
+                    BGE   :JMP1K               ; Yes, Send Via 1K
+
+:JMP128             JMP   X128                 ; No, Only Send 128 Byte Packets
+
+:JMP1K              JMP   X1024                ; Send 1K Blocks
+
+* Start Of 4K Xmodem Packet Sending Routines....
+*-------------------------------
+
+X4096               LDX   #<1024
+                    LDA   #>1024
+                    JSR   READFILE             ; Read 8 Xmodem Blocks
+                    JSR   SEND128PACKETS       ; Hopefully Send Them
+                    LDA   READPARMS+7
+                    CMP   #>1024
+                    BEQ   :READ3K
+
+                    JMP   FILEEOT
+
+:READ3K             LDX   #<3072
+                    LDA   #>3072
+                    JSR   READFILE             ; Read 8 Xmodem Blocks
+                    JSR   SEND1KPACKETS        ; Hopefully Send Them
+                    LDA   READPARMS+7
+                    CMP   #>3072
+                    BEQ   :READF
+
+                    JMP   FILEEOT
+
+:READF              LDX   #<4096
+                    LDA   #>4096
+                    JSR   READFILE             ; Read 'em
+                    BCS   :EOF                 ; Landed On A Block Boundary End It
+
+                    CMP   #>4096               ; Did We Get A Big Packet?
+                    BEQ   :NEXTBLOCK
+
+                    JSR   SEND1KPACKETS
+:EOF                JMP   FILEEOT
+
+:NEXTBLOCK          LDA   SENDSMALL
+                    BNE   :STILLERRORS
+
+                    LDA   #10                  ; Initialize To 10 Retry
+                    STA   RETRY                ; Store Counter
+                    INC   PACKETNUM            ; Next Xmodem Block In Series
+                    LDA   BLOCKCOUNT           ; Get Blocks Sent Lo
+                    CLC
+                    ADC   #32                  ; Blocks Sent=Blocks Sent+32
+                    STA   BLOCKCOUNT           ; Store Result
+                    BCC   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+
+:LOOP2              JSR   INITCRC
+                    JSR   SEND4096
+                    BCC   :READF               ; Ok, Send The Next 1024 Byte Pack
+
+                    LDA   CONSECERR            ; How Many Consecutive Errors Do We Have?
+                    CMP   #2                   ; 2?
+                    BNE   :LOOP2               ; Nope, Then Retry Large Block
+
+                    DEC   PACKETNUM            ; Decrease Pack # By 1
+                    LDA   BLOCKCOUNT           ; Decrease Block Count By 8
+                    SEC
+                    SBC   #32
+                    STA   BLOCKCOUNT
+                    BCS   :STILLERRORS         ; No Borrow Required, So No Dec
+
+                    DEC   BLOCKCOUNT+1
+:STILLERRORS        LDA   TOTALERR             ; 2 Consec Errors, So Find Out How Many
+                    STA   ERRORSBEFORE         ; Before We Send Small Packets
+                    LDA   #0
+                    STA   SENDSMALL            ; Don't Send Small After This One
+                    LDX   READPARMS+6          ; How Much Did We Get?
+                    LDA   READPARMS+7
+                    JSR   SEND1KPACKETS        ; Unless We Get Errors
+                    LDA   ERRORSBEFORE
+                    CMP   TOTALERR             ; Did We Get Any Extra Errors?
+                    BEQ   :READF
+
+                    LDA   #1
+                    STA   SENDSMALL
+                    JMP   :READF
+
+* Start Of 1K Xmodem Packet Sending Routines....
+*-------------------------------
+
+X1024               LDX   #<512
+                    LDA   #>512
+                    JSR   READFILE             ; Read 4 Xmodem Blocks
+                    JSR   SEND128PACKETS       ; Hopefully Send Them
+                    LDA   READPARMS+7
+                    CMP   #>512
+                    BEQ   :READF
+
+                    JMP   FILEEOT
+
+:READF              LDX   #<1024
+                    LDA   #>1024
+                    JSR   READFILE             ; Read 'em
+                    BCS   :EOF                 ; Landed On A Block Boundary End It
+
+                    CMP   #>1024               ; Did We Get A Big Packet?
+                    BEQ   :NEXTBLOCK
+
+                    JSR   SEND128PACKETS
+:EOF                JMP   FILEEOT
+
+:NEXTBLOCK          LDA   SENDSMALL
+                    BNE   :STILLERRORS
+
+                    LDA   #10                  ; Initialize To 10 Retry
+                    STA   RETRY                ; Store Counter
+                    INC   PACKETNUM            ; Next Xmodem Block In Series
+                    LDA   BLOCKCOUNT           ; Get Blocks Sent Lo
+                    CLC
+                    ADC   #8                   ; Blocks Sent=Blocks Sent+8
+                    STA   BLOCKCOUNT           ; Store Result
+                    BCC   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+
+:LOOP2              JSR   INITCRC
+                    JSR   SEND1024
+                    BCC   :READF               ; Ok, Send The Next 1024 Byte Pack
+
+                    LDA   CONSECERR            ; How Many Consecutive Errors Do We Have?
+                    CMP   #2                   ; 2?
+                    BNE   :LOOP2               ; Nope, Then Retry Large Block
+
+                    DEC   PACKETNUM            ; Decrease Pack # By 1
+                    LDA   BLOCKCOUNT           ; Decrease Block Count By 8
+                    SEC
+                    SBC   #8
+                    STA   BLOCKCOUNT
+                    BCS   :STILLERRORS         ; No Borrow Required, So No Dec
+
+                    DEC   BLOCKCOUNT+1
+:STILLERRORS        LDA   TOTALERR             ; 2 Consec Errors, So Find Out How Many
+                    STA   ERRORSBEFORE         ; Before We Send Small Packets
+                    LDA   #0
+                    STA   SENDSMALL            ; Don't Send Small After This One
+                    LDX   READPARMS+6          ; How Much Did We Get?
+                    LDA   READPARMS+7
+                    JSR   SEND128PACKETS       ; Unless We Get Errors
+                    LDA   ERRORSBEFORE
+                    CMP   TOTALERR             ; Did We Get Any Extra Errors?
+                    BEQ   :READF
+
+                    LDA   #1
+                    STA   SENDSMALL
+                    JMP   :READF
+
+* Start Of 128 Byte Packet Sending Routines
+*-------------------------------
+
+X128                LDX   #<1024
+                    LDA   #>1024
+                    JSR   READFILE             ; Read 1K Of File Always
+                    BCS   :EOF                 ; We Landed On A 1K Boundary, All Done
+
+                    CMP   #>1024               ; Did We Get 1K From The File?
+                    BNE   :LAST                ; No, Must Be At End, Send Last Blocks
+
+                    JSR   SEND128PACKETS       ; Else Send 1K Worth Of Blocks
+                    JMP   X128                 ; Go Read Some More
+
+:LAST               JSR   SEND128PACKETS       ; Send Buffer Full Of Packets
+:EOF                JMP   FILEEOT              ; All Done
+
+* End Of File Transmission
+*-------------------------------
+
+FILEEOT             LDA   #10                  ; Init To 10
+                    STA   RETRY                ; Retry
+                    LDA   #1
+                    STA   LASTPACKET           ; This Is The Footer
+:LOOP               LDA   #Eot
+                    JSR   MDMOUT               ; Send It
+                    JSR   ACKIN                ; Look For An Ack Response
+                    BCS   :LOOP
+
+                    LDA   TMODE                ; Get Trans Mode
+                    AND   #%00000001           ; Is It Odd?
+                    BNE   FOOTER               ; Yes, Send A Footer Packet
+
+                    JMP   ENDIT                ; Else No Footer Needed, End The Xfer
+
+* Prodos Footer
+*-------------------------------
+
+FOOTER              LDY   #5                   ; Init Counter
+:LOOP               JSR   INPUT                ; Look For Input
+                    CMP   #Syn                 ; Is It A Ctrl-Y?
+                    BEQ   :GOT_SYN             ; You Bet!
+
+                    DEY
+                    BNE   :LOOP                ; Try Again
+
+                    LDA   #3
+                    JMP   BAD_FILE
+
+:GOT_SYN            LDA   #Etb                 ; Etb (Ae Prodos Proto)
+                    JSR   MDMOUT               ; Send It
+                    JSR   NAKIN                ; Look For Nak
+                    JSR   CLEARBUF             ; Clear Out The Block Buffer
+                    LDA   #4                   ; 4 Retries
+                    STA   RETRY
+:LOOP2              LDA   #$AA
+                    STA   PACKETNUM            ; Change Block Number To $Aa For AE
+                    STA   LASTPACKET           ; Yep, This *IS* The Last Packet
+                    JSR   INITCRC
+                    LDA   #<GFIPARMS
+                    STA   POINTER
+                    LDA   #>GFIPARMS
+                    STA   POINTER+1
+                    LDA   USECSUM              ; Is It In A Checksum Mode?
+                    BNE   :CSUM                ; Yes, Send The Last Via Csum
+
+                    JSR   SEND128CRC
+                    BCS   :LOOP2               ; Error, Retry
+
+                    JMP   ENDIT
+
+:CSUM               JSR   SEND128CSUM
+                    BCS   :LOOP2               ; Error, Retry
+
+                    JMP   ENDIT
+
+* Close File And End
+*-------------------------------
+
+ENDIT               JSR   CLOSEFILE
+                    LDY   #0
+                    STY   HTAB
+                    LDA   #' '
+:LOOP               JSR   LOCPRINT
+                    INY
+                    CPY   #79
+                    BNE   :LOOP
+
+                    LDY   #0                   ; Return To
+                    JSR   SETOVEC              ; Normal Output Vector
+                    STA   LORES                ; Reset For Normal Stuff
+                    STA   PAGE1                ; Main
+                    RTS                        ; Back To Acos
+
+* Start Of Ymodem Batch Sending Routines
+*-------------------------------
+
+YBATCH              LDA   #41
+                    STA   HTAB
+                    LDA   #<YMODEMTEXT         ; Print 'Ymodem' After "Mode:"
+                    STA   POINTER
+                    LDA   #>YMODEMTEXT
+                    STA   POINTER+1
+                    JSR   PRINTPSTRING
+                    LDA   #$1D                 ; Put The ID Byte There
+                    STA   BLOCKBUFFER+64
+                    LDA   #$47                 ; Put A "G" For Greg
+                    STA   BLOCKBUFFER+65
+                    LDX   #0                   ; Move The Gfi And Get Eof
+:PARM_LOOP          LDA   GFIPARMS,X           ; Results To Header Packet
+                    STA   BLOCKBUFFER+66,X
+                    INX
+                    CPX   #$17                 ; Done All?
+                    BNE   :PARM_LOOP           ; No, Loop
+
+SEND_FINAL          LDA   #10
+                    STA   RETRY
+                    JSR   BIN                  ; Wait For A 'C'
+
+* Send The Header Packet With Some File Information In It
+*-------------------------------
+
+SENDHEAD            JSR   INITCRC
+                    JSR   SEND128CRC
+                    BCS   SENDHEAD             ; Ack Not Received, Resend Header
+
+                    LDA   BLOCKBUFFER          ; Last One?
+                    BNE   PROCEED              ; No, Send File
+
+                    JMP   ENDIT
+
+* If There Is An Actual File To Send, Send It
+*-------------------------------
+
+PROCEED             JSR   NAKIN                ; Wait For Another <Nak> Or <C>
+; Or Anything For That Matter
+                    LDA   GFLAG                ; Skip Acks
+                    STA   ACKFLAG
+                    LDA   TMODE
+                    CMP   #2
+                    BNE   :INITSEND
+
+                    JMP   PROCEED4K
+
+:INITSEND           LDX   #<512
+                    LDA   #>512
+                    JSR   READFILE             ; Read 4 Xmodem Blocks
+                    JSR   SEND128PACKETS       ; Hopefully Send Them
+                    LDA   READPARMS+7
+                    CMP   #>512
+                    BEQ   :READF
+
+                    JMP   BATCHEOT
+
+:READF              LDX   #<1024
+                    LDA   #>1024
+                    JSR   READFILE             ; Read 'em
+                    BCS   :EOF                 ; Landed On A Block Boundary End It
+
+                    CMP   #>1024               ; Did We Get A Big Packet?
+                    BEQ   :NEXTBLOCK
+
+                    JSR   SEND128PACKETS
+:EOF                JMP   BATCHEOT
+
+:NEXTBLOCK          LDA   SENDSMALL
+                    BNE   :STILLERRORS
+
+                    LDA   #10                  ; Initialize To 10 Retry
+                    STA   RETRY                ; Store Counter
+                    INC   PACKETNUM            ; Next Xmodem Block In Series
+                    LDA   BLOCKCOUNT           ; Get Blocks Sent Lo
+                    CLC
+                    ADC   #8                   ; Blocks Sent=Blocks Sent+8
+                    STA   BLOCKCOUNT           ; Store Result
+                    BCC   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+:LOOP2              JSR   INITCRC
+                    JSR   SEND1024
+                    BCC   :READF               ; Ok, Send The Next 1024 Byte Pack
+
+                    LDA   CONSECERR            ; How Many Consecutive Errors Do We Have?
+                    CMP   #2                   ; 2?
+                    BNE   :LOOP2               ; Nope, Then Retry Large Block
+
+                    DEC   PACKETNUM            ; Decrease Pack # By 1
+                    LDA   BLOCKCOUNT           ; Decrease Block Count By 8
+                    SEC
+                    SBC   #8
+                    STA   BLOCKCOUNT
+                    BCS   :STILLERRORS         ; No Borrow Required, So No Dec
+
+                    DEC   BLOCKCOUNT+1
+:STILLERRORS        LDA   TOTALERR             ; 2 Consec Errors, So Find Out How Many
+                    STA   ERRORSBEFORE         ; Before We Send Small Packets
+                    LDA   #0
+                    STA   SENDSMALL            ; Don't Send Small After This One
+                    LDX   READPARMS+6          ; How Much Did We Get?
+                    LDA   READPARMS+7
+                    JSR   SEND128PACKETS       ; Unless We Get Errors
+                    LDA   ERRORSBEFORE
+                    CMP   TOTALERR             ; Did We Get Any Extra Errors?
+                    BEQ   :READF
+
+                    LDA   #1
+                    STA   SENDSMALL
+                    JMP   :READF
+
+* Start Of 4K Ymodem-4K Packet Sending Routines....
+*-------------------------------
+
+PROCEED4K
+:READF              LDX   #<4096
+                    LDA   #>4096
+                    JSR   READFILE             ; Read 'em
+                    BCS   :EOF                 ; Landed On A Block Boundary End It
+
+                    CMP   #>4096               ; Did We Get A Big Packet?
+                    BEQ   :NEXTBLOCK
+
+                    JSR   SEND1KPACKETS
+:EOF                JMP   BATCHEOT
+
+:NEXTBLOCK          LDA   SENDSMALL
+                    BNE   :STILLERRORS
+
+                    LDA   #10                  ; Initialize To 10 Retry
+                    STA   RETRY                ; Store Counter
+                    INC   PACKETNUM            ; Next Xmodem Block In Series
+                    LDA   BLOCKCOUNT           ; Get Blocks Sent Lo
+                    CLC
+                    ADC   #32                  ; Blocks Sent=Blocks Sent+32
+                    STA   BLOCKCOUNT           ; Store Result
+                    BCC   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+:LOOP2              JSR   INITCRC
+                    JSR   SEND4096
+                    BCC   :READF               ; Ok, Send The Next 1024 Byte Pack
+
+                    LDA   CONSECERR            ; How Many Consecutive Errors Do We Have?
+                    CMP   #2                   ; 2?
+                    BNE   :LOOP2               ; Nope, Then Retry Large Block
+
+                    DEC   PACKETNUM            ; Decrease Pack # By 1
+                    LDA   BLOCKCOUNT           ; Decrease Block Count By 8
+                    SEC
+                    SBC   #32
+                    STA   BLOCKCOUNT
+                    BCS   :STILLERRORS         ; No Borrow Required, So No Dec
+
+                    DEC   BLOCKCOUNT+1
+:STILLERRORS        LDA   TOTALERR             ; 2 Consec Errors, So Find Out How Many
+                    STA   ERRORSBEFORE         ; Before We Send Small Packets
+                    LDA   #0
+                    STA   SENDSMALL            ; Don't Send Small After This One
+                    LDX   READPARMS+6          ; How Much Did We Get?
+                    LDA   READPARMS+7
+                    JSR   SEND1KPACKETS        ; Unless We Get Errors
+                    LDA   ERRORSBEFORE
+                    CMP   TOTALERR             ; Did We Get Any Extra Errors?
+                    BEQ   :READF
+
+                    LDA   #1
+                    STA   SENDSMALL
+                    JMP   :READF
+
+* End Of Transmission Of One File, Return To Caller...
+*-------------------------------
+
+BATCHEOT            LDA   #1
+                    STA   LASTPACKET
+                    LDA   #10                  ; Initialize Count For Last Byte
+                    STA   RETRY
+:LOOP               LDA   #Eot                 ; Get An Eot
+                    JSR   MDMOUT               ; Send It
+                    LDA   #0                   ; Always Wait For Acks On EOT
+                    STA   ACKFLAG
+                    JSR   ACKIN                ; Wait For An Ack
+                    BCS   :LOOP                ; If Ok, Finish Up
+
+                    JMP   ENDIT
+
+* Print A Single Character On The Screen
+* To Indicate Error Status
+*-------------------------------
+
+PRINTERR            PHA                        ; Save The Acc
+                    TXA
+                    PHA                        ; Save The X-Reg
+                    LDA   #19
+                    STA   HTAB                 ; Horizontal Location
+                    LDX   TOTALERR             ; Total Errors Low Byte
+                    LDA   TOTALERR+1           ; Total Errors High Byte
+                    JSR   DECOUT               ; Go Print It
+                    LDA   #31
+                    STA   HTAB                 ; Horizontal Location
+                    LDX   CONSECERR            ; Consec Errs Low Byte
+                    LDA   #0                   ; Consec Errs High Byte
+                    JSR   DECOUT               ; Go Print It
+                    PLA                        ; Recover X
+                    TAX
+                    PLA                        ; Recover Acc
+                    RTS                        ; Return
+
+* Print Block Count On Screen After "Block:"
+*-------------------------------
+
+PRINTCOUNT          LDA   #6
+                    STA   HTAB                 ; Horizontal Location
+                    LDX   BLOCKCOUNT           ; Block Count Low Byte
+                    LDA   BLOCKCOUNT+1         ; Block Count High Byte
+                    JSR   DECOUT               ; Go Print It
+                    RTS                        ; Return
+
+* Wait For An <Ack>
+*-------------------------------
+
+ACKIN               LDY   #10
+:LOOP               LDA   KEY                  ; Get A Keystroke
+                    BPL   :NOPRESS             ; Nothing There...
+
+                    CMP   #Esc                 ; Got A Keypress
+                    BEQ   :ERR_OUT             ; If It's Escape, Exit Violently
+
+                    STA   STROBE               ; Otherwise, Reset Strobe And Continue
+:NOPRESS            JSR   MDMDCD               ; Check For Carrier
+                    BCC   :ERR_OUT             ; Ooops Seems We've Lost It
+
+                    LDA   ACKFLAG              ; Should We Check For Ymodem-G?
+                    BEQ   :NOTYG               ; Nope
+
+                    JSR   MDMIN                ; Look For Byte Incoming
+                    BCC   :GOTIT               ; Nothing Found, Continue Transfer
+
+                    CMP   #Can
+                    BNE   :GOTIT               ; If We Get A Single <Can>, Wait
+
+                    JSR   INPUT                ; For Another <Can>, Else Continue
+                    BCC   :GOTIT
+
+                    CMP   #Can                 ; If Input = <Can>, Abort
+                    BEQ   :ERR_OUT             ; Else Continue
+                    BNE   :GOTIT
+
+:NOTYG              JSR   INPUT                ; Look For Input
+                    BCC   :NOTHING             ; Nothing Found
+
+                    CMP   #Ack                 ; Is It An <Ack>?
+                    BEQ   :GOTIT               ; Yes, Return
+
+                    CMP   #Nak                 ; Is It A <Nak>?
+                    BEQ   :BADBLOCK            ; Yes, Flag As Bad
+
+                    AND   #$7F                 ; Strip Hi Bit
+                    CMP   LASTCHAR             ; Same Char As Before
+                    BNE   :NOT_LAST            ; Nope...But Remember It
+
+                    CMP   #Can                 ; Double <Can>?
+                    BEQ   :ERR_OUT             ; Yes...End The Trans.
+
+:NOT_LAST           STA   LASTCHAR             ; Save Char For Later Chk
+:NOTHING            DEY                        ; Decrement Loop Count
+                    BNE   :LOOP                ; Still Some Left
+
+:BADBLOCK           INC   TOTALERR
+                    BNE   :SKIP
+
+                    INC   TOTALERR+1
+:SKIP               DEC   RETRY
+                    LDA   RETRY
+                    CMP   #9
+                    BEQ   :NO_CONSEC
+
+                    INC   CONSECERR
+                    LDA   CONSECERR
+                    CMP   #10
+                    BEQ   :ERR_OUT
+
+                    JSR   PRINTERR
+:NO_CONSEC          LDA   #0                   ; Zero Acc. We Got Nothing
+                    SEC                        ; Set Flag
+                    RTS                        ; Return To Caller
+
+:GOTIT              LDX   CONSECERR            ; Get Current Consecutive Error Count
+                    LDA   #0                   ; We Got A Good Block, Say That
+                    STA   CONSECERR
+                    CPX   #0                   ; Check Again For What Once Was
+                    BEQ   :GOTIT2              ; If It Already WAS 0, Don't Bother
+
+                    JSR   PRINTERR             ; Else Show The New Consec Err Count
+:GOTIT2             CLC
+                    RTS
+
+:ERR_OUT            JMP   CLRSTK               ; Go Clear Stack, End Transfer
+
+* Look For <Nak>
+*-------------------------------
+
+NAKIN               LDY   #10
+:LOOP               LDA   KEY                  ; Get A Keystroke
+                    BPL   :NOPRESS             ; Nothing There...
+
+                    CMP   #Esc                 ; Got A Keypress
+                    BEQ   :GONE                ; If It's Escape, Exit Violently
+
+                    STA   STROBE               ; Otherwise, Reset Strobe And Continue
+:NOPRESS            JSR   MDMDCD               ; Look For Carrier
+                    BCC   :GONE                ; Seems Not To Be There!
+
+                    JSR   INPUT                ; Look For Input
+                    BCC   :NOTHING             ; Nothing Found
+
+                    CMP   #Nak                 ; Is It Nak?
+                    BEQ   :CLEAR               ; Yes, Then Return To Caller
+
+                    CMP   #'C'                 ; Is It A "C" For Ymodem?
+                    BEQ   :CLEAR
+
+                    CMP   #'G'                 ; Is It A "G" For Ymodem-G?
+                    BEQ   :CLEAR
+
+                    CMP   #'4'                 ; Is It A "4" For Ymodem-4K?
+                    BEQ   :CLEAR
+
+                    AND   #$7F
+                    CMP   LASTCHAR             ; Same As Before
+                    BNE   :NOT_LAST            ; Not The Same As Before
+
+                    CMP   #Can                 ; Double <Can>?
+                    BEQ   :GONE
+
+:NOT_LAST           STA   LASTCHAR             ; Remember Char For Checking
+:NOTHING            DEY                        ; Decrement Loop Cpunt
+                    BNE   :LOOP                ; Still Some Loop Left
+
+                    LDA   #1                   ; Timed Out Waiting
+:GONE               JMP   CLRSTK               ; Clear Stack, End Trans..
+
+:CLEAR              CLC
+                    RTS
+
+* Wait For A 'C' To Start The Batch Transmission
+*-------------------------------
+
+BIN                 LDY   #15                  ; Wait 30 Seconds
+:LOOP               LDA   KEY                  ; Get A Keystroke
+                    BPL   :NOPRESS             ; Nothing There...
+
+                    CMP   #Esc                 ; Got A Keypress
+                    BEQ   :ABORTED             ; If It's Escape, Exit Violently
+
+                    STA   STROBE               ; Otherwise, Reset Strobe And Continue
+:NOPRESS            JSR   MDMDCD
+                    BCC   :ABORTED
+
+                    JSR   INPUT                ; Get A Character From The Modem
+                    CMP   #'C'                 ; Is It A 'c'?
+                    BEQ   :OK                  ; Yes, Also Return Gracefully
+
+                    CMP   #'G'                 ; Is It Ymodem-G?
+                    BEQ   :OK_G                ; Yes!  Ack!!
+
+                    CMP   #'4'                 ; Was Is Ymodem-4K?
+                    BEQ   :OK_4
+
+                    AND   #$7F
+                    CMP   LASTCHAR             ; Same As Before
+                    BNE   :MAKELAST            ; Not The Same As Before
+
+                    CMP   #Can                 ; Double <Can>?
+                    BEQ   :ABORTED             ; Yes, Leave It
+
+:MAKELAST           STA   LASTCHAR
+                    DEY                        ; Keep Trying
+                    BNE   :LOOP                ; Not Done Yet, Try Again
+
+                    LDA   #1                   ; Timed Out Waiting
+:ABORTED            JMP   CLRSTK
+
+:OK                 LDA   #0
+                    STA   GFLAG
+                    STA   TMODE
+                    RTS
+
+:OK_G               LDA   #1                   ; Was Ymodem-G, Flag As Such
+                    STA   GFLAG
+                    STA   TMODE
+                    RTS
+
+:OK_4               LDA   #0                   ; Was Ymodem-4K, Flag As Such
+                    STA   GFLAG
+                    LDA   #2
+                    STA   TMODE
+                    RTS
+
+* Look For A 'C' To Start The Transmission
+*-------------------------------
+
+CIN                 LDA   #2
+                    STA   CTRIES               ; Tries For A C Are 2
+                    LDY   #15                  ; Wait 30 Seconds
+:LOOP               LDA   KEY                  ; Get A Keystroke
+                    BPL   :NOPRESS             ; Nothing There
+
+                    CMP   #Esc                 ; Is It Esc?
+                    BEQ   CLRSTK               ; Yes, Exit
+
+                    STA   STROBE               ; Else, Reset Strobe And Continue
+:NOPRESS            JSR   MDMDCD               ; Look For Carrier
+                    BCC   CLRSTK               ; Lost It
+
+                    JSR   INPUT                ; Input For 2.00 SECs
+                    CMP   #'C'                 ; Is It A 'C'
+                    BEQ   :GOT_C               ; Yes Return To Caller
+
+                    CMP   #Nak                 ; Is It A <Nak>?
+                    BEQ   :GOT_NAK             ; Yes, One More Try
+
+                    AND   #$7F
+                    CMP   LASTCHAR             ; Same As Before
+                    BNE   :MAKELAST            ; Not The Same As Before
+
+                    CMP   #Can                 ; Double <Can>?
+                    BEQ   CLRSTK
+
+:MAKELAST           STA   LASTCHAR
+                    DEY
+                    BNE   :LOOP
+
+                    LDA   #1                   ; Timed Out Waiting
+                    JMP   CLRSTK
+
+:GOT_NAK            DEC   CTRIES
+                    BNE   :LOOP                ; Exhausted All Possibilities
+
+                    LDA   #1                   ; Yes, Drop Down Into Cksum
+                    STA   TMODE
+                    STA   USECSUM              ; Change From CRC To Checksum Mode
+                    RTS
+
+:GOT_C              JSR   INPUT                ; Wait For A Second For Inp
+                    BCC   :CRC_XMODEM          ; Nothing Found
+
+                    CMP   #'K'                 ; Is It The "K" In CK?
+                    BNE   :CRC_XMODEM
+
+:GOT_K              JSR   INPUT                ; Wait For A Second For Inp
+                    BCC   :XMODEM_1K           ; Nothing Found
+
+                    CMP   #'L'                 ; Is It The "L" In CKL?
+                    BNE   :XMODEM_1K
+
+                    LDA   #7                   ; Set 4Modem Mode
+                    STA   TMODE
+                    RTS
+
+:XMODEM_1K          LDA   #5
+                    STA   TMODE                ; Set Xmodem-1K
+                    RTS
+
+:CRC_XMODEM         LDA   #3                   ; Set Crc Xmodem
+                    STA   TMODE
+                    RTS
+
+* Prepare To Exit To Acos
+*-------------------------------
+
+CLRSTK              TAX                        ; Save Error In X Reg
+                    LDA   INNERLOOP            ; Are We In An InnerLoop
+                    BEQ   :PULL1               ; Nope, In Main Code, Pull Ackin Off Stack
+
+                    PLA                        ; Yes, Pull Ackin Return Then
+                    PLA                        ; Previous Return
+:PULL1              PLA
+                    PLA
+                    TXA
+BAD_FILE            STA   FAILFLAG
+                    LDX   #6                   ; Send 5 <Can> Characters
+:LOOP1              LDA   #Can
+                    JSR   MDMOUT
+                    DEX
+                    BNE   :LOOP1
+
+                    LDX   #6                   ; Followed By 5 Backspaces
+:LOOP2              LDA   #Bs
+                    JSR   MDMOUT
+                    DEX
+                    BNE   :LOOP2
+
+                    LDA   LASTPACKET           ; Was This The Last?
+                    BEQ   :NOTLAST             ; Nope, =0 So Normal Fail
+
+                    LDA   #254
+                    STA   FAILFLAG
+:NOTLAST            JMP   ENDIT
+
+* Mli Read In The Data
+*-------------------------------
+
+READFILE            STX   READPARMS+4
+                    STA   READPARMS+5
+                    JSR   MLI
+                    DB    READ
+                    DA    READPARMS
+                    PHP                        ; Save State Of Carry Flag
+                    LDA   READPARMS+7
+                    CMP   READPARMS+5
+                    BEQ   :DONE
+
+*
+*  Since We Were Not Able To Read All We Wanted,
+*  Zero Out The Rest Of The Block Buffer With 00's
+*
+                    LDA   READPARMS+7          ; Calculate Page To Start On
+                    CLC
+                    ADC   #>BLOCKBUFFER
+                    STA   POINTER+1
+                    LDA   #0                   ; Always Start Even
+                    STA   POINTER
+                    LDY   READPARMS+6          ; Low Byte Offset To Start On
+                    LDA   #0                   ; Value To Store
+:LOOP               STA   (POINTER),Y          ; Store It
+                    INY                        ; Next Value
+                    BNE   :LOOP                ; Did The Pages Roll Over?
+
+; Y Rolled Over
+:NOROLL             INC   POINTER+1            ; Do Next Page In Series
+                    LDA   POINTER+1
+                    CMP   #>BLOCKBUFFER+$1000  ; Did We Reach $3000?
+                    BNE   :LOOP                ; Nope, Get Some More (Y=0)
+
+:DONE               LDX   READPARMS+6
+                    LDA   READPARMS+7
+                    PLP                        ; Get State Of Carry Flag Back
+                    RTS                        ; Back To Caller
+
+* Clear The 1K Block Buffer
+*-------------------------------
+
+CLEARBUF            LDA   #<BLOCKBUFFER
+                    STA   POINTER
+                    LDA   #>BLOCKBUFFER
+                    STA   POINTER+1
+                    LDY   #128
+                    LDA   #0
+:LOOP               STA   (POINTER),Y
+                    DEY
+                    BPL   :LOOP
+                    RTS
+
+* CLOSEFILE - Close The File And Return
+*-------------------------------
+
+CLOSEFILE           JSR   MLI
+                    DB    CLOSE
+                    DA    CLOSEPARMS
+                    RTS
+
+* Get Input - SEC=Input, CLC=No Input
+*             Wait Up To 1 Second Before Timing Out
+*-------------------------------
+
+INPUT               JSR   MDMIN                ; Look For Byte Incoming
+                    BCC   :NOTHING             ; Nothing Found, Setup Loop
+
+                    RTS                        ; Byte Found! Return To Caller
+
+:NOTHING            LDA   #0
+                    STA   :LASTVBL
+                    STA   :SIXTY               ; Sixtieths Of A Second We've Waited
+                    STA   :SIXTY+1
+:LOOP               JSR   MDMIN                ; Get Byte From Modem
+                    BCC   :NO_INP              ; Nothing There, Adjust Loop Counters
+
+                    RTS
+
+:NO_INP             LDA   $C019                ; Has There Been A Change?
+                    AND   #$80                 ; Mask All But High Bit
+                    CMP   :LASTVBL             ; Look For A Change In The Value
+                    BEQ   :LOOP                ; Indicating A Transition
+
+                    STA   :LASTVBL
+                    INC   :SIXTY
+                    BNE   :NOROLL
+
+                    INC   :SIXTY+1
+:NOROLL             LDA   :SIXTY
+                    CMP   WAITFOR
+                    BNE   :LOOP
+
+                    LDA   :SIXTY+1
+                    CMP   WAITFOR+1
+                    BNE   :LOOP
+
+                    CLC                        ; Input Was Bad
+                    LDA   #0
+                    RTS
+
+:LASTVBL            DB    0
+:SIXTY              DA    0
+WAITFOR             DA    $F0
+
+* Send Soh, Block Number, And Complemented Block Number
+*-------------------------------
+
+SENDSOH             LDA   #Soh                 ; Soh
+                    JSR   MDMOUT               ; Send It
+                    LDA   PACKETNUM            ; Get Block Number
+                    JSR   MDMOUT               ; Send It
+                    EOR   #$FF                 ; Flip The Bits
+                    JSR   MDMOUT               ; Send It
+                    RTS
+
+* Send <Stx> (1K Block), Block Number,
+* And Complemented Block Number
+*-------------------------------
+
+SENDSTX             LDA   #Stx                 ; Stx
+                    JSR   MDMOUT               ; Send It
+                    LDA   PACKETNUM            ; Get Block Number
+                    JSR   MDMOUT               ; Send It
+                    EOR   #$FF                 ; Flip The Bits
+                    JSR   MDMOUT               ; Send It
+                    RTS
+
+* Send <Sstx> (4K Block), Block Number,
+* And Complemented Block Number
+*-------------------------------
+
+SENDSSTX            LDA   #Sstx                ; Sstx
+                    JSR   MDMOUT               ; Send It
+                    LDA   PACKETNUM            ; Get Block Number
+                    JSR   MDMOUT               ; Send It
+                    EOR   #$FF                 ; Flip The Bits
+                    JSR   MDMOUT               ; Send It
+                    RTS
+
+* Send CRC Bytes Out The Modem
+*-------------------------------
+
+SENDCRC             LDA   CRC+1                ; Get Crc Hi Byte
+                    JSR   MDMOUT               ; Send It
+                    LDA   CRC                  ; Get Crc Lo Byte
+                    JSR   MDMOUT               ; Send It
+                    RTS
+
+* MAKETABLE -- Make The Crc Table
+*-------------------------------
+
+MAKETABLE           LDX   #0                   ; Zero First Page
+                    LDA   #0
+:LOOP1              STA   CRCLO,X              ; Zero Crc Lo Bytes
+                    STA   CRCHI,X              ; Zero Crc Hi Bytes
+                    INX
+                    BNE   :LOOP1
+
+* The Following Is The Normal Bitwise Computation
+* Tweaked A Little To Work In The Table-Maker
+*
+                    LDX   #0                   ; Number To Do Crc For
+:FETCH              TXA
+                    EOR   CRCHI,X              ; Add Byte Into High
+                    STA   CRCHI,X              ; Of Crc
+                    LDY   #8                   ; Do 8 Bits
+:LOOP2              ASL   CRCLO,X              ; Shift Current Crc-16 Left
+                    ROL   CRCHI,X
+                    BCC   :NOADD
+
+* If Previous High Bit Wasn't Set, Then Don't Add Crc
+* Polynomial ($1021) Into The Cumulative Crc.  Else Add It.
+*
+                    LDA   CRCHI,X              ; Add Hi Part Of Crc Poly Into
+                    EOR   #$10                 ; Cumulative Crc Hi
+                    STA   CRCHI,X
+                    LDA   CRCLO,X              ; Add Lo Part Of Crc Poly Into
+                    EOR   #$21                 ; Cumulative Crc Lo
+                    STA   CRCLO,X
+:NOADD              DEY                        ; Do Next Bit
+                    BNE   :LOOP2               ; Done? Nope, Loop
+
+                    INX                        ; Do Next Number In Series (0-255)
+                    BNE   :FETCH               ; Didn't Roll Over, So Fetch More
+                    RTS                        ; Done
+
+* Do A CRC On A Single Byte In A, X Is Preserved, A Is Not
+*-------------------------------
+
+DO_CRC              STX   :TEMPX
+                    EOR   CRC+1                ; Add Byte Into Crc Hi Byte
+                    TAX                        ; To Make Offset Into Tables
+                    LDA   CRC                  ; Get Previous Lo Byte Back
+                    EOR   CRCHI,X              ; Add It To The Proper Table Entry
+                    STA   CRC+1                ; Save It
+                    LDA   CRCLO,X              ; Get New Lo Byte
+                    STA   CRC                  ; Save It Back
+                    LDX   :TEMPX
+                    RTS                        ; All Done
+
+:TEMPX              DA    0
+
+* Init Some Pointers, Etc
+*-------------------------------
+
+INITCRC             LDA   #<BLOCKBUFFER        ; Set Up Indirect Address To
+                    STA   POINTER              ; Point To 1K Buffer Space
+                    LDA   #>BLOCKBUFFER
+                    STA   POINTER+1
+                    LDA   #0
+                    STA   CRC
+                    STA   CRC+1
+                    STA   CHECKSUM
+                    RTS
+
+* Send A Packet Of 128 Bytes Protected By A Crc
+*-------------------------------
+
+SEND128CRC          JSR   SENDSOH              ; Send <Soh> And Block Number
+                    LDY   #0                   ; Zero
+:LOOP               LDA   (POINTER),Y          ; Get Character
+                    JSR   MDMOUT               ; Send It
+                    JSR   DO_CRC
+                    INY                        ; Bump Offset
+                    BPL   :LOOP                ; Do 128 Bytes
+
+                    JSR   SENDCRC              ; Send CRC Bytes
+                    JMP   ACKIN                ; Look For Ack
+
+* SEND128CSUM
+* Send A Block Of 128 Bytes Protected By A Checksum
+*-------------------------------
+
+SEND128CSUM         JSR   SENDSOH
+                    LDY   #0                   ; Zero
+:LOOP               LDA   (POINTER),Y          ; Get Character
+                    JSR   MDMOUT               ; Send It
+                    CLC                        ; Prepare For Add
+                    ADC   CHECKSUM             ; Add It To CheckSum
+                    STA   CHECKSUM             ; Save CheckSum
+                    INY                        ; Bump Offset
+                    BPL   :LOOP                ; Do 128 Bytes
+
+                    LDA   CHECKSUM             ; Get Checksum
+                    JSR   MDMOUT               ; Send It
+                    JMP   ACKIN                ; Look For Ack
+
+* SEND1024 -- Send A 1024 Byte Packet Protected By A CRC
+*-------------------------------
+
+SEND1024            JSR   SENDSTX
+                    LDX   #4                   ; Send 4 Packs Of 256 Bytes
+                    LDY   #0
+:LOOP               LDA   (POINTER),Y          ; Get The Byte
+                    JSR   MDMOUT               ; Send It
+                    JSR   DO_CRC               ; Compute The Cumulative Crc
+                    INY                        ; Next Byte
+                    BNE   :LOOP                ; Done 256? No, Do Some More
+
+                    INC   POINTER+1            ; Yes, Next 256 Bytes
+                    DEX                        ; Are We Done With The 4 Packs?
+                    BNE   :LOOP                ; No, Go Send Some More
+
+                    JSR   SENDCRC
+                    JMP   ACKIN                ; Check For An Ack
+
+* SEND4096 -- Send A 4096 Byte Packet Protected By A CRC
+*-------------------------------
+
+SEND4096            JSR   SENDSSTX
+                    LDX   #16                  ; Send 16 Packs Of 256 Bytes
+                    LDY   #0
+:LOOP               LDA   (POINTER),Y          ; Get The Byte
+                    JSR   MDMOUT               ; Send It
+                    JSR   DO_CRC               ; Compute The Cumulative Crc
+                    INY                        ; Next Byte
+                    BNE   :LOOP                ; Done 256? No, Do Some More
+
+                    INC   POINTER+1            ; Yes, Next 256 Bytes
+                    DEX                        ; Are We Done With The 16 Packs?
+                    BNE   :LOOP                ; No, Go Send Some More
+
+                    JSR   SENDCRC
+                    JMP   ACKIN                ; Check For An Ack
+
+* Send Final Set Of Packets If Not 1K Available To Send
+*-------------------------------
+
+SEND128PACKETS      STX   BYTES                ; # Of Bytes We Gotta Send
+                    STA   BYTES+1
+                    LDA   #1
+                    STA   INNERLOOP
+SEND1KENTRY         LDA   BYTES                ; Packs Remain
+                    ASL                        ; Shift High Bit Into Carry
+                    LDA   BYTES+1
+                    ROL                        ; Rol It Into The Byte
+                    STA   PACKSREMAIN
+
+*Number In PacksRemain Is The Num Of 128 Byte Packets Remaining
+
+                    LDA   BYTES                ; If Any Bits Are Set In B128, Then
+                    AND   #$7F
+                    BEQ   :NOINC               ; There Was A Remainder After The Divide
+
+                    INC   PACKSREMAIN          ; A Remainder
+:NOINC              LDA   #<BLOCKBUFFER        ; Make It Initially Point To The
+                    STA   POINTER              ; Beginning Of The Block Buffer
+                    LDA   #>BLOCKBUFFER
+                    STA   POINTER+1
+SEND128PACKETSLOOP
+:LOOP               LDA   #10                  ; 10 Retries
+                    STA   RETRY
+                    INC   PACKETNUM            ; Next Xmodem Block In Series
+                    INC   BLOCKCOUNT           ; 1 More Block Sent
+                    BNE   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+:LOOP2              LDA   #0
+                    STA   CRC
+                    STA   CRC+1
+                    STA   CHECKSUM
+                    LDA   USECSUM
+                    BNE   :CSUM
+
+                    JSR   SEND128CRC
+                    BCS   :LOOP2               ; Not Ok, Resend The Last Block
+
+                    DEC   PACKSREMAIN
+                    BNE   :NOTDONE
+
+                    LDA   #0
+                    STA   INNERLOOP
+                    RTS
+
+:CSUM               JSR   SEND128CSUM
+                    BCS   :LOOP2               ; Not Ok, Resend The Last Block
+
+                    DEC   PACKSREMAIN
+                    BNE   :NOTDONE
+
+                    LDA   #0
+                    STA   INNERLOOP
+                    RTS
+
+:NOTDONE            LDA   POINTER              ; Get [Buffer] Address
+                    CLC                        ; Next Block Is Gotten 128 Bytes Hence
+                    ADC   #128
+                    STA   POINTER
+                    BCC   :LOOP                ; Didn't Roll Over
+
+                    INC   POINTER+1            ; We Rolled Over!
+                    JMP   :LOOP
+
+* Send Final Set Of Packets If 4K Not Available To Send
+*-------------------------------
+
+SEND1KPACKETS       STX   BYTES
+                    STA   BYTES+1
+                    LDA   #1
+                    STA   INNERLOOP
+                    LDA   BYTES+1              ; Divide Bytes / 1024
+                    LSR
+                    LSR
+                    AND   #%00000111           ; How Many 1K Packets We Got?
+                    BNE   :GOT1KPACKETS
+
+                    JMP   SEND1KENTRY
+
+:GOT1KPACKETS       STA   PACKSREMAIN
+
+*Number In PacksRemain Is The Num Of 1K Byte Packets Remaining
+
+                    LDA   #<BLOCKBUFFER        ; Make It Initially Point To The
+                    STA   POINTER              ; Beginning Of The Block Buffer
+                    LDA   #>BLOCKBUFFER
+                    STA   POINTER+1
+:LOOP               LDA   #10                  ; 10 Retries
+                    STA   RETRY
+                    INC   PACKETNUM            ; Next Ymodem Block In Series
+                    LDA   BLOCKCOUNT
+                    CLC
+                    ADC   #8
+                    STA   BLOCKCOUNT
+                    BCC   :NOROLL
+
+                    INC   BLOCKCOUNT+1
+:NOROLL             JSR   PRINTCOUNT           ; Print # Of Blocks Sent (Again)
+:LOOP2              LDA   #0
+                    STA   CRC
+                    STA   CRC+1
+                    JSR   SEND1024
+                    BCS   :LOOP2               ; Not Ok, Resend The Last Block
+
+                    DEC   PACKSREMAIN
+                    BNE   :NOTDONE
+
+                    LDA   BYTES
+                    BNE   :SEND128STUFF
+
+                    LDA   BYTES+1
+                    AND   #%00000011
+                    BNE   :SEND128STUFF
+
+                    LDA   #0
+                    STA   INNERLOOP
+                    RTS
+
+:NOTDONE            LDA   POINTER              ; Get [Buffer] Address
+                    CLC                        ; Next Block Is Gotten 1024 Bytes Hence
+                    ADC   #<1024
+                    STA   POINTER
+                    LDA   POINTER+1
+                    ADC   #>1024
+                    STA   POINTER+1
+                    JMP   :LOOP
+
+:SEND128STUFF       LDA   BYTES                ; Packs Remain
+                    ASL
+                    LDA   BYTES+1
+                    ROL
+                    STA   PACKSREMAIN
+
+*Number In PacksRemain Is The Num Of 128 Byte Packets Remaining
+
+                    LDA   BYTES                ; If Any Bits Are Set In B128, Then
+                    AND   #$7F
+                    BEQ   :NOINC128            ; There Was A Remainder After The Divide
+
+                    INC   PACKSREMAIN          ; A Remainder
+:NOINC128           JMP   SEND128PACKETSLOOP
+
+* Print The Pascal String At (POINTER) At Current Cursor Loc
+*-------------------------------
+
+PRINTPSTRING        LDY   #0
+                    LDA   (POINTER),Y          ; Get Filename Length Byte
+                    STA   :LENGTH
+:LOOP               INY
+                    LDA   (POINTER),Y          ; Get Character In Filename
+                    JSR   LOCPRINT
+                    CPY   :LENGTH
+                    BNE   :LOOP
+
+                    STA   PAGE2
+                    RTS
+
+:LENGTH             DB    0
+
+* DECOUT -- Print A Decimal Number
+*-------------------------------
+
+; Print A Decimal Number To Stdio.
+DECOUT              STA   :HIBYTE              ; Save The Number To Print.
+                    STX   :LOBYTE
+                    LDX   #9                   ; Start At Largest Value In Table.
+                    STX   :NUMFLAG
+:P_DEC1             LDY   #"0"                 ; Assume Value Is 0 To Start.
+:P_DEC2             LDA   :LOBYTE              ; Is This Value Less Than Table?
+                    CMP   :DECTAB-1,X
+                    LDA   :HIBYTE
+                    SBC   :DECTAB,X
+                    BCC   :P_DEC3              ; Yes, Print A Digit From The Table.
+
+                    STA   :HIBYTE              ; No, Keep Dividing Until It Is.
+                    LDA   :LOBYTE
+                    SBC   :DECTAB-1,X
+                    STA   :LOBYTE
+                    INY                        ; Next Digit Value.
+                    BNE   :P_DEC2              ; Always.
+
+:P_DEC3             TYA                        ; Digit Character To A-Reg For Printing...
+                    DEX                        ; Last Digit?
+                    BEQ   :PRINTIT             ; Yes, So Output Something.
+                    CMP   #"0"                 ; No.  Is This Value A Zero?
+                    BEQ   :PRZERO              ; Yes, Must Print At Least One.
+
+                    STA   :NUMFLAG             ; No, We're Going To Print A Digit Though.
+:PRZERO             BIT   :NUMFLAG             ; Have We Printed A Real Digit Yet?
+                    BMI   :PRINTIT             ; Yes, So We Must Print This One.
+
+                    LDA   JUSTIFY              ; No, So Check For User Justification.
+                    BPL   :OVER                ; None.
+
+:PRINTIT            JSR   LOCPRINT             ; Else, This Must Be The Character To Use.
+:OVER               DEX                        ; Next Value In Table.
+                    BPL   :P_DEC1              ; Until None Left.
+
+                    STA   PAGE2
+                    RTS
+
+:HIBYTE             DB    0
+:LOBYTE             DB    0
+:NUMFLAG            DB    0
+
+:DECTAB             DA    1,10,100,1000,10000
+
+JUSTIFY             DB    0
+
+* Global Data Areas
+*-------------------------------
+
+COPYRIGHT           ASC   'Copyright 1987-89 By L & L Productions'
+DATE                ASC   '&Sysdate'
+TIME                ASC   '&Systime'
+
+PROTOCOLTADDR       DA    STDCSUM
+                    DA    PROCSUM
+                    DA    STDCRC
+                    DA    PROCRC
+                    DA    STD1K
+                    DA    PRO1K
+                    DA    STD4K
+                    DA    PRO4K
+
+PRO4K               STR   '4Modem / AE'
+STD4K               STR   '4Modem'
+PRO1K               STR   'Xmodem-1K / AE'
+STD1K               STR   'Xmodem-1K'
+PROCRC              STR   'CRC-Xmodem / AE'
+STDCRC              STR   'CRC-Xmodem'
+PROCSUM             STR   'Xmodem / AE'
+STDCSUM             STR   'Xmodem'
+YMODEMTEXT          STR   'Ymodem'
+
+SCREENTXT           DB    FINALBLOCK-*
+                    ASC   'Block:      Errors:     Consec:     '
+                    ASC   'Mode:                  File:'
+FINALBLOCK          STR   'Final Packet'
+
+TIMEOUT             DA    0                    ; Timeout In 120Ths Of A Second
+CONSECERR           DB    0                    ; # Of Consecutive Errors
+CRC                 DA    0                    ; CRC Lo
+CHECKSUM            DB    0                    ; Checksum Register
+LASTCHAR            DB    0                    ; Last Character
+PACKETNUM           DB    0                    ; Block Number
+RETRY               DB    0                    ; Retry Count
+CTRIES              DB    0                    ; Look For C's Retry Count
+TRANSTYPE           DB    0
+LENGTH              DB    0                    ; Length Of The Filename
+INNERLOOP           DB    0                    ; Are We In An Innerloop? (1=Yes)
+USECSUM             DB    0                    ; 0= Use Crc Error Checks,1= Use Checksum
+LASTPACKET          DB    0                    ; Was This The Last Packet?
+GFLAG               DB    0                    ; Ymodem-G? (0=No, 1=Yes)
+ACKFLAG             DB    0                    ; 1=No Wait For Acks, 0=Wait
+SENDSMALL           DB    0                    ; Send Small Packets? (0=No,1=Yes)
+ERRORSBEFORE        DB    0                    ; How Many Errors Before Send128Packets?
+BYTES               DA    0                    ; # Of Bytes Read
+PACKSREMAIN         DB    0
+
+*
+*  Parms For Open Call
+*
+
+OPENPARMS           DB    3                    ; Parm_Count
+                    DA    FILENAME             ; Filename
+                    DA    FILEBUFFER           ; Buffer Address
+                    DB    0                    ; Ref_Num
+
+*
+*  ReadParms -- Parameters For Prodos Read Call
+*
+
+READPARMS           DB    4                    ; # Of Parms
+                    DB    0                    ; Ref_Num
+                    DA    BLOCKBUFFER          ; Where
+                    DA    0                    ; How Many (Ask)
+                    DA    0                    ; How Many (Got)
+
+*
+* Close Parameter List
+*
+
+CLOSEPARMS          DB    1                    ; Number Of Parms
+                    DB    0                    ; Ref_Num
+
+*
+*  Storage For Our Filename
+*
+
+FILENAME            DS    64
+
+*
+* GET_FILE_INFO Parameter List
+*
+
+GFIPARMS            DB    $A
+                    DA    FILENAME
+                    DB    0
+                    DB    0
+                    DA    0
+                    DB    0
+                    DA    0
+                    DA    0
+                    DA    0
+                    DA    0
+                    DA    0
+
+*
+* GetEOF Parameter List
+*
+
+GETEOFPARMS         DB    2                    ; Parameter Count
+                    DB    0
+                    DS    3
+
diff --git a/SOURCE/EDITOR.S b/SOURCE/EDITOR.S
new file mode 100644
index 0000000..64af06a
--- /dev/null
+++ b/SOURCE/EDITOR.S
@@ -0,0 +1,99 @@
+********************************
+*                              *
+*      LLUCE Line Editor       *
+*                              *
+********************************
+* Copyright 1986-1993 By L&L Productions
+*-------------------------------
+* Version 1.0 Final 4
+*-------------------------------
+* This Follows Apple's Version Types.
+* First Byte Is Main Version #.
+* Second Byte Contains 2 Nibbles
+* The First Nibble Is The Sub Version
+* The Second Is A Description Character:
+*
+* 0 - Release      Version
+* A - Alpha        Version
+* B - Beta         Version
+* D - Development  Version
+* E - Experimental Version
+* F - Final test   Version
+*
+* E Should Not Be Released At All
+* A, B, D, F Only To Beta Testers
+*-------------------------------
+            DATE
+*-------------------------------
+
+Version     =      $01F4
+
+Id          =      2
+Aux         =      1
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ERRORS
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+            PUT    EQUATES/TOKENS
+
+]TYPE       =      ^overlays                   ; set file type
+]AUX        =      overlays                    ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/EDITOR
+
+            TTL    'LLUCE - System Editor'
+            DO     LISTOBJ
+            LST
+            FIN
+*===============================
+* System Editor
+*===============================
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                           ; CRC Goes Here
+            LST    OFF
+            ORG    $D000
+CODESTRT    =      *
+            PUT    OVERLAYS/EDIT.MAIN
+            PUT    OVERLAYS/EDIT.SUBS
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'EDITOR - Symbol Table'
+            PAG
+
diff --git a/SOURCE/EQUATES/DRIVEREQU.S b/SOURCE/EQUATES/DRIVEREQU.S
new file mode 100644
index 0000000..75d5b55
--- /dev/null
+++ b/SOURCE/EQUATES/DRIVEREQU.S
@@ -0,0 +1,115 @@
+            TTL   'LLUCE - Global Page'
+            PAG
+*-------------------------------
+* To Be Created By The Config Program
+*-------------------------------
+
+NODENUM     =     $800                   ; AppleTalk node number
+; or system node number
+STRT_NM     =     $801                   ; Startup Name Location
+MODULE      =     $803                   ; Segment Load Location
+
+VERSION     =     $805                   ; Version Number
+
+*-------------------------------
+* Interrupt Characters
+*-------------------------------
+
+STPCHR      =     $807                   ; Stop Message Char
+NXTCHR      =     $808                   ; Next Message Char
+
+*-------------------------------
+* Modem(0) Commands
+*-------------------------------
+
+M_QUIT      =     $809                   ; Quit Command
+M_LOGIN     =     $80A                   ; Go Command
+M_ANSWER    =     $80B                   ; Answer Command
+
+E_WIDTH     =     $80C                   ; Index For Default
+
+WWFLAG      =     $811                   ; Word-Wrap Flag For Editor
+
+EDLOC       =     $812                   ; Editor Location
+EDITLEN     =     $814                   ; size of editor buffer
+EDMEMORY    =     $816                   ; If Negative, Buffer In Aux
+FILTFLAG    =     $817                   ; Filter Active Flag
+
+REFNUM      =     $818                   ; Reference Number To Use
+MSGREF      =     $819                   ; Msg File Reference Number
+BUF2ADR     =     $81A                   ; Address Of File Buffer 2
+
+SHWTXT      =     $81C                   ; Showing Program Text
+SHWTRC      =     $81D                   ; Show Program Trace
+
+TOCONST     =     $81E                   ; Time Out Constant
+KILCLTO     =     $820                   ; keyin local timeout
+KIRMTTO     =     $821                   ; keyin remote timeout
+
+ATAVAIL     =     $822                   ; AppleShare Active Flag
+ATLAUNCH    =     $823                   ; Launched From AppleShare
+
+SYSSTAT     =     $824                   ; System Flags Stored Here
+; For Interrupt Flag
+GSFLAG      =     $825                   ; Useing //gs flag
+PDOSVEC     =     $826                   ; ProDOS Entry Point Address
+IRQSAVE     =     $828                   ; original IRQ vector
+
+TIMEDISP    =     $82A                   ; 0=24 Hour, $80=12 Hour
+
+FLASHING    =     $82B                   ; GS screen color change flag
+ANSIFLAG    =     $82C                   ; ANSI emulation flag
+CONVFLAG    =     $82D                   ; emulation conversion flag
+
+REMOTE      =     $82E                   ; Online Status
+NNULLS      =     $82F                   ; Number Of Nulls
+
+CRC         =     $830                   ; Returned CRC
+SCREENTO    =     $832                   ; Screen Save Timer
+
+QTIME       =     $834                   ; 834 time in text
+
+ERRNO       =     $83F                   ; Last Error Number
+
+FLNAME      =     $840                   ; Last Filename Used
+SEG_NAME    =     $880                   ; Start Up Segment Pathname
+SYSPFX      =     $8C0                   ; System Files Prefix
+
+FILTER      =     PROFILT                ; Location of profanity filter
+
+PRINTDVR    =     $900
+
+PRINIT      =     $901                   ; Init Printer
+LPROUT      =     $904                   ; Print Character In A
+PRCLEAR     =     $907                   ; Clear Print Buffer
+
+CLOCKDVR    =     $A00
+CLKMODE     =     $A01
+
+GETDATE     =     $A02
+GETTIME     =     $A05
+SETDATE     =     $A08
+
+MODEMDVR    =     $B00
+PROTOCOL    =     $B00
+SLOT        =     $B00                   ; Serial Card Slot
+INITSPD     =     $B01                   ; Initialize Speed
+MDMSPEED    =     $B02
+CALLSPD     =     $B02                   ; Speed Of Call
+
+BYTCNT      =     $B03
+
+MDMINIT     =     $B06
+MDMRSET     =     $B09
+MDMRING     =     $B0C
+MDMANS      =     $B0F
+MDMHANG     =     $B12
+MDMIN       =     $B15
+MDMOUT      =     $B18
+MDMDCD      =     $B1B
+MDMSSPD     =     $B1E
+MDMINT      =     $B21
+MDMDTR      =     $B24
+MDMCBUF     =     $B27
+MDMQUIT     =     $B2A
+
diff --git a/SOURCE/EQUATES/ENTRY.S b/SOURCE/EQUATES/ENTRY.S
new file mode 100644
index 0000000..3dbcb0b
--- /dev/null
+++ b/SOURCE/EQUATES/ENTRY.S
@@ -0,0 +1,76 @@
+            TTL   'LLUCE - Entry Points'
+            PAG
+VIDRDKY     =     $F00
+VIDSTORE    =     $F03
+VIDCOUT     =     $F06
+VIDSCRL     =     $F09
+VIDBAN      =     $F0C
+VIDLST      =     $F0F
+VIDRDST     =     $F12
+VIDPOS      =     $F15
+VIDCHAT     =     $F18
+
+GETBYT      =     $F100
+CHKBYT      =     $F103
+GOBCOM      =     $F106
+INPNUM      =     $F109
+INPSTR      =     $F10C
+INPNARG     =     $F10F
+INPSARG     =     $F112
+ZNUMIN      =     $F115
+DO_MATH     =     $F118
+MOVNAME     =     $F11B
+BADERR      =     $F11E
+
+SETIVEC     =     $F121
+CHKKEY      =     $F124
+GETCHR      =     $F127
+INPLN       =     $F12A
+RDKEY       =     $F12D
+
+SETOVEC     =     $F130
+COUT        =     $F133
+DECOUT0     =     $F136
+DO_SED      =     $F139
+
+PD_MAKE     =     $F13C
+PD_KILL     =     $F13F
+PD_OPEN     =     $F142
+IFOPEN      =     $F145
+PD_CLOSE    =     $F148
+PD_FLUSH    =     $F14B
+PD_RDBYT    =     $F14E
+PD_WRBYT    =     $F151
+PD_RDBLK    =     $F154
+PD_WRBLK    =     $F157
+PD_RDLN     =     $F15A
+PD_GMARK    =     $F15D
+PD_SPOS     =     $F160
+PD_GPFX     =     $F163
+PD_SPFX     =     $F166
+LOGSYS      =     $F169
+NOLABEL     =     $F16C
+SHOWSTR     =     $F16F
+PD_NEWLN    =     $F172
+
+ED_CLR      =     $F175
+EDIN        =     $F178
+EDOUT       =     $F17B
+ADDCRC      =     $F17E
+
+PD_RBYTS    =     $F181
+PD_WBYTS    =     $F184
+
+SYSSTORE    =     $F187
+SYSRCAL     =     $F18A
+
+COMPRES     =     $F18D                   ; Compress Variables
+UNCOMP      =     $F190                   ; Un-Compress Variables
+RELOAD      =     $F193                   ; Reload segment
+DO_CL3      =     $F196
+
+TOFLN       =     $F199                   ; Move string (X,A) to fn
+FRMFLN      =     $F19C                   ; Move fn to string (X,A)
+
+WHATSTK     =     $F1E0                   32
+
diff --git a/SOURCE/EQUATES/EQUATES.S b/SOURCE/EQUATES/EQUATES.S
new file mode 100644
index 0000000..6a21404
--- /dev/null
+++ b/SOURCE/EQUATES/EQUATES.S
@@ -0,0 +1,750 @@
+              TTL   'OVERLAYS - Equates'
+              PAG
+MSLOT         =     2                     Modem
+
+*-------------------------------
+* Misc bit masks
+
+CaseDiff      =     $20
+Ctrl          =     $40
+Clrhi         =     $7F
+Hibit         =     $80
+HiNibble      =     $F0
+LoNibble      =     $0F
+
+*-------------------------------
+* Compiler flags
+
+Label         =     0
+Labelend      =     $7F
+
+*-------------------------------
+* Sysop Command Keys
+*-------------------------------
+
+chat          =     'A'                   Chat
+logout        =     'L'                   Log
+prnscr        =     'P'                   Print
+bartog        =     'T'                   Toggle
+execon        =     'V'                   Exec
+
+pauseChr      =     'Z'-Ctrl+Hibit
+escKey        =     '['-Ctrl+Hibit        escape
+pass          =     '_'-Ctrl              Show
+
+clb           =     '^'-Ctrl              Clear
+
+*-------------------------------
+* Standard ASCII Codes
+*-------------------------------
+
+nul           =     '@'-Ctrl
+soh           =     'A'-Ctrl              <soh>
+ssoh          =     'A'-Ctrl+Hibit
+stx           =     'B'-Ctrl              <stx>
+sstx          =     'B'-Ctrl+Hibit        <sstx>
+etx           =     'C'-Ctrl
+eot           =     'D'-Ctrl              End
+enq           =     'E'-Ctrl
+ack           =     'F'-Ctrl              <ack>
+bel           =     'G'-Ctrl              Bell
+bs            =     'H'-Ctrl              Backspace
+tab           =     'I'-Ctrl              Tab
+lf            =     'J'-Ctrl              Linefeed
+vt            =     'K'-Ctrl
+ff            =     'L'-Ctrl
+cr            =     'M'-Ctrl              Carriage
+so            =     'N'-Ctrl
+si            =     'O'-Ctrl
+dle           =     'P'-Ctrl
+xon           =     'Q'-Ctrl
+dc2           =     'R'-Ctrl
+xoff          =     'S'-Ctrl              Stop
+dc4           =     'T'-Ctrl
+nak           =     'U'-Ctrl              <nak>
+syn           =     'V'-Ctrl
+etb           =     'W'-Ctrl
+can           =     'X'-Ctrl              Cancel
+em            =     'Y'-Ctrl
+sub           =     'Z'-Ctrl
+esc           =     '['-Ctrl              escape
+*fs      =     '\'-Ctrl
+gs            =     ']'-Ctrl
+rs            =     '^'-Ctrl
+us            =     '_'-Ctrl
+del           =     $7F                   Delete
+
+*-------------------------------
+* Local video control codes
+*-------------------------------
+
+csrbol        =     'A'-Ctrl              Cursor
+csreol        =     'B'-Ctrl              Cursor
+delchar       =     'D'-Ctrl              Delete
+inschar       =     'F'-Ctrl              Insert
+dobeep        =     'G'-Ctrl              Ring
+csrback       =     'H'-Ctrl              Cursor
+dotab         =     'I'-Ctrl              Tab
+csrdwn        =     'J'-Ctrl              Cursor
+csrup         =     'K'-Ctrl              Cursor
+clrscn        =     'L'-Ctrl              Clear
+crlf          =     'M'-Ctrl              Do
+norm          =     'N'-Ctrl              Normal
+inv           =     'O'-Ctrl              Inverse
+realmous      =     'P'-Ctrl              Real
+ptRepeat      =     'R'-Ctrl              Repeat
+mous          =     'R'-Ctrl              Mouse
+Tonecmd       =     'T'-Ctrl              ProTERM
+csrfwd        =     'U'-Ctrl              Cursor
+insline       =     'V'-Ctrl              insert
+clreos        =     'W'-Ctrl              Clear
+homeChar      =     'X'-Ctrl              Home
+clreol        =     'Y'-Ctrl              Clear
+delline       =     'Z'-Ctrl              Delete
+ptAck         =     ']'-Ctrl
+goxy          =     '^'-Ctrl              GotoXY
+
+goxyOffs      =     32
+vidWidth      =     80
+vidHeight     =     24
+
+locked        =     'L'-Ctrl
+unlocked      =     'U'-Ctrl
+
+*-------------------------------
+* Editor Command Keys
+
+bol           =     'B'-Ctrl              End
+ctr           =     'C'-Ctrl              Center
+dc            =     'D'-Ctrl              Delete
+eol           =     'E'-Ctrl              End
+ic            =     'F'-Ctrl              Insert
+lwd           =     'Q'-Ctrl              Last
+fs            =     'U'-Ctrl              Forward
+nwd           =     'W'-Ctrl              Next
+hak           =     'Y'-Ctrl              Hack
+
+*-------------------------------
+* Variable handler equates
+*-------------------------------
+
+vRecSize      =     8                     ; size of variable record
+nameOffs      =     0                     ; offset to variable name
+valOffs       =     4                     ; offset to numeric variable
+lenOffs       =     6                     ; offset to string length
+
+*-------------------------------
+* Other variable & type equates equates
+
+eolChain      =     0
+tknExpr       =     1
+strLit        =     2
+numLit        =     3
+strVar        =     5
+numVar        =     6
+
+*-------------------------------
+* Addresses
+*-------------------------------
+* Main standard memory
+*-------------------------------
+
+DRIVERS       =     $800                  Driver
+MAINPGM       =     $F00                  Main
+
+SYSTEM        =     $2000                 System
+
+ENDMOD        =     $9B00
+
+EDBUF         =     $9B00                 $1000
+EDSIZE        =     $AB00-EDBUF           $1000
+EBUFEND       =     EDSIZE-1
+
+FBUF3         =     $AB00                 $400
+INTBUF        =     $AF00                 $80
+BITBUF        =     $AF80                 $80
+BLKBUF        =     $B000                 $80
+BLKBUF2       =     $B080                 $80
+DIRBUF        =     $B100                 $200
+FBUF1         =     $B300                 $400
+FBUF2         =     $B700                 $400
+MSGBUF        =     $BB00                 $400
+
+*-------------------------------
+* Main aux memory
+*-------------------------------
+
+SCRNBUF       =     $2000                 Screen
+STRDEST       =     $4000                 Used
+STORETOP      =     $BF00
+
+*-------------------------------
+* Aux ramcard memory Bank 2
+*-------------------------------
+
+OVERBUF       =     $D000                 Overlay
+
+PROFILT       =     $F000                 $100
+ENTRYPTS      =     $F100                 $100
+
+RAMCARD       =     $F400                 $400
+RAMAREA       =     $F800                 $300
+SCRATCH       =     $FB00                 $400
+
+*-------------------------------
+* Aux ramcard memory Bank 1
+*-------------------------------
+
+CRCLO         =     $D000                 $100
+CRCHI         =     $D100                 $100
+RAMDRV        =     $D200                 $100
+TYPEBUF       =     $D300                 $100
+
+XTRAPGM       =     $D800                 $800
+
+*-------------------------------
+* Main ramcard memory Bank 1
+*-------------------------------
+
+ERRMSGS       =     $D500                 $400
+PROGTEXT      =     $D900                 $400
+VIDMSGS       =     $DD00                 $300
+
+*-------------------------------
+* General Offsets
+
+L0            =     $000
+L1            =     $100
+L2            =     $200
+L3            =     $300
+L4            =     $400
+L5            =     $500
+L6            =     $600
+L7            =     $700
+L8            =     $800
+L9            =     $900
+
+*-------------------------------
+* Overlay ID's
+
+Compiler      =     1                     Compiler
+Editid        =     2                     Editor
+Protocol      =     3                     Transfer
+
+*-------------------------------
+* Zero Page Locations
+
+TEMP          =     0                     2
+TEMP2         =     2                     2
+TEMP3         =     4                     2
+LSTPTR        =     6                     2
+PRGPTR        =     8                     2
+PRN           =     $A                    2
+VECTOR        =     $C                    2
+VECTOR2       =     $E                    2
+WHNPTR        =     $10                   2
+FLGPTR        =     $12                   2
+NIBPTR        =     $14                   2
+BYTPTR        =     $16                   2
+WORDPTR       =     $18                   2
+VARSTR        =     $1A                   2
+STRLOC        =     $1C                   2
+STRLEN        =     $1E                   1
+TTLLEN        =     $1F                   1
+
+WNDLFT        =     $20                   1
+WNDWDTH       =     $21                   1
+WNDTOP        =     $22                   1
+WNDBTM        =     $23                   1
+CH            =     $24                   1
+CV            =     $25                   1
+GOTO_X        =     $26                   1
+GOTO_Y        =     $27                   1
+BASE          =     $28                   2
+BASE2         =     $2A                   2
+DOSPARM       =     $2C                   2
+V_CALL        =     $2E                   1
+LSTTOK        =     $2F                   1
+FREMEM        =     $30                   1
+MONMODE       =     $31                   1
+MOUSEFLG      =     $31                   1
+INVFLG        =     $32                   1
+MONPROMPT     =     $33                   1
+INTOUT        =     $34                   1
+INTCHR        =     $35                   1
+CSW           =     $36                   2
+KSW           =     $38                   2
+MONPC         =     $3A                   2
+a1            =     $3C                   2
+a2            =     $3E                   2
+a3            =     $40                   2
+a4            =     $42                   2
+DVRCMD        =     $42
+DVRUNIT       =     $43
+DVRBUFF       =     $44
+
+MONRND        =     $C9                   formerly
+
+X_ARG         =     $50                   2
+Y_ARG         =     $52                   2
+EDLINE        =     $54                   2
+EDPTR         =     $56                   2
+ARGPTR        =     $58                   2
+MSG_X         =     $5A                   1
+MSG_Y         =     $5B                   1
+SAVE_X        =     $5C                   1
+SAVE_Y        =     $5D                   1
+LASTIN        =     $5E                   1
+EXECFLG       =     $5F                   1
+DEVCLR        =     $60                   1
+CMD           =     $61                   1
+
+DOCHAT        =     $62                   1
+INCHAT        =     $63                   1
+LOGOFF        =     $64                   1
+BUF_X         =     $65                   1
+TYPIN         =     $66                   1
+TYPOUT        =     $67                   1
+IMMDEF        =     $68                   1
+
+*-------------------------------
+* AppleSoft Locations
+
+LOMEM         =     $69                   2
+DISK_X        =     $6B                   1
+DISK_Y        =     $6C                   1
+MIDMEM        =     $6D                   2
+GSBLVL        =     $6F                   1
+FORLVL        =     $70                   1
+OLDEXEC       =     $71                   1
+OLDRMT        =     $72                   1
+HIMEM         =     $73                   2
+TLEFT         =     $75                   2
+CLKBASE       =     $77                   2
+TIMEON        =     $79                   2
+RAMPTR        =     $7B                   1
+GOBBYT        =     $7C                   1
+LST2ND        =     $7D                   1
+LSTVAR        =     $7E                   1
+LSTTXT        =     $7F                   1
+INPMODE       =     $80                   1
+; Bit 6: No Comma/Spaces
+; Bit 5: Blank Line Ok
+; Bit 4: Do Word-Wrap
+VPTR          =     $81                   2
+VNAME         =     $83                   4
+
+SHOW_X        =     $87                   1
+SHW_CNT       =     $88                   1
+SHWIN         =     $89                   1
+SHWOUT        =     $8A                   1
+SHWREF        =     $8B                   1
+XTERNAL       =     $8C                   1
+VIDECHO       =     $8D                   1
+
+*-------------------------------
+* Variables Used By Editor
+
+EDSTACK       =     $8E                   1
+EXE_DOT       =     $8F                   1
+SHWLN         =     $90                   1
+WWRAP         =     $91                   1
+WWEXTRA       =     $92                   1
+PROMPT        =     $93                   1
+
+VIDLEN        =     $94                   1
+SSAVED        =     $95                   1
+NOSOURCE      =     $95                   1
+FROMERR       =     $96                   2
+ONERRVEC      =     $98                   2
+ONERRFLG      =     $9A                   1
+NOCDFLG       =     $9B                   1
+NOCDVEC       =     $9C                   2
+TERMNO        =     $9E                   1
+
+NONBS         =     $9F                   1
+LSTVNAM       =     $A0                   4
+AUTOLOG       =     $A4                   1
+BLOCKFLG      =     $A5                   1
+CURODEV       =     $A6                   1
+DOLVL         =     $A7                   1
+WHILELVL      =     $A8                   1
+WHATLVL       =     $A9                   1
+CO_XY         =     $AA                   1
+CO_RPT        =     $AB                   1
+
+RAMDEV        =     $AE                   1
+RAMDRVR       =     $AF                   2
+
+RNDNUM        =     $C9                   2
+
+V_TEMP        =     $F8                   5
+V_DATA        =     $FD                   3
+
+LNBUF         =     $200                  Input
+CHATBUF       =     $200
+FREESPACE     =     $300                  free
+RESETVEC      =     $3F2                  Reset
+SOFTEV        =     $3F4                  Reset
+USERVEC       =     $3F5                  User
+IRQVEC        =     $3FE                  IRQ
+LINE1         =     $400                  Screen
+TOPRIGHT      =     $427                  Line
+OLDCH         =     $47B                  80
+OLDCV         =     $4FB                  80
+V_MODE        =     $57B                  Video
+V_OLDCV       =     $5FB                  Video
+BLINK         =     $67B                  Blinking
+LASTCHR       =     $6FB                  Last
+VID_Y         =     $7FB                  Video
+LINE23        =     $750                  Screen
+LINE24        =     $7D0                  Screen
+
+*-------------------------------
+* Soft switches
+
+KYBD          =     $C000                 Keyboard
+CLR80STO      =     $C000                 Clear
+STORE80       =     $C001                 Set
+MAINREAD      =     $C002                 Read
+AUXREAD       =     $C003                 Read
+MAINWRT       =     $C004                 Write
+AUXWRT        =     $C005                 Write
+SETSLOTCXROM  =     $C006                 Use
+SETINTCXROM   =     $C007                 Use
+SETSTDZP      =     $C008                 Use
+SETALTZP      =     $C009                 Use
+SETINTC3ROM   =     $C00A                 Enable
+SETSLOTC3ROM  =     $C00B                 Enable
+DISP40        =     $C00C                 Set
+DISP80        =     $C00D                 Set
+CLRALTCHARS   =     $C00E                 Normal
+ALTCHRS       =     $C00F                 Set
+
+KBDSTRB       =     $C010                 Clear
+RDLCBANK2     =     $C011
+RDLCRAM       =     $C012
+RDRAMRD       =     $C013                 Read
+RDRAMWRT      =     $C014                 Read
+RDCXROM       =     $C015
+RDALTZP       =     $C016
+RDC3ROM       =     $C017
+RD80COL       =     $C018
+VBL           =     $C019                 Read
+RDTEXT        =     $C01A
+RDMIX         =     $C01B
+RDPAGE2       =     $C01C
+RDHIRES       =     $C01D
+ALTCHARSET    =     $C01E
+RD80VID       =     $C01F
+
+*-------------------------------
+* Color values
+
+black         =     0
+deepRed       =     1
+darkBlue      =     2
+purple        =     3
+darkGreen     =     4
+darkGray      =     5
+medBlue       =     6
+lightBlue     =     7
+brown         =     8
+orange        =     9
+lightGray     =     10
+pink          =     11
+green         =     12
+yellow        =     13
+aquamarine    =     14
+white         =     15
+
+MONOCOLOR     =     $C021                 bit
+
+FGBG          =     $C022
+textColor     =     %11110000
+bgColor       =     %00001111
+
+VGCINT        =     $C023
+intVGC        =     %10000000
+int1sec       =     %01000000
+intScan       =     %00100000
+intExt        =     %00010000
+en1sec        =     %00000100
+enScan        =     %00000010
+enExt         =     %00000001
+
+MOUSEDATA     =     $C024
+buttonNow     =     %10000000
+deltaSign     =     %01000000
+deltaMove     =     %00111111
+
+KEYMODE       =     $C025
+oa            =     %10000000
+ca            =     %01000000
+modUpd        =     %00100000
+keypad        =     %00010000
+repeat        =     %00001000
+capsLock      =     %00000100
+control       =     %00000010
+shift         =     %00000001
+
+DATAREG       =     $C026
+
+KMSTATUS      =     $C027
+mouseFull     =     %10000000
+mouseIntEn    =     %01000000
+dataFull      =     %00100000
+dataIntEn     =     %00010000
+keyFull       =     %00001000
+keyIntEn      =     %00000100
+mouseXY       =     %00000010
+cmdFull       =     %00000001
+
+ROMBANK       =     $C028                 Apple
+
+NEWVIDEO      =     $C029
+SHRen         =     %10000000
+linear        =     %01000000
+BWcolorDRH    =     %00100000
+
+LANGSEL       =     $C02B
+engUSA        =     %00000000
+engUK         =     %00100000
+french        =     %01000000
+danish        =     %01100000
+spanish       =     %10000000
+italian       =     %10100000
+german        =     %11000000
+swedish       =     %11100000
+NTSC_PAL      =     %00010000
+language      =     %00001000
+
+CHARROM       =     $C02C
+SLTROMSEL     =     $C02D
+slot7         =     %10000000
+slot6         =     %01000000
+slot5         =     %00100000
+slot4         =     %00010000
+slot2         =     %00000100
+slot1         =     %00000010
+
+VERTCNT       =     $C02E
+HORIZCNT      =     $C02F
+
+SPKR          =     $C030                 Toggle
+DISKREG       =     $C031
+sel35hd       =     %10000000
+enab35        =     %01000000
+
+SCANINT       =     $C032
+clr1sec       =     %01000000
+clrScan       =     %00100000
+
+CLOCKDATA     =     $C033
+CLOCKCTL      =     $C034
+BORDER        =     $C034
+clkXfer       =     %10000000
+clkWrRd       =     %01000000
+clkChipEn     =     %00100000
+bColor        =     %00001111
+
+SHADOW        =     $C035
+noIOLc        =     %01000000
+noAuxHGR      =     %00010000
+noSHR         =     %00001000
+noHGR2        =     %00000100
+noHGR1        =     %00000010
+noText        =     %00000001
+
+CYAREG        =     $C036
+sysSpeed      =     %10000000
+shadowAll     =     %00010000
+slt7mot       =     %00001000
+slt6mot       =     %00000100
+slt5mot       =     %00000010
+slt4mot       =     %00000001
+
+DMAREG        =     $C037
+SCCBREG       =     $C038
+SCCAREG       =     $C039
+SCCBDATA      =     $C03A
+SCCADATA      =     $C03B
+SOUNDCTL      =     $C03C
+soundBusy     =     %10000000
+docRAMAcc     =     %01000000
+adrAutoInc    =     %00100000
+volume        =     %00001111
+
+SOUNDDATA     =     $C03D
+SOUNDADRL     =     $C03E
+SOUNDADRH     =     $C03F
+
+INTEN         =     $C041
+enQsInt       =     %00010000
+enVBLInt      =     %00001000
+enSwInt       =     %00000100
+enMoveInt     =     %00000010
+enMouse       =     %00000001
+
+MMDELTAX      =     $C044
+MMDELTAY      =     $C045
+DIAGTYPE      =     $C046
+INTFLAG       =     $C046
+selfBurn      =     %10000000
+mouseDown     =     %10000000
+mouseLast     =     %01000000
+an3Stat       =     %00100000
+qsStat        =     %00010000
+vblStat       =     %00001000
+swStat        =     %00000100
+moveStat      =     %00000010
+irqStat       =     %00000001
+
+CLRVBLINT     =     $C047
+CLRXYINT      =     $C048
+
+TXTCLR        =     $C050
+TXTSET        =     $C051
+MIXCLR        =     $C052
+MIXSET        =     $C053
+LOWSCR        =     $C054                 Set
+HISCR         =     $C055                 Set
+LORES         =     $C056                 Set
+HIRES         =     $C057
+
+SETAN0        =     $C058
+CLRAN0        =     $C059
+SETAN1        =     $C05A
+ANU_OFF       =     $C05A                 Annunc
+CLRAN1        =     $C05B
+ANU_ON        =     $C05B                 Annunc
+SETAN2        =     $C05C
+CLRAN2        =     $C05D
+SETAN3        =     $C05E
+CLRAN3        =     $C05F
+
+BUTN3         =     $C060
+BUTN0         =     $C061
+BUTN1         =     $C062
+BUTN2         =     $C063
+MLBUS         =     $C063                 Button
+PADDL0        =     $C064
+PADDL1        =     $C065
+PADDL2        =     $C066
+PADDL3        =     $C067
+
+STATEREG      =     $C068
+zpStat        =     %10000000
+pg2Stat       =     %01000000
+ramRStat      =     %00100000
+ramWStat      =     %00010000
+romRStat      =     %00001000
+lc2Stat       =     %00000100
+romBStat      =     %00000010
+cxStat        =     %00000001
+
+TESTREG       =     $C06D
+CLRTM         =     $C06E
+ENTM          =     $C06F
+
+PTRIG         =     $C070
+
+RDLC2         =     $C080
+ROMIN         =     $C081
+SETROM        =     $C082                 Switch
+LCBANK2       =     $C083
+SETRAM1       =     $C083                 Switch
+
+RDLC1         =     $C088
+ROMIN1        =     $C089
+SETROM1       =     $C08A
+LCBANK1       =     $C08B
+SETRAM2       =     $C08B                 Switch
+
+LOWSPEED      =     $C0EB                 Read
+
+auxMove       =     $C311                 a1=source,a2=source
+;   carry set   = main --> aux
+;   carry clear = aux --> main
+
+CLRROM        =     $CFFF
+
+*-------------------------------
+* Firmware entry points
+
+PREAD         =     $FB1E                 Read
+MONINIT       =     $FB2F                 Init
+MONID1        =     $FBB3                 Machine
+MONID2        =     $FBC0                 Machine
+MONCLS        =     $FC58                 Clear
+MONKEYIN      =     $FD0C
+MONINPLN      =     $FD6F
+MONCROUT      =     $FD8E
+MONPRBYTE     =     $FDDA
+MONCOUT       =     $FDED                 Character
+IDROUTINE     =     $FE1F
+MONSNORM      =     $FE84                 Set
+MONSKBD       =     $FE89                 Set
+MONSVID       =     $FE93                 Set
+ENTRMON       =     $FF59                 Enter
+MONGETNUM     =     $FFA7
+
+INTVEC        =     $FFFA                 Interrupt
+MONRESET      =     $FFFC
+
+*-------------------------------
+* Protocol error codes
+
+noErrors      =     0
+headerErr     =     1
+blockErr      =     2
+footerErr     =     3
+tenErrors     =     10
+rcvrCan       =     'X'-Ctrl
+sysopCan      =     '['-Ctrl
+lastBlkAbt    =     254
+parmSyntax    =     255
+
+*-------------------------------
+* I/O vector numbers
+
+ioBoth        =     0
+ioFile1       =     1
+ioFile2       =     2
+ioFile3       =     3
+ioLocal       =     4
+ioModem       =     5
+ioPrint       =     6
+ioMsg         =     7
+ioMail        =     8
+ioEditor      =     9
+ioRamDsk      =     10
+
+*-------------------------------
+* protocol send modes
+
+xModem        =     0
+yModem        =     1
+yModem4k      =     2
+crcXmdm       =     3
+
+*-------------------------------
+* protocol receive modes
+
+rProDOS       =     1
+
+rXModem       =     0
+rXModemP      =     rXModem+rProDOS
+rCRC          =     2
+rCRCp         =     rCRC+rProDOS
+r1k           =     4
+r1kP          =     r1k+rProDOS
+r4modem       =     6
+r4modemP      =     r4modem+rProDOS
+
+*-------------------------------
+* send modes
+
+batchMd       =     0
+fileMd        =     1
+
diff --git a/SOURCE/EQUATES/ERRORS.S b/SOURCE/EQUATES/ERRORS.S
new file mode 100644
index 0000000..9ab1110
--- /dev/null
+++ b/SOURCE/EQUATES/ERRORS.S
@@ -0,0 +1,45 @@
+            LST   RTN
+            TTL   'LLUCE - Error codes'
+            PAG
+*-------------------------------
+* Error codes
+
+Syntax      =     1
+Prgend      =     2
+Misssym     =     3
+Missdata    =     4
+Typemiss    =     5
+Strtobig    =     6
+Numtobig    =     7
+Divby0      =     8
+Baddev      =     9
+Badfn       =     $A
+Linknf      =     $B
+Msgnf       =     $C
+Badxtrn     =     $D
+Badpfx      =     $E
+Modulenf    =     $F
+Badwrite    =     $10
+Undeflbl    =     $11
+Gsbfull     =     $12
+Nogosub     =     $13
+Forfull     =     $14
+Nonext      =     $15
+Noerr       =     $16
+Badver      =     $17
+SysTerm     =     $18
+DoFull      =     $19
+NoDo        =     $1A
+WhileFul    =     $1B
+Usrerr      =     $1C
+
+SMnotFnd    =     1
+Moment1     =     2
+ExecOut     =     3
+SysopIn     =     4
+SysopOut    =     5
+TimedOut    =     6
+Moment2     =     7
+MomntOut    =     8
+            LST   OFF
+
diff --git a/SOURCE/EQUATES/FILTER.S b/SOURCE/EQUATES/FILTER.S
new file mode 100644
index 0000000..bad7d98
--- /dev/null
+++ b/SOURCE/EQUATES/FILTER.S
@@ -0,0 +1,15 @@
+            LST   RTN
+            TTL   'LLUCE - Profanity Filter'
+            PAG
+FILTER      DCI   'FUCK'
+            DCI   'SHIT'
+            DCI   'DAMN'
+            DCI   'ASSHOLE'
+            DCI   'COCK'
+            DCI   'PRICK'
+            DB    0
+            DB    cr
+            ASC   'LLUCE (C) 1986-1990 By '
+            ASC   'L & L Productions'0D00
+            LST   OFF
+
diff --git a/SOURCE/EQUATES/GLOBALS.S b/SOURCE/EQUATES/GLOBALS.S
new file mode 100644
index 0000000..98bef35
--- /dev/null
+++ b/SOURCE/EQUATES/GLOBALS.S
@@ -0,0 +1,80 @@
+            LST   RTN
+            TTL   'LLUCE - Global Page'
+            PAG
+*-------------------------------
+* To Be Created By The Config Program
+*-------------------------------
+
+NODENUM     DB    0                      ; 800 AppleTalk node number
+;     or system node number
+            DA    SEG_NAME               ; 801 Startup Name Location
+MODULE      DA    0                      ; 803 Segment Load Location
+
+VERSION     DW    Version                ; 805 Version Number
+
+*-------------------------------
+* Interrupt Characters
+*-------------------------------
+
+STPCHR      DB    ' '                    ; 807 Stop Message Char
+NXTCHR      DB    'N'                    ; 808 Next Message Char
+
+*-------------------------------
+* Modem(0) Commands
+*-------------------------------
+
+M_QUIT      DB    'Q'-Ctrl               ; 809 Quit Command
+M_LOGIN     DB    'G'-Ctrl               ; 80A Go Command
+M_ANSWER    DB    'A'-Ctrl               ; 80B Answer Command
+
+E_WIDTH     DB    4                      ; 80C Index For Default
+            DB    32,40,64,80
+
+WWFLAG      DB    -1                     ; 811 Word-Wrap Flag For Editor
+
+EDLOC       DA    EDBUF                  ; 812 Editor Location
+EDITLEN     DW    EDBUF+EBUFEND          ; 814 size of edit buffer
+EDMEMORY    DB    0                      ; 816 If Negative, Buffer In Aux
+FILTFLAG    DB    1                      ; 817 Filter Active Flag
+
+REFNUM      DB    0                      ; 818 Reference Number To Use
+MSGREF      DB    0                      ; 819 Msg File Reference Number
+            DA    FBUF2                  ; 81A Address Of File Buffer 2
+
+SHWTXT      DB    0                      ; 81C Showing Program Text
+SHWTRC      DB    0                      ; 81D Show Program Trace
+
+TOCONST     DW    159                    ; 81E Time Out Constant
+KILCLTO     DB    150                    ; 820 keyin local timeout
+KIRMTTO     DB    36                     ; 821 keyin remote timeout
+
+ATAVAIL     DB    0                      ; 822 AppleShare Active Flag
+ATLAUNCH    DB    0                      ; 823 Launched From AppleShare
+
+SYSSTAT     DB    0                      ; 824 System Flags Stored Here
+;     For Interrupt Flag
+GSFLAG      DB    0                      ; 825 Useing //gs flag
+PDOSVEC     DA    0                      ; 826 ProDOS Entry Point Address
+IRQSAVE     DW    0                      ; 828 original IRQ vector
+
+TIMEDISP    DB    $80                    ; 82A 0=24 Hour, $80=12 Hour
+
+FLASHING    DB    0                      ; 82B GS screen color change flag
+ANSIFLAG    DB    0                      ; 82C ANSI emulation flag
+CONVFLAG    DB    -1                     ; 82D emulation conversion flag
+
+REMOTE      DB    0                      ; 82E Online Status
+NNULLS      DB    0                      ; 82F Number Of Nulls
+
+CRC         DA    0                      ; 830 Returned CRC
+SCREENTO    DW    30                     ; 832 Screen Save Timer
+
+QTIME       ASC   '12:00:00   '          ; 834 time in text
+
+ERRNO       DB    0                      ; 83F Last Error Number
+
+FLNAME      DS    $40                    ; 840 Last Filename Used
+SEG_NAME    DS    $40                    ; 880 Start Up Segment Pathname
+SYSPFX      DS    $40                    ; 8C0 System Files Prefix
+            LST   OFF
+
diff --git a/SOURCE/EQUATES/MACROS.S b/SOURCE/EQUATES/MACROS.S
new file mode 100644
index 0000000..1814603
--- /dev/null
+++ b/SOURCE/EQUATES/MACROS.S
@@ -0,0 +1,809 @@
+*-------------------------
+*      Macro library
+*-------------------------
+
+INCD MAC ;Two byte INC
+ INC ]1
+ BNE NC
+ INC ]1+1
+NC
+ <<<
+
+DECD MAC ;Two byte DEC
+ LDA ]1
+ BNE NC
+ DEC ]1+1
+NC DEC ]1
+ <<<
+
+MOV MAC
+ LDA ]1
+ STA ]2
+ <<<
+
+MOVY MAC
+ LDY ]1
+ STY ]2
+ <<<
+
+MOVX MAC
+ LDX ]1
+ STX ]2
+ <<<
+
+MOVDY MAC
+ MOVY ]1;]2
+ MOVY ]1+1;]2+1
+ <<<
+
+MOVD MAC
+ MOV ]1;]2
+ IF (=]1 ;Syntax MOVD (ADR1),Y;????
+ INY
+ IF (=]2 ; MOVD (ADR1),Y;(ADR2),Y
+ MOV ]1;]2
+ ELSE ; MOVD (ADR1),Y;ADR2
+ MOV ]1;]2+1
+ FIN
+ ELSE
+ IF (=]2 ;Syntax MOVD ????;(ADR2),Y
+ INY
+ IF #=]1 ; MOVD #ADR1;(ADR2),Y
+ MOV ]1/$100;]2
+ ELSE ; MOVD ADR1;(ADR2),Y
+ MOV ]1+1;]2
+ FIN
+ ELSE ;Syntax MOVD ????;ADR2
+ IF #=]1 ; MOVD #ADR1;ADR2
+ MOV ]1/$100;]2+1
+ ELSE ; MOVD ADR1;ADR2
+ MOV ]1+1;]2+1
+ FIN
+ FIN
+ FIN
+ <<<
+
+MOV24 MAC
+ MOV ]1;]2
+ MOV ]1+1;]2+1
+ MOV ]1+2;]2+2
+ <<<
+
+LDHI MAC ;For calls from other macs
+ IF #=]1
+ LDA ]1/$100
+ ELSE
+ LDA ]1+1
+ FIN
+ <<<
+
+AD MAC
+ LDA ]1
+ ADC ]2
+ STA ]3
+ <<<
+
+ADA MAC
+ ADC ]1
+ STA ]2
+ <<<
+
+ADD MAC
+ IF #=]2
+ IF #=]1
+ ERR 1 ;Error if ADD #lab1;#lab2..
+ FIN
+ FIN
+ CLC
+ LDA ]1 ;Syntax ADD lab1;lab2;lab3
+ ADC ]2 ; or ADD #lab1;lab2;lab3 etc
+ DO ]0/3
+ STA ]3 ;If 3 parms
+ ELSE ;2 parm cases:
+ IF #=]2
+ STA ]1 ;Syntax ADD lab1;#lab2
+ ELSE ;Syntax ADD lab1;lab2
+ STA ]2 ; or ADD #lab1;lab2 -> lab2
+ FIN
+ FIN
+ LDHI ]1
+ IF #=]2
+ ADC ]2/$100
+ ELSE
+ ADC ]2+1
+ FIN
+ DO ]0/3
+ STA ]3+1 ;If 3 parms
+ ELSE ;Two parm cases:
+ IF #=]2
+ STA ]1+1 ;Syntax ADD lab1;#lab2
+ ELSE ; -> lab1
+ STA ]2+1 ;Syntax ADD lab1;lab2 -> lab2
+ FIN ; or ADD #lab1;lab2 -> lab2
+ FIN
+ <<<
+
+SB MAC
+ LDA ]1
+ SBC ]2
+ STA ]3
+ <<<
+
+SBA MAC
+ SBC ]1
+ STA ]2
+ <<<
+
+SUB MAC
+ IF #=]2
+ IF #=]1
+ ERR 1 ;Error if SUB #lab1;#lab2..
+ FIN
+ FIN
+ SEC
+ LDA ]1 ;Syntax SUB lab1;lab2;lab3
+ SBC ]2 ; or SUB #lab1;lab2;lab3 etc
+ DO ]0/3
+ STA ]3 ;If 3 parms
+ ELSE ;Two parm cases:
+ IF #=]2
+ STA ]1 ;Syntax SUB lab1;#lab2
+ ELSE ;Syntax SUB lab1;lab2
+ STA ]2 ; or SUB #lab1;lab2 -> lab2
+ FIN
+ FIN ;Of 2 parm cases
+ LDHI ]1
+ IF #=]2
+ SBC ]2/$100 ;Case #lab2
+ ELSE
+ SBC ]2+1 ;Case lab2
+ FIN
+ DO ]0/3
+ STA ]3+1 ;If 3 parms
+ ELSE ;Two parm cases:
+ IF #=]2
+ STA ]1+1 ;Syntax SUB lab1;#lab2
+ ELSE ; -> lab1
+ STA ]2+1 ;Syntax SUB lab1;lab2 -> lab2
+ FIN ; or SUB #lab1;lab2 -> lab2
+ FIN ;Of 2 parm cases
+ <<<
+
+*=================================================
+* Save and restore registers macros.  Recommended
+* for use at the start and end of subroutines
+* which might be called from unknown status and
+* which must set up register lengths.
+*-------------------------------------------------
+
+SVXAY MAC ;Save registers & status
+ PHX
+ PHA
+ PHY
+ <<<
+
+RSTXAY MAC ;Restore regs & status
+ PLY ; have correct length.
+ PLA
+ PLX ; so register restores
+ <<<
+
+PHAX MAC
+ PHA
+ PHX
+ <<<
+
+PLAX MAC
+ PLX
+ PLA
+ <<<
+
+PHXY MAC
+ PHX
+ PHY
+ <<<
+
+PLXY MAC
+ PLY
+ PLX
+ <<<
+
+PHXA MAC
+ PHX
+ PHA
+ <<<
+
+PLXA MAC
+ PLA
+ PLX
+ <<<
+
+PUSHA MAC
+ LDA ]1
+ PHA
+ <<<
+
+PUSHX MAC
+ LDX ]1
+ PHX
+ <<<
+
+PUSHW MAC
+ PUSHA ]1+1
+ PUSHA ]1
+ <<<
+
+PUSH3 MAC
+ PUSHA ]1+2
+ PUSHW ]1
+ <<<
+
+PULL MAC
+ PLA
+ STA ]1
+ <<<
+
+PULLX MAC
+ PLX
+ STX ]1
+ <<<
+
+PULLY MAC
+ PLY
+ STY ]1
+ <<<
+
+PULLW MAC
+ PULL ]1
+ PULL ]1+1
+ <<<
+
+PULL3 MAC
+ PULLW ]1
+ PULL ]1+2
+ <<<
+
+LD16 MAC
+ LDX ]1
+ LDHI ]1
+ FIN
+ <<<
+
+ST16 MAC
+ STX ]1
+ STA ]1+1
+ <<<
+
+LD24 MAC
+ LD16 ]1
+ LDY ]1+2
+ <<<
+
+ST24 MAC
+ ST16 ]1
+ STY ]1+2
+ <<<
+
+LDXY MAC
+ LDX ]1
+ LDY ]1+1
+ <<<
+
+STXY MAC
+ STX ]1
+ STY ]1+1
+ <<<
+
+ZERO24 MAC
+ STZ ]1
+ STZ ]1+1
+ STZ ]1+2
+ <<<
+
+BREQW MAC
+ LDA ]1
+ ORA ]1+1
+ BEQ ]2
+ <<<
+
+BRNEW MAC
+ LDA ]1
+ ORA ]1+1
+ BNE ]2
+ <<<
+
+BREQ3 MAC
+ LDA ]1
+ ORA ]1+1
+ ORA ]1+2
+ BEQ ]2
+ <<<
+
+BRNE3 MAC
+ LDA ]1
+ ORA ]1+1
+ ORA ]1+2
+ BNE ]2
+ <<<
+
+SKIP2 MAC
+ HEX 2C
+ <<<
+
+SKIPCS MAC
+ HEX B0
+ <<<
+
+SKIPCC MAC
+ HEX 90
+ <<<
+
+PDOS MAC
+ JSR MLI
+ DB ]1
+ DA ]2
+ <<<
+
+IFEQ MAC
+ LDA ]1
+ CPEQ ]2;]3
+ <<<
+
+CPEQ MAC
+ CMP ]1
+ BEQ ]2
+ <<<
+
+IFEQX MAC
+ LDX ]1
+ CPEQX ]2;]3
+ <<<
+
+CPEQX MAC
+ CPX ]1
+ BEQ ]2
+ <<<
+
+IFEQY MAC
+ LDY ]1
+ CPEQY ]2;]3
+ <<<
+
+CPEQY MAC
+ CPY ]1
+ BEQ ]2
+ <<<
+
+IFNE MAC
+ LDA ]1
+ CPNE ]2;]3
+ <<<
+
+CPNE MAC
+ CMP ]1
+ BNE ]2
+ <<<
+
+IFNEX MAC
+ LDX ]1
+ CPNEX ]2;]3
+ <<<
+
+CPNEX MAC
+ CPX ]1
+ BNE ]2
+ <<<
+
+IFNEY MAC
+ LDY ]1
+ CPNEY ]2;]3
+ <<<
+
+CPNEY MAC
+ CPY ]1
+ BNE ]2
+ <<<
+
+IFLT MAC
+ LDA ]1
+ CPLT ]2;]3
+ <<<
+
+CPLT MAC
+ CMP ]1
+ BLT ]2
+ <<<
+
+IFLTX MAC
+ LDX ]1
+ CPLTX ]2;]3
+ <<<
+
+CPLTX MAC
+ CPX ]1
+ BLT ]2
+ <<<
+
+IFLTY MAC
+ LDY ]1
+ CPLTY ]2;]3
+ <<<
+
+CPLTY MAC
+ CPY ]1
+ BLT ]2
+ <<<
+
+IFGE MAC
+ LDA ]1
+ CPGE ]2;]3
+ <<<
+
+CPGE MAC
+ CMP ]1
+ BGE ]2
+ <<<
+
+IFGEX MAC
+ LDX ]1
+ CPGEX ]2;]3
+ <<<
+
+CPGEX MAC
+ CPX ]1
+ BGE ]2
+ <<<
+
+IFGEY MAC
+ LDY ]1
+ CPGEY ]2;]3
+ <<<
+
+CPGEY MAC
+ CPY ]1
+ BGE ]2
+ <<<
+
+IFMI MAC
+ LDA ]1
+ CPMI ]2;]3
+ <<<
+
+CPMI MAC
+ CMP ]1
+ BMI ]2
+ <<<
+
+IFMIX MAC
+ LDX ]1
+ CPMIX ]2;]3
+ <<<
+
+CPMIX MAC
+ CPX ]1
+ BMI ]2
+ <<<
+
+IFMIY MAC
+ LDY ]1
+ CPMIY ]2;]3
+ <<<
+
+CPMIY MAC
+ CPY ]1
+ BMI ]2
+ <<<
+
+IFPL MAC
+ LDA ]1
+ CPPL ]2;]3
+ <<<
+
+CPPL MAC
+ CMP ]1
+ BPL ]2
+ <<<
+
+IFPLX MAC
+ LDX ]1
+ CPPLX ]2;]3
+ <<<
+
+CPPLX MAC
+ CPX ]1
+ BPL ]2
+ <<<
+
+IFPLY MAC
+ LDY ]1
+ CPPLY ]2;]3
+ <<<
+
+CPPLY MAC
+ CPY ]1
+ BPL ]2
+ <<<
+
+DBNE MAC
+ IF Y=]1
+ DEY
+ ELSE
+ IF X=]1
+ DEX
+ ELSE
+ IF A=]1
+ DEC A
+ ELSE
+ DEC ]1
+ FIN
+ FIN
+ FIN
+ BNE ]2
+ <<<
+
+DBEQ MAC
+ IF Y=]1
+ DEY
+ ELSE
+ IF X=]1
+ DEX
+ ELSE
+ IF A=]1
+ DEC A
+ ELSE
+ DEC ]1
+ FIN
+ FIN
+ FIN
+ BEQ ]2
+ <<<
+
+DBMI MAC
+ IF Y=]1
+ DEY
+ ELSE
+ IF X=]1
+ DEX
+ ELSE
+ IF A=]1
+ DEC A
+ ELSE
+ DEC ]1
+ FIN
+ FIN
+ FIN
+ BMI ]2
+ <<<
+
+DBPL MAC
+ IF Y=]1
+ DEY
+ ELSE
+ IF X=]1
+ DEX
+ ELSE
+ IF A=]1
+ DEC A
+ ELSE
+ DEC ]1
+ FIN
+ FIN
+ FIN
+ BPL ]2
+ <<<
+
+DBRA MAC
+ IF Y=]1
+ DEY
+ ELSE
+ IF X=]1
+ DEX
+ ELSE
+ IF A=]1
+ DEC A
+ ELSE
+ DEC ]1
+ FIN
+ FIN
+ FIN
+ BRA ]2
+ <<<
+
+IBEQ MAC
+ IF Y=]1
+ INY
+ ELSE
+ IF X=]1
+ INX
+ ELSE
+ IF A=]1
+ INC A
+ ELSE
+ INC ]1
+ FIN
+ FIN
+ FIN
+ BEQ ]2
+ <<<
+
+IBNE MAC
+ IF Y=]1
+ INY
+ ELSE
+ IF X=]1
+ INX
+ ELSE
+ IF A=]1
+ INC A
+ ELSE
+ INC ]1
+ FIN
+ FIN
+ FIN
+ BNE ]2
+ <<<
+
+IBPL MAC
+ IF Y=]1
+ INY
+ ELSE
+ IF X=]1
+ INX
+ ELSE
+ IF A=]1
+ INC A
+ ELSE
+ INC ]1
+ FIN
+ FIN
+ FIN
+ BPL ]2
+ <<<
+
+IBMI MAC
+ IF Y=]1
+ INY
+ ELSE
+ IF X=]1
+ INX
+ ELSE
+ IF A=]1
+ INC A
+ ELSE
+ INC ]1
+ FIN
+ FIN
+ FIN
+ BMI ]2
+ <<<
+
+IBRA MAC
+ IF Y=]1
+ INY
+ ELSE
+ IF X=]1
+ INX
+ ELSE
+ IF A=]1
+ INC A
+ ELSE
+ INC ]1
+ FIN
+ FIN
+ FIN
+ BRA ]2
+ <<<
+
+LDEQ MAC
+ LDA ]1
+ BEQ ]2
+ <<<
+
+LDEQX MAC
+ LDX ]1
+ BEQ ]2
+ <<<
+
+LDEQY MAC
+ LDY ]1
+ BEQ ]2
+ <<<
+
+LDNE MAC
+ LDA ]1
+ BNE ]2
+ <<<
+
+LDNEX MAC
+ LDX ]1
+ BNE ]2
+ <<<
+
+LDNEY MAC
+ LDY ]1
+ BNE ]2
+ <<<
+
+LDPL MAC
+ LDA ]1
+ BPL ]2
+ <<<
+
+LDPLX MAC
+ LDX ]1
+ BPL ]2
+ <<<
+
+LDPLY MAC
+ LDY ]1
+ BPL ]2
+ <<<
+
+LDMI MAC
+ LDA ]1
+ BMI ]2
+ <<<
+
+LDMIX MAC
+ LDX ]1
+ BMI ]2
+ <<<
+
+LDMIY MAC
+ LDY ]1
+ BMI ]2
+ <<<
+
+LDRA MAC
+ LDA ]1
+ BRA ]2
+ <<<
+
+LDRAX MAC
+ LDX ]1
+ BRA ]2
+ <<<
+
+LDRAY MAC
+ LDY ]1
+ BRA ]2
+ <<<
+
+TSTPL MAC
+ BIT ]1
+ BPL ]2
+ <<<
+
+TSTMI MAC
+ BIT ]1
+ BMI ]2
+ <<<
+
+TSTVC MAC
+ BIT ]1
+ BVC ]2
+ <<<
+
+TSTVS MAC
+ BIT ]1
+ BVS ]2
+ <<<
+
+TSTRA MAC
+ BIT ]1
+ BRA ]2
+ <<<
+
+TKN MAC
+ DCI ]1
+ DB ]2
+ <<<
+
+CHR MAC
+ IF '=]1
+ ASC ]1
+ ELSE
+ DB ]1
+ FIN
+ DA ]2
+ <<<
diff --git a/SOURCE/EQUATES/OS.EQUATES.S b/SOURCE/EQUATES/OS.EQUATES.S
new file mode 100644
index 0000000..e4f9f2a
--- /dev/null
+++ b/SOURCE/EQUATES/OS.EQUATES.S
@@ -0,0 +1,379 @@
+                         TTL   'LLUCE - OS equates'
+                         PAGE
+*---------------------------------------
+* ProDOS Equates
+*---------------------------------------
+
+MLI                      =     $BF00                 MLI
+JSPARE                   =     $BF03
+PDATIME                  =     $BF06                 Clock
+SYSERR                   =     $BF09                 Error
+SYSDETH                  =     $BF0C                 System
+SERR                     =     $BF0F                 Error
+
+DEV1ADR                  =     $BF10                 Slot
+DEV2ADR                  =     $BF20                 Slot
+
+DEVNUM                   =     $BF30                 Last
+DEVCNT                   =     $BF31                 Number
+DEVLST                   =     $BF32                 Device
+
+PDOSCPR                  =     $BF40                 Copyright
+
+BITMAP                   =     $BF58                 Memory
+
+BUFADRS                  =     $BF70                 1
+
+INTADRS                  =     $BF80                 1
+
+INTAREG                  =     $BF88                 A
+INTXREG                  =     $BF89                 X
+INTYREG                  =     $BF8A                 Y
+INTSREG                  =     $BF8B                 S
+INTPREG                  =     $BF8C                 P
+
+INTBNKID                 =     $BF8D                 Memory
+INTADDR                  =     $BF8E                 Address
+
+DATE                     =     $BF90                 ProDOS
+TIME                     =     $BF92                 ProDOS
+
+LEVEL                    =     $BF94                 File
+BUBIT                    =     $BF95                 Backup
+SPARE1                   =     $BF96
+
+MACHID                   =     $BF98                 Machine
+SLTBYT                   =     $BF99                 Slot
+PFIXPTR                  =     $BF9A                 Prefix
+MLIACTV                  =     $BF9B                 MLI
+CMDADR                   =     $BF9C                 MLI
+PSAVEX                   =     $BF9E                 X
+PSAVEY                   =     $BF9F                 Y
+
+LANGID1                  =     $BFF4
+LANGID2                  =     $BFF5
+IBAKVER                  =     $BFFC
+IVERSION                 =     $BFFD
+KBAKVER                  =     $BFFE
+KVERSION                 =     $BFFF
+
+fnMaxLen                 =     15
+
+*-------------------------------
+* ProDOS command numbers
+
+Setint                   =     $40                   Set
+Clrint                   =     $41                   Remove
+
+* AppleTalk Commands
+
+Ashare                   =     $42                   AppleTalk
+SpclOpen                 =     $43                   Special
+RangeLok                 =     $44                   Byte
+
+* Direct Commands
+
+Rd_Block                 =     $80                   Used
+Wr_Block                 =     $81                   Write
+Gettime                  =     $82                   Read
+
+* Housekeeping Commands
+
+Quit                     =     $65                   Quit
+
+Create                   =     $C0                   Create
+Destroy                  =     $C1                   Delete
+Rename                   =     $C2                   Rename
+Setinfo                  =     $C3                   Set
+Getinfo                  =     $C4                   Get
+Online                   =     $C5                   Get
+Setpfx                   =     $C6                   Set
+Getpfx                   =     $C7                   Get
+
+* File Handling Commands
+
+Open                     =     $C8                   Open
+Newline                  =     $C9                   Set
+Read                     =     $CA                   Read
+Write                    =     $CB                   Write
+Close                    =     $CC                   Close
+Flush                    =     $CD                   Flush
+Setmark                  =     $CE                   Set
+Getmark                  =     $CF                   Get
+Seteof                   =     $D0                   Set
+Geteof                   =     $D1                   Get
+Setbuf                   =     $D2                   Set
+Getbuf                   =     $D3                   Get
+
+*-------------------------------
+* ProDOS main file types
+*-------------------------------
+
+Txt                      =     4                     Text
+Dir                      =     $F                    Directory
+Awp                      =     $1A                   AppleWorks
+
+object                   =     $2B                   object
+interp                   =     $2C                   interpreted
+langdata                 =     $2D                   language
+codefile                 =     $2E                   p8
+Src                      =     $B0                   APW
+
+llcode                   =     $0B                   L&L
+comsrc                   =     $1B                   communications
+
+* full file types
+
+overlays                 =     $2B8004               overlay
+compiled                 =     $2C8006               compiled
+messages                 =     $2D8004               message
+drivers                  =     $2E8005               drivers
+llucesrc                 =     $B00B1B               LLUCE
+sysfile                  =     $FF2000               system
+
+*---------------------------------------
+* File Storage Types
+
+Seedling                 =     1                     Create
+Sapling                  =     2                     Sapling
+Tree                     =     3                     Tree
+Pascal                   =     4                     Pascal
+Extended                 =     5                     Extended
+Linklist                 =     $D                    Directory
+
+*---------------------------------------
+* ProDOS access bits
+
+readEnable               =     $01
+writeEnable              =     $02
+fileInvisible            =     $04                   Invisible
+backupNeeded             =     $20                   backup
+renameEnable             =     $40                   rename
+destroyEnable            =     $80                   destroy
+
+*---------------------------------------
+* ProDOS error codes
+
+badCall                  =     $01                   bad
+invalidPcount            =     $04                   invalid
+busErr                   =     $06                   communications
+invalidDevNum            =     $11                   invalid
+drvrBadCode              =     $21                   bad
+drvrBadParm              =     $22                   bad
+irqTableFull             =     $25                   interrupt
+drvrIOError              =     $27                   I/O
+drvrNoDevice             =     $28                   device
+drvrWrtProt              =     $2B                   device
+drvrBadBlock             =     $2D                   invalid
+drvrDiskSwitch           =     $2E                   disk
+drvrOffLine              =     $2F                   device
+badPathSyntax            =     $40                   invalid
+tooManyFilesOpen         =     $42                   too
+invalidRefNum            =     $43                   invalid
+pathNotFound             =     $44                   subdirectory
+volNotFound              =     $45                   volume
+fileNotFound             =     $46                   file
+dupPathname              =     $47                   create
+volumeFull               =     $48                   volume
+volDirFull               =     $49                   volume
+badFileFormat            =     $4A                   version
+badStoreType             =     $4B                   unsupported
+eofEncountered           =     $4C                   end-of-file
+outOfRange               =     $4D                   position
+invalidAccess            =     $4E                   access
+fileBusy                 =     $50                   file
+unknownVol               =     $52                   unknown
+paramRangeErr            =     $53                   parameter
+vcbFull                  =     $55                   volume
+badBufAddr               =     $56                   bad
+dupVolume                =     $57                   duplicate
+damagedBitMap            =     $5A                   block
+networkError             =     $88                   generic
+
+*---------------------------------------
+* AppleTalk Call Equates
+*---------------------------------------
+* Misc Calls
+
+ATInit                   =     1                     Initialize
+ATGetInfo                =     2                     Get
+ATGetGlobal              =     3                     Get
+ATInstallTimer           =     4                     Install
+ATRemoveTimer            =     5                     Remove
+ATBoot                   =     6                     Boot
+ATCancelTimer            =     $45                   Cancel
+
+* Link Access Protocol Calls
+
+LAPWrite                 =     7                     Write
+ReadBuffer               =     8                     Read
+AttachProt               =     9                     Attach
+RemoveProt               =     $A                    Remove
+
+* Datagram Delivery Protocol Calls
+
+OpenSocket               =     $B                    Open
+CloseSocket              =     $C                    Close
+SendDatagram             =     $D                    Send
+
+* Name Binding Protocol Calls
+
+RegisterName             =     $E                    Register
+RemoveName               =     $F                    Remove
+LookupName               =     $10                   Lookup
+ConfirmName              =     $11                   Confirm
+NBPKill                  =     $46                   Cancel
+
+* AppleTalk Transaction Protocol
+
+SendATPReq               =     $12                   Send
+CancelAPReq              =     $13                   Cancel
+OpenATPSocket            =     $14                   Open
+CloseATPSocket           =     $15                   Close
+GetATPReq                =     $16                   Get
+SendATPResp              =     $17                   Send
+AddATPResp               =     $18                   Add
+RelATPCB                 =     $19                   Release
+
+* Zone Information Protocol
+
+GetMyZone                =     $1A                   Get
+GetZoneList              =     $1B                   List
+
+* AppleTalk Session Protocol
+
+SPGetParms               =     $1C                   Get
+SPGetStatus              =     $1D                   Get
+SPOpenSession            =     $1E                   Open
+SPCloseSession           =     $1F                   Close
+SPCommand                =     $20                   Send
+SPWrite                  =     $21                   Write
+
+* Printer Access Protocol
+
+PAPStatus                =     $22                   Get
+PAPOpen                  =     $23                   Open
+PAPClose                 =     $24                   Close
+PAPRead                  =     $25                   PAP
+PAPWrite                 =     $26                   PAP
+PAPUnload                =     $27                   PAP
+
+* Remote Print Manager
+
+PMSetPrinter             =     $28                   Set
+PMCloseSession           =     $47                   Close
+
+* ProDOS Filing Interface
+
+FIUserPrefix             =     $2A                   Get
+FILogin                  =     $2B                   Log
+FILoginCont              =     $2C                   Log
+FILogOut                 =     $2D                   Log
+FIMountVol               =     $2E                   Mount
+FIListSessions           =     $2F                   List
+FITimeZone               =     $30                   Set
+FIGetSrcPath             =     $31                   Get
+FIAccess                 =     $32                   Set/Get
+FINaming                 =     $33                   Set/Get
+ConvertTime              =     $34                   Convert
+FISetBuffer              =     $36                   Set
+
+*---------------------------------------
+* AppleTalk error codes
+
+atInvalidCmdErr          =     $0101                 Invalid
+atMemoryErr              =     $0102                 Heap/memory
+atTimerNotInstalledErr   =     $0103                 No
+atSyncErr                =     $0104                 Syncronous
+atTooManyTimes           =     $0105                 Too
+atTimerCancelled         =     $0106
+lapNoPacketErr           =     $0201                 No
+lapEOBErr                =     $0202                 End
+lapLenErr                =     $0203                 LAP
+lapFailedErr             =     $0204                 Retry
+lapTypeErr               =     $0205                 Illegal
+lapDuplicateErr          =     $0206                 Duplicate
+lapProtocolErr           =     $0207                 Too
+lapTypeFoundErr          =     $0208                 Type
+lapDataLostErr           =     $0209                 Data
+ddpSktNumErr             =     $0301                 Too
+ddpSktErr                =     $0302                 Socket
+ddpSktOpenErr            =     $0303                 Socket
+ddpSktTypeErr            =     $0304                 Invalid
+ddpLenErr                =     $0305                 DDP
+ddpBridgeErr             =     $0306                 No
+nbpNameNumberErr         =     $0401                 Too
+nbpNameExistErr          =     $0402                 Name
+nbpNameFoundErr          =     $0403                 Name
+nbpBufferErr             =     $0404                 User
+nbpWildcardErr           =     $0405                 Wildcard
+nbpNameErr               =     $0406                 Invalid
+nbpAddressErr            =     $0407                 Incorrect
+nbpProcessErr            =     $0408                 Too
+nbpAbortErr              =     $0409                 NBP
+nbpParmBlkNotFndErr      =     $040A                 NBP
+atpDataLenErr            =     $0501                 ATP
+atpSocketErr             =     $0502                 Invalid
+atpControlBlkErr         =     $0503                 ATP
+atpProcessErr            =     $0504                 Too
+atpReleaseErr            =     $0505                 No
+atpNoRespActive          =     $0506                 No
+atpRespErr               =     $0507                 No
+atpReqErr                =     $0508                 ATP
+atpSktClosedErr          =     $0509                 socket
+atpTooManySkts           =     $050A                 Too
+atpTooManyResp           =     $050B                 Too
+atpDDPSktErr             =     $050C                 Unable
+atpSndRespRelErr         =     $050D                 ATP
+zipNetworkErr            =     $0601                 Network
+zipOverflow              =     $0602                 ZIP
+zipNotFound              =     $0603                 ZIP
+aspNetworkErr            =     $0701                 Network
+aspSessNumErr            =     $0702                 Too
+aspRefErr                =     $0703                 Invalid
+aspSizeErr               =     $0704                 Size
+aspBufErr                =     $0705                 Buffer
+aspNoRespErr             =     $0706                 No
+aspBadVersion            =     $0707                 Bad
+aspTooManySessions       =     $0708                 Too
+aspServBusyErr           =     $0709                 Server
+aspSessionClosed         =     $070A                 Session
+papSessNumErr            =     $0801                 Too
+papRefErr                =     $0802                 Invalid
+papQuantumErr            =     $0803                 Quantum
+papCommandErr            =     $0804                 Too
+papNameErr               =     $0805                 Name
+papSessionErr            =     $0806                 Session
+papNetworkErr            =     $0807                 Network
+papServRespErr           =     $0808                 Server
+papServBusyErr           =     $0809                 Server
+papBuffSizeErr           =     $080A                 Buffer
+papInUseErr              =     $080B                 PAP
+rpmInvalidFlagErr        =     $0901
+rpmInvalidTimeErr        =     $0902
+pfiTooManySessErr        =     $0A01                 Too
+pfiUnableOpenSessErr     =     $0A02                 Unable
+pfiNoRespFrmSrvrErr      =     $0A03                 No
+pfiLoginContErr          =     $0A04                 Login
+pfiInvalidNameErr        =     $0A05                 Invalid
+pfiInvalidSessNumErr     =     $0A06                 Invalid
+pfiUnableOpenVolErr      =     $0A07                 Unable
+pfiTooManyVolsOpenErr    =     $0A08                 Too
+pfiVolNotMountedErr      =     $0A09                 Volume
+pfiUnableSetCreatorErr   =     $0A0A
+pfiBufferToSmallErr      =     $0A0B                 Buffer
+pfiTimeFlagErr           =     $0A0C                 Time
+pfiUnableTSetGroupErr    =     $0A0D                 Unable
+pfiDirNotFoundErr        =     $0A0E                 Directory
+pfiAccessDeniedErr       =     $0A0F                 Access
+pfiMiscellaneousErr      =     $0A10                 Miscellaneous
+pfiVolAlreadyMntedErr    =     $0A11                 Volume
+pfiUnableGetCreatorErr   =     $0A12                 Unable
+pfiAlrdyLggedOnSrvrErr   =     $0A13                 Already
+pfiTimeError             =     $0A14                 Time
+pfiUserNotAuthorizedErr  =     $0A15                 User
+pfiParamterErr           =     $0A16                 Parameter
+pfiSrvrGoingDownErr      =     $0A17                 Server
+pfiBadUAMErr             =     $0A18                 Bad
+pfiBadVersionNumErr      =     $0A19                 Bad
+
diff --git a/SOURCE/EQUATES/PORTEQU.S b/SOURCE/EQUATES/PORTEQU.S
new file mode 100644
index 0000000..c59448d
--- /dev/null
+++ b/SOURCE/EQUATES/PORTEQU.S
@@ -0,0 +1,642 @@
+*-------------------------------------------------
+* Hayes result codes
+*-------------------------------------------------
+
+SM_OK          =     0                                  ; Modem 'OK'
+SM_CON03       =     1                                  ; Modem 'CONNECT 300'
+SM_RING        =     2                                  ; Modem 'RING'
+SM_NOCAR       =     3                                  ; Modem 'NO CARRIER'
+SM_ERROR       =     4                                  ; Modem 'ERROR'
+SM_CON12       =     5                                  ; Modem 'CONNECT 1200'
+SM_NODT        =     6                                  ; Modem 'NO DIALTONE'
+SM_BUSY        =     7                                  ; Modem 'BUSY'
+SM_NOANS       =     8                                  ; Modem 'NO ANSWER'
+SM_CON24       =     10                                 ; Modem 'CONNECT 2400'
+SM_CON48       =     11                                 ; Modem 'CONNECT 4800'
+SM_CON96       =     12                                 ; Modem 'CONNECT 9600'
+SM_CON14       =     13                                 ; Modem 'CONNECT 14400'
+SM_CON19       =     14                                 ; Modem 'CONNECT 19200'
+SM_CON57       =     18                                 ; Modem 'CONNECT 57600'
+SM_CON72       =     24                                 ; Modem 'CONNECT 7200'
+SM_CON120      =     25                                 ; Modem 'CONNECT 12000'
+SM_CON38       =     28                                 ; Modem 'CONNECT 38400'
+
+SM_CAR03       =     40                                 ; Modem 'CARRIER 300'
+SM_CAR12       =     46                                 ; Modem 'CARRIER 1200'
+SM_CAR24       =     47                                 ; Modem 'CARRIER 2400'
+SM_CAR48       =     48                                 ; Modem 'CARRIER 4800'
+SM_CAR72       =     49                                 ; Modem 'CARRIER 7200'
+SM_CAR96       =     50                                 ; Modem 'CARRIER 9600'
+SM_CAR120      =     51                                 ; Modem 'CARRIER 12000'
+SM_CAR14       =     52                                 ; Modem 'CARRIER 14400'
+
+COMP_MNP5      =     66                                 ; Modem 'COMPRESSION: CLASS 5'
+COMP_V42BIS    =     67                                 ; Modem 'COMPRESSION: V.42BIS'
+COMP_ADC       =     68                                 ; Modem 'COMPRESSION: ADC'
+COMP_NONE      =     69                                 ; Modem 'COMPRESSION: NONE'
+
+PROT_NONE      =     70                                 ; Modem 'PROTOCOL: NONE'
+PROT_LABP      =     71                                 ; Modem 'PROTOCOL: LAP-B'
+PROT_AFT       =     73                                 ; Modem 'PROTOCOL: AFT'
+PROT_LAPM      =     77                                 ; Modem 'PROTOCOL: LAP-M'
+PROT_ALT       =     80                                 ; Modem 'PROTOCOL: ALT'
+
+*-------------------------------------------------
+* AppleCat II control locations
+*-------------------------------------------------
+
+SWBYT          =     $C080
+DV             =     %10000000                          ; Valid Touch tone present
+BSR60          =     %01000000                          ; 60HZ from BSR (solid 1 = no BSR)
+CD103          =     %00100000                          ; 103 carrier detect
+AUDIODET       =     %00010000                          ; Audio sample
+CATSW4         =     %00001000                          ; Firmware switch 4
+CATSW3         =     %00000100                          ; Firmware switch 3
+CATSW2         =     %00000010                          ; Firmware switch 2
+CATSW1         =     %00000001                          ; Firmware switch 1
+TONBYT         =     $C081
+IRQ29ST        =     %00010000                          ; IRQ 29.12 HZ status
+TTB8           =     %00001000                          ; Touch tone bit 8
+TTB4           =     %00000100                          ; Touch tone bit 4
+TTB2           =     %00000010                          ; Touch tone bit 2
+TTB1           =     %00000001                          ; Touch tone bit 1
+INDATA         =     $C08B
+ACBYTE         =     $C08D
+CAT_CTS        =     %00001000                          ; CTS line
+CD212          =     %00000100                          ; 212 carrier detect
+CATRING        =     %00000001                          ; Ring signal
+STATUS1        =     $C08F
+CAT_OV         =     %10000000                          ; Overrun
+CAT_FE         =     %01000000                          ; Framing error
+CAT_PE         =     %00100000                          ; Parity error
+CAT_TXE        =     %00010000                          ; Transmit register empty
+CAT_RXF        =     %00001000                          ; Receive register full
+CAT_TXI        =     %00000100                          ; Transmit IRQ
+CAT_RXI        =     %00000010                          ; Receive IRQ
+CAT_RNGI       =     %00000001                          ; Ring IRQ
+
+DACBYT         =     $C080
+SQUBYT         =     $C081
+EN212          =     %00000000                          ; 212 Disable
+DIS212         =     %10000000
+MODE212        =     %00100000                          ; 212 originate
+TRMC           =     %00011100                          ; Tape motor on
+SSQ            =     %00000010                          ; Speaker on
+MSQ            =     %00000001                          ; Microphone off
+SHBYT          =     $C082
+SH             =     %00000010                          ; Off hook
+CLRDV          =     %00000001                          ; Reset TouchTone
+BSRBYT         =     $C083
+IRQ29EN        =     %00000000
+IRQ29DIS       =     %00000100                          ; 29.12HZ IRQ disabled
+BSR120DIS      =     %00000010                          ; Disable BSR 120KHZ output
+RECBYT         =     $C089
+CDT            =     %01000000                          ; Normal carrier detect timing
+RA103          =     %01100100                          ; 103 answer
+RO103          =     %01100101                          ; 103 originate
+RAV21          =     %01100110                          ; V.21 answer
+ROV21          =     %01100111                          ; V.21 originate
+RA103MRK       =     %01100000                          ; 103 answer, mark CD
+RO103MRK       =     %01100001                          ; 103 originate, mark CD
+RAV21MRK       =     %01100010                          ; V.21 answer, mark CD
+ROV21MRK       =     %01100011                          ; V.21 originate, mark CD
+RX202          =     %01011100                          ; 202
+RX202MK        =     %01011000                          ; 202, mark CD
+RX_TDD         =     %00101101                          ; Receive TDD
+DET900HZ       =     %01101111                          ; Detect 900Hz tones
+DT_BUSY_DET    =     %01111110                          ; Detect dialtone & busy signal
+CON            =     $C08A
+PARITYEN       =     %01000000                          ; Parity enable
+MARKP          =     %00110000                          ; Mark parity
+ODDP           =     %00100000                          ; Odd parity
+SPACEP         =     %00010000                          ; Space parity
+EVENP          =     %00000000                          ; Even parity
+STOP2          =     %00001000                          ; 2 stop bits
+STOP1_5        =     %00000100                          ; 1.5 stop bits
+STOP1          =     %00000000                          ; 1 stop bit
+DATBITS8       =     %00000011                          ; 8 data bits
+DATBITS7       =     %00000001                          ; 7 data bits
+DATBITS6       =     %00000010                          ; 6 data bits
+DATBITS5       =     %00000000                          ; 5 data bits
+SPDBYT         =     $C08B
+TXBR1200       =     %00000000                          ; Transmit baud rates
+TXBR600        =     %00010000
+TXBR300        =     %00100000
+TXBR150        =     %00110000
+TXBR110        =     %01010000
+TXBR75         =     %01100000
+TXBR50         =     %01110000
+TXBR45_5       =     %01000000
+RXBR1200       =     %00000000
+RXBR600        =     %00000001
+RXBR300        =     %00000010
+RXBR150        =     %00000011
+RXBR110        =     %00000101
+RXBR75         =     %00000110
+RXBR50         =     %00000111
+RXBR45_5       =     %00000100
+COM            =     $C08C
+TXOFF          =     %00001100                          ; Transmit off
+TX_IRQ         =     %00001000                          ; Transmit on, IRQ enabled
+TXON           =     %00000100                          ; Transmit on
+TX_BRK         =     %00000000                          ; Transmit break
+RX_IRQ         =     %00000010                          ; Receive on, IRQ enabled
+RXON           =     %00000001                          ; Receive on
+RX_OFF         =     %00000000                          ; Receive off
+XMTBYT         =     $C08D
+RNGIRQEN       =     %00010000                          ; Ring IRQ enable
+TA103          =     0                                  ; 103 answer
+TO103          =     1                                  ; 103 originate
+TCCITTA        =     2                                  ; CCITT answer
+TCCITTO        =     3                                  ; CCITT originate
+TX_TDD         =     4                                  ; TDD
+SOFTC202       =     5                                  ; 202 soft carrier
+MODE202        =     6                                  ; 202
+REVCHAN        =     7                                  ; reverse channel (view data)
+TXDISABLE      =     %00001000                          ; Transmitter off
+OUTDAT         =     $C08E
+DEVBYT         =     $C08F
+TX212          =     %00001000                          ; Transmit through 212
+TXPTR          =     %00000100                          ; Transmit to printer
+TXMDM          =     %00000000                          ; Transmit to main modem
+RX212          =     %00000010                          ; Receive from 212
+RXPTR          =     %00000001                          ; Receive from printer
+RXMDM          =     %00000000                          ; Receive from main modem
+
+BYT212         =     $C080
+ALOOP          =     %00100000                          ; Analog loopback
+DLOOP          =     %00010000                          ; Digital loopback
+RDLOOP         =     %00001000                          ; Remote digital loopback
+B212_10        =     %00000100                          ; 10 bit 212 data
+B212_9         =     %00000010                          ; 9 bit 212 data
+RESET212       =     %00000001                          ; reset 212
+
+*-------------------------------------------------
+* Super Serial Card (SSC) control
+*-------------------------------------------------
+
+DATA           =     $C088
+STATUS         =     $C089
+SSCIRQ         =     %10000000                          ; SSC interrupted
+SSCDSR         =     %01000000                          ; DSR
+SSCDCD         =     %00100000                          ; DCD
+SSCTXE         =     %00010000                          ; TX buffer empty
+SSCRXF         =     %00001000                          ; RX buffer full
+SSCOE          =     %00000100                          ; Overrun error
+SSCFE          =     %00000010                          ; Framing error
+SSCPE          =     %00000001                          ; Parity error
+COMMAND        =     $C08A
+SSCNOP         =     %00000000                          ; No parity
+SSCODDP        =     %00100000                          ; Odd parity
+SSCEVEVP       =     %01100000                          ; Even parity
+SSCMARKP       =     %10100000                          ; Mark parity
+SSCSPCP        =     %11100000                          ; Space parity
+SSCECHO        =     %00010000                          ; Echo mode
+SSCTXOFF       =     %00000000                          ; TX off, RTS high, TX IRQ off
+SSCTXONI       =     %00000100                          ; TX on, RTS low, TX IRQ on
+SSCTXON        =     %00001000                          ; TX on, RTS low, TX IRQ off
+SSCTXBRK       =     %00001100                          ; TX break, RTS low, TX IRQ off
+SSCRXIRQX      =     %00000010                          ; RX IRQ off
+SSCRXON        =     %00000001                          ; RX on, DTR low
+CONTROL        =     $C08B
+SSCSTOP1       =     %00000000                          ; 1 stop bit
+SSCSTOP2       =     %10000000                          ; 2 stop bits
+SSCDATA8       =     %00000000                          ; 8 data bits
+SSCDATA7       =     %00100000                          ; 7 data bits
+SSCDATA6       =     %01000000                          ; 6 data bits
+SSCDATA5       =     %01100000                          ; 5 data bits
+SSCCLK         =     %00010000                          ; Baud rate generator/ext clk
+SSCEXTCK       =     %00000000                          ; 16x external clock
+SSC50          =     %00000001                          ; 50 baud
+SSC75          =     %00000010                          ; 75 baud
+SSC110         =     %00000011                          ; 110 baud
+SSC135         =     %00000100                          ; 135 baud
+SSC150         =     %00000101                          ; 150 baud
+SSC300         =     %00000110                          ; 300 baud
+SSC600         =     %00000111                          ; 600 baud
+SSC1200        =     %00001000                          ; 1200 baud
+SSC1800        =     %00001001                          ; 1800 baud
+SSC2400        =     %00001010                          ; 2400 baud
+SSC3600        =     %00001011                          ; 3600 baud
+SSC4800        =     %00001100                          ; 4800 baud
+SSC7200        =     %00001101                          ; 7200 baud
+SSC9600        =     %00001110                          ; 9600 baud
+SSC19200       =     %00001111                          ; 19,200 baud
+
+*-------------------------------------------------
+* MicroModem ][ control
+*-------------------------------------------------
+
+CR3            =     $C083
+CR2            =     $C085
+RINGIN         =     $C085
+CR1            =     $C086
+MMSTATUS       =     $C086
+MMDATA         =     $C087
+
+*-------------------------------------------------
+* Apple //gs serial port equates
+*-------------------------------------------------
+
+oINIT          =     MSLOT*256+$C00D
+oREAD          =     MSLOT*256+$C00E
+oWRITE         =     MSLOT*256+$C00F
+oSTATUS        =     MSLOT*256+$C010
+oCONTROL       =     MSLOT*256+$C012
+
+SCCREG         =     MSLOT-1!1+$C038
+SCCDATA        =     MSLOT-1!1+$C03A
+
+*-------------------------------------------------
+* Baud rate generator time constants
+
+X1_19200       =     94
+X1_9600        =     190
+X1_7200        =     254
+X1_4800        =     382
+X1_3600        =     510
+X1_2400        =     766
+X1_1800        =     1022
+X1_1200        =     1534
+X1_600         =     3070
+X1_300         =     6142
+X1_150         =     12286
+X1_134         =     13703
+X1_110         =     16754
+X1_75          =     24574
+
+X16_19200      =     4
+X16_9600       =     10
+X16_7200       =     14
+X16_4800       =     22
+X16_3600       =     30
+X16_2400       =     46
+X16_1800       =     62
+X16_1200       =     94
+X16_600        =     190
+X16_300        =     382
+X16_150        =     766
+X16_134        =     855
+X16_110        =     1045
+X16_75         =     1534
+X16_50         =     2302
+
+X32_19200      =     1
+X32_9600       =     4
+X32_7200       =     6
+X32_4800       =     10
+X32_3600       =     14
+X32_2400       =     22
+X32_1800       =     30
+X32_1200       =     46
+X32_600        =     94
+X32_300        =     190
+X32_150        =     382
+X32_110        =     522
+X32_75         =     766
+X32_50         =     1150
+
+X64_9600       =     1
+X64_7200       =     2
+X64_4800       =     4
+X64_3600       =     6
+X64_2400       =     10
+X64_1800       =     14
+X64_1200       =     22
+X64_600        =     46
+X64_300        =     94
+X64_150        =     190
+X64_110        =     260
+X64_75         =     382
+X64_50         =     574
+
+*-------------------------------------------------
+* Zilog Z8530 SCC-specific definitions
+*
+* Reference: Zilog Z8530 SCC Product Specification
+*
+* Each SCC channel data window is always available and is accessed by
+* invoking either SCC?_out( x ) to write byte x
+* or x = SCC?_in() to read byte x.
+*
+* SCC register # n (for n > 0) is accessed by performing
+* either SCC?_ctrl( n, x ) to write x to register # n
+* or x = SCC?_stat( n ) to read x from register # n.
+*
+* (In the above, ? is either A or B depending on the SCC channel.)
+*-------------------------------------------------
+
+* SCCA_reg(n) (SCCAREG = (n))
+* SCCB_reg(n) (SCCBREG = (n))
+* SCCA_out(x) (SCCADATA = (x))
+* SCCB_out(x) (SCCBDATA = (x))
+* SCCA_in() SCCADATA
+* SCCB_in() SCCBDATA
+* SCCA_ctrl(n, x) ((n) ? (SCCA_reg(n), SCCA_reg(n)) : SCCA_reg(x))
+* SCCB_ctrl(n, x) ((n) ? (SCCB_reg(n), SCCB_reg(n)) : SCCB_reg(x))
+* SCCA_stat(n) (SCCA_reg(n), SCCAREG)
+* SCCB_stat(n) (SCCB_reg(n), SCCBREG)
+
+*-------------------------------------------------
+* Read Register bit-field definitions
+*
+* (Unspecified bits are always 0)
+*
+*-------------------------------------------------
+* RR0: Transmit/Receive buffer status and External status
+* (RR0 does not require the preliminary SCC?_reg( 0 ))
+*
+RR0_BRK        =     $80                                ; break/abort
+RR0_UND        =     $40                                ; Tx underrun/EOM
+RR0_CTS        =     $20                                ; tracks CTS.L input pin
+RR0_SYN        =     $10                                ; synchronous/hunt
+;   (affected by SYNC.L transition if no crystal)
+RR0_DCD        =     $08                                ; tracks DCD.L input pin
+RR0_EMPTY      =     $04                                ; Tx buffer empty
+RR0_ZCT        =     $02                                ; zero count
+RR0_AVAIL      =     $01                                ; Rx character available
+
+*-------------------------------------------------
+* RR1: Special Receive Condition status
+*
+RR1_END        =     $80                                ; end of frame (SDLC)
+RR1_FERR       =     $40                                ; CRC/framing error
+RR1_OERR       =     $20                                ; Rx overrun error
+RR1_PERR       =     $10                                ; parity error
+RR1_RESIDUE    =     $0E                                ; residue codes 0|1|2
+RR1_SENT       =     $01                                ; all sent
+
+*-------------------------------------------------
+* RR2: Unmodified interrupt vector (channel A)
+* or Modified interrupt vector (channel B)
+*
+*-------------------------------------------------
+* RR3: Interrupt Pending bits (channel A)
+* (all 0 when read through channel B)
+*
+RR3_ARIP       =     $20                                ; channel A Rx interrupt pending
+RR3_ATIP       =     $10                                ; channel A Tx interrupt pending
+RR3_AXIP       =     $08                                ; channel A ext/stat interrupt pending
+RR3_BRIP       =     $04                                ; channel B Rx interrupt pending
+RR3_BTIP       =     $02                                ; channel B Tx interrupt pending
+RR3_BXIP       =     $01                                ; channel B ext/stat interrupt pending
+
+*-------------------------------------------------
+* RR8: Receive buffer
+* (must be accessed via SCC?_in())
+*
+*-------------------------------------------------
+* RR10: Miscellaneous status
+*
+RR10_1MISS     =     $80                                ; one clock missing
+RR10_2MISS     =     $40                                ; two clocks missing
+RR10_LPSEND    =     $10                                ; loop sending
+RR10_ONLOOP    =     $02                                ; on loop
+
+*-------------------------------------------------
+* RR12: lower byte of baud rate generator time constant
+* RR13: upper byte of baud rate generator time constant
+*
+*-------------------------------------------------
+* RR15: External/Status interrupt information
+*
+RR15_BRKIE     =     $80                                ; break/abort interrupt enable
+RR15_UNDIE     =     $40                                ; Tx underrun interrupt enable
+RR15_CTSIE     =     $20                                ; CTS transition interrupt enable
+RR15_SYNIE     =     $10                                ; sync/hunt interrupt enable
+RR15_DCDIE     =     $08                                ; DCD transition interrupt enable
+RR15_ZCTIE     =     $02                                ; zero count interrupt enable
+
+*-------------------------------------------------
+* Write register bit-field definitions
+*
+* (Unspecified bits must always be 0)
+*
+*-------------------------------------------------
+* WR0: CRC initialize, initialization commands for the various modes,
+* Register Pointers
+* (WR0 does not require the preliminary SCC?_reg( 0 ))
+*
+WR0_RUND       =     $C0                                ; reset Tx underrun latch
+WR0_RGEN       =     $80                                ; reset Tx CRC generator
+WR0_RCHK       =     $40                                ; reset Rx CRC checker
+WR0_NULL       =     $00                                ; null code
+WR0_RIUS       =     $38                                ; reset highest IUS
+WR0_RERR       =     $30                                ; error reset
+WR0_RTIP       =     $28                                ; reset Tx interrupt pending
+WR0_RCIE       =     $20                                ; enable interrupt on next Rx character
+WR0_ABORT      =     $18                                ; send abort (SDLC)
+WR0_RXI        =     $10                                ; reset ext/stat interrupts
+WR0_PHI        =     $08                                ; point high
+WR0_REG        =     $07                                ; register 0-15 select (see SCC?_reg( n ))
+
+*-------------------------------------------------
+* WR1: Transmit/Receive interrupt and data transfer mode definition
+*
+WR1_WREN       =     $80                                ; wait/DMA request enable
+WR1_DMA        =     $40                                ; 0=>wait/1=>DMA request function
+WR1_WRRX       =     $20                                ; wait/DMA request on 0=>transmit/1=>receive
+WR1_RISCO      =     $18                                ; Rx interrupt on special condition only
+WR1_RIALL      =     $10                                ; interrupt on all Rx chars or special cond.
+WR1_RIFCS      =     $08                                ; Rx interrupt on 1st char or special cond.
+WR1_RIDIS      =     $00                                ; Rx interrupt disable
+WR1_PARSC      =     $04                                ; parity is special condition
+WR1_TIEN       =     $02                                ; Tx interrupt enable
+WR1_XIEN       =     $01                                ; ext interrupt enable
+
+*-------------------------------------------------
+* WR2: Interrupt vector (accessed through either channel)
+* (useless on Apple IIGS)
+*
+*-------------------------------------------------
+* WR3: Receive parameters and control
+*
+WR3_R8B        =     $C0                                ; Rx 8 bits/character
+WR3_R6B        =     $80                                ; Rx 6 bits/character
+WR3_R7B        =     $40                                ; Rx 7 bits/character
+WR3_R5B        =     $00                                ; Rx 5 bits/character
+WR3_AUTO       =     $20                                ; auto enables
+* "auto enables" => CTS/DCD enable transmitters/receivers,
+* RTS raised when transmitter empty
+WR3_HUNT       =     $10                                ; enter hunt mode
+WR3_RCRC       =     $08                                ; Rx CRC enable
+WR3_ADDR       =     $04                                ; address search mode (SDLC)
+WR3_SCLI       =     $02                                ; sync character load inhibit
+WR3_RXEN       =     $01                                ; Rx enable
+
+*-------------------------------------------------
+* WR4: Transmit/Receive miscellaneous parameters and modes
+*
+WR4_X64        =     $C0                                ; x64 clock mode
+WR4_X32        =     $80                                ; x32 clock mode
+WR4_X16        =     $40                                ; x16 clock mode
+WR4_X1         =     $00                                ; x1 clock mode
+WR4_XSYN       =     $30                                ; external sync mode
+WR4_SDLC       =     $20                                ; SDLC mode (01111110 flag)
+WR4_S16B       =     $10                                ; 16 bit sync character
+WR4_S8B        =     $00                                ; 8 bit sync character
+WR4_2SB        =     $0C                                ; 2 stop bits/character
+WR4_15SB       =     $08                                ; 1.5 stop bits/character
+WR4_1SB        =     $04                                ; 1 stop bit/character
+WR4_SYNC       =     $00                                ; sync modes enable
+WR4_EVEN       =     $02                                ; parity 0=>odd/1=>even
+WR4_PAREN      =     $01                                ; parity enable
+
+*-------------------------------------------------
+* WR5: Transmit parameters and controls
+*
+WR5_DTR        =     $80                                ; tracked by DTR/REQ.L output pin
+WR5_T8B        =     $60                                ; Tx 8 bits/character
+WR5_T6B        =     $40                                ; Tx 6 bits/character
+WR5_T7B        =     $20                                ; Tx 7 bits/character
+WR5_T5B        =     $00                                ; Tx 5 bits (or less)/character
+WR5_SBRK       =     $10                                ; send break
+WR5_TXEN       =     $08                                ; Tx enable
+WR5_CRC16      =     $04                                ; 0=>SDLC(CCITT)/1=>CRC-16
+WR5_RTS        =     $02                                ; tracked by RTS.L output pin
+;   (except when auto enable is on)
+WR5_TCEN       =     $01                                ; Tx CRC enable
+
+*-------------------------------------------------
+* WR6: Sync characters or SDLC address field
+* WR7: Sync character or SDLC flag
+* (See the Z8530 SCC Product Specification for bit layouts)
+*
+
+*-------------------------------------------------
+* WR8: Transmit buffer
+* (must be accessed via SCC?_out())
+*
+
+*-------------------------------------------------
+* WR9: Master interrupt control and reset
+* (accessed through either channel)
+*
+WR9_HARD       =     $C0                                ; force hardware reset
+WR9_RSTA       =     $80                                ; channel reset A
+WR9_RSTB       =     $40                                ; channel reset B
+WR9_NULL       =     $00                                ; no reset
+WR9_STAT       =     $10                                ; status 0=>low/1=>high
+WR9_MIE        =     $08                                ; master interrupt enable
+WR9_DLC        =     $04                                ; DLC
+WR9_NV         =     $02                                ; NV
+WR9_VIS        =     $01                                ; VIS
+
+*-------------------------------------------------
+* WR10: Miscellaneous transmitter/receiver control bits
+*
+WR10_CP1       =     $80                                ; CRC preset 0=>all 0s/1=>all 1s
+WR10_FM0       =     $60                                ; frequency modulation 0 (transition = 0)
+WR10_FM1       =     $40                                ; frequency modulation 1 (transition = 1)
+WR10_NRZI      =     $20                                ; NRZI (non-return to zero inhibit)
+WR10_NRZ       =     $00                                ; NRZ (non-return to zero)
+WR10_POLL      =     $10                                ; go active on poll
+WR10_MIDLE     =     $08                                ; 0=>flag/1=>mark idle
+WR10_AUND      =     $04                                ; 0=>flag/1=>abort on underrun
+WR10_LOOP      =     $02                                ; loop mode
+WR10_S6B       =     $01                                ; 0=>8/1=>6 bit sync
+
+*-------------------------------------------------
+* WR11: Clock mode control
+*
+WR11_RXTAL     =     $80                                ; RTxC 0=>no crystal/1=>crystal
+WR11_RPLL      =     $60                                ; receive clock = DPLL output
+WR11_RBRG      =     $40                                ; receive clock = BR generator output
+WR11_RTRXC     =     $20                                ; receive clock = TRxC pin
+WR11_RRTXC     =     $00                                ; receive clock = RTxC pin
+WR11_TPLL      =     $18                                ; transmit clock = DPLL output
+WR11_TBRG      =     $10                                ; transmit clock = BR generator output
+WR11_TTRXC     =     $08                                ; transmit clock = TRxC pin
+WR11_TRTXC     =     $00                                ; transmit clock = RTxC pin
+WR11_OTRXC     =     $04                                ; TRxC.L 0=>input/1=>output
+WR11_OPLL      =     $03                                ; TRxC.L out = DPLL output
+WR11_OBRG      =     $02                                ; TRxC.L out = BR generator output
+WR11_OTCLK     =     $01                                ; TRxC.L out = transmit clock
+WR11_OXTAL     =     $00                                ; TRxC.L out = crystal output
+
+*-------------------------------------------------
+* WR12: lower byte of baud rate generator time constant
+* WR13: upper byte of baud rate generator time constant
+*
+
+*-------------------------------------------------
+* WR14: Miscellaneous control bits
+*
+WR14_NRZI      =     $E0                                ; set NRZI mode
+WR14_FM        =     $C0                                ; set FM mode
+WR14_RTXC      =     $A0                                ; set source = RTxC
+WR14_BRG       =     $80                                ; set source = BR generator
+WR14_DPLL      =     $60                                ; disable DPLL
+WR14_RMISS     =     $40                                ; reset missing clock
+WR14_SEARCH    =     $20                                ; enter search mode
+WR14_NULL      =     $00                                ; null command
+WR14_LLB       =     $10                                ; local loopback
+WR14_ECHO      =     $08                                ; auto echo
+WR14_REQ       =     $04                                ; 0=>DTR/1=>request function
+WR14_BRSRC     =     $02                                ; BR generator source
+WR14_BREN      =     $01                                ; BR generator enable
+
+*-------------------------------------------------
+* WR15: External/Status interrupt control
+*
+WR15_BRKIE     =     $80                                ; break/abort interrupt enable
+WR15_UNDIE     =     $40                                ; Tx underrun interrupt enable
+WR15_CTSIE     =     $20                                ; CTS interrupt enable
+WR15_SYNIE     =     $10                                ; sync/hunt interrupt enable
+WR15_DCDIE     =     $08                                ; DCD interrupt enable
+WR15_ZCTIE     =     $02                                ; zero count interrupt enable
+
+*-------------------------------------------------
+* Serial port control parameters
+*-------------------------------------------------
+
+GetModeBits    =     0
+SetModeBits    =     1
+PORTMODE       =     %00000000000000000000000000000001
+XONWAIT        =     %00000000000000000000000000000010
+DTRDSREN       =     %00000000000000000000000000000100
+KEEPLF         =     %00000000000000000000000000001000
+ACCEPTKB       =     %00000000000000000000000000010000
+XONXOFFEN      =     %00000000000000000000000000100000
+GENLF          =     %00000000000000000000000001000000
+ECHOTOVID      =     %00000000000000000000000010000000
+BGPRTON        =     %00000000000000000000000100000000
+OUTHALT        =     %00000000000000000000001000000000
+INHALT         =     %00000000000000000000010000000000
+GENCR          =     %00000000000000000000100000000000
+DCDEN          =     %00000000000000000010000000000000
+IOBUFEN        =     %00000000000000000100000000000000
+GOTPE          =     %00000000000100000000000000000000
+GOTFE          =     %00000000010000000000000000000000
+IGNCMDS        =     %00000000100000000000000000000000
+GetPortStat    =     6
+RXFULL         =     %0000000000000001
+TXEMPTY        =     %0000000000000100
+DCDSTATE       =     %0000000000001000
+DSRSTATE       =     %0000000000100000
+TXUNDER        =     %0000000001000000
+BRK_ABT        =     %0000000010000000
+GetSCC         =     8
+SetSCC         =     9
+GetDTR         =     $A
+SetDTR         =     $B
+DTRSTATE       =     %0000000010000000
+GetIntInfo     =     $C                                 ; Use GetPortStat masks
+SetIntInfo     =     $D
+GetInBuffer    =     $10
+GetOutBuffer   =     $11
+SetInBuffer    =     $12
+SetOutBuffer   =     $13
+FlushInQueue   =     $14
+FlushOutQueue  =     $15
+InQStatus      =     $16
+OutQStatus     =     $17
+SendQueue      =     $18
+
+*-------------------------------------------------
+* Other serial port equates
+*
+TXREADY        =     0
+RXREADY        =     1
+               LST   OFF
+
diff --git a/SOURCE/EQUATES/RAMAREA.S b/SOURCE/EQUATES/RAMAREA.S
new file mode 100644
index 0000000..40e7fec
--- /dev/null
+++ b/SOURCE/EQUATES/RAMAREA.S
@@ -0,0 +1,68 @@
+            LST   RTN
+            TTL   'LLUCE - Storage Areas'
+            PAG
+*===============================
+* Standard Memory Allocation
+*===============================
+
+DOLOCL      =     $F800                    16
+DOLOCH      =     $F810                    16
+END_DO      =     $F820                    32
+
+WHLOCL      =     $F840                    16
+WHLOCH      =     $F850                    16
+END_WHIL    =     $F860                    32
+
+GSBSTKL     =     $F880                    16
+GSBSTKH     =     $F890                    16
+
+FORLOCL     =     $F8A0                    16
+FORLOCH     =     $F8B0                    16
+
+FORVARL     =     $F8C0                    16
+FORVARML    =     $F8D0                    16
+FORVARMH    =     $F8E0                    16
+FORVARH     =     $F8F0                    16
+
+FORENDL     =     $F900                    16
+FORENDM     =     $F910                    16
+FORENDH     =     $F920                    16
+
+FORSTPL     =     $F930                    16
+FORSTPM     =     $F940                    16
+FORSTPH     =     $F950                    16
+
+PFXSAVE     =     $F960                    64
+FLNSV       =     $F9A0                    64
+
+LNKLBL      =     $F9E0                    9
+
+DEVUSE      =     $F9E9                    11
+
+NUM         =     $F9F4                    10
+TXTNUM      =     $F9FE                    9
+FLPOS       =     $FA07                    9
+
+DATA        =     $FA10                    6
+NUMB        =     $FA16                    4
+
+NEGFLG      =     $FA1A                    1
+
+LNCNT       =     $FA1B                    1
+
+CPASS       =     $FA1C                    1
+
+REMAIN      =     $FA1D                    6
+SIGN        =     $FA23                    1
+RESULT      =     $FA24                    6
+
+TIMEOUT     =     $FA2A                    5
+
+AUTORST     =     $FA2F                    1
+
+OVERLYID    =     $FA30                    8
+OVIDTEST    =     $FA38                    8
+
+CURREMUL    =     $FA40                    192
+            LST   OFF
+
diff --git a/SOURCE/EQUATES/TOKENS.S b/SOURCE/EQUATES/TOKENS.S
new file mode 100644
index 0000000..f1e5647
--- /dev/null
+++ b/SOURCE/EQUATES/TOKENS.S
@@ -0,0 +1,187 @@
+            LST   RTN
+            TTL   'LLUCE - Token numbers'
+            PAG
+Number      =     1
+String      =     2
+OneByte     =     3
+TwoByte     =     4
+ThreeByte   =     5
+NoLbl       =     8
+Public      =     9
+CompStrt    =     $A
+CompEnd     =     $B
+If          =     $C
+ElseTkn     =     $D
+For         =     $E
+ToTkn       =     $F
+StepTkn     =     $10
+Next        =     $11
+DoTkn       =     $12
+WhileTkn    =     $13
+Continue    =     $14
+Break       =     $15
+Then        =     $16
+Chain       =     $16
+Chain2      =     $17
+End         =     $18
+Cls         =     $19
+Home        =     $1A
+CsrUTkn     =     $1B
+CsrDTkn     =     $1C
+CsrLTkn     =     $1D
+CsrRTkn     =     $1E
+CeosTkn     =     $1F
+CbosTkn     =     $20
+CscnTkn     =     $21
+CeolTkn     =     $22
+CbolTkn     =     $23
+ClnTkn      =     $24
+InsLnTkn    =     $25
+DelLnTkn    =     $26
+InsChTkn    =     $27
+DelChTkn    =     $28
+Normal      =     $29
+Inverse     =     $2A
+Gotoxy      =     $2B
+Mouse       =     $2C
+Tone        =     $2D
+Goto        =     $2E
+Gosub       =     $2F
+Push        =     $30
+On          =     $31
+Off         =     $32
+Print       =     $33
+Input       =     $34
+Key         =     $35
+Clear       =     $36
+Free        =     $37
+Set         =     $38
+Flag        =     $39
+Nibble      =     $3A
+Byte        =     $3B
+Word        =     $3C
+Nocar       =     $3D
+Onerr       =     $3E
+Ready       =     $3F
+OnlineTkn   =     $40
+Msg         =     $41
+Lock        =     $42
+Unlock      =     $43
+Readtkn     =     $44
+Writetkn    =     $45
+Eof         =     $46
+Size        =     $47
+Len         =     $48
+Val         =     $49
+Asc         =     $4A
+Instr       =     $4B
+Upper       =     $4C
+Lower       =     $4D
+Mixed       =     $4E
+Rtrim       =     $4F
+Ltrim       =     $50
+Strtyp      =     $51
+Timestr     =     $51
+Time12      =     $52
+Datestr     =     $53
+Fmtdate     =     $54
+Whenstr     =     $55
+Fmtwhen     =     $56
+Leftstr     =     $57
+Rightstr    =     $58
+Midstr      =     $59
+Chrstr      =     $5A
+Strstr      =     $5B
+Rndstr      =     $5C
+Compare     =     $5D
+Notequ      =     $5D
+Lessequ     =     $5E
+Grequ       =     $5F
+Equal       =     $60
+Less        =     $61
+Greater     =     $62
+Logic       =     $63
+And         =     $63
+LogicAnd    =     $64
+Or          =     $65
+LogicOr     =     $66
+Xor         =     $67
+Not         =     $68
+LogicNot    =     $69
+ShftLeft    =     $6A
+ShftRght    =     $6B
+Math        =     $6C
+Plus        =     $6C
+Minus       =     $6D
+Mult        =     $6E
+Div         =     $6F
+Incremnt    =     $70
+Decremnt    =     $71
+PlusEqu     =     $72
+MinusEqu    =     $73
+MultEqu     =     $74
+DivEqu      =     $75
+ModEqu      =     $76
+AndEqu      =     $77
+OrEqu       =     $78
+XorEqu      =     $79
+ShftLEqu    =     $7A
+ShftREqu    =     $7B
+Mod         =     $7C
+Abs         =     $7D
+Hitoken     =     $7E
+Baud        =     $8B
+Exec        =     $8C
+Node        =     $8D
+Mode        =     $8E
+Pdl         =     $8F
+Rnd         =     $90
+Echo        =     $91
+SetInt      =     $92
+AddInt      =     $93
+Err         =     $94
+Ram         =     $95
+Return      =     $96
+Pop         =     $97
+Resume      =     $98
+Get         =     $99
+Clock       =     $9A
+Flash       =     $9B
+AnsiTkn     =     $9C
+Terminal    =     $9D
+Width       =     $9E
+Window      =     $9F
+Edit        =     $A0
+Modem       =     $A1
+Poke        =     $A2
+Peek        =     $A3
+Call        =     $A4
+Move        =     $A5
+Fill        =     $A6
+Copy        =     $A7
+Type        =     $A8
+Store       =     $A9
+Recall      =     $AA
+ChainTkn    =     $AB
+PrefixTkn   =     $AC
+Overlay     =     $AD
+Disk        =     $AE
+Rewind      =     $AF
+Crunch      =     $B0
+CreateTkn   =     $B1
+Kill        =     $B2
+Name        =     $B3
+OpenTkn     =     $B4
+CloseTkn    =     $B5
+FlushTkn    =     $B6
+Mark        =     $B7
+Position    =     $B8
+Append      =     $B9
+Exist       =     $BA
+ExitTkn     =     $BB
+OffsTkn     =     $BC
+Nullcmd     =     $BD
+Convert     =     $BE
+Debug       =     $BF
+            LST   OFF
+
diff --git a/SOURCE/FILESORT.S b/SOURCE/FILESORT.S
new file mode 100644
index 0000000..cda8ba7
--- /dev/null
+++ b/SOURCE/FILESORT.S
@@ -0,0 +1,506 @@
+********************************
+*                              *
+*     Sequential File Sort     *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      3
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+            LST    RTN
+
+]TYPE       =      ^overlays                         ; set file type
+]AUX        =      overlays                          ; and aux type
+            ORG    ]AUX                              ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/FILESORT
+
+            TTL    'LLUCE - File Sort'
+            DO     LISTOBJ
+            LST
+            FIN
+
+SRTSTR      =      a1
+CSTRST      =      a2
+CSTRLEN     =      a3
+WORKLEN     =      a3+1
+CSTREND     =      a4
+MEMBTM      =      NODENUM
+MEMTOP      =      MLI
+
+            DB     Id
+            DW     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+            DA     PARMLSTS-CODESTRT
+            DA     0
+
+DiskErr     =      249
+FileLock    =      250
+VolProt     =      251
+FileBig     =      253
+BadParm     =      254
+NoFile      =      255
+
+*-------------------------------
+* Syntax For Use With This Overlay
+*
+* Overlay "Filesort","Filename",Error
+*
+* Error Code Is Returned In Error
+*
+*   0 = No Error
+* 249 = Another Disk Error
+* 250 = File Locked
+* 251 = Disk Write Protected
+* 253 = File Too Large
+* 254 = Invalid Parameter
+* 255 = File Not Found
+*-------------------------------
+            ORG    $D000
+
+CODESTRT    =      *
+
+BEGIN       LDX    #ENDPARMS-PARMLSTS
+MV_PARMS    LDA    PARMLSTS,X                        ; Move Parameter Lists
+            STA    EOFLST,X
+            DEX
+            BPL    MV_PARMS
+
+            JSR    GOBCOM                            ; Get file name
+            JSR    MOVNAME
+
+            JSR    GOBCOM                            ; Get error code variable
+            JSR    INPNUM
+
+            LDA    #%00110011                        ; Request All, Deny All
+            JSR    PD_OPEN
+            BCC    TSTSIZE
+
+            LDA    #NoFile                           ; File not found
+            BRA    ERROR
+
+TSTSIZE     STA    RWREF                             ; Save references
+            STA    MARKREF
+            STA    EOFREF
+
+            JSR    MLI                               ; Get file size
+            DB     Geteof
+            DW     EOFLST
+            LDA    EOF+2                             ; Check file size
+            BNE    TOOBIG
+
+            LDA    EOF+1
+            CMP    #>MEMTOP-MEMBTM
+            BLT    SIZE_OK
+
+TOOBIG      JSR    PD_CLOSE                          ; Close the file
+
+            LDA    #FileBig                          ; File too large
+ERROR       JMP    NOERR
+
+SIZE_OK     STZ    SRTSTR                            ; Point to bottom of file
+            LDA    #>MEMBTM
+            STA    SRTSTR+1
+
+            LDA    #-1
+            STA    NUMBLKS                           ; Zero Number Of Blocks Read
+
+READIT      INC    NUMBLKS                           ; Increment Blocks Read
+
+            JSR    MLI                               ; Read in a chunk
+            DB     Read
+            DW     RWLST
+
+            STZ    CSTRST                            ; Point To Start Of Buffer
+            LDA    #>ENDMOD
+            STA    CSTRST+1
+
+            STZ    AUXWRT                            ; Putting stuff in aux ram
+
+            LDY    #0
+            LDX    #$10                              ; Move 4K
+RD_MOVE     LDA    (SRTSTR),Y
+            AND    #Clrhi
+            STA    (CSTRST),Y
+            INY
+            BNE    RD_MOVE
+            INC    SRTSTR+1
+            INC    CSTRST+1
+            DEX
+            BNE    RD_MOVE
+
+            STZ    MAINWRT                           ; Come back to main ram
+
+            LDA    XFERED                            ; Finished Reading?
+            BNE    RD_DONE
+            LDA    XFERED+1
+            CMP    #$10
+            BEQ    READIT
+
+RD_DONE     LDX    XFERED                            ; Calculate Top Of Memory
+            LDA    XFERED+1
+            STX    XTRABYTE
+            STA    XTRABYTE+1
+
+            STX    TEMP
+            LDX    NUMBLKS
+
+            LDA    #0                                ; Multiply
+ADD         CLC                                      ; Add In Pages Read
+            ADC    #$10
+            DEX
+            BPL    ADD
+
+            CLC                                      ; Add in the extra bytes
+            ADC    XTRABYTE+1
+            CLC
+            ADC    #>MEMBTM
+            STA    TEMP+1
+
+            STZ    AUXREAD                           ; Set Aux Memory
+            STZ    AUXWRT
+
+            LDX    #<MEMBTM                          ; Reset to start again
+            LDA    #>MEMBTM
+            STX    CSTRST
+            STA    CSTRST+1
+            JSR    PRHEX                             ; Show where we are
+            JSR    SETNEXT                           ; Find end of line
+
+TESTIT      LDY    CSTREND                           ; point to next line start
+            LDX    CSTREND+1
+            INY
+            BNE    ENDOK
+            INX
+ENDOK       STY    CSTRST
+            STX    CSTRST+1
+
+            JSR    PRBSHEX                           ; Show location
+
+            JSR    TESTEND                           ; At end of data?
+            BCC    NOTEND                            ; Nope, sort
+
+            JMP    FINISH                            ; Finish up
+
+NOTEND      JSR    SETNEXT                           ; Point to next line
+
+            LDX    #<MEMBTM                          ; Point to start of buffer
+            LDA    #>MEMBTM
+            STX    SRTSTR
+            STA    SRTSTR+1
+
+TSTNEXT     LDA    SRTSTR                            ; Finished with this chunk?
+            CMP    CSTRST
+            BNE    FINDLEN                           ; Nope, do next line
+            LDA    SRTSTR+1
+            CMP    CSTRST+1
+            BEQ    TESTIT                            ; Yes, sort next line in
+
+FINDLEN     LDY    #0                                ; Point to line start
+LEN_LOOP    LDA    (SRTSTR),Y
+            CMP    #cr                               ; End of line?
+            BEQ    SAVELEN                           ; Yes
+            INY
+            BNE    LEN_LOOP
+
+SAVELEN     INY                                      ; Save length
+            STY    TEMP2
+
+            LDX    CSTRLEN                           ; Work with shorter line
+            CPX    TEMP2
+            BGE    LEN_OK
+            LDX    TEMP2
+LEN_OK      STX    WORKLEN
+
+            LDY    #-1                               ; Start at beginning
+CHK_NEXT    INY                                      ; Bump pointer
+            CPY    WORKLEN                           ; Done with line?
+            BEQ    NOSWAP                            ; If so, it's equal
+
+            LDA    (SRTSTR),Y                        ; Byte from line 1
+            JSR    CONV                              ; Upper case it
+            STA    PRN
+
+            LDA    (CSTRST),Y                        ; Byte from line 2
+            JSR    CONV                              ; Upper case it
+
+            CMP    PRN
+            BEQ    CHK_NEXT                          ; Same in both lines
+            BGE    NOSWAP                            ; In order already
+
+            JSR    INSERT                            ; Switch lines
+            JMP    TESTIT                            ; Do next one
+
+NOSWAP      CLC                                      ; Point to next line
+            LDA    SRTSTR
+            ADC    TEMP2
+            STA    SRTSTR
+            LDA    SRTSTR+1
+            ADC    #0
+            STA    SRTSTR+1
+
+            CMP    CSTRST+1                          ; Done with block?
+            BNE    TSTNEXT                           ; Nope
+            LDA    SRTSTR
+            CMP    CSTRST
+            BNE    TSTNEXT
+
+            JMP    TESTIT                            ; Do next one
+
+FINISH      STZ    MAINWRT                           ; Set back to main RAM
+            STZ    MAINREAD
+
+            JSR    MLI                               ; Zero mark
+            DB     Setmark
+            DW     MARKLST
+
+            STZ    CSTRST                            ; Point to buffer start
+            LDA    #>MEMBTM
+            STA    CSTRST+1
+
+WRITE_LP    STZ    CSTRST                            ; Point To Start Of Buffer
+            LDA    #>ENDMOD
+            STA    CSTRST+1
+
+            LDY    #0
+            STZ    AUXREAD                           ; aux memory
+            LDX    #$10                              ; Move 4K
+WR_MOVE     LDA    (SRTSTR),Y
+            STA    (CSTRST),Y
+            INY
+            BNE    WR_MOVE
+            INC    SRTSTR+1
+            INC    CSTRST+1
+            DEX
+            BNE    WR_MOVE
+
+            STZ    MAINREAD                          ; back to main ram
+
+            DEC    NUMBLKS                           ; Do all blocks
+            BPL    DO_WRITE
+
+            LDX    XTRABYTE                          ; set number of extra bytes
+            LDA    XTRABYTE+1
+            STX    REQUEST
+            STA    REQUEST+1
+
+DO_WRITE    JSR    MLI                               ; Write the extra bytes
+            DB     Write
+            DW     RWLST
+
+            BIT    NUMBLKS
+            BPL    WRITE_LP
+
+            PHA                                      ; Save any error code
+            JSR    PD_CLOSE                          ; Close it up
+
+            LDA    #bs                               ; wipe out address
+            LDX    #4
+            JSR    PMULT
+            LDA    #'-'
+            LDX    #4
+            JSR    PMULT
+
+            PLA                                      ; Restore error code
+            BEQ    NOERR
+
+            LDX    #VolProt                          ; Disk write protected
+            CMP    #drvrWrtProt
+            BEQ    RTNCODE
+
+            DEX                                      ; Access not allowed
+            CMP    #invalidAccess
+            BEQ    RTNCODE
+
+            DEX                                      ; All other errors
+RTNCODE     TXA                                      ; Save error code
+NOERR       LDY    #0
+            STA    (VPTR),Y
+            TYA
+            INY
+            STA    (VPTR),Y
+            INY
+            STA    (VPTR),Y
+
+            STZ    MAINREAD                          ; must be in main memory
+            STZ    MAINWRT
+            RTS
+
+INSERT      LDY    #0                                ; Save this string
+KEEP1       LDA    (CSTRST),Y
+            STA    LNBUF,Y
+            INY
+            CMP    #cr
+            BNE    KEEP1
+
+            LDX    CSTRST                            ; Move the rest into place
+            LDA    CSTRST+1
+            STX    STRLOC
+            STA    STRLOC+1
+
+MVNEXT      LDA    STRLOC
+            BNE    DEC1OK
+            DEC    STRLOC+1
+DEC1OK      DEC    STRLOC
+
+MOVE2       LDA    (STRLOC)
+            STA    (TEMP3)
+
+            LDA    STRLOC
+            CMP    SRTSTR
+            BNE    DODEC
+            LDA    STRLOC+1
+            CMP    SRTSTR+1
+            BEQ    INSRTIT
+
+DODEC       LDA    TEMP3
+            BNE    DEC2OK
+            DEC    TEMP3+1
+DEC2OK      DEC    TEMP3
+
+            JMP    MVNEXT
+
+INSRTIT     LDY    #0                                ; Stick the line in
+MOVE1       LDA    LNBUF,Y
+            STA    (SRTSTR),Y
+            INY
+            CMP    #cr
+            BNE    MOVE1
+
+            RTS
+
+SETNEXT     LDY    #0                                ; Get end of line
+LENLUP1     LDA    (CSTRST),Y
+            CMP    #cr
+            BEQ    LENOK
+            INY
+            BNE    LENLUP1
+
+LENOK       TYA
+            INY
+            STY    CSTRLEN
+
+            CLC                                      ; Add line len to original
+            ADC    CSTRST
+            STA    CSTREND
+            STA    TEMP3
+            LDA    #0
+            ADC    CSTRST+1
+            STA    CSTREND+1
+            STA    TEMP3+1
+
+TOPOK       CLC
+            RTS
+
+TESTEND     LDA    CSTRST+1
+            CMP    TEMP+1
+            BLT    TSTEND2
+            LDA    CSTRST
+            CMP    TEMP
+TSTEND2     RTS
+
+CONV        CMP    #'a'
+            BLT    CONV2
+            CMP    #'z'+1
+            BGE    CONV2
+            SBC    #$1F
+CONV2       RTS
+
+PRBSHEX     LDA    #bs
+            LDX    #4
+            JSR    PMULT
+PRHEX       LDA    CSTRST+1
+            SEC
+            SBC    #>MEMBTM
+            JSR    PRBYTE
+            LDA    CSTRST
+PRBYTE      PHA
+            LSR    A
+            LSR    A
+            LSR    A
+            LSR    A
+            JSR    PRHEXZ
+            PLA
+            AND    #$F
+PRHEXZ      ORA    #'0'
+            CMP    #'9'+1
+            BCC    GOCOUT
+            ADC    #6
+GOCOUT      STZ    MAINREAD
+            STZ    MAINWRT
+            JSR    VIDCOUT
+            STZ    AUXREAD
+            STZ    AUXWRT
+            RTS
+
+PMULT       PHA
+            JSR    GOCOUT
+            PLA
+            DEX
+            BNE    PMULT
+            RTS
+
+PARMLSTS    =      *
+
+            ORG    $380
+
+EOFLST      DB     2
+EOFREF      DB     0
+EOF         HEX    000000
+
+RWLST       DB     4
+RWREF       DB     0
+            DW     MEMBTM
+REQUEST     DW     MLI-MEMBTM
+XFERED      DW     0
+
+MARKLST     DB     2
+MARKREF     DB     0
+            HEX    000000
+
+NUMBLKS     DB     0
+XTRABYTE    DW     0
+
+            ORG
+
+ENDPARMS    =      *
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'LLUCE - File Sort Symbol Table'
+            PAG
+
diff --git a/SOURCE/FINDOPEN.S b/SOURCE/FINDOPEN.S
new file mode 100644
index 0000000..4a04ff2
--- /dev/null
+++ b/SOURCE/FINDOPEN.S
@@ -0,0 +1,263 @@
+********************************
+*                              *
+*     Find Open Record         *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      4
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+            LST    RTN
+
+]TYPE       =      ^overlays                        ; set file type
+]AUX        =      overlays                         ; and aux type
+            ORG    ]AUX                             ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/FINDOPEN
+
+            TTL    'LLUCE - Find Open User Record'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+            DA     CODEEND-START
+            DA     0                                ; CRC Goes Here
+
+            ORG    $D000
+
+*-------------------------------
+* Calling Syntax Is:
+*
+* Overlay "Findopen","Search","Filename",X,F
+*
+* X = Record Length When Calling
+* F = Field To Check
+*
+* Exit Codes, Returned In F
+*
+* F = -2 If Duplicate Is Found
+* F = -1 If File Is Bad
+* F = >0 First Empty Record
+*-------------------------------
+
+START       LDX    #CODEEND-READLOC
+MVREAD      LDA    READLOC,X                        ; Move The Parameter List
+            STA    READLST,X
+            DEX
+            BPL    MVREAD
+
+            LDX    #HANDLE-CODEEND
+ZEROST      STZ    CODEEND,X                        ; Zero All Parms
+            DEX
+            BPL    ZEROST
+
+            JSR    GOBCOM                           ; Get Name To Search For
+            JSR    INPSTR
+
+            STY    LENGTH                           ; Save it
+MVNAME      DEY
+            LDA    (STRLOC),Y
+            JSR    CONV
+            STA    HANDLE,Y
+            TYA
+            BNE    MVNAME
+
+            JSR    GOBCOM                           ; Get File Name To Search
+            JSR    MOVNAME
+
+            JSR    GOBCOM                           ; Get Record Length
+            JSR    INPNUM
+            STX    RECLEN                           ; Save Length And First Mark
+            STA    RECLEN+1
+
+            LDA    #1
+            STA    COUNT
+            STZ    COUNT+1
+
+            JSR    GOBCOM
+            JSR    INPNUM                           ; Get Field Number
+            TXA                                     ; If 0, leave alone, if not
+            BEQ    NOTZERO                          ; Subtract 1
+            DEC    A
+NOTZERO     STA    FIELDNO
+
+            JSR    PD_OPEN                          ; Open the file
+            BCC    GOODOPEN
+
+            DEC    FIRSTREC                         ; Make -1 for error
+            DEC    FIRSTREC+1
+            DEC    FIRSTREC+2
+            JMP    FINISH
+
+GOODOPEN    LDA    REFNUM                           ; Save ref numbers
+            STA    READREF
+            STA    MARKREF
+
+            JSR    PD_NEWLN                         ; Set newline mode
+            BRA    ADDLEN
+
+DO_READ     LDA    FIELDNO                          ; Set field to check
+            STA    FIELD
+
+            STZ    EDBUF                            ; Zero buffer for errors
+
+            JSR    MLI                              ; Read the line
+            DB     Read
+            DA     READLST
+            BCS    GO_FIN                           ; exit if error
+
+            LDA    EDBUF                            ; Get first char
+            AND    #Clrhi
+            BEQ    FTEST                            ; If null, record empty, maybe
+
+            CMP    #','                             ; Record Empty?
+            BEQ    FTEST                            ; Yes, Flag First Empty, Maybe
+
+            CMP    #cr                              ; Sure It's Empty?
+            BEQ    FTEST                            ; Nope, Go Test It
+            BRA    READAGN
+
+FTEST       BIT    NUSED                            ; First Already Found?
+            BMI    READAGN                          ; Yes, Skip It Then
+
+            LDA    COUNT                            ; Move Count
+            STA    FIRSTREC
+            LDA    COUNT+1
+            STA    FIRSTREC+1
+            DEC    NUSED                            ; Flag First Found
+            BRA    GONEXT
+
+READLUP     STZ    EDBUF
+            JSR    MLI                              ; Read In A Field
+            DB     Read
+            DA     READLST
+GO_FIN      BCS    FINISH
+
+READAGN     DEC    FIELD                            ; Count Down Fields
+            BPL    READLUP
+
+            LDY    #-1                              ; Check For Match
+TSTLUP      INY
+            CPY    LENGTH                           ; At End Of String?
+            BEQ    FOUND                            ; No, Continue Checking
+
+            LDA    EDBUF,Y                          ; Get Character
+            JSR    CONV
+            CMP    HANDLE,Y
+            BEQ    TSTLUP
+
+GONEXT      INC    COUNT                            ; Add 1 To Record Count
+            BNE    ADDLEN
+            INC    COUNT+1
+ADDLEN      CLC
+            LDA    MARK                             ; Add In Record Length
+            ADC    RECLEN
+            STA    MARK
+            LDA    MARK+1
+            ADC    RECLEN+1
+            STA    MARK+1
+            LDA    MARK+2
+            ADC    #0
+            STA    MARK+2
+            JSR    MLI
+            DB     Setmark
+            DA     MARKLST
+            JMP    DO_READ
+
+FOUND       LDX    #-1                              ; Make It -2
+            STX    FIRSTREC+2                       ; Duplicate Found
+            STX    FIRSTREC+1
+            DEX
+            STX    FIRSTREC
+FINISH      JSR    PD_CLOSE
+            LDY    #1
+            LDA    FIRSTREC
+            STA    (VPTR)
+            LDA    FIRSTREC+1
+            STA    (VPTR),Y
+            LDA    FIRSTREC+2
+            INY
+            STA    (VPTR),Y
+            RTS
+
+CONV        AND    #Clrhi
+            CMP    #'a'
+            BLT    CONV2
+            CMP    #'z'+1
+            BGE    CONV2
+            SBC    #$1F
+CONV2       RTS
+
+READLOC     =      *
+
+            ORG    $380
+
+READLST     DB     4
+READREF     DB     0
+            DA     EDBUF
+RECLEN      DA     0
+            DA     0
+
+MARKLST     DB     2
+MARKREF     DB     0
+MARK        DS     3
+
+            ORG
+
+CODEEND     =      *
+
+NUSED       DB     0
+COUNT       DA     0
+FIRSTREC    DB     0,0,0
+LENGTH      DB     0
+FIELDNO     DB     0
+FIELD       DB     0
+
+HANDLE      =      *
+
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'FINDOPEN - Symbol Table'
+
diff --git a/SOURCE/LISTER.S b/SOURCE/LISTER.S
new file mode 100644
index 0000000..9868690
--- /dev/null
+++ b/SOURCE/LISTER.S
@@ -0,0 +1,90 @@
+********************************
+*                              *
+*       Archive Lister         *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      1
+Aux         =      10
+
+            LST    OFF
+            LSTDO  OFF
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+
+]TYPE       =      ^overlays                   ; set file type
+]AUX        =      overlays                    ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/LIST
+
+            TTL    'LLUCE - Archive Lister'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                           ; CRC Goes Here
+            LST    OFF
+            ORG    $D000
+CODESTRT    =      *
+ACOS        =      0
+
+HDRBUF      =      $200
+DATABUF     =      $9B00
+
+BYTE        =      1
+WORD        =      2
+LADR        =      3
+LONG        =      4
+
+            PUT    OVERLAYS/LISTER/MACROS
+            PUT    OVERLAYS/LISTER/MAIN
+            PUT    OVERLAYS/LISTER/ACU
+            PUT    OVERLAYS/LISTER/APL
+            PUT    OVERLAYS/LISTER/BLU
+            PUT    OVERLAYS/LISTER/SHK
+            PUT    OVERLAYS/LISTER/LU
+            PUT    OVERLAYS/LISTER/ARC
+            PUT    OVERLAYS/LISTER/LZH
+            PUT    OVERLAYS/LISTER/ZIP
+            PUT    OVERLAYS/LISTER/ZOO
+            PUT    OVERLAYS/LISTER/MAC
+            PUT    OVERLAYS/LISTER/ARJ
+            PUT    OVERLAYS/LISTER/DATA
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'Lister - Symbol Table'
+            PAG
+
diff --git a/SOURCE/LISTER/ACOS.S b/SOURCE/LISTER/ACOS.S
new file mode 100644
index 0000000..89f999b
--- /dev/null
+++ b/SOURCE/LISTER/ACOS.S
@@ -0,0 +1,89 @@
+**************************************************
+*                                                *
+*                Archive Lister                  *
+*                                                *
+**************************************************
+            DATE
+*-------------------------------------------------
+
+            LST    OFF
+            LSTDO  OFF
+            TR
+            TR     ADR
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            ORG    $9E00
+            DSK    /RAM5/PROLIST
+
+            TTL    'ACOS - Archive Lister'
+            DO     LISTOBJ
+            LST
+            FIN
+
+ACOS        =      1
+Cr          =      $D
+
+Read        =      $CA
+Set_Mark    =      $CE
+Get_Mark    =      $CF
+
+TEMP        =      0
+TEMP2       =      2
+TEMP3       =      $13
+INTOUT      =      $34
+
+BYTE        =      1
+WORD        =      2
+LADR        =      3
+LONG        =      4
+
+HDRBUF      =      $200
+REFNUM      =      $3CD
+DATABUF     =      $AA00
+
+MLI         =      $BF00
+
+SET80COL    =      $C001
+PAGE1       =      $C054
+PAGE2       =      $C055
+LORES       =      $C056
+HIRES       =      $C057
+
+********************************
+*                              *
+*        Entry Points          *
+*                              *
+********************************
+
+GOBCOM      =      $386
+MOVNAME     =      $38F
+COUT        =      $3A4
+OPEN        =      $3AD
+CLOSE       =      $3B0
+
+            PUT    MACROS
+            PUT    MAIN
+            PUT    DATA
+LOWSUBS     =      *
+            ORG    $2000
+            PUT    ACU
+            PUT    APL
+            PUT    BLU
+            PUT    SHK
+            PUT    LU
+            PUT    ARC
+            PUT    LZH
+            PUT    ZIP
+            PUT    ZOO
+            PUT    MAC
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'Lister - Symbol Table'
+            PAG
+
diff --git a/SOURCE/LISTER/ACU.S b/SOURCE/LISTER/ACU.S
new file mode 100644
index 0000000..c6df43a
--- /dev/null
+++ b/SOURCE/LISTER/ACU.S
@@ -0,0 +1,175 @@
+*=================================================
+* ACU  (APPLE)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*  Archive Header
+*      File1 Header
+*          Resource Fork Of File1
+*          Data Fork Of File1
+*              .
+*              .
+*      Filen Header
+*          Resource Fork Of Filen
+*          Data Fork Of Filen
+*
+*-------------------------------------------------
+* Master Header
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+ACU_RECS    DA        0                                          ; * Records In Archive
+ACU_OS      DA        0                                          ; * Files Operating System
+*
+* ACU_OS    0  ProDOS Or SOS
+*           1  DOS 3.3
+*           2  Reserved
+*           3  DOS 3.2 Or DOS 3.1
+*           4  Apple II Pascal
+*           5  Macintosh MFS
+*           6  Macintosh HFS
+*           7  Macintosh XL
+*           8  Apple CP/M
+*           9  Reserved
+*           A  MS-DOS
+*           B  High Sierra (CD-ROM)
+*           C  ISO 9660 (CD-ROM)
+*           D  AppleShare
+*
+            ASC       'fZink'                                    ; * ACU ID String
+ACU_VER     DB        0                                          ; * ACU Version Number
+ACU_HLEN    DA        0                                          ;   ACU Header Length
+            DS        8                                          ; Reserved
+; Total Length Of 20 Bytes
+*
+*-------------------------------------------------
+* File Header
+*-------------------------------------------------
+*
+ACU_RCMP    DB        0                                          ; * Resource Fork Compression Method
+            DB        0                                          ;   Data Fork Compression Method
+*
+* ACUFxCMP     0     Stored
+*              1
+*              2
+*              3     Huffman
+*
+            DA        0                                          ;   Resource Fork CRC-16
+            DA        0                                          ;   Data Fork CRC-16
+            ADRL      0                                          ;   Resource Fork Blocks Used
+            ADRL      0                                          ;   Data Fork Blocks Used
+ACU_RSIZ    ADRL      0                                          ; * Resource Fork Compressed Size
+ACU_DSIZ    ADRL      0                                          ; * Data Fork Compressed Size
+ACU_ACS     DA        0                                          ; * File Access Flags
+ACU_FTYP    DA        0                                          ; * File Type
+ACU_AUX     ADRL      0                                          ; * File Aux Type
+            DA        0                                          ;   Reserved
+            DA        0                                          ;   File Storage Type
+ACU_REOF    ADRL      0                                          ; * Resource Fork Uncompressed Size
+ACU_DEOF    ADRL      0                                          ; * Data Fork Uncompressed Size
+ACU_MDAT    DA        0                                          ; * File Modified Date, P8 Format
+ACU_MTIM    DA        0                                          ; * File Modified Time, P8 Format
+            DA        0                                          ;   File Create Date, P8 Format
+            DA        0                                          ;   File Create Time, P8 Format
+ACU_FNLN    DA        0                                          ; * Length Of File Name
+            DA        0                                          ;   CRC Of Header
+ACU_FNAM    DS        1                                          ; * Filename
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* First File Header = Beginning Of File + 20
+*
+* Beginning Of File Data = Beginning Of File Header
+*                          + 54 + ACU_FNLN
+*
+* Next File Header      = Beginning Of File Header
+*                          + 54 + ACU_FNLN
+*                          + ACU_RSIZ + ACU_DSIZ
+*       Or
+*                       = Beginning Of File Data
+*                          + ACU_RSIZ + ACU_DSIZ
+*
+*=================================================
+*
+*AppleLink Conversion Utility, Version: Xxxx
+*
+*OS, X Records
+*
+DO_ACU      ZEROSEEK
+DO_ACU2     PRINT     'AppleLink Conversion Utility, V'
+            DECOUT    $80;0;ACU_VER
+            CROUT
+            CROUT
+            LDA       ACU_OS
+            JSR       ZINKOS
+            PRINT     ', '
+            DECOUT    $80;1;ACU_RECS
+            PRINT     ' Records'                                 ; Print number of records
+            APPLE     1                                          ; Show List Header
+            READ      #20;ACU_FNAM                               ; Skip Master Header
+            GETMARK   LASTMARK                                   ; Get Starting Mark
+:ACULOOP    READ      #54;ACU_RCMP                               ; Read In Header
+            READ      ACU_FNLN;ACU_FNAM                          ; Read in filename
+            P_ACCESS  ACU_ACS                                    ; Print File Access Flag
+            PSTRING   0;ACU_FNLN;ACU_FNAM                        ; Print File Name
+            FILETYPE  ACU_FTYP                                   ; Print File Type
+            PDATE     ACU_MDAT                                   ; Print Prodos Date
+            PTIME     ACU_MTIM                                   ; Print Prodos Time
+            AUXTYPE   ACU_AUX                                    ; Print Aux Type
+; Add Uncompressed EOF's
+            ADD       LONG;ACU_REOF;LONG;ACU_DEOF;LONG;RDEOF
+            DECOUT    8;3;RDEOF                                  ; Print File Size
+            TWOSPACE
+            LDX       #0
+            LDA       ACU_DSIZ
+            ORA       ACU_DSIZ+1
+            ORA       ACU_DSIZ+2
+            ORA       ACU_DSIZ+3
+            BEQ       :USEFORK
+
+            INX
+:USEFORK    LDA       ACU_RCMP,X                                 ; Print The Format
+            CMP       #3+1                                       ; Valid format?
+            BLT       :FMTOK                                     ; Yes
+            LDA       #1                                         ; Make it unknown
+:FMTOK      ASL
+            TAY
+            LDX       :FORMATS,Y
+            LDA       :FORMATS+1,Y
+            JSR       PRINTFMT
+; Add Compressed EOF's
+            ADD       LADR;ACU_RSIZ;LADR;ACU_DSIZ;LADR;RDSIZ
+; Print Compression Percent
+            PERCENT   LADR;RDSIZ;LADR;RDEOF
+            CROUT
+            BIT       INTOUT
+            BMI       :ACUDONE
+
+            LDA       ACU_RECS
+            BNE       :DECREC
+            DEC       ACU_RECS+1
+:DECREC     DEC       ACU_RECS
+            LDA       ACU_RECS
+            ORA       ACU_RECS+1
+            BEQ       :ACUDONE
+
+; Add In Header Length
+            ADD       LADR;LASTMARK;WORD;ACU_HLEN;LADR;LASTMARK
+; Add In Filename Length
+            ADD       LADR;LASTMARK;WORD;ACU_FNLN;LADR;LASTMARK
+; Add In Compressed EOF's
+            ADD       LADR;LASTMARK;LADR;RDSIZ;LADR;LASTMARK
+            PUTMARK   LASTMARK
+            JMP       :ACULOOP
+
+:ACUDONE    RTS
+
+:FORMATS    DA        STORE
+            DA        UNK
+            DA        UNK
+            DA        HUFF
+
diff --git a/SOURCE/LISTER/APL.S b/SOURCE/LISTER/APL.S
new file mode 100644
index 0000000..81bafc2
--- /dev/null
+++ b/SOURCE/LISTER/APL.S
@@ -0,0 +1,323 @@
+*=================================================
+* APPLESINGLE  (APPLE)
+* APPLEDOUBLE  (APPLE)
+*=================================================
+* Master Header
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+APL_MAG     ADRL      0                                    ; Magic Number Field
+;   Single (00051600)
+;   Double (00051607)
+APL_VER     ADRL      0                                    ; Version Number
+;   (00010000)
+APL_OS      DS        16                                   ; ID String
+; 'ProDOS          '
+; 'Macintosh       '
+; 'MS-DOS          '
+; 'Unix            '
+; 'VAX VMS         '
+APL_RECS    DA        0                                    ; Number Of Entries In File
+*
+*-------------------------------------------------
+* File Header
+*-------------------------------------------------
+*
+APL_E_ID    ADRL      0                                    ; Entry ID
+*
+* APL_E_ID   1    Data Fork
+*            2    Resource Fork
+*            3    Real Name
+*                   (The File's Name In The Home File System)
+*            4    Comment*
+*                   (Standard Macintosh Comment)
+*            5    Icon, B&W*
+*                   (Standard Macintosh Black And White Icon)
+*            6    Icon, Color*
+*                   (Reserved For Macintosh Color Icon)
+*            7    File Info
+*                   (File Attributes, Dates, Etc.)
+*            9    Finder Info*
+*                   (Standard Macintosh Finder Info)
+*          100    Data File Pathname
+*
+APL_OFS     ADRL      0                                    ; Offset From File Start To Entry Data
+APL_ELEN    ADRL      0                                    ; Length Of Entry
+*
+* Standard Entries: See SINENTID
+*
+* ProDOS: SINENTID = 7
+*
+APL_CDAT    DA        0                                    ; Creation Date, ProDOS 8 Format.
+            DA        0                                    ; Creation Time, ProDOS 8 Format.
+APL_MDAT    DA        0                                    ; Modification Date, ProDOS 8 Format.
+APL_MTIM    DA        0                                    ; Modification Time, ProDOS 8 Format.
+APL_ACS     DA        0                                    ; The File's Access.
+; This May Be Used Directly In ProDOS 16
+; Or GS/OS Calls; Only The Low Byte Is
+; Significant To ProDOS 8.
+APL_FTYP    DA        0                                    ; The File Type Of The Original File.
+; Only The Low Byte Is Significant To ProDOS 8.
+APL_ATYP    ADRL      0                                    ; The Auxiliary Type Of The Original File.
+            DEND                                           ; Only The Low Word Is Significant To ProDOS 8.
+*
+* Macintosh:
+*
+            DUM       APL_CDAT
+            ADRL      0                                    ; Seconds From Jan 1, 1904
+;   To File Create Time
+APL_MMDT    ADRL      0                                    ; Seconds From Jan 1, 1904
+;   To File Last Mod Time
+            ADRL      0                                    ; Seconds From Jan 1, 1904
+;   To File Last Backup Time
+APL_ATR     ADRL      0                                    ; Flags.  Bit0 = Locked, Bit1 = Protected
+            DEND
+*
+* MS-DOS:
+*-------------------------------------------------
+* MS-DOS Attribute Flags:
+*
+* Bit 7: Not Used
+*     6: Not Used
+*     5: File Not Archived
+*     4: Subdirectory File
+*     3: Volume Label
+*     2: System File
+*     1: Hidden File
+*     0: File Is Read-Only
+*-------------------------------------------------
+
+            DUM       APL_CDAT
+APL_MSDT    ADRL      0                                    ; MS-DOS Format Modification Date.
+APL_MSAT    DA        0                                    ; MS-DOS Attributes.
+            DEND
+*
+* Unix:
+*
+            DUM       APL_CDAT
+            ADRL      0                                    ; Unix Creation Date And Time.
+            ADRL      0                                    ; Unix Time
+;   Last Time This File Was Used.
+            ADRL      0                                    ; Unix Time
+;   Last Time This File Was Modified.
+            DEND
+*
+* The Finder Info Entry: SINENTID = 9
+*
+            DUM       APL_CDAT
+            DS        16                                   ; IoFlFndrInfo
+            DS        16                                   ; ExtioFlFndrInfo
+            DEND
+
+            DUM       DATABUF
+APL_FNAM    DS        64
+            DEND
+*
+DO_APL      ZEROSEEK
+DO_APL2     GETMARK   START
+            READ      26;APL_MAG                           ; Read In Master Header
+            LDA       APL_MAG+3
+            BNE       :DO_DBL
+
+            PRINT     'AppleSingle V'
+            JMP       :DO_VER
+
+:DO_DBL     PRINT     'AppleDouble V'
+:DO_VER     REVLONG   APL_VER
+            DECOUT    $80;1;APL_VER+2
+            PRINT     '.'
+            DECOUT    $80;1;APL_VER
+            PRINT     '  OS: '
+            JSR       :CHECKID
+            LDA       OSID
+            BPL       :OSOK
+
+            JSR       SHOWSTR
+            ASC       'Unknown'0D0D
+            ASC       'OPERATION ABORTED'0D8D
+            RTS
+
+:OSOK       PSTRING   0;#16;APL_OS                         ; Show Operating System
+            LDX       #3                                   ; Zero Any Old Length
+            LDA       #0
+:ZLOOP      STA       CDLEN,X
+            DEX
+            BPL       :ZLOOP
+
+:ENTLOOP    READ      12;APL_E_ID                          ; Read In Entry
+            CPX       #7                                   ; Is It An Info Entry?
+            BEQ       :INFO                                ; Yes
+
+            CPX       #100                                 ; Data Filename?
+            BEQ       :DFILE                               ; Yes
+
+            CPX       #4                                   ; Is It Not Needed?
+            BGE       :COUNTDN                             ; Throw It Out
+            DEX                                            ; Data Thread?
+            BEQ       :ADDLEN                              ; Yes
+            DEX                                            ; Resource Thread?
+            BEQ       :ADDLEN                              ; Yes
+
+            LDX       #<FNOFS                              ; Save Filename Info
+            LDA       #>FNOFS
+            JSR       :REVINFO
+            JMP       :COUNTDN
+
+:INFO       LDX       #<INFOFS                             ; Save File Info Info
+            LDA       #>INFOFS
+            JSR       :REVINFO
+            JMP       :COUNTDN
+
+:DFILE      LDX       #<DATOFS                             ; Save Data Filename Info
+            LDA       #>DATOFS
+            JSR       :REVINFO
+            JMP       :COUNTDN
+
+:ADDLEN     REVLONG   APL_ELEN                             ; Add In Thread Length
+            ADD       LONG;CDLEN;LONG;APL_ELEN;LONG;CDLEN
+:COUNTDN    LDA       APL_RECS+1                           ; Count Down Threads
+            BNE       :DEC1
+            DEC       APL_RECS
+:DEC1       DEC       APL_RECS+1
+            LDA       APL_RECS+1                           ; More Threads?
+            ORA       APL_RECS
+            BNE       :ENTLOOP                             ; Yes
+
+:RDSTUFF    LDA       APL_MAG+3                            ; Doing AppleDouble?
+            BEQ       :DO_SNG                              ; Nope
+
+            LDA       DATOFS                               ; Any Data Filename
+            ORA       DATOFS+1
+            ORA       DATOFS+2
+            BEQ       :DO_SNG
+
+            LDX       DATOFS                               ; Point To Data File Name
+            LDA       DATOFS+1
+            LDY       DATOFS+2
+            JSR       :SETMARK
+            READ      DATLEN;APL_FNAM                      ; Read In Pathname
+            JSR       SHOWSTR                              ; Show It
+            DB        Cr,Cr
+            DCI       'Data File Pathname: '
+            PSTRING   $80;APL_FNAM;APL_FNAM+1
+:DO_SNG     LDX       FNOFS                                ; Point To Filename
+            LDA       FNOFS+1
+            LDY       FNOFS+2
+            JSR       :SETMARK
+            READ      FNLEN;APL_FNAM                       ; Read In Filename
+            LDX       INFOFS                               ; Point To Information
+            LDA       INFOFS+1
+            LDY       INFOFS+2
+            JSR       :SETMARK
+            READ      INFLEN;APL_CDAT                      ; Read In Information
+            LDX       OSID                                 ; ProDOS Data?
+            BNE       :ID1                                 ; Nope
+
+            APPLE                                          ; No Compression
+            REVWORD   APL_ACS
+            P_ACCESS  APL_ACS                              ; Print File's Access
+; Print Filename
+            PSTRING   0;FNLEN;APL_FNAM
+            REVWORD   APL_FTYP
+            FILETYPE  APL_FTYP                             ; Show File Type
+            REVWORD   APL_MDAT                             ; Show ProDOS Date/Time
+            REVWORD   APL_MTIM
+            PDATE     APL_MDAT
+            PTIME     APL_MTIM
+            REVWORD   APL_ATYP
+            AUXTYPE   APL_ATYP                             ; Show aux type
+            JMP       :DO_SIZE
+
+:ID1        DEX                                            ; Macintosh Info?
+            BNE       :ID2                                 ; Nope
+
+            MSDOS                                          ; No Compression
+            REVWORD   APL_ATR
+            M_ACCESS  APL_ATR                              ; Print File's Access
+; Print Filename
+            PSTRING   0;FNLEN;APL_FNAM
+            MACDT     APL_MMDT                             ; Show Macintosh Date/Time
+            JMP       :DO_SIZE
+
+:ID2        DEX                                            ; MS-DOS Info?
+            BNE       :ID3                                 ; Nope
+
+            MSDOS                                          ; No Compression
+            REVWORD   APL_MSAT
+            M_ACCESS  APL_MSAT
+            REVWORD   APL_MSDT                             ; Show MS-DOS Date/Time
+            REVWORD   APL_MSDT+2
+            MDATE     APL_MSDT
+            MTIME     APL_MSDT+2
+            JMP       :DO_SIZE
+
+:ID3        JSR       SHOWSTR                              ; All Others, No Date/Time
+            ASC       ' Filename'
+            DB        1,14,' '
+            ASC       'Size'0D
+            ASC       ' '
+            DB        1,18,'-'
+            ASC       '  '
+            DB        1,8,'-'
+            DB        $D," "
+; Print Filename
+            PSTRING   0;FNLEN;APL_FNAM
+:DO_SIZE    DECOUT    8;WORD;CDLEN                         ; Show Code Length
+            CROUT
+            RTS
+
+:REVINFO    PHA                                            ; Move Entry Info
+            TXA
+            PHA
+            REVLONG   APL_OFS
+            REVLONG   APL_ELEN
+            PLA
+            STA       TEMP
+            PLA
+            STA       TEMP+1
+            LDY       #7
+:LOOP       LDA       APL_OFS,Y
+            STA       (TEMP),Y
+            DEY
+            BPL       :LOOP
+            RTS
+
+:CHECKID    LDX       #0                                   ; Find OS Type
+            STX       OSID
+            LDY       #0
+:CKLOOP     LDA       OSID                                 ; Get System ID Number
+            ASL                                            ; Multiply By 16
+            ASL
+            ASL
+            ASL
+            TAX
+:TESTIT     LDA       APL_OS,Y                             ; Compare Characters
+            CMP       :OSNAMES,X
+            BNE       :NEXTOS                              ; Not This One
+
+            INX                                            ; Check Next Character
+            INY
+            CPY       #16                                  ; Done With This Item?
+            BNE       :TESTIT                              ; Nope, Continue
+
+            RTS
+
+:NEXTOS     INC       OSID
+            LDA       OSID
+            CMP       #5
+            BLT       :CKLOOP
+
+            LDA       #-1
+            STA       OSID
+            RTS
+
+:SETMARK    JSR       ADDXAY                               ; Set Mark, Adding In Start
+            DA        START
+            JMP       SET_POS
+
+:OSNAMES    ASC       'ProDOS          '
+            ASC       'Macintosh       '
+            ASC       'MS-DOS          '
+            ASC       'Unix            '
+            ASC       'VAX VMS         '
+
diff --git a/SOURCE/LISTER/ARC.S b/SOURCE/LISTER/ARC.S
new file mode 100644
index 0000000..cf55626
--- /dev/null
+++ b/SOURCE/LISTER/ARC.S
@@ -0,0 +1,138 @@
+*=================================================
+* ARC/PAK (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    File Header 1
+*         File 1
+*    File Header 2
+*         File 2
+*    .
+*    .
+*    File Header N
+*         File N
+* EOF
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+            DUM      HDRBUF
+ARC_ID      DB       26
+ARC_MTHD    DB       0                            ; Method
+*
+* ARC_MTHD  0  Stored    No Compression Used
+*           1  Packed    Repeated Running Length Encoding (RLE)
+*           2  Squeezed  Huffman Encoding
+*           3  Crunched  LZW, 4K, 12 Bit
+*           4  Crunched  Packing, LZW, 4K, 12 Bit
+*           5  Crunched  Packing, LZW, 4K, 9-12 Bit
+*           6  Squashed  LZW, 8K, 9-13 Bits
+*           7  Crushed   Packing, LZW, 8K, 2-13 Bit (PAK 1.0)
+*           8  Distill   Dynamic Huffman, 8K (PAK 2.0)
+*
+ARC_FNAM    DS       12                           ; Filename
+            DB       0
+ARC_NSIZ    ADRL     0                            ; Compressed Size
+ARC_DATE    DW       0                            ; File Date (MSDOS)
+ARC_TIME    DW       0                            ; File Time (MSDOS)
+            DW       0                            ; File CRC-16
+ARC_OSIZ    ADRL     0                            ; Uncompressed Size
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Beginning Of File Data = Beginning Of File Header + 29
+*
+* Next File Header = Beginning Of File Header + 29 + ARC_NSIZ
+*      Or
+*                  = Beginning Of File Data + ARC_NSIZ
+*
+*ARC
+*
+DO_ARC      ZEROSEEK
+            PRINT    'ARC'
+            MSDOS    1                            ; Show List Header
+:ARCLOOP    BIT      INTOUT
+            BMI      :ARCDONE
+
+            LDX      #28                          ; Zero Out Header Buffer
+            LDA      #0
+:0LOOP      STA      ARC_ID,X
+            DEX
+            BPL      :0LOOP
+
+            READ     #2;ARC_ID                    ; Read In Next Header
+            LDA      ARC_ID                       ; Test Entry Validity
+            CMP      #$1A
+            BNE      :ARCDONE
+
+            LDA      ARC_MTHD                     ; Check For Valid Method
+            BEQ      :ARCDONE
+
+            CMP      #9
+            BLT      :SHOWENT
+
+:ARCDONE    RTS
+
+:SHOWENT    LDY      #23
+            CMP      #1
+            BEQ      :RDHDR
+
+            LDY      #27
+:RDHDR      JSR      DO_READ
+            DA       ARC_FNAM
+            SPACE                                 ; No Attribute Byte
+            CSTRING  0;ARC_FNAM                   ; Print The Filename
+            MDATE    ARC_DATE                     ; Print File Date
+            MTIME    ARC_TIME                     ; Print File Time
+            LDA      ARC_MTHD
+            CMP      #1
+            BNE      :SIZE1
+
+; Print Old Storage Size
+            DECOUT   8;LONG;ARC_NSIZ
+            JMP      :SIZE2
+
+; Print Original Size
+:SIZE1      DECOUT   8;LONG;ARC_OSIZ
+:SIZE2      TWOSPACE
+            LDA      ARC_MTHD                     ; Show Packing Method
+            CMP      #8+1                         ; Valid format?
+            BLT      :METHOK                      ; Yes
+            LDA      #9                           ; Make it unknown
+:METHOK     ASL
+            TAY
+            LDX      :METHODS,Y
+            LDA      :METHODS+1,Y
+            JSR      PRINTFMT
+            LDA      ARC_MTHD
+            CMP      #1
+            BNE      :DOPER
+
+            PRINT    ' 100%'
+            JMP      :NOCMP
+
+; Print Compaction Percent
+:DOPER      PERCENT  LONG;ARC_NSIZ;LONG;ARC_OSIZ
+:NOCMP      CROUT                                 ; Next Line
+            JSR      GET_MARK
+            JSR      ADDXAY                       ; Add Compressed Code Size
+            DA       ARC_NSIZ
+            JSR      SET_POS                      ; Point To Next Entry
+            JMP      :ARCLOOP                     ; Do Next Entry
+
+:METHODS    DA       STORE
+            DA       PACK
+            DA       SQU
+            DA       CRUNCH
+            DA       CRUNCH
+            DA       CRUNCH
+            DA       SQUASH
+            DA       CRUSH
+            DA       DISTILL
+            DA       UNK
+
diff --git a/SOURCE/LISTER/ARJ.S b/SOURCE/LISTER/ARJ.S
new file mode 100644
index 0000000..d875f33
--- /dev/null
+++ b/SOURCE/LISTER/ARJ.S
@@ -0,0 +1,120 @@
+*=================================================
+* ARJ    (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    File Header 1
+*         File data 1
+*    File Header 2
+*         File data 2
+*    .
+*    .
+*    File Header N
+*         File data N
+* EOF
+*
+*-------------------------------------------------
+* MASTER HEADER
+*-------------------------------------------------
+*
+            DUM    DATABUF
+ARJ_ID      DW     $EA60       ;header id (main and local file)
+;0xEA60 or 60000U
+BASHDRSZ    DW     0           ;basic header size
+;(from 'first_hdr_size' thru
+;'comment' below)
+; = first_hdr_size +
+; strlen(filename) + 1 +
+; strlen(comment) + 1
+; = 0 if end of archive
+HDRSIZE     DB     0           ; size up to and including 'extra data'
+ARJVER      DB     0           ; archiver version number
+ARJXVER     DB     0           ; minimum version to extract
+ARJOS       DB     0           ; host OS
+*
+*  Operating system types
+*
+ARJMSDOS    =      0
+ARJPRIM     =      1
+ARJUNIX     =      2
+ARJAMIGA    =      3
+ARJMAC      =      4
+*
+ARJFLAGS    DB     0           ; arj flags
+*
+*  Flag bits
+*
+GARBLED     =      %00000001   ; passworded file
+VOLUME      =      %00000100   ; continued file to next volume
+EXFILE      =      %00001000   ; file starting position field
+PATHSYM     =      %00010000   ; path translated ("\" changed to "/")
+*
+ARJMETH     DB     0           ; compression method
+*
+* Compression methods
+*
+ARJSTOR     =      0           ; stored
+ARJLZW1     =      1           ; LZW/HUF-1
+ARJLZW2     =      2           ; LZW/HUF-2
+ARJLZW3     =      3           ; LZW/HUF-3
+ARJLZW4     =      4           ; LZW/PLUNA
+*
+ARJFTYPE    DB     0           ; file type
+*
+*  File type codes
+*
+ARJBIN      =      0           ; binary
+ARJTEXT     =      1           ; 7-bit text
+ARJCOMHD    =      2           ; comment header
+ARJDIR      =      3           ; directory
+ARJVOL      =      4           ; volume label
+*
+ARJRES      DB     0           ; reserved
+ARJDATE     ADRL   0           ; date time modified
+ARJCOMP     ADRL   0           ; compressed size
+ARJSIZE     ADRL   0           ; original size
+ARJFCRC     ADRL   0           ; file's CRC
+ARJSPEC     DW     0           ; filespec position in filename
+ARJACCS     DW     0           ; file access mode
+ARJDATA     DW     0           ; host data (not used)
+ARJEXTRA    =      *           ; extra data
+*
+*EXTFILST ADRL 0          ; bytes for extended file
+*                         ; starting position when used
+*                         ; present when EXTFILE is set
+*
+*ARJFNAME CSTR ''         ; filename (null-terminated string)
+*ARJCOMM  CSTR ''         ; comment  (null-terminated string)
+*
+*BASCRC  ADRL  0          ; basic header CRC
+*
+*HDR1SZ  DW    0          ; 1st extended header size (0 if none)
+*HDR1    DS    HDR1SZ     ; 1st extended header (not used)
+*HDR1CRC ADRL  0          ; 1st extended header's CRC
+*                         ; not present when 0 extended header size
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* First File Header     = Beginning Of File
+*
+* Beginning of filename = Beginning of header + 2 +
+*                         HDRSIZE + (4 * EXTFILE)
+*
+* Beginning of comment  = Beginning of filename +
+*                         len(FILENAME) + 1
+*
+* Begining Of Data      = Beginning Of comment +
+*                         len(COMMENT) + 1 + 4
+*
+* Next File Header      = Begining of Data + ARJCOMP
+*
+DO_ARJ      ZEROSEEK
+            JSR    SHOWSTR
+            PRINT  'ARC'
+            MSDOS              ; Show List Header
+:ARJLOOP
+
diff --git a/SOURCE/LISTER/BLU.S b/SOURCE/LISTER/BLU.S
new file mode 100644
index 0000000..3d84369
--- /dev/null
+++ b/SOURCE/LISTER/BLU.S
@@ -0,0 +1,214 @@
+*=================================================
+* BINARY ][
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    File Header 1
+*         File 1
+*    File Header 2
+*         File 2
+*    .
+*    .
+*    File Header N
+*         File N
+* EOF
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+BLU_ID1     DB        10                   ; ID Bytes
+BLU_ID2     ASC       'GL'                 ; Authors Initials - Gary Little
+BLU_ACS     DB        0                    ; ProDOS 8 Access Code
+BLU_FTYP    DB        0                    ; ProDOS 8 File Type
+BLU_AUX     DA        0                    ; ProDOS 8 Auxiliary Type
+            DB        0                    ; ProDOS 8 Storage Type
+            DW        0                    ; Size Of File In 512-Byte Blocks
+BLU_MDAT    DW        0                    ; Date Of Modification
+BLU_MTIM    DW        0                    ; Time Of Modification
+            DW        0                    ; Date Of Creation
+            DW        0                    ; Time Of Creation
+            DB        2                    ; ID Byte
+            DS        1                    ; Reserved
+BLU_EOF     DS        3                    ; End-Of-File (EOF) Position
+BLU_FNLN    DB        0                    ; Length Of Filename Or Partial Pathname
+BLU_FNAM    DS        15                   ; ASCII Filename Or Partial Pathname
+; If The Filename Is A Partial Pathname
+; It Will Overwrite The Following
+; 2 Segments For Native Filename
+            DB        0                    ; Length Of Native Filename
+            DS        48                   ; ASCII Native Filename
+            DS        21                   ; Reserved, Must Be Zero
+            DW        0                    ; GS/OS Aux Type (High Word)
+            DB        0                    ; GS/OS Access Code (High Byte)
+            DB        0                    ; GS/OS File Type Code (High Byte)
+            DB        0                    ; GS/OS Storage Type Code (High Byte)
+            DW        0                    ; GS/OS Size Of File In Blocks (High Word)
+BLU_GEOF    DB        0                    ; GS/OS EOF Position (High Byte)
+            ADRL      0                    ; Disk Space Needed (512 Byte Blocks)
+            DB        0                    ; Operating System Type
+*
+*  0  ProDOS Or SOS
+*  1  DOS 3.3
+*  2  Reserved
+*  3  DOS 3.2 Or DOS 3.1
+*  4  Apple II Pascal
+*  5  Macintosh MFS
+*  6  Macintosh HFS
+*  7  Macintosh XL
+*  8  Apple CP/M
+*  9  Reserved
+*  A  MS-DOS
+*  B  High Sierra (CD-ROM)
+*  C  ISO 9660 (CD-ROM)
+*  D  AppleShare
+*
+            DW        0                    ; Native File Type Code
+            DB        0                    ; Phantom File Flag
+*
+*  0   [Generic]
+*  1   Point-To-Point
+*  2   Tele-Master Comm Sys
+*  3   ProTERM
+*  4   Modem MGR
+*  5   CommWorks
+*  6   MouseTalk
+* 100  Option List
+*
+            DB        0                    ; Data Flags
+*
+*  7  Data Is Compressed (SQUeezed)
+*  6  Data Is Encrypted
+*  0  File Is Sparse/Packed
+*
+* SQUEEZED  Huffman Squeeze. The Filename Will Have '.QQ'
+*           Appended. The First 16 Bytes Of The File Are
+*           The Original Filename Length And Filename, The
+*           Next 14 Bytes Are Identical In Form And Content
+*           To The Apple GetInfo Results And The Bytes 3 -
+*           16 Of The Binary ][ Header. The Rest Of The
+*           File Is Squeezed With Packing.
+*
+BLU_VER     DB        0                    ; Binary II Version Number
+BLU_RECS    DB        0                    ; Number Of Files To Follow
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Beginning Of File Data = Beginning Of File Header + 128
+*
+* Next File Header = Beginning Of File Header + 128 + BLU_FBLK
+*       Or
+*                  = Beginning Of File Data + BLU_FBLK
+*
+DO_BLU      JSR       :RDHDR               ; Read Next Entry
+            JSR       TESTLIBR
+            CMP       #4                   ; Invalid Library?
+            BGE       :BLU                 ; Yes
+
+            PHA
+            LDX       #128                 ; Reset Mark To 128
+            LDA       #0
+            TAY
+            JSR       SET_POS
+            JSR       SHOWSTR              ; Show In Wrapper
+            ASC       'Archive In Binary // Wrapper'0D8D
+            PLA
+            ASL
+            TAX
+            LDA       :LIBSUBS,X
+            STA       TEMP
+            LDA       :LIBSUBS+1,X
+            STA       TEMP+1
+            JMP       (TEMP)
+
+:LIBSUBS    DA        DO_ACU2              ; 0
+            DA        DO_APL2              ; 1
+            DA        DO_APL2              ; 2
+            DA        DO_SHK2              ; 3
+
+:BLU        ZEROSEEK                       ; Re-Read The Header
+            JSR       :RDHDR
+            PRINT     'Binary // V'
+            DECOUT    $80;BYTE;BLU_VER     ; Show Version Number
+            PRINT     '  Records: '
+            LDA       BLU_RECS             ; Get Records Following
+            STA       LASTMARK             ; +1 To Count Current
+            INC       LASTMARK
+            DECOUT    $80;BYTE;LASTMARK
+            APPLE                          ; No Compression
+:BLULOOP    JSR       :SHOWENT             ; Show The Entry
+            LDA       BLU_RECS
+            BEQ       :BLUDONE
+
+            LDA       BLU_FTYP             ; Was It A Directory?
+            CMP       #$F
+            BEQ       :DIRDONE             ; Yes, Skip Length Add
+
+            CLC
+            LDA       BLU_EOF              ; Round Up To Next 128 Byte
+            BEQ       :DO_EOF
+
+            ASL
+            PHP
+            LDA       #0
+            ROR
+            PLP
+            CLC
+            BEQ       :DO_EOF
+
+            ADC       #$80
+:DO_EOF     STA       LASTMARK
+            LDA       BLU_EOF+1
+            ADC       #0
+            STA       LASTMARK+1
+            LDA       BLU_EOF+2
+            ADC       #0
+            STA       LASTMARK+2
+            JSR       GET_MARK             ; Get Current Mark
+            JSR       ADDXAY               ; Add In Record Size
+            DA        LASTMARK
+            JSR       SET_POS
+:DIRDONE    JSR       :RDHDR               ; Read In Header
+            BCS       :BLUDONE             ; If Error, Done
+
+            LDA       BLU_ID1              ; Check Header Id's
+            CMP       #$A
+            BNE       :BLUDONE
+
+            LDA       BLU_ID2
+            CMP       #'G'
+            BNE       :BLUDONE
+
+            LDA       BLU_ID2+1
+            CMP       #'L'
+            BEQ       :BLULOOP
+
+:BLUDONE    RTS
+
+:SHOWENT    P_ACCESS  BLU_ACS              ; Show File Access
+; Show Filename
+            PSTRING   0;BLU_FNLN;BLU_FNAM
+            FILETYPE  BLU_FTYP             ; Show File Type
+            PDATE     BLU_MDAT
+            PTIME     BLU_MTIM             ; And Time
+            AUXTYPE   BLU_AUX              ; Show Aux Type
+            LDA       BLU_EOF              ; Move All Of EOF
+            STA       LASTMARK
+            LDA       BLU_EOF+1
+            STA       LASTMARK+1
+            LDA       BLU_EOF+2
+            STA       LASTMARK+2
+            LDA       BLU_GEOF
+            STA       LASTMARK+3
+            DECOUT    8;LONG;LASTMARK      ; Show Size
+            CROUT
+            RTS
+
+:RDHDR      READ      #128;BLU_ID1         ; Read In Header
+            RTS
+
diff --git a/SOURCE/LISTER/DATA.S b/SOURCE/LISTER/DATA.S
new file mode 100644
index 0000000..6986dd0
--- /dev/null
+++ b/SOURCE/LISTER/DATA.S
@@ -0,0 +1,172 @@
+            LST   OFF
+*=================================================
+* Printable Text
+*=================================================
+
+OSNAME      DA    0
+            DA    :OS0        ; Location Of Each OS Name
+            DA    :OS1
+            DA    :OS2
+            DA    :OS3
+            DA    :OS4
+            DA    :OS5
+            DA    :OS6
+            DA    :OS7
+            DA    :OS8
+            DA    :OS9
+            DA    :OSA
+            DA    :OSB
+            DA    :OSC
+            DA    :OSD
+
+:OS0        ASC   'ProDOS Or SOS'00
+:OS1        ASC   'DOS 3.3'00
+:OS2        ASC   'reserved'00
+:OS3        ASC   'DOS 3.2/1'00
+:OS4        ASC   'Apple II Pascal'00
+:OS5        ASC   'Macintosh MFS'00
+:OS6        ASC   'Macintosh HFS'00
+:OS7        ASC   'Macintosh XL'00
+:OS8        ASC   'Apple CP/M'00
+:OS9        ASC   'reserved'00
+:OSA        ASC   'MS-DOS'00
+:OSB        ASC   'High Sierra (CD-ROM)'00
+:OSC        ASC   'ISO 9660 (CD-ROM)'00
+:OSD        ASC   'AppleShare'00
+
+STORE       ASC   ' Stored '
+CRUNCH      ASC   'Crunched'
+CRUSH       ASC   'Crushed '
+DISTILL     ASC   'Distill '
+HUFF        ASC   'Huffman '
+IMPLODE     ASC   'Imploded'
+LZW         ASC   '  LZW   '
+LZWARI      ASC   'LZW-ARI '
+PACK        ASC   ' Packed '
+REDUCE      ASC   'Reduced '
+RLE         ASC   '  RLE   '
+SHRUNK      ASC   ' Shrunk '
+SQU         ASC   'Squeezed'
+SQUASH      ASC   'Squashed'
+TYPE1       ASC   ' LZW/1  '
+TYPE2       ASC   ' LZW/2  '
+COMP12      ASC   ' Comp12 '
+COMP16      ASC   ' Comp16 '
+DLX1        ASC   'Deluxe/1'
+DLX2        ASC   'Deluxe/2'
+FOLDER      ASC   ' Folder '
+UNK         ASC   'Unknown '
+
+*=================================================
+* Apple //GS Date/Time Format
+*-------------------------------------------------
+
+GSSEC       DB    0           ; Second  - 0 Through 59
+GSMIN       DB    0           ; Minute  - 0 Through 59
+GSHR        DB    0           ; Hour    - 0 Through 23
+GSYR        DB    0           ; Current Year Minus 1900
+GSDAY       DB    0           ; Day     - 0 Through 30
+GSMNTH      DB    0           ; Month   - 0 Through 11, With
+; 0=January
+            DB    0           ; Filler Byte - Reserved = 00
+GSWDAY      DB    0           ; Weekday - 1 Through 7, With
+; 1=Sunday
+
+NODATETX    ASC   '[No Date]'
+
+MTHTXT      ASC   'Jan'
+            ASC   'Feb'
+            ASC   'Mar'
+            ASC   'Apr'
+            ASC   'May'
+            ASC   'Jun'
+            ASC   'Jul'
+            ASC   'Aug'
+            ASC   'Sep'
+            ASC   'Oct'
+            ASC   'Nov'
+            ASC   'Dec'
+            ASC   '???'
+
+DSTR        ASC   '01-Jan-90'
+TSTR        ASC   '12:00:00 '
+
+*=================================================
+* Constants
+*=================================================
+
+SEVEN       DB    7           ; Days In Week
+
+SECMIN      DB    60          ; Seconds In A Minute
+SECHOUR     DA    3600        ; Seconds In An Hour
+SECDAY      ADRL  86400       ; Seconds In A Day
+SECYEAR     ADRL  31536000    ; Seconds In A Year
+SEC4YEAR    ADRL  126230400   ; Seconds In 4 Years
+
+MTHLENS     DB    31,28,31,30,31,30,31,31,30,31,30,31
+
+CODEEND     =     *
+
+*=================================================
+* Temporaries And Work Areas
+*=================================================
+
+LIBTYPE     DB    0
+
+LASTMARK    ADRL  0
+
+RESLEN      DB    0
+
+NUMB        DS    4           ; Number Being Worked On
+DATA        DS    9           ; Second Number Or Work Area
+REMAIN      DS    4           ; Divide Remainder (MOD)
+RESULT      DS    11          ; Result Of Multiply/Divide Or Mod
+SAVE        DS    4           ; Used In Divide/Mod Only
+
+SECS        ADRL  0           ; Seconds From 1904
+SECTEMP     ADRL  0
+LYEARS      DW    0           ; Number Of Leap Years
+YRSAVE      DB    0           ; Number Of Remaining Years
+
+START       =     *
+            DUM   START       ; AppleSingle/AppleDouble
+            DS    3           ; Apl Sng/Dbl Start Mark
+OSID        DB    0           ; Apl Operating System ID
+FNOFS       ADRL  0           ; Apl Filename Offset
+FNLEN       ADRL  0           ; Apl Filename Length
+CDLEN       ADRL  0           ; Apl Code Length
+INFOFS      ADRL  0           ; Apl File Info Offset
+INFLEN      ADRL  0           ; Apl File Info Length
+DATOFS      ADRL  0           ; Apl Data Offset
+DATLEN      ADRL  0           ; Apl Data Length
+            DEND
+
+            DUM   START       ; ZIP Work Area
+CENTMRK     DS    3           ; Zip Central Dir Mark
+            DEND
+
+            DUM   START       ; ShrinkIt Work Area
+PASSNO      DB    0           ; Shk Archive Pass Number
+CUR_REC     ADRL  0           ; Shk Current Record
+STRTMARK    ADRL  0           ; Shk Archive Start Mark
+THRMARK     ADRL  0           ; Shk Thread Start Mark
+TCOUNT      ADRL  0           ; Shk Thread Count
+ENDTHRD     ADRL  0           ; Shk End Of Thread Records
+SHK_NFNL    DW    0           ; Shk New Filename Length
+FNAMOFFS    ADRL  0           ; Shk Filename Offset
+SHK_NCML    DW    0           ; Shk New Comment Length
+COMOFFS     ADRL  0           ; Shk Comment Offset
+TCOMPR      ADRL  0           ; Shk Thread Compressed Len
+TUCOMPR     ADRL  0           ; Shk Thread Uncomp Len
+OCOMPR      ADRL  0           ; Shk Other Comp Size
+COMMENTS    DB    0           ; Shk Comments Available Flag
+SHK_DSK     DB    0           ; Shk Showing A Disk
+            DEND
+
+            DUM   START       ; ACU Work Area
+RDEOF       ADRL  0           ; Acu Eof
+RDSIZ       ADRL  0           ; Acu Size
+            DEND
+
+LOWSUBS     =     *
+
diff --git a/SOURCE/LISTER/DOS.S b/SOURCE/LISTER/DOS.S
new file mode 100644
index 0000000..68519b4
--- /dev/null
+++ b/SOURCE/LISTER/DOS.S
@@ -0,0 +1,125 @@
+            JMP   BEGIN
+
+            HEX   EEEE
+            DB    65
+FLNAME      DS    65
+REFNUM      DB    0
+
+BEGIN       STA   DISP40      ; Clear //E 80 Column
+            STA   CLR80STO    ; Clear 80 Column Store
+            JSR   MONSNORM    ; Init Monitor
+            JSR   MONINIT
+            JSR   MONSKBD
+            JSR   MONSVID
+            LDA   #<:QUIT
+            STA   $3F2
+            LDA   #>:QUIT
+            STA   $3F2+1
+            EOR   #$A5
+            STA   $3F4
+            LDA   #<SLOT3     ; Set Up For Slot 3
+            STA   CSW
+            LDA   #>SLOT3
+            STA   CSW+1
+            LDA   #Cls        ; Clear The Screen
+            JSR   COUT
+            LDA   #0
+            STA   INTOUT
+            JSR   LISTER
+            JSR   SHOWSTR
+            DB    Cr
+            DCI   'Press A Key'
+:WAIT       LDA   KYBD
+            BPL   :WAIT
+            BIT   KBDSTRB
+:QUIT       JSR   MLI
+            DB    $65
+            DA    :QLIST
+            BRK
+
+:QLIST      DB    4
+            DS    6
+
+COUT        PHA
+            ORA   #$80
+            JSR   MONCOUT
+            LDA   KYBD
+            BPL   :DONE
+
+            CMP   #$93
+            BNE   :INT
+
+            BIT   KBDSTRB
+:LOOP       LDA   KYBD
+            BPL   :LOOP
+            BMI   :EXIT
+
+:INT        LDA   KYBD
+            STA   INTOUT
+:EXIT       BIT   KBDSTRB
+:DONE       PLA
+            RTS
+
+INTOUT      DB    0
+
+GOBCOM
+MOVNAME
+DO_SED      RTS
+
+OPEN        JSR   MLI
+            DB    Open
+            DW    :OPENLST
+            BCS   :OPEN2
+
+            LDA   :OPENREF    ; Save Refnum
+            HEX   2C
+:OPEN2      LDA   #-1         ; Make A Bad Refnum
+            STA   REFNUM
+            RTS
+
+:OPENLST    DB    3
+            DW    FLNAME
+            DW    FBUF1
+:OPENREF    DB    0
+
+CLOSE       LDA   REFNUM
+            STA   :CLFLREF
+            JSR   MLI
+            DB    Close       ; *** Modified ***
+            DW    :CLFLLST
+            RTS
+
+:CLFLLST    DB    1
+:CLFLREF    DB    0
+
+SET_POS     STX   MARK
+            STA   MARK+1      ; Point To New Location
+            STY   MARK+2
+            LDA   REFNUM
+            STA   MARKREF     ; Save Refnum
+            JSR   MLI
+            DB    Setmark
+            DW    MARKLST
+            RTS
+
+MARKLST     DB    2
+MARKREF     DB    0
+MARK        DB    0,0,0
+
+GET_MARK    LDA   REFNUM      ; $CF Save Refnum
+            STA   MARKREF
+            JSR   MLI
+            DB    Getmark
+            DW    MARKLST
+            LDX   #0
+            TXA
+            TAY
+            BCS   :GETMRK2    ; Opps, Error
+
+            LDX   MARK        ; All Is Well
+            LDA   MARK+1
+            LDY   MARK+2
+:GETMRK2    RTS
+
+            DS    \
+
diff --git a/SOURCE/LISTER/LU.S b/SOURCE/LISTER/LU.S
new file mode 100644
index 0000000..92c0de6
--- /dev/null
+++ b/SOURCE/LISTER/LU.S
@@ -0,0 +1,185 @@
+*=================================================
+* LU (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    Master Header
+*    File Header 1
+*    File Header 2
+*    .
+*    .
+*    File Header N
+*    File Data 1
+*    File Data 2
+*    .
+*    .
+*    File Data N
+* EOF
+*
+*-------------------------------------------------
+* MASTER HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+LUMSTAT     DB        0                                       ; Always 0
+            ASC       '        '                              ; Always Blank
+            ASC       '   '                                   ; Always Blank
+            DW        0                                       ; Always 0
+            DW        0                                       ; Never 0
+            DW        0                                       ; CRC-16
+            DW        0                                       ; Create Date
+            DW        0                                       ; Modified Date
+            DW        0                                       ; Create Time
+            DW        0                                       ; Modified Time
+            DB        0                                       ; Should Be 0
+            DS        5                                       ; Filler
+            DEND
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+            DUM       LUMSTAT
+LUSTAT      DB        0                                       ; 00 File Status
+LUFNAME     ASC       '        '                              ; 01 Filename
+            ASC       '   '                                   ; 09 Extension
+            DW        0                                       ; 0C Always 0
+LULEN       DW        0                                       ; 0E Record Length, Blocks
+            DW        0                                       ; 10 CRC-16
+LUCDATE     DW        0                                       ; 12 Create Date
+            DW        0                                       ; 14 Modified Date
+LUCTIME     DW        0                                       ; 16 Create Time
+            DW        0                                       ; 18 Modified Time
+LUPAD       DB        0                                       ; 1A Should Be 0
+            DS        5                                       ; 1B Filler
+            DEND
+
+            DUM       LUMSTAT
+            DB        0                                       ; 00 Record Status
+ALUFNAME    ASC       '        '                              ; 01 Filename
+            ASC       '   '                                   ; 09 Extension
+            DW        0                                       ; 0C Index To Record, Blocks
+            DW        0                                       ; 0E Record Length
+ALUACS      DB        0                                       ; 10 File Access
+ALUFTYP     DB        0                                       ; 11 File Type
+ALUAUX      DW        0                                       ; 12 Aux Type
+ALUMDAT     DW        0                                       ; 14 Modified Date
+ALUMTIM     DW        0                                       ; 16 Modified Time
+ALUEOF      DS        3                                       ; 18 File EOF
+            DS        5                                       ; 1B Filler
+*
+ALUNFNM     DS        1                                       ; 20 New Filename
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Beginning Of File Data = Beginning Of Library
+*                          + (128 * MAST_LEN)
+*
+* Next File Header = Current File Header + 32
+*
+*LU Or ALU
+*
+DO_LU       ZEROSEEK
+            LDA       #0
+            STA       LIBTYPE
+            LDA       #$A2                                    ; Apple // LU?
+            CMP       HDRBUF+62
+            BNE       :LU                                     ; Nope
+
+            CMP       HDRBUF+63
+            BNE       :LU                                     ; Nope
+
+            DEC       LIBTYPE
+            PRINT     'Apple '
+:LU         PRINT     'Library Utility'
+:START      JSR       :RD_DIR                                 ; Read In Library Header
+            LDA       LIBTYPE
+            BEQ       :MSLU
+
+            APPLE                                             ; Show Apple Header
+            JMP       :LULOOP
+
+:MSLU       MSDOS                                             ; Show MS-DOS Header
+:LULOOP     BIT       INTOUT                                  ; Interrupted?
+            BMI       :QUIT                                   ; Yes
+
+            JSR       :RD_DIR                                 ; Read In Directory Entry
+            LDA       LUSTAT                                  ; Active Entry?
+            BNE       :TST_ENT                                ; Yes, Go Print It
+
+            BIT       LIBTYPE
+            BPL       :DO_LU
+
+            JSR       :SHOWALU                                ; Show ALU Entry
+            JMP       :LULOOP
+
+:DO_LU      JSR       :SHOW_LU                                ; Show LU Entry
+            JMP       :LULOOP
+
+:TST_ENT    BIT       LIBTYPE                                 ; Check For Deleted Entry
+            BPL       :LUEND?
+
+            CMP       #-1                                     ; ALU Deleted Flag
+            JMP       :END?
+
+:LUEND?     CMP       #-2                                     ; LU Deleted Flag
+:END?       BEQ       :LULOOP                                 ; Entry Is Deleted
+
+:QUIT       RTS                                               ; Not Deleted, Must Be End
+
+:SHOW_LU    LDY       #7                                      ; Move Main Filename
+            LDX       #0
+:FIXNAME    LDA       LUFNAME,X
+            STA       ALUNFNM,X
+            INX
+            DEY
+            BPL       :FIXNAME
+            LDA       #'.'                                    ; Insert The '.'
+            STA       ALUNFNM,X
+            LDY       #2                                      ; Move The Extension
+:FIXNM2     LDA       LUFNAME,X
+            STA       ALUNFNM+1,X
+            INX
+            DEY
+            BPL       :FIXNM2
+            SPACE                                             ; No Attribute Byte
+            PSTRING   #0;#12;ALUNFNM                          ; Show The Name
+            MDATE     LUCDATE                                 ; Show MS-DOS Date/Time
+            MTIME     LUCTIME
+            LDA       LULEN+1                                 ; Size = Blocks * 128
+            STA       LASTMARK+1
+            LDA       #0
+            STA       LASTMARK+2
+            STA       LASTMARK+3
+            LDA       LULEN
+            LDX       #7
+:MUL128     ASL
+            ROL       LASTMARK+1
+            ROL       LASTMARK+2
+            DEX
+            BNE       :MUL128
+            STA       LASTMARK
+; Size = Size - Pad
+            SUB       BYTE;LUPAD;LADR;LASTMARK;LADR;LASTMARK
+            DECOUT    8;LONG;LASTMARK                         ; Show Entry Length
+            CROUT
+            RTS
+
+:SHOWALU    P_ACCESS  ALUACS                                  ; Show File Access
+            PSTRING   #0;#11;ALUFNAME                         ; Show The Name
+            FILETYPE  ALUFTYP                                 ; Show File Type
+            PDATE     ALUMDAT                                 ; Show ProDOS Date/Time
+            PTIME     ALUMTIM
+            AUXTYPE   ALUAUX                                  ; Show Aux Type
+; Show Entry Length
+            DECOUT    8;LADR;ALUEOF
+            CROUT
+            RTS
+
+:RD_DIR     READ      #32;LUSTAT                              ; Read In A Chunk
+            RTS
+
diff --git a/SOURCE/LISTER/LZH.S b/SOURCE/LISTER/LZH.S
new file mode 100644
index 0000000..16d6672
--- /dev/null
+++ b/SOURCE/LISTER/LZH.S
@@ -0,0 +1,123 @@
+*=================================================
+* LZH  (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    File Header 1
+*         File 1
+*    File Header 2
+*         File 2
+*    .
+*    .
+*    File Header N
+*         File N
+* EOF
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+LZH_HSIZ    DB        0                            ; Header Size
+            DB        0                            ; Cksum Of Remaining Bytes
+LZH_MTHD    ASC       '-Lh0-'                      ; Method
+*
+* LZH_MTHD  0  Stored     -Lh0-  No Compression Used
+*           1  LZW-HUF    -Lh1-  LZW, 4K Buffer
+*                                Huffman For Upper 6 Bits Of Pos
+*           4  LZW-ARI    -Lz4-  LZW, Arithmetic Encoding
+*           5  LZW-ARI    -Lz5-  LZW, Arithmetic Encoding
+*
+LZH_NSIZ    ADRL      0                            ; Compressed Size
+LZH_OSIZ    ADRL      0                            ; Uncompressed Size
+LZH_TIME    DW        0                            ; File Time (MSDOS)
+LZH_DATE    DW        0                            ; File Date (MSDOS)
+LZH_ATRB    DW        0                            ; File Attribute
+LZH_FNLN    DB        0                            ; Filename/Path Length
+LZH_FNAM    DS        1                            ; Filename/Path (Variable Len)
+            DW        0                            ; CRC-16
+            DEND
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Beginning Of File Data = Beginning Of Header + LZH_HSIZ
+*
+* Beginning Of Next File Header = Beginning Of File Data
+*                              + LZH_NSIZ
+*
+DO_LZH      ZEROSEEK
+            PRINT     'LZH'
+            MSDOS     1                            ; Files Are Packed
+:LZHLOOP    BIT       INTOUT
+            BMI       :LZHDONE
+
+            READ      #2;LZH_HSIZ                  ; Read In Header Length
+            LDY       LZH_HSIZ                     ; Set Length
+            BEQ       :LZHDONE
+
+            JSR       DO_READ                      ; Read In Rest Of Header
+            DA        LZH_MTHD
+            LDA       LZH_MTHD                     ; Check For Valid Header
+            CMP       #'-'
+            BNE       :LZHDONE
+
+            LDA       LZH_MTHD+1
+            CMP       #'l'
+            BNE       :LZHDONE
+
+            LDA       LZH_MTHD+2
+            CMP       #'h'
+            BNE       :LZHDONE
+
+            LDA       LZH_MTHD+3
+            AND       #$F0
+            CMP       #'0'
+            BNE       :LZHDONE
+
+            LDA       LZH_MTHD+4
+            CMP       #'-'
+            BNE       :LZHDONE
+
+            JSR       :SHOWENT
+            JSR       GET_MARK
+            JSR       ADDXAY                       ; MARK = MARK + LZH_NSIZ
+            DA        LZH_NSIZ
+            JSR       SET_POS                      ; Point To Next Record
+            JMP       :LZHLOOP                     ; Do Next One
+
+:LZHDONE    RTS
+
+:SHOWENT    M_ACCESS  LZH_ATRB                     ; Show File Access
+; Print File Name
+            PSTRING   #0;LZH_FNLN;LZH_FNAM
+            MDATE     LZH_DATE                     ; Print Date
+            MTIME     LZH_TIME                     ; Print Time
+; Print Entry Size
+            DECOUT    8;LONG;LZH_OSIZ
+            TWOSPACE
+            LDA       LZH_MTHD+3                   ; Print Packing Method
+            AND       #$F
+            CMP       #5+1                         ; Valid format?
+            BLT       :METHOK                      ; Yes
+
+            LDA       #6                           ; Make it unknown
+:METHOK     ASL
+            TAY
+            LDX       :METHODS,Y
+            LDA       :METHODS+1,Y
+            JSR       PRINTFMT
+; Print Packing Percentage
+            PERCENT   LONG;LZH_NSIZ;LONG;LZH_OSIZ
+            CROUT                                  ; Next Line
+            RTS
+
+:METHODS    DA        STORE
+            DA        HUFF
+            DA        UNK
+            DA        UNK
+            DA        LZWARI
+            DA        LZWARI
+
diff --git a/SOURCE/LISTER/MAC.S b/SOURCE/LISTER/MAC.S
new file mode 100644
index 0000000..4b3f720
--- /dev/null
+++ b/SOURCE/LISTER/MAC.S
@@ -0,0 +1,331 @@
+            LST       OFF
+*=================================================
+* MacBinary, MacBinary ][
+*=================================================
+*
+            DUM       HDRBUF
+            DB        0
+MB_FNLEN    DB        0
+MB_FNAME    DS        63
+MB_FTYPE    ASC       '    '                                     ; Standard Finder Info
+MB_CREAT    ASC       '    '
+            DB        0
+            DB        0                                          ; Used For ID
+            DW        0                                          ; Window Vert Pos
+            DW        0                                          ; Window Horiz Pos
+            DW        0                                          ; Window Info
+            DB        0                                          ; Protected In Bit 0
+            DB        0                                          ; Used For ID
+            ADRL      0                                          ; Data Fork Size
+            ADRL      0                                          ; Resource Fork Size
+MB_CDATE    ADRL      0                                          ; Creation Date
+MB_MDATE    ADRL      0                                          ; Modified Date
+            DW        0                                          ; Get Info Length
+            DB        0                                          ; Finder Flags
+            DS        14                                         ; Reserved
+            ADRL      0                                          ; File Size
+            DW        0                                          ; Second Header Length
+            DB        0                                          ; Uploader Version
+            DB        0                                          ; Minimum Uploader Version
+            DW        0                                          ; Header CRC
+            DW        0                                          ; Computer Type
+            DEND
+
+DO_MAC      CPY       #12
+            BEQ       :MAC
+            JMP       DO_SIT
+
+:MAC        PRINT     'MacBinary Wrapper - Filename: '
+; Show Filename
+            PSTRING   #$80;MB_FNLEN;MB_FNAME
+
+            JSR       SHOWSTR                                    ; Print Created Date
+            DB        Cr,Cr
+            DCI       'Created: '
+            MACDT     MB_CDATE
+            PRINT     'Modified: '
+            MACDT     MB_MDATE
+            CROUT
+            CROUT
+            LDX       #3
+:TSTPIT     LDA       MB_FTYPE,X
+            CMP       :PIT,X
+            BNE       :CHKSIT
+
+            DEX
+            BPL       :TSTPIT
+            BMI       DO_PIT
+
+:CHKSIT     LDX       #3
+:TSTSIT     LDA       MB_FTYPE,X
+            CMP       :SIT,X
+            BNE       :SHOWTYP
+
+            DEX
+            BPL       :TSTSIT
+            JMP       DO_SIT2
+
+:SHOWTYP    JSR       SHOWSTR
+            DB        Cr
+            DCI       'Archive Unknown, File Type Is: '
+            PSTRING   #$80;#4;MB_FTYPE
+            TWOSPACE
+            PRINT     'Created By: '
+            PSTRING   #$80;#4;MB_CREAT
+            RTS
+
+:SIT        ASC       'SIT!'
+:PIT        ASC       'PIT '
+
+DO_PIT      JSR       SHOWSTR
+            ASC       'This Is A PackIT File.  PackIT Is Not Supported.'
+            HEX       0D8D
+            RTS
+
+*=================================================
+* STUFFIT  (MACINTOSH)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    Master Header
+*         File Header 1
+*              File 1 Resource Fork
+*              File 1 Data Fork
+*         File Header 2
+*              File 2 Resource Fork
+*              File 2 Data Fork
+*         .
+*         .
+*         File Header N
+*              File N Resource Fork
+*              File N Data Fork
+* EOF
+*
+*-------------------------------------------------
+* MASTER HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+SIT_ID1     ASC       'SIT!'                                     ; 00 STUFFIT Archive Signature
+SIT_RECS    DW        0                                          ; 04 Number Of Files In Archive
+SIT_HLEN    ADRL      0                                          ; 06 Length Of Entire Archive Incl Hdr
+            ASC       'rLau'                                     ; 0A Authors Name - R. Lau
+SIT_VER     DB        0                                          ; 0E Version Number
+            DS        7                                          ; 0F Reserved
+; 16
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+SIT_RMTH    DB        0                                          ; 00 Rsrc Fork Compression Method
+SIT_DMTH    DB        0                                          ; 01 Data Fork Compression Method
+*
+* SIT_RMTH  0  PnoComp      Uncompressed
+*           1  RleComp      RLE Compression
+*           2  LzwComp      LZW Compression, 18K Buffer,
+*                             14 Bit Code Size
+*           3  HufComp      Huffman Compression
+*          16  Encrypted    Bit Set If Encrypted.
+*          32  StartFolder  Marks Start Of A New Folder
+*          33  EndFolder    Marks End Of The Last Folder Started
+*
+SIT_FNLN    DB        0                                          ; 02 File Name Length
+SIT_FNAM    DS        63                                         ; 03 Filename
+SIT_FTYP    ADRL      0                                          ; 42 Filetype
+SIT_CRTR    ADRL      0                                          ; 46 File Creator
+SIT_FFLG    DW        0                                          ; 4A Finder Flags
+            ADRL      0                                          ; 4C Creation Date
+SIT_MDAT    ADRL      0                                          ; 50 Modification Date
+SIT_ROSZ    ADRL      0                                          ; 54 Uncompressed Resource Fork Length
+SIT_DOSZ    ADRL      0                                          ; 58 Uncompressed Data Fork Length
+SIT_RNSZ    ADRL      0                                          ; 5C Compressed Resource Fork Length
+SIT_DNSZ    ADRL      0                                          ; 60 Compressed Data Fork Length
+            DW        0                                          ; 64 Resource Fork CRC
+            DW        0                                          ; 66 Data Fork CRC
+            DB        0                                          ; 68 Pad Bytes For Encrypted Files,
+            DB        0                                          ; 69 Resource And Data Forks
+            DS        4                                          ; 6A Reserved
+            DW        0                                          ; 6E CRC Of File Header
+
+DIRCNT      DB        0                                          ; Directory level count
+DIRPOSN     DS        $10                                        ; NOT PART OF HEADER
+            DEND                                                 ; 70
+
+PATHNAME    =         DATABUF
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* First File Header = SIT_ID1 + 22
+*
+* Beginning Of Resource Fork = SIT_DMTH + 112
+*
+* Beginning Of Data Fork = Beginning Of Resource Fork + SIT_RNSZ
+*
+* Next File Header = Beginning Of Previous Data Fork + SIT_DNSZ
+*       Or
+*            = Previous File Header + 112 + SIT_RNSZ + SITCDLN
+*
+SIT_AOL     ZEROSEEK
+            READ      #32;SIT_RMTH                               ; Read In Header
+            PRINT     'AOL-'
+            JMP       DO_SIT2
+
+DO_SIT      ZEROSEEK
+DO_SIT2     READ      #22;SIT_ID1
+            PRINT     'StuffIt V'
+            DECOUT    $80;BYTE;SIT_VER
+            TWOSPACE
+            PRINT     'Recs: '
+            REVWORD   SIT_RECS
+            DECOUT    $80;WORD;SIT_RECS
+            PRINT     '  Size: '
+            REVLONG   SIT_HLEN
+            DECOUT    $80;LONG;SIT_HLEN
+            APPLE     1                                          ; Show Header
+
+            LDA       #0                                         ; Put dir level to root
+            STA       DIRCNT
+            STA       PATHNAME
+            LDX       #16
+:ZLUP       STA       DIRPOSN,X
+            DEX
+            BPL       :ZLUP
+
+:SITLOOP    READ      #112;SIT_RMTH                              ; Read In Header
+            JSR       :SHOWENT
+            BIT       INTOUT
+            BMI       :SITDONE
+
+            LDA       DIRCNT                                     ; Are we in a directory?
+            BNE       :SKIPCNT                                   ; Yes, don't count records
+
+            LDA       SIT_RECS                                   ; Bump Down File Count
+            BNE       :DECREC
+            DEC       SIT_RECS+1
+:DECREC     DEC       SIT_RECS
+            LDA       SIT_RECS                                   ; Count at zero?
+            ORA       SIT_RECS+1
+            BEQ       :SITDONE                                   ; Yes, exit
+
+:SKIPCNT    LDA       SIT_RMTH                                   ; Get Compression Type
+            CMP       #$20                                       ; Directory start?
+            BNE       :TSTEDIR                                   ; Nope
+
+            INC       DIRCNT                                     ; Increment directory level
+            LDX       PATHNAME
+            INX
+            LDA       #':'
+            STA       PATHNAME+1,X
+            TXA
+            LDX       DIRCNT
+            STA       DIRPOSN,X
+            BNE       :SITLOOP
+
+:TSTEDIR    CMP       #$21                                       ; Directory end?
+            BNE       :NORMENT                                   ; Nope
+
+            DEC       DIRCNT                                     ; Decrement directory level
+            LDX       DIRCNT
+            LDA       DIRPOSN,X
+            STA       PATHNAME
+            BNE       :SITLOOP
+
+:NORMENT    JSR       GET_MARK
+            JSR       ADDXAY                                     ; MARK = MARK + COMPRESSED LENGTHS
+            DA        SIT_DNSZ
+            JSR       SET_POS
+            JMP       :SITLOOP
+
+:SITDONE    RTS
+
+:SHOWENT    LDA       SIT_RMTH                                   ; Get Compression Type
+            CMP       #$21                                       ; End of subdirectory?
+            BEQ       :SITDONE                                   ; Yes, don't show record
+            PHA
+
+            M_ACCESS  SIT_FFLG                                   ; Show File Access
+; Print File Name
+            LDX       DIRCNT
+            LDA       DIRPOSN,X
+            TAY
+            LDX       #0
+:MOVENAM    LDA       SIT_FNAM,X
+            STA       PATHNAME+1,Y
+            INX
+            INY
+            CPX       SIT_FNLN
+            BNE       :MOVENAM
+
+            STY       PATHNAME
+            PSTRING   #0;PATHNAME;PATHNAME+1
+
+            PLA                                                  ; Get compression type
+            PHA
+            CMP       #$20                                       ; Directory start?
+            BEQ       :STDIR                                     ; Yes, type is folder
+
+; Show File Type
+            PSTRING   #$80;#4;SIT_FTYP
+            BRA       :DODATE
+
+:STDIR      PRINT     'FLDR  '
+:DODATE     MACDT     SIT_MDAT                                   ; Print Date
+            REVLONG   SIT_DOSZ
+            REVLONG   SIT_ROSZ
+
+            PLA                                                  ; Get Compression Type
+            PHA
+            CMP       #$20                                       ; Is it directory start?
+            BEQ       :STDIR2                                    ; Yes, Creator is system
+
+; Show Creator
+            PSTRING   #$80;#4;SIT_CRTR
+            BRA       :DOLENS
+
+:STDIR2     PRINT     'OPSY  '                                   ; Operating system
+
+; Add The Original Lengths
+:DOLENS     ADD       LONG;SIT_DOSZ;LONG;SIT_ROSZ;LONG;SIT_DOSZ
+; Print Total Entry Length
+            DECOUT    8;LONG;SIT_DOSZ
+            SPACE
+            REVLONG   SIT_DNSZ
+            REVLONG   SIT_RNSZ
+            PLA                                                  ; Print Compression Type
+            BEQ       :USEDATA
+
+            CMP       #$20                                       ; Directory start?
+            BNE       :DOMETH                                    ; Nope, type unknown
+            LDA       #7                                         ; Show as type FOLDER
+            BNE       :METHOK
+
+:USEDATA    LDA       SIT_DMTH
+:DOMETH     CMP       #5+1                                       ; Valid method?
+            BLT       :METHOK                                    ; Yes
+
+:DOUNK      LDA       #6                                         ; Make it unknown
+:METHOK     ASL
+            TAY
+            LDX       :METHODS,Y
+            LDA       :METHODS+1,Y
+            JSR       PRINTFMT
+; Add Compressed Lengths
+            ADD       LONG;SIT_DNSZ;LONG;SIT_RNSZ;LONG;SIT_DNSZ
+; Print Compression Percent
+            PERCENT   LONG;SIT_DNSZ;LONG;SIT_DOSZ
+            CROUT                                                ; Next Line
+            RTS
+
+:METHODS    DA        STORE
+            DA        RLE
+            DA        LZW
+            DA        HUFF
+            DA        DLX1
+            DA        DLX2
+            DA        UNK
+            DA        FOLDER
+
diff --git a/SOURCE/LISTER/MACROS.S b/SOURCE/LISTER/MACROS.S
new file mode 100644
index 0000000..8699e5a
--- /dev/null
+++ b/SOURCE/LISTER/MACROS.S
@@ -0,0 +1,197 @@
+ZEROSEEK    MAC
+            JSR   MARKZERO
+            <<<
+
+READ        MAC
+            LDY   ]1
+            JSR   DO_READ
+            DA    ]2
+            <<<
+
+PUTMARK     MAC
+            LDX   ]1
+            LDA   ]1+1
+            LDY   ]1+1
+            JSR   SET_POS
+            <<<
+
+GETMARK     MAC
+            JSR   GET_MARK
+            STX   ]1
+            STA   ]1+1
+            STY   ]1+2
+            <<<
+
+PRINT       MAC
+            JSR   SHOWSTR
+            DCI   ]1
+            <<<
+
+APPLE       MAC
+            IF    ]0=0
+            LDA   #0
+            ELSE
+            LDA   #$80
+            FIN
+            JSR   APLHDR
+            <<<
+
+MSDOS       MAC
+            IF    ]0=0
+            LDA   #0
+            ELSE
+            LDA   #$80
+            FIN
+            JSR   MSHDR
+            <<<
+
+CROUT       MAC
+            JSR   DO_CROUT
+            <<<
+
+SPACE       MAC
+            JSR   DO_SPACE
+            <<<
+
+AUXTYPE     MAC
+            JSR   DO_AUX
+            DA    ]1
+            <<<
+
+TWOSPACE    MAC
+            JSR   DO_TWOSP
+            <<<
+
+TWODOTS     MAC
+            JSR   DO_DOTS
+            <<<
+
+CSTRING     MAC
+            LDA   ]1
+            JSR   DO_CSTR
+            DA    ]2
+            <<<
+
+PSTRING     MAC
+            LDA   ]1
+            LDY   ]2
+            JSR   DO_PSTR
+            DA    ]3
+            <<<
+
+REVWORD     MAC
+            JSR   REVTWO
+            DA    ]1
+            <<<
+
+REVLONG     MAC
+            JSR   REVFOUR
+            DA    ]1
+            <<<
+
+PDATE       MAC
+            JSR   PDOSDATE
+            DA    ]1
+            <<<
+
+MDATE       MAC
+            JSR   MSDATE
+            DA    ]1
+            <<<
+
+PTIME       MAC
+            JSR   PDOSTIME
+            DA    ]1
+            <<<
+
+MTIME       MAC
+            JSR   MSTIME
+            DA    ]1
+            <<<
+
+GTIME       MAC
+            JSR   GSTIME
+            DA    ]1
+            <<<
+
+GDATE       MAC
+            JSR   GSDATE
+            DA    ]1
+            <<<
+
+MACDT       MAC
+            JSR   SECONDS
+            DA    ]1
+            <<<
+
+CONVDEC     MAC
+            JSR   BINDEC8
+            STA   ]1
+            STX   ]1+1
+            <<<
+
+DIVIDE      MAC
+            JSR   DO_DIV
+            DB    ]1-1
+            DA    ]2-1
+            DB    ]3-1
+            DA    ]4-1
+            DB    ]5-1
+            DA    ]6-1
+            <<<
+
+ADD         MAC
+            JSR   DO_ADD
+            DB    ]1
+            DA    ]2
+            DB    ]3
+            DA    ]4
+            DB    ]5
+            DA    ]6
+            <<<
+
+SUB         MAC
+            JSR   DO_SUB
+            DB    ]1
+            DA    ]2
+            DB    ]3
+            DA    ]4
+            DB    ]5
+            DA    ]6
+            <<<
+
+DECOUT      MAC
+            JSR   DO_DEC
+            DB    ]1
+            DB    ]2-1
+            DA    ]3
+            <<<
+
+PERCENT     MAC
+            JSR   DO_PER
+            DB    ]1-1
+            DA    ]2
+            DB    ]3-1
+            DA    ]4
+            <<<
+
+STACK       MAC
+            LDA   #]1
+            JSR   ADDSTK
+            <<<
+
+P_ACCESS    MAC
+            JSR   PD_ACCES
+            DA    ]1
+            <<<
+
+M_ACCESS    MAC
+            JSR   M_ACS
+            DA    ]1
+            <<<
+
+FILETYPE    MAC
+            JSR   PRTYPE
+            DA    ]1
+            <<<
+
diff --git a/SOURCE/LISTER/MAIN.S b/SOURCE/LISTER/MAIN.S
new file mode 100644
index 0000000..b27949b
--- /dev/null
+++ b/SOURCE/LISTER/MAIN.S
@@ -0,0 +1,1965 @@
+LISTER
+            DO       ACOS
+            JSR      OPEN                                       ; Open Ourself Again
+            LDA      REFNUM
+            STA      :READREF
+            PUTMARK  #<LOWSUBS-$9E00,#>LOWSUBS-$9E00,#0
+            STA      SET80COL                                   ; Swap In Alt $2000-$3FFF
+            STA      HIRES
+            JSR      SWAP                                       ; ACOS Out
+            JSR      MLI
+            DB       Read
+            DA       :OURREAD
+            JSR      SWAP                                       ; ACOS In
+            JSR      CLOSE                                      ; Close Us
+            JMP      DO_LIST
+
+:OURREAD    DB       4
+:READREF    DB       0
+            DA       $2000
+            DA       $2000
+            DA       0
+            ELSE
+            LDX      #ENDMLI-MLILISTS
+:MVMLI      LDA      MLILISTS,X
+            STA      READLST,X
+            DEX
+            BPL      :MVMLI
+            FIN
+
+DO_LIST     JSR      GOBCOM                                     ; Get Archive Name
+            JSR      MOVNAME
+            JSR      OPEN                                       ; Open It
+            BCS      :NOGOOD                                    ; Not There
+
+            READ     #128;HDRBUF
+            JSR      TESTLIBR
+            CMP      #-1
+            BEQ      :NOGOOD
+
+            DO       ACOS
+            PHA
+            JSR      SWAP                                       ; ACOS Out
+            PLA
+            FIN
+            TAY
+            ASL
+            TAX
+            JSR      :DO_LIBR
+            DO       ACOS
+            JSR      SWAP                                       ; ACOS In
+            BIT      LORES
+            FIN
+            LDA      #0
+:NOGOOD
+            DO       ACOS
+            STA      $A
+            FIN
+            JMP      CLOSE
+
+:DO_LIBR    LDA      LIBSUBS,X
+            STA      TEMP
+            LDA      LIBSUBS+1,X
+            STA      TEMP+1
+            JMP      (TEMP)
+
+            DO       ACOS
+SWAP        LDA      #$20
+            STA      TEMP+1
+            LDA      #0
+            STA      TEMP
+            LDY      #0
+:LOOP       BIT      PAGE1
+            LDA      (TEMP),Y
+            PHA
+            BIT      PAGE2
+            LDA      (TEMP),Y
+            TAX
+            PLA
+            STA      (TEMP),Y
+            BIT      PAGE1
+            TXA
+            STA      (TEMP),Y
+            INY
+            BNE      :LOOP
+            INC      TEMP+1
+            LDA      TEMP+1
+            CMP      #$30
+            BNE      :LOOP
+            RTS
+
+            FIN
+            DO       ACOS
+            ELSE
+MLILISTS    ORG      $300
+            FIN
+
+READLST     DB       4                                          ; MLI read list
+READREF     DB       0
+READBUF     DA       0
+READCNT     DA       0
+            DA       0
+            DO       ACOS
+            ELSE
+            ORG
+ENDMLI      =        *
+            FIN
+*=================================================
+*      Routine Name: TESTLIBR
+*
+*  Input Parameters: None
+*
+* Output Parameters:
+*
+* A = 0  : ACU     (AppleLink Conversion Utility)
+* A = 1  : LBR     (AppleDouble)
+* A = 2  : LBR     (AppleSingle)
+* A = 3  : ARC     (Sea-Arc)
+* A = 4  : BIN     (Binary ][/BLU)
+*          BNY
+*          BQY
+*          BXY
+* A = 5  : LZH
+* A = 6  : SHK     (ShrinkIt)
+* A = 7  : SIT     (StuffIt)
+* A = 8  : SIT     (Stuffit, AOL)
+* A = 9  : ZIP     (PKZIP)
+* A = 10 : ZOO
+* A = 11 : LU      (Library Utility "IBM")
+* A = 12 : MACBIN  (MacBinary)
+* A = 13 : ARJ
+*
+* Purpose: Check For Library Type
+*=================================================
+
+TESTLIBR    LDY      #0
+            STY      LIBTYPE
+            STY      RESLEN
+:LOOP       LDA      FORMATS,Y                                  ; Get Byte Offset
+            CMP      #-1
+            BEQ      :CNTUP                                     ; If -1, Done With Lib
+
+            STA      RESLEN
+            AND      #$7F
+            TAX
+            LDA      HDRBUF,X                                   ; Get Byte To Check
+            BIT      RESLEN
+            BPL      :ABS
+
+            AND      #$7F
+            CMP      #'a'
+            BLT      :OK
+            CMP      #'z'+1
+            BGE      :OK
+            SBC      #$1F
+:OK         CMP      #' '
+            BLT      :GOEND
+            CMP      #'Z'+1
+            BGE      :GOEND
+            BLT      :NXTCHR
+
+:ABS        CMP      FORMATS+1,Y                                ; Does This Work?
+            BNE      :GOEND                                     ; Nope
+
+:NXTCHR     INY                                                 ; Point To Next Byte
+            INY
+            LDX      FORMATS,Y                                  ; End Of Test?
+            CPX      #-1
+            BNE      :LOOP                                      ; Nope
+
+            LDA      LIBTYPE
+            RTS                                                 ; Finished
+
+:GOEND      INY                                                 ; Search For Next -1
+            INY
+            LDA      FORMATS,Y
+            CMP      #-1
+            BNE      :GOEND
+
+:CNTUP      INY                                                 ; Check For End Of Table
+:SKIPLIB    INC      LIBTYPE
+            LDA      FORMATS,Y                                  ; Second -1?
+            CMP      #-1
+            BNE      :LOOP                                      ; Nope
+
+            RTS
+
+*=================================================
+* Library Id Bytes
+*=================================================
+
+FORMATS
+:ACUFMT     DB       4,'f',5,'Z',6,'i',7,'n',8,'k',-1
+:ADOUFMT    DB       0,0,1,5,2,$16,3,7,-1
+:ASINFMT    DB       0,0,1,5,2,$16,3,0,-1
+:NUFXFMT    DB       0,'N',1,"u"
+            DB       2,'F',3,"i",4,'l',5,"e",-1
+:B2FMT      DB       0,$A,1,'G',2,'L',$12,2,-1
+:ARCFMT     DB       0,$1A,$82,0,-1
+:LZHFMT     DB       2,'-',3,'l',4,'h',6,'-',-1
+:SITFMT     DB       0,'S',1,'I',2,'T',3,'!'
+            DB       10,'r',11,'L',12,'a',13,'u',-1
+:SITFMT2    DB       32,'S',33,'I',34,'T',35,'!'
+            DB       42,'r',43,'L',44,'a',45,'u',-1
+:ZIPFMT     DB       0,'P',1,'K',2,3,3,4,-1
+:ZOOFMT     DB       20,$DC,21,$A7,22,$C4,23,$FD,-1
+:LUFMT      DB       0,0,1,' ',2,' ',3,' ',4,' ',5,' '
+            DB       6,' ',7,' ',8,' ',9,' ',10,' ',11,' '
+            DB       12,0,13,0,26,0
+            DB       27,0,28,0,29,0,30,0,31,0,-1
+:MACBIN     DB       0,0,$82,0,$4A,0,$52,0,-1
+:ARJFMT     DB       0,$60,1,$EA,-1
+            DB       -1
+
+LIBSUBS     DA       DO_ACU                                     ; 0
+            DA       DO_APL                                     ; 1
+            DA       DO_APL                                     ; 2
+            DA       DO_SHK                                     ; 3
+            DA       DO_BLU                                     ; 4
+            DA       DO_ARC                                     ; 5
+            DA       DO_LZH                                     ; 6
+            DA       DO_SIT                                     ; 7
+            DA       SIT_AOL                                    ; 8
+            DA       DO_ZIP                                     ; 9
+            DA       DO_ZOO                                     ; 10
+            DA       DO_LU                                      ; 11
+            DA       DO_MAC                                     ; 12
+            DA       DO_ARJ                                     ; 13
+
+*=================================================
+*      Routine Name: DO_READ
+*
+*  Input Parameters: Y = Number Of Bytes To Read
+*                    (Address) = Buffer To Read Into
+*
+* Output Parameters: Data In (Address)
+*
+*  Format:    LDY  LENGTH
+*             JSR  DO_READ
+*             DA   BUFFER
+*
+* Purpose: Read In A Chunk Of Data
+*=================================================
+
+DO_READ     STY      READCNT
+            STACK    WORD
+            JSR      GETWORD
+            STX      READBUF
+            STA      READBUF+1
+            LDA      REFNUM
+            STA      READREF
+            JSR      MLI
+            DB       Read
+            DA       READLST
+            RTS
+
+            DO       ACOS
+GET_MARK    LDA      REFNUM
+            STA      MARKREF
+            JSR      MLI
+            DB       Get_Mark
+            DA       MARKLST
+            LDA      #0
+            TAX
+            TAY
+            BCS      :ERR
+
+            LDX      MARK
+            LDA      MARK+1
+            LDY      MARK+2
+:ERR        RTS
+
+MARKLST     DB       2
+MARKREF     DB       0
+MARK        DS       3
+
+            FIN
+*=================================================
+*      Routine Name: MARKZERO
+*
+*  Input Parameters: None
+*
+* Output Parameters: None
+*
+* Purpose: Set Mark To Zero
+*=================================================
+
+MARKZERO    LDX      #0
+            TXA
+            TAY
+            DO       ACOS
+SET_POS     STX      MARK
+            STA      MARK+1
+            STY      MARK+2
+            LDA      REFNUM
+            STA      MARKREF
+            JSR      MLI
+            DB       Set_Mark
+            DA       MARKLST
+            RTS
+            ELSE
+            JMP      SET_POS
+            FIN
+
+*=================================================
+*      Routine Name: SHOWSTR
+*
+*  Input Parameters: (DCI String)
+*
+* Output Parameters: None
+*
+*  Format:   JSR  SHOWSTR
+*            DCI  'String to print'
+*
+*            DB   1,n,c     Prints character c n times
+*
+* Purpose: Print A String
+*=================================================
+
+SHOWSTR     PLA
+            STA      TEMP
+            PLA
+            STA      TEMP+1
+            LSR
+            PHP
+            JMP      :NEXTEMP
+
+:SHOWLUP    LDY      #0
+            LDA      (TEMP),Y
+            CMP      #1
+            BEQ      :MULT
+
+            PHP
+            JSR      COUT
+:NEXTEMP    INC      TEMP
+            BNE      :DONE
+            INC      TEMP+1
+:DONE       PLP
+            BPL      :SHOWLUP
+
+            JMP      (TEMP)
+
+:MULT       INY
+            LDA      (TEMP),Y
+            TAX
+            INY
+            LDA      (TEMP),Y
+:LOOP       JSR      COUT
+            DEX
+            BNE      :LOOP
+
+            CLC                                                 ; Skip Used Bytes
+            LDA      TEMP
+            ADC      #3
+            STA      TEMP
+            BCC      :SHOWLUP
+            INC      TEMP+1
+            BNE      :SHOWLUP
+
+*=================================================
+*      Routine Name: APLHDR
+*
+*  Input Parameters: A = Compressed Files Allowed
+*                        High bit is flag
+*
+* Output Parameters: None
+*
+* Purpose: Display Apple Type Header
+*=================================================
+
+APLHDR      PHA
+            JSR      SHOWSTR                                    ; Apple header
+            DB       Cr,Cr
+            ASC      ' Filename'
+            DB       1,12,' '
+            ASC      'Type  Mod Date   Mod Time   Aux'
+            DB       1,5,' '
+            DCI      'Size  '
+            PLA
+            PHA
+            BPL      :NOPACK1
+            JSR      SHOWSTR
+            ASC      '   Method'
+            DB       1,4,' '
+            ASC      "%"
+:NOPACK1    JSR      SHOWSTR
+            DB       Cr
+            DB       1,19,'-'                                   ; Filename
+            ASC      '  '
+            DB       1,4,'-'                                    ; Type
+            ASC      '  '
+            DB       1,9,'-'                                    ; Mod Date
+            ASC      '  '
+            DB       1,9,'-'                                    ; Mod Time
+            ASC      '  '
+            DB       1,4,'-'                                    ; Aux Type
+            ASC      '  '
+            DB       1,7,'-'                                    ; Size
+            ASC      "-"
+            PLA
+            BPL      :NOPACK2
+            JSR      SHOWSTR
+            ASC      '  '
+            DB       1,8,'-'                                    ; Method
+            DCI      '  ----'                                   ; %
+:NOPACK2    CROUT
+            RTS
+
+*=================================================
+*      Routine Name: MSHDR
+*
+*  Input Parameters: A = Compressed Files Allowed
+*                        High bit is flag
+*
+* Output Parameters: None
+*
+* Purpose: Display MS-DOS Type Header
+*=================================================
+
+MSHDR       PHA
+            JSR      SHOWSTR                                    ; MS-DOS Header
+            DB       Cr,Cr
+            ASC      ' Filename'
+            DB       1,12,' '
+            DCI      'Mod Date   Mod Time     Size'
+            PLA
+            PHA
+            BPL      :NOPACK1
+            JSR      SHOWSTR
+            DB       1,5,' '
+            DCI      'Method    %'
+:NOPACK1    JSR      SHOWSTR
+            DB       Cr
+            DB       1,19,'-'                                   ; Filename
+            ASC      '  '
+            DB       1,9,'-'                                    ; Mod Date
+            ASC      '  '
+            DB       1,9,'-'                                    ; Mod Time
+            ASC      '  '
+            DB       1,7,'-'                                    ; Size
+            ASC      "-"
+            PLA
+            BPL      :NOPACK2
+            JSR      SHOWSTR
+            ASC      '  '
+            DB       1,8,'-'                                    ; Method
+            DCI      '  ----'
+:NOPACK2    CROUT
+            RTS
+
+*=================================================
+*      Routine Name: ZINKOS
+*
+*  Input Parameters: A - Operating System Number
+*
+* Output Parameters: None
+*
+* Purpose: Show ACU Or BLU Operating System
+*=================================================
+
+ZINKOS      ASL
+            TAX
+            LDA      OSNAME,X                                   ; Get String Address
+            STA      TEMP
+            LDA      OSNAME+1,X
+            STA      TEMP+1
+            LDY      #0                                         ; Print Name
+:OSNUMLP    LDA      (TEMP),Y
+            BEQ      :DONE
+
+            JSR      COUT
+            INY
+            BNE      :OSNUMLP
+
+:DONE       RTS
+
+*=================================================
+*      Routine Name: CROUT, SPACE
+*
+*  Input Parameters: None
+*
+* Output Parameters: None
+*
+* Purpose: Print A Cr Or Space
+*=================================================
+
+DO_CROUT    LDA      #Cr
+            HEX      2C
+DO_SPACE    LDA      #' '
+            JMP      COUT
+
+*=================================================
+*      Routine Name: AUXTYPE
+*
+*  Input Parameters: (Address) = Address Of AuxType
+*
+* Output Parameters: None
+*
+*  Format:  JSR  AUXTYPE
+*           DA   AUXTYPEBUF
+*
+* Purpose: Show A File's Auxillary Type
+*=================================================
+
+DO_AUX      STACK    WORD
+            JSR      GETWORD
+            LDY      #1
+            LDA      (TEMP),Y                                   ; Get High Byte
+            JSR      PRBYTE                                     ; Print It
+            DEY                                                 ; Get Low Byte
+            LDA      (TEMP),Y
+            JSR      PRBYTE
+
+*=================================================
+*      Routine Name: TWODOTS
+*                    TWOSPACE
+*
+*  Input Parameters: None
+*
+* Output Parameters: None
+*
+* Purpose: Print 2 Dots
+*=================================================
+
+DO_TWOSP    LDA      #' '
+            HEX      2C
+DO_DOTS     LDA      #'.'
+            JSR      COUT
+            JMP      COUT
+
+*=================================================
+*      Routine Name: PRBYTE
+*
+*  Input Parameters: A = Byte To Print
+*
+* Output Parameters: None
+*
+* Purpose: Print A Hex Byte
+*=================================================
+
+PRBYTE      PHA                                                 ; Save Byte To Print
+            LSR                                                 ; Shift High Nibble
+            LSR
+            LSR
+            LSR
+            JSR      :PRHEX                                     ; Print Nibble
+            PLA                                                 ; Restore Byte
+            AND      #$F                                        ; Clear Off High Nibble
+:PRHEX      ORA      #'0'                                       ; Make It ASCII
+            CMP      #'9'+1                                     ; Is It A Number?
+            BLT      :DOOUT                                     ; Yes, Leave It Alone
+            ADC      #6                                         ; Make It Alpha
+:DOOUT      JMP      COUT
+
+*=================================================
+*      Routine Name: SHWNAME2
+*
+*  Input Parameters: (Address) Of String
+*
+* Output Parameters: None
+*
+* Purpose: Show C Type Filename
+*=================================================
+
+DO_CSTR     STA      TEMP2
+            STACK    WORD
+            JSR      GETWORD                                    ; Get String Address
+            LDY      #0
+:LOOP       LDA      (TEMP),Y                                   ; Find End Of Name
+            BEQ      :GOTLEN
+            INY
+            BNE      :LOOP
+
+:GOTLEN     STY      TEMP3                                      ; Length Is In Y
+            JMP      DO_NAME
+
+*=================================================
+*      Routine Name: SHOWNAME
+*
+*  Input Parameters: Y = Name Length
+*                    A = Full name flag
+*                    (Address) Of Filename
+*
+* Output Parameters: None
+*
+* Purpose: Print Pascal Type Filename
+*=================================================
+
+DO_PSTR     STA      TEMP2
+            STY      TEMP3
+            STACK    WORD
+            JSR      GETWORD                                    ; Get Location Of Filename
+DO_NAME     LDX      #0                                         ; Point To Starting Position
+            STX      TEMP3+1
+            LDY      TEMP3                                      ; Get length
+            BIT      TEMP2                                      ; Show Full Name?
+            BMI      :SHOWALL                                   ; Yes
+
+            CPY      #78                                        ; Check For Name Longer
+            BLT      :SHOWALL                                   ; Than Field
+
+            TYA                                                 ; Fix For New Start Position
+            SEC
+            SBC      #76
+            STA      TEMP3+1
+            TWODOTS                                             ; Print 2 Dots
+            LDX      #2                                         ; Skip 2 Characters
+:SHOWALL    LDY      TEMP3+1                                    ; Print The Name
+:NAMELP     LDA      (TEMP),Y
+            JSR      COUT
+            INX
+            INY
+            CPY      TEMP3
+            BLT      :NAMELP
+
+            BIT      TEMP2                                      ; Full Pathname?
+            BMI      :NAMEDN                                    ; Yes, No Fill
+
+:FILL       CPX      #18                                        ; Finished With Field?
+            BGE      :NAMEDN                                    ; Yes.
+
+:FILL2      SPACE                                               ; Fill Field With Spaces
+            INX
+            JMP      :FILL                                      ; Always
+
+:NAMEDN     BEQ      :INFIELD                                   ; Within field, done
+
+            CROUT                                               ; Skip down a line
+            LDX      #-1                                        ; Go back and space out
+            BNE      :FILL2                                     ; to data start point
+
+:INFIELD    TWOSPACE                                            ; Skip 2 Spaces
+            RTS
+
+*=================================================
+*      Routine Name: PRINTFMT
+*
+*  Input Parameters: X, A = Format String Location
+*
+* Output Parameters: None
+*
+* Purpose: Show File Packing Method
+*=================================================
+
+PRINTFMT    STX      TEMP                                       ; Save String Address
+            STA      TEMP+1
+            LDX      #8                                         ; Printing 8 Bytes
+            LDY      #0
+:PRLOOP     LDA      (TEMP),Y
+            JSR      COUT
+            INC      TEMP
+            BNE      :NEXT
+            INC      TEMP+1
+:NEXT       DEX
+            BNE      :PRLOOP
+
+            SPACE                                               ; Skip 2 Spaces
+            RTS
+
+*=================================================
+*      Routine Name: REVTWO
+*
+*  Input Parameters: (Address) Of Number
+*
+* Output Parameters: Reversed Number At (Address)
+*
+* Purpose: Reverse A Two Byte Word
+*=================================================
+
+REVTWO      STACK    WORD                                       ; Reverse A Number
+            JSR      GETWORD
+            LDY      #0
+            LDA      (TEMP),Y                                   ; Get Low Byte
+            PHA                                                 ; Save It
+            INY
+            LDA      (TEMP),Y                                   ; Get High Byte
+            DEY
+            STA      (TEMP),Y                                   ; Save At Low Byte
+            INY
+            PLA                                                 ; Get Back Low Byte
+            STA      (TEMP),Y                                   ; Save At High Byte
+            RTS
+
+*=================================================
+*      Routine Name: REVFOUR
+*
+*  Input Parameters: (Address) Of Long Word
+*
+* Output Parameters: Reversed Number At (Address)
+*
+* Purpose: Reverse A Long Word
+*=================================================
+
+REVFOUR     STACK    WORD                                       ; Reverse A Number
+            JSR      GETWORD                                    ; Get Location Of Long Word
+REVFOURX    LDY      #0
+            LDA      (TEMP),Y                                   ; Get Low Byte
+            PHA                                                 ; Save It
+            LDY      #3
+            LDA      (TEMP),Y                                   ; Get High Byte
+            LDY      #0
+            STA      (TEMP),Y                                   ; Save It At Low Byte
+            PLA                                                 ; Get Back Byte
+            LDY      #3
+            STA      (TEMP),Y                                   ; Save It At High Byte
+            DEY                                                 ; Get Mid High Byte
+            LDA      (TEMP),Y
+            PHA                                                 ; Save It
+            DEY                                                 ; Get Mid Low Byte
+            LDA      (TEMP),Y
+            INY                                                 ; Save It At Mid High Byte
+            STA      (TEMP),Y
+            PLA                                                 ; Get Byte Back
+            DEY                                                 ; Save It At Mid Low Byte
+            STA      (TEMP),Y
+            RTS
+
+*=================================================
+*      Routine Name: PDOSDATE, MSDATE
+*
+*  Input Parameters: (Address) Of Date
+*
+* Output Parameters: None
+*
+* Purpose: Print A ProDOS Or MS-DOS Date
+*=================================================
+* Date Format, MS-DOS/ProDOS
+*-------------------------------------------------
+* DATE  15-9   Year (0-99)
+*        8-5   Month
+*        4-0   Day (All Zeroes Means No Date)
+*=================================================
+
+PDOSDATE    LDA      #0
+            HEX      2C
+MSDATE      LDA      #80
+            STA      GSYR
+            STACK    WORD                                       ; Save Pointers
+            JSR      GETWORD
+            LDY      #1                                         ; Get Byte With Day
+            LDA      (TEMP),Y
+            DEY
+            ORA      (TEMP),Y
+            BNE      :DO_DATE
+
+            JMP      NODATE
+
+:DO_DATE    JSR      FIXDT
+            LDY      #0
+            LDA      (TEMP),Y
+            AND      #$1F                                       ; Clear All But Day
+            CONVDEC  DSTR                                       ; Make It ASCII
+            LDY      #1                                         ; Get Byte W/Year & Month
+            LDA      (TEMP),Y
+            LSR                                                 ; Make Year, Month In C
+            PHA                                                 ; Save Year
+            DEY
+            LDA      (TEMP),Y                                   ; Get Rest Of Month
+            ROR                                                 ; Shift In C
+            LSR                                                 ; Shift Down
+            LSR
+            LSR
+            LSR
+            JSR      MONTH                                      ; Do Month Text
+            PLA                                                 ; Restore Year
+            CLC
+            ADC      GSYR
+            CONVDEC  DSTR                                       ; Make It ASCII
+            JMP      PRDATE
+
+*=================================================
+*      Routine Name: PDOSTIME
+*
+*  Input Parameters: (Address) Of Time
+*
+* Output Parameters: None
+*
+* Purpose: Print A ProDOS Time
+*=================================================
+* Time Format, ProDOS
+*-------------------------------------------------
+* TIME  15-8   Hours (Military)
+*        7-0   Minutes
+*=================================================
+
+PDOSTIME    STACK    WORD
+            JSR      GETWORD                                    ; Get Time Location
+            LDY      #0
+            LDA      (TEMP),Y                                   ; Get Minutes
+            CONVDEC  TSTR+3                                     ; Convert To ASCII
+            LDY      #1                                         ; Get Hours
+            LDA      (TEMP),Y
+            CONVDEC  TSTR                                       ; Convert To ASCII
+            TWOSPACE
+            LDX      #0                                         ; Print The Time
+:PTIMEL1    LDA      TSTR,X
+            JSR      COUT
+            INX
+            CPX      #5
+            BNE      :PTIMEL1
+            TWOSPACE                                            ; No Seconds
+            TWOSPACE                                            ; Space To Next Field
+            RTS
+
+*=================================================
+*      Routine Name: MSTIME
+*
+*  Input Parameters: (Address) Of Time
+*
+* Output Parameters: None
+*
+* Purpose: Print A MS-DOS Time
+*=================================================
+* Time Format, MS-DOS
+*-------------------------------------------------
+* TIME  15-11  Hours (Military)
+*       10-5   Minutes
+*        4-0   Seconds
+*=================================================
+
+MSTIME      STACK    WORD
+            JSR      GETWORD                                    ; Get Time Location
+            LDY      #0
+            LDA      (TEMP),Y                                   ; Get Low Byte
+            AND      #$1F                                       ; Mask For Seconds
+            CONVDEC  TSTR+6                                     ; Convert To ASCII
+            LDY      #0
+            LDA      (TEMP),Y                                   ; Get Partial Minutes
+            STA      TEMP2
+            INY
+            LDA      (TEMP),Y                                   ; Get Rest Of Minutes/Hours
+            LSR                                                 ; Make Full Byte
+            ROR      TEMP2
+            LSR
+            ROR      TEMP2
+            LSR
+            ROR      TEMP2
+            CONVDEC  TSTR                                       ; Convert Hours To ASCII
+            LDA      TEMP2                                      ; Fix Up Minutes
+            LSR
+            LSR
+            CONVDEC  TSTR+3                                     ; Convert To ASCII
+            JMP      PRTIME                                     ; Print The Time
+
+NODATE      LDX      #8                                         ; Print No Date
+:LOOP       LDA      NODATETX,X
+            STA      DSTR,X
+            DEX
+            BPL      :LOOP
+            JMP      PRDATE
+
+*=================================================
+*      Routine Name: GSTIME
+*
+*  Input Parameters: (Address) Of Time
+*
+* Output Parameters: None
+*
+* Purpose: Print A //GS Time
+*=================================================
+
+GSTIME      STACK    WORD
+            JSR      GETWORD                                    ; Get Location Of Time
+            JSR      FIXDT
+            LDY      #0                                         ; Get Seconds
+            LDA      (TEMP),Y
+            CONVDEC  TSTR+6                                     ; Convert To ASCII
+            LDY      #1                                         ; Get Minutes
+            LDA      (TEMP),Y
+            CONVDEC  TSTR+3                                     ; Convert To ASCII
+            LDY      #2                                         ; Get Hours
+            LDA      (TEMP),Y
+            CONVDEC  TSTR                                       ; Convert To ASCII
+PRTIME      LDX      #0                                         ; Print The Time
+:PTIMEL     LDA      TSTR,X
+            JSR      COUT
+            INX
+            CPX      #9
+            BNE      :PTIMEL
+
+            TWOSPACE                                            ; Space To Next Field
+            RTS
+
+*=================================================
+*      Routine Name: GSDATE
+*
+*  Input Parameters: (Address) Of Date
+*
+* Output Parameters: None
+*
+* Purpose: Print A //GS Date
+*=================================================
+
+GSDATE      STACK    WORD
+            JSR      GETWORD                                    ; Get Location Of Date
+            LDY      #0                                         ; Get Year
+            LDA      (TEMP),Y
+            CONVDEC  DSTR+7                                     ; Convert To ASCII
+            LDY      #1                                         ; Get Day
+            LDA      (TEMP),Y
+            CLC
+            ADC      #1
+            CONVDEC  DSTR                                       ; Convert To ASCII
+            LDY      #2                                         ; Get Month
+            LDA      (TEMP),Y
+            CLC
+            ADC      #1
+            JSR      MONTH                                      ; Convert To Text
+PRDATE      LDX      #0                                         ; Print Date
+:PDATEL     LDA      DSTR,X
+            JSR      COUT
+            INX
+            CPX      #9
+            BNE      :PDATEL
+
+            TWOSPACE                                            ; Space To Next Field
+            RTS
+
+*=================================================
+*      Routine Name: SECONDS
+*
+*  Input Parameters: (Address) Of Seconds
+*
+* Output Parameters: None
+*
+* Purpose: Calculate Date/Time From
+*          Seconds From 1904
+*=================================================
+
+SECONDS     STACK    WORD
+            JSR      GETWORD                                    ; Get Location Of Seconds
+            JSR      REVFOURX                                   ; Move In Seconds
+            LDY      #3
+:MVIN       LDA      (TEMP),Y                                   ; Copy Seconds
+            STA      SECS,Y
+            DEY
+            BPL      :MVIN
+
+* Divide by seconds in 4 years, save leap years
+
+            DIVIDE   LONG;SEC4YEAR;LONG;SECS;WORD;LYEARS
+
+            JSR      SECREM                                     ; Get Remaining Seconds
+
+* Calculate remaining years
+* Divide by seconds in 1 year, save years
+
+:CONT       DIVIDE   LONG;SECYEAR;LONG;SECTEMP;BYTE;YRSAVE
+
+:DODAYS     JSR      SECREM                                     ; Get Remeining Seconds
+
+* Calculate days in year
+* Divide by seconds in 1 day, save days
+
+            DIVIDE   LONG;SECDAY;LONG;SECTEMP;LONG;SECTEMP
+
+            LDX      #28                                        ; Calculate Month/Day
+            LDA      YRSAVE                                     ; Set Days In February
+            CMP      #3                                         ; Actual Leap Year?
+            BNE      :FEB28                                     ; Nope
+            INX                                                 ; Make It Leap Year
+:FEB28      STX      MTHLENS+1
+            LDX      #-1                                        ; Init Month Pointer
+            LDY      SECTEMP+1                                  ; Get Day Number
+            LDA      SECTEMP
+:FNDMTH     INX                                                 ; Increment Pointer
+            SEC                                                 ; Subtract First Month
+            SBC      MTHLENS,X
+            BCS      :FNDMTH                                    ; More Left, Do Again
+
+            DEY                                                 ; Still More
+            BPL      :FNDMTH
+
+            ADC      MTHLENS,X                                  ; Add Day Back In
+            STA      GSDAY                                      ; Save Proper Day
+            STX      GSMNTH                                     ; Save Proper Month
+            JSR      SECREM                                     ; Get Remaining Seconds
+
+* Calculate hours
+* Divide by seconds in 1 hour, save hours
+
+            DIVIDE   WORD;SECHOUR;LONG;SECTEMP;BYTE;GSHR
+
+            JSR      SECREM                                     ; Get Remaining Seconds
+
+* Calculate minutes
+* Divide by seconds in 1 minute, save minutes
+
+            DIVIDE   BYTE;SECMIN;LONG;SECTEMP;BYTE;GSMIN
+
+            LDA      REMAIN                                     ; Left Over Is Seconds
+            STA      GSSEC
+            ASL      LYEARS                                     ; Year4 = Year4 * 4
+            ROL      LYEARS+1
+            ASL      LYEARS
+            ROL      LYEARS+1
+            CLC                                                 ; Add In Left Over Years
+            LDA      LYEARS                                     ; LYEARS = LYEARS + YRSAVE + 4
+            ADC      YRSAVE                                     ; Add In Left Over Years
+            ADC      #4                                         ; For GS Date
+            STA      GSYR
+
+* Calculate day of week
+* Days = seconds / seconds in 1 day
+* Weekday = days mod 7
+
+            DIVIDE   LONG;SECDAY;LONG;SECS;LONG;SECTEMP
+            DIVIDE   BYTE;SEVEN;LONG;SECTEMP;LONG+$80;SECTEMP
+
+            CLC                                                 ; Weekday = Weekday + Friday
+            LDA      SECTEMP
+            ADC      #6
+            STA      SECTEMP
+
+* Weekday = days mod 7
+
+            DIVIDE   LONG-1;SEVEN;LONG;SECTEMP;BYTE+$80;GSWDAY
+
+            JSR      GSDATE
+            DA       GSYR
+            JSR      GSTIME
+            DA       GSSEC
+            RTS
+
+*=================================================
+*      Routine Name: MONTH
+*
+*  Input Parameters: A = Month Number, 0..11
+*
+* Output Parameters: None
+*
+* Purpose: Put Month Text Into Date String
+*=================================================
+
+MONTH       SEC
+            SBC      #1
+            CMP      #12
+            BLT      :MTHOK
+
+            LDA      #12
+:MTHOK      STA      TEMP2+1
+            ASL
+            CLC
+            ADC      TEMP2+1
+            TAX
+            LDA      MTHTXT,X
+            STA      DSTR+3
+            LDA      MTHTXT+1,X
+            STA      DSTR+4
+            LDA      MTHTXT+2,X
+            STA      DSTR+5
+            RTS
+
+FIXDT       LDA      #'-'
+            STA      DSTR+2
+            STA      DSTR+6
+            LDA      #':'
+            STA      TSTR+2
+            STA      TSTR+5
+            RTS
+
+*=================================================
+*      Routine Name: BINDEC8
+*
+*  Input Parameters: A = Binary Number
+*
+* Output Parameters: A, X = ASCII Text Of Number
+*
+* Purpose: Convert Binary To ASCII Decimal
+*=================================================
+
+BINDEC8     LDY      #0                                         ; Start 10's Counter
+:BIN8       CMP      #10
+            BLT      :BIN8A                                     ; Less Than 10, Were Done
+
+            SBC      #10                                        ; Minus 10
+            INY                                                 ; Add 1 To The 10's Counter
+            BNE      :BIN8                                      ; Loop
+
+:BIN8A      ADC      #'0'                                       ; Make 1's Into Text
+            TAX                                                 ; Save
+            TYA
+            ADC      #'0'                                       ; Make 10's Into Text
+            RTS                                                 ; Were Done
+
+*=================================================
+*      Routine Name: DIVIDE
+*
+*  Input Parameters: (Length), (Address) Of First Number
+*                    (Length), (Address) Of Second Number
+*                    (Length), (Address) Of Destination
+*
+* Output Parameters: Result In Destination
+*
+* Purpose: Divide 2 Numbers
+*=================================================
+
+DO_DIV      STACK    BYTE+WORD+BYTE+WORD+BYTE+WORD
+            JSR      GETDATA                                    ; Get The Data
+            BIT      RESLEN                                     ; Is It MOD?
+            BPL      :DODIV                                     ; Nope
+
+            JSR      MOD                                        ; Execute The MOD
+            JMP      GETRES
+
+:DODIV      JSR      DIVIDE2                                    ; Execute The DIVIDE
+GETRES      LDA      RESLEN                                     ; Move The Result
+            AND      #$7F
+            TAY
+:MVRES      LDA      RESULT,Y
+            STA      (TEMP2),Y
+            DEY
+            BPL      :MVRES
+
+            RTS
+
+*=================================================
+*      Routine Name: DO_ADD
+*
+*  Input Parameters: (Length), (Address) Of First Number
+*                    (Length), (Address) Of Second Number
+*                    (Length), (Address) Of Destination
+*
+* Output Parameters: Result In Destination
+*
+* Purpose: Add 2 Numbers
+*=================================================
+
+DO_ADD      STACK    BYTE+WORD+BYTE+WORD+BYTE+WORD
+            JSR      GETDATA                                    ; Get Information
+            CLC                                                 ; Add The Numbers
+            LDA      NUMB
+            ADC      DATA
+            STA      RESULT
+            LDA      NUMB+1
+            ADC      DATA+1
+            STA      RESULT+1
+            LDA      NUMB+2
+            ADC      DATA+2
+            STA      RESULT+2
+            LDA      NUMB+3
+            ADC      DATA+3
+            STA      RESULT+3
+            JMP      GETRES
+
+*=================================================
+*      Routine Name: DO_SUB
+*
+*  Input Parameters: (Length), (Address) Of First Number
+*                    (Length), (Address) Of Second Number
+*                    (Length), (Address) Of Destination
+*
+* Output Parameters: Result In Destination
+*
+* Purpose: Subtract 2 Numbers
+*=================================================
+
+DO_SUB      STACK    BYTE+WORD+BYTE+WORD+BYTE+WORD
+            JSR      GETDATA                                    ; Get The Information
+            SEC                                                 ; Subtract The Numbers
+            LDA      DATA
+            SBC      NUMB
+            STA      RESULT
+            LDA      DATA+1
+            SBC      NUMB+1
+            STA      RESULT+1
+            LDA      DATA+2
+            SBC      NUMB+2
+            STA      RESULT+2
+            LDA      DATA+3
+            SBC      NUMB+3
+            STA      RESULT+3
+            JMP      GETRES
+
+*=================================================
+*      Routine Name: ADDXAY2
+*
+*  Input Parameters: X, A, (Address) Of Destination
+*
+* Output Parameters: Result In Destination
+*
+* Purpose: Add X And A To Destination
+*=================================================
+
+ADDXAY2     STA      TEMP2
+            LDA      #$80                                       ; Flag Only 2 Bytes
+            STA      TEMP2+1
+            BNE      ADDXAY1
+
+*=================================================
+*      Routine Name: ADDXAY
+*
+*  Input Parameters: X, A, Y, (Address) Of Destination
+*
+* Output Parameters: Result In Destination
+*
+* Purpose: Add X, Y And A To Destination
+*=================================================
+
+ADDXAY      STA      TEMP2
+            LDA      #0                                         ; Flag 3 Bytes
+            STA      TEMP2+1
+ADDXAY1     STACK    WORD
+            TYA
+            PHA
+            LDY      #1
+            LDA      (TEMP),Y
+            PHA
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP+1
+            PLA
+            STA      TEMP
+            CLC
+            TXA
+            LDY      #0
+            ADC      (TEMP),Y
+            TAX
+            INY
+            LDA      TEMP2
+            ADC      (TEMP),Y
+            STA      TEMP2
+            INY
+            PLA
+            BIT      TEMP2+1
+            BPL      :XAY1
+
+            ADC      #0
+            JMP      :XAY0
+
+:XAY1       ADC      (TEMP),Y
+:XAY0       TAY
+            LDA      TEMP2
+            RTS
+
+*=================================================
+* 32 Bit Divide And Mod
+* NUMB Is First Number (Divide By)
+* DATA Is Second Number
+* On Exit, RESULT Holds The Result
+*=================================================
+
+DIVIDE2     CLC                                                 ; Flag Divide Only
+            HEX      B0                                         ; Skip SEC
+MOD         SEC
+            PHP
+            LDA      NUMB
+            ORA      NUMB+1
+            ORA      NUMB+2
+            ORA      NUMB+3
+            BNE      :DO_DIV1
+
+            PLP
+            RTS
+
+:DO_DIV1    LDA      #0
+            STA      REMAIN
+            STA      REMAIN+1
+            STA      REMAIN+2
+            STA      REMAIN+3
+            CLC
+            LDX      #32                                        ; 32 Bits To Do
+:DO_DIV2    ROL      DATA                                       ; Shift Up The Carry Bit
+            ROL      DATA+1
+            ROL      DATA+2
+            ROL      DATA+3
+            ROL      REMAIN
+            ROL      REMAIN+1
+            ROL      REMAIN+2
+            ROL      REMAIN+3
+            SEC
+            TXA
+            PHA
+            LDX      #0
+            LDY      #3
+:SBCLUP     LDA      REMAIN,X                                   ; Check For Remainder > Divisor
+            SBC      NUMB,X
+            STA      SAVE,X
+            INX
+            DEY
+            BPL      :SBCLUP
+            PLA
+            TAX
+            BCC      :DO_DIV3                                   ; Nope, Skip Subtract
+
+            LDA      SAVE                                       ; Allow Subtract To Take Place
+            STA      REMAIN
+            LDA      SAVE+1
+            STA      REMAIN+1
+            LDA      SAVE+2
+            STA      REMAIN+2
+            LDA      SAVE+3
+            STA      REMAIN+3
+:DO_DIV3    DEX
+            BNE      :DO_DIV2
+
+            ROL      DATA                                       ; Shift In Quotient
+            ROL      DATA+1
+            ROL      DATA+2
+            ROL      DATA+3
+            PLP
+            BCS      MOVEMOD
+
+            LDA      DATA
+            STA      RESULT
+            LDA      DATA+1
+            STA      RESULT+1
+            LDA      DATA+2
+            STA      RESULT+2
+            LDA      DATA+3
+            STA      RESULT+3
+            RTS
+
+MOVEMOD     LDA      REMAIN
+            STA      RESULT
+            LDA      REMAIN+1                                   ; Get Remainder
+            STA      RESULT+1
+            LDA      REMAIN+2
+            STA      RESULT+2
+            LDA      REMAIN+3
+            STA      RESULT+3
+            RTS
+
+*=================================================
+*      Routine Name: DO_DEC
+*
+*  Input Parameters: (Flag) Fill To 8 Bytes
+*                    (Byte) Length Of Data
+*                    (Word) Location Of Data
+*
+* Output Parameters: None
+*
+* Purpose: Print 32 Bit Number
+*=================================================
+
+DO_DEC      STACK    BYTE+BYTE+WORD
+            JSR      ZERODATA
+            LDY      #1
+            LDA      (TEMP),Y
+            STA      TEMP3
+            INY
+            LDA      (TEMP),Y
+            PHA
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2+1
+            PLA
+            TAY
+:SMV        LDA      (TEMP2),Y
+            STA      NUMB,Y
+            DEY                                                 ; Count Up
+            BPL      :SMV
+
+            SED                                                 ; Do It In Decimal Mode
+            LDY      #32                                        ; Doing 32 Bits
+:DEC2       ASL      NUMB                                       ; Add In Bit
+            ROL      NUMB+1
+            ROL      NUMB+2
+            ROL      NUMB+3
+            LDA      DATA+1
+            ADC      DATA+1
+            STA      DATA+1
+            LDA      DATA+2
+            ADC      DATA+2
+            STA      DATA+2
+            LDA      DATA+3
+            ADC      DATA+3
+            STA      DATA+3
+            LDA      DATA+4
+            ADC      DATA+4
+            STA      DATA+4
+            LDA      DATA+5
+            ADC      DATA+5
+            STA      DATA+5
+            ROL      DATA+6
+            DEY                                                 ; Do Next Bit
+            BNE      :DEC2
+
+            CLD                                                 ; No More Decimal Mode
+            LDY      #10                                        ; Max Of 10 Characters
+:DEC3       LDA      DATA+6                                     ; Get Byte
+            AND      #$F                                        ; Remove Top Nibble
+            BNE      :GOODNUM                                   ; If Not 0, Stuff It
+
+            BIT      DATA+7                                     ; Leading Zero?
+            BPL      :SKIP0                                     ; Yes, Skip It
+
+:GOODNUM    DEC      DATA+7                                     ; Flag No Leading Zero
+            CLC
+            ADC      #'0'                                       ; Make It Ascii
+            LDX      DATA+8                                     ; Get Pointer
+            STA      RESULT+1,X                                 ; Store It
+            INC      DATA+8                                     ; Bump Pointer
+:SKIP0      LDX      #3                                         ; Shift In Next Nibble
+:DEC4       ASL      DATA+1
+            ROL      DATA+2
+            ROL      DATA+3
+            ROL      DATA+4
+            ROL      DATA+5
+            ROL      DATA+6
+            DEX
+            BPL      :DEC4
+
+            DEY                                                 ; Count Down Digit
+            BMI      :DECDONE                                   ; Finished...
+            BNE      :DEC3                                      ; Branch If Not Last Digit
+
+            STX      DATA+7                                     ; Force Zero If Zero
+            BEQ      :DEC3                                      ; Do It..
+
+:DECDONE    LDA      DATA+8                                     ; Save Length Of Number
+            STA      RESULT
+            SEC                                                 ; Calculate Leading Spaces
+            LDA      TEMP3
+            BMI      :PRINT                                     ; If Negative, Just Print
+            SBC      RESULT
+            BEQ      :PRINT                                     ; If None, Go Print It
+
+            TAY
+            LDA      #' '
+:LDSPCS     JSR      COUT                                       ; Print A Space
+            DEY
+            BNE      :LDSPCS
+
+:PRINT      LDX      #0                                         ; Print The Number
+            LDY      RESULT
+:PRDEC      LDA      RESULT+1,X
+            JSR      COUT
+            INX
+            DEY
+            BNE      :PRDEC
+
+            RTS
+
+*=================================================
+*      Routine Name: PERCENT
+*
+*  Input Parameters: (Byte) Length Of First Number
+*                    (Word) Location Of First Number
+*                    (Byte) Length Of Second Number
+*                    (Word) Location Of Second Number
+*
+* Output Parameters: None
+*
+* Purpose: Print A Percentage
+*=================================================
+
+DO_PER      STACK    BYTE+WORD+BYTE+WORD
+            JSR      ZERODATA
+            LDX      #7                                         ; Clear Out Any Old Data
+            LDA      #0
+:ZSECS      STA      SECS,X
+            DEX
+            BPL      :ZSECS
+
+            LDY      #1
+            LDA      (TEMP),Y                                   ; Get First Number & Length
+            PHA
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2+1
+            PLA
+            TAY                                                 ; Copy It
+:MVNUMB     LDA      (TEMP2),Y
+            STA      SECS,Y
+            DEY
+            BPL      :MVNUMB
+
+            LDY      #4                                         ; Get Second Number & Length
+            LDA      (TEMP),Y
+            PHA
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP3
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP3+1
+            PLA
+            INY                                                 ; Copy It
+:MVDATA     LDA      (TEMP3),Y
+            STA      SECTEMP,Y
+            DEY
+            BPL      :MVDATA
+
+            JSR      :MUL10                                     ; Multiply First Number
+            JSR      :MUL10                                     ; By 100
+
+* Divide result by second number
+
+            DIVIDE   LONG;SECTEMP;LONG;SECS;LONG;SECTEMP
+
+            LDA      SECTEMP+3                                  ; Is Number > 100?
+            ORA      SECTEMP+2
+            ORA      SECTEMP+1
+            BNE      :GR100                                     ; Yes
+            LDA      SECTEMP
+            CMP      #100+1
+            BLT      :LESS100                                   ; Nope
+:GR100      LDA      #100                                       ; Reset To 100
+            STA      SECTEMP
+            LDA      #'>'                                       ; Tell Them It's Greater
+            HEX      2C
+:LESS100    LDA      #' '                                       ; Not Greater
+            JSR      COUT
+            DECOUT   3;WORD;SECTEMP                             ; Show The Number
+            PRINT    '%'                                        ; And The Percent Sign
+            RTS
+
+:MUL10      LDA      SECS                                       ; Save Current Value
+            STA      SAVE
+            LDA      SECS+1
+            STA      SAVE+1
+            LDA      SECS+2
+            STA      SAVE+2
+            LDA      SECS+3
+            STA      SAVE+3
+            JSR      :MUL2                                      ; Multiply By 2
+            JSR      :MUL2                                      ; Multiply By 2 ( * 4 )
+            ADD      LONG;SECS;LONG;SAVE;LONG;SECS              ; Add In Original ( * 5 )
+:MUL2       ASL      SECS                                       ; Multiply By 2 ( * 10 )
+            ROL      SECS+1
+            ROL      SECS+2
+            ROL      SECS+3
+            RTS
+
+SECREM      LDA      REMAIN                                     ; Copy Remainder To
+            STA      SECTEMP                                    ; Seconds Temporary
+            LDA      REMAIN+1
+            STA      SECTEMP+1
+            LDA      REMAIN+2
+            STA      SECTEMP+2
+            LDA      REMAIN+3
+            STA      SECTEMP+3
+            RTS
+
+*=================================================
+*      Routine Name: ADDSTK
+*
+*  Input Parameters: A - Bytes To Skip
+*
+* Output Parameters: Call Address In TEMP
+*
+* Purpose: Get Call Address And Skip Bytes
+*=================================================
+
+ADDSTK      PHA                                                 ; Save A And X
+            TXA
+            PHA
+            TSX                                                 ; Get Stack Pointer
+            CLC
+            LDA      $105,X                                     ; Get Call Address
+            STA      TEMP                                       ; Save It
+            ADC      $102,X                                     ; Add In Bytes To Skip
+            STA      $105,X                                     ; Save It Back
+            LDA      $106,X                                     ; Handle High Byte
+            STA      TEMP+1
+            ADC      #0
+            STA      $106,X
+            PLA
+            TAX
+            PLA
+            RTS
+
+*=================================================
+*      Routine Name: ZERODATA
+*
+*  Input Parameters: None
+*
+* Output Parameters: None
+*
+* Purpose: Zero Out Data Area
+*=================================================
+
+ZERODATA    PHA                                                 ; Zero Numeric Data
+            TXA
+            PHA
+            LDX      #27
+            LDA      #0
+:ZLOOP      STA      NUMB,X
+            DEX
+            BPL      :ZLOOP
+            PLA
+            TAX
+            PLA
+            RTS
+
+*=================================================
+*      Routine Name: GETDATA
+*
+*  Input Parameters: (TEMP) Data To Read
+*
+* Output Parameters: Source1, Source2 And Destination
+*
+* Purpose: Get Math Parameters
+*=================================================
+
+GETDATA     JSR      ZERODATA
+            LDY      #1                                         ; Handle First Number
+            LDA      (TEMP),Y                                   ; Get Length Byte
+            PHA
+            INY                                                 ; Copy Address
+            LDA      (TEMP),Y
+            STA      TEMP2
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2+1
+            PLA
+            TAY                                                 ; Copy Data
+:NUMLUP     LDA      (TEMP2),Y
+            STA      NUMB,Y
+            DEY
+            BPL      :NUMLUP
+
+            LDY      #4                                         ; Handle Second Number
+            LDA      (TEMP),Y                                   ; Get Length Byte
+            PHA
+            INY                                                 ; Copy Address
+            LDA      (TEMP),Y
+            STA      TEMP2
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2+1
+            PLA
+            TAY                                                 ; Copy Data
+:MVDATA     LDA      (TEMP2),Y
+            STA      DATA,Y
+            DEY
+            BPL      :MVDATA
+
+            LDY      #7                                         ; Point To Destination
+            LDA      (TEMP),Y
+            STA      RESLEN                                     ; Save Destination Size
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2                                      ; Save Destination Address
+            INY
+            LDA      (TEMP),Y
+            STA      TEMP2+1
+            RTS
+
+*=================================================
+*      Routine Name: GETWORD
+*
+*  Input Parameters: (TEMP) = Location Of Word
+*
+* Output Parameters: TEMP = Word
+*
+* Purpose: Get 2 Byte Word At Temp Into Temp
+*=================================================
+
+GETWORD     LDY      #1                                         ; Transfer Address To Temp
+            LDA      (TEMP),Y
+            TAX
+            INY
+            LDA      (TEMP),Y
+            STX      TEMP
+            STA      TEMP+1
+            RTS
+
+*=================================================
+*      Routine Name: PD_ACCES
+*
+*  Input Parameters: (Word) Location Of Access Byte
+*
+* Output Parameters: None
+*
+* Purpose: Print File Locked Flag
+*=================================================
+
+PD_ACCES    STACK    WORD
+            JSR      GETWORD
+            LDY      #0                                         ; Get Access Byte
+            LDA      (TEMP),Y
+            AND      #$C3                                       ; Clear Extra Bits
+            CMP      #$C3                                       ; Any Function Locked?
+            BEQ      NOTLOCKD                                   ; Nope, Unlocked
+LOCKED      LDA      #"*"                                       ; Flag Locked
+            HEX      2C
+NOTLOCKD    LDA      #" "                                       ; Flag Unlocked
+            JMP      COUT
+
+*=================================================
+*      Routine Name: MAC_ACS, MS_ACS
+*
+*  Input Parameters: (Word) Location Of Flags
+*
+* Output Parameters: None
+*
+* Purpose: Print File Locked Flag
+*=================================================
+
+M_ACS       STACK    WORD
+            JSR      GETWORD
+            LDY      #0                                         ; Get Attribute Byte
+            LDA      (TEMP),Y
+            LSR                                                 ; Locked Bit In Carry
+            BCC      NOTLOCKD
+            BCS      LOCKED
+
+*=================================================
+*      Routine Name: PRTYPE
+*
+*  Input Parameters: (Word) Location Of File Type
+*
+* Output Parameters: None
+*
+* Purpose: Print File Type Code
+*=================================================
+
+PRTYPE      STACK    WORD                                       ; Skip Address
+            JSR      GETWORD                                    ; Get Word
+            LDY      #0
+            LDA      (TEMP),Y                                   ; Get File Type
+            LDX      #<:TYPES                                   ; Point To File Types
+            STX      TEMP
+            LDX      #>:TYPES
+            STX      TEMP+1
+            LDY      #0                                         ; Index Is Zero
+            PHA                                                 ; Save Type
+:LOOP       PLA                                                 ; Restore Type
+            CMP      (TEMP),Y                                   ; Same Type?
+            BEQ      :SHOWTYP                                   ; Yes, Show It
+            PHA                                                 ; Save Type
+            CLC                                                 ; Add 4 To Skip Last Type
+            LDA      #4
+            ADC      TEMP
+            STA      TEMP
+            BCC      :ITEMP
+            INC      TEMP+1
+:ITEMP      LDA      (TEMP),Y                                   ; Check For End Of List
+            BNE      :LOOP                                      ; Not End, Do Next
+            LDA      #'$'
+            JSR      COUT
+            PLA                                                 ; Throw Out Type
+            JSR      PRBYTE
+            JMP      :DONE
+
+:SHOWTYP    INY                                                 ; Print First Character
+            LDA      (TEMP),Y
+            JSR      COUT
+            INY                                                 ; Print Second Character
+            LDA      (TEMP),Y
+            JSR      COUT
+            INY                                                 ; Print Last Character
+            LDA      (TEMP),Y
+            JSR      COUT
+:DONE       SPACE
+            TWOSPACE                                            ; Space to finish
+            RTS
+
+:TYPES      DB       0
+            ASC      'UNK'
+            DB       1
+            ASC      'BAD'
+            DB       2
+            ASC      'PCD'
+            DB       3
+            ASC      'PTX'
+            DB       4
+            ASC      'TXT'
+            DB       5
+            ASC      'PDA'
+            DB       6
+            ASC      'BIN'
+            DB       7
+            ASC      'FNT'
+            DB       8
+            ASC      'FOT'
+            DB       9
+            ASC      'BA3'
+            DB       $A
+            ASC      'DA3'
+            DB       $B
+            ASC      'WPF'
+            DB       $C
+            ASC      'SOS'
+            DB       $F
+            ASC      'DIR'
+            DB       $10
+            ASC      'RPD'
+            DB       $11
+            ASC      'RPI'
+            DB       $12
+            ASC      'AFD'
+            DB       $13
+            ASC      'AFM'
+            DB       $14
+            ASC      'AFR'
+            DB       $15
+            ASC      'SCL'
+            DB       $16
+            ASC      'PFS'
+            DB       $19
+            ASC      'ADB'
+            DB       $1A
+            ASC      'AWP'
+            DB       $1B
+            ASC      'ASP'
+            DB       $20
+            ASC      'TDM'
+            DB       $2A
+            ASC      '8SC'
+            DB       $2B
+            ASC      '8OB'
+            DB       $2C
+            ASC      '8IC'
+            DB       $2D
+            ASC      '8LD'
+            DB       $2E
+            ASC      '8PC'
+            DB       $42
+            ASC      'FTD'
+            DB       $50
+            ASC      'GWP'
+            DB       $51
+            ASC      'GSS'
+            DB       $52
+            ASC      'GDB'
+            DB       $53
+            ASC      'DRW'
+            DB       $54
+            ASC      'GDP'
+            DB       $55
+            ASC      'HMD'
+            DB       $56
+            ASC      'EDU'
+            DB       $57
+            ASC      'STN'
+            DB       $58
+            ASC      'HLP'
+            DB       $59
+            ASC      'COM'
+            DB       $5A
+            ASC      'CFG'
+            DB       $5B
+            ASC      'ANM'
+            DB       $5C
+            ASC      'MUM'
+            DB       $5D
+            ASC      'ENT'
+            DB       $5E
+            ASC      'DVU'
+            DB       $6B
+            ASC      'BIO'
+            DB       $6D
+            ASC      'TDR'
+            DB       $6E
+            ASC      'PRE'
+            DB       $6F
+            ASC      'HDV'
+            DB       $A0
+            ASC      'WP '
+            DB       $AB
+            ASC      'GSB'
+            DB       $AC
+            ASC      'TDF'
+            DB       $AD
+            ASC      'BDF'
+            DB       $B0
+            ASC      'SRC'
+            DB       $B1
+            ASC      'OBJ'
+            DB       $B2
+            ASC      'LIB'
+            DB       $B3
+            ASC      'S16'
+            DB       $B4
+            ASC      'RTL'
+            DB       $B5
+            ASC      'EXE'
+            DB       $B6
+            ASC      'PIF'
+            DB       $B7
+            ASC      'TIF'
+            DB       $B8
+            ASC      'NDA'
+            DB       $B9
+            ASC      'CDA'
+            DB       $BA
+            ASC      'TOL'
+            DB       $BB
+            ASC      'DVR'
+            DB       $BC
+            ASC      'LDF'
+            DB       $BD
+            ASC      'FST'
+            DB       $BF
+            ASC      'DOC'
+            DB       $C0
+            ASC      'PNT'
+            DB       $C1
+            ASC      'PIC'
+            DB       $C2
+            ASC      'ANI'
+            DB       $C3
+            ASC      'PAL'
+            DB       $C5
+            ASC      'OOG'
+            DB       $C6
+            ASC      'SCR'
+            DB       $C7
+            ASC      'CDV'
+            DB       $C8
+            ASC      'FON'
+            DB       $C9
+            ASC      'FND'
+            DB       $CA
+            ASC      'ICN'
+            DB       $D5
+            ASC      'MUS'
+            DB       $D6
+            ASC      'INS'
+            DB       $D7
+            ASC      'MDI'
+            DB       $D8
+            ASC      'SND'
+            DB       $DB
+            ASC      'DBM'
+            DB       $E0
+            ASC      'LBR'
+            DB       $E2
+            ASC      'ATK'
+            DB       $EE
+            ASC      'R16'
+            DB       $EF
+            ASC      'PAS'
+            DB       $F0
+            ASC      'CMD'
+            DB       $F1
+            ASC      'UT1'
+            DB       $F2
+            ASC      'UT2'
+            DB       $F3
+            ASC      'UT3'
+            DB       $F4
+            ASC      'UT4'
+            DB       $F5
+            ASC      'UT5'
+            DB       $F6
+            ASC      'UT6'
+            DB       $F7
+            ASC      'UT7'
+            DB       $F8
+            ASC      'UT8'
+            DB       $F9
+            ASC      'OS '
+            DB       $FA
+            ASC      'INT'
+            DB       $FB
+            ASC      'IVR'
+            DB       $FC
+            ASC      'BAS'
+            DB       $FD
+            ASC      'VAR'
+            DB       $FE
+            ASC      'REL'
+            DB       $FF
+            ASC      'SYS'
+            DB       0
+
diff --git a/SOURCE/LISTER/PDOS.S b/SOURCE/LISTER/PDOS.S
new file mode 100644
index 0000000..c370cfd
--- /dev/null
+++ b/SOURCE/LISTER/PDOS.S
@@ -0,0 +1,73 @@
+            LST    OFF
+            LSTDO  OFF
+            TR
+            TR     ADR
+
+**************************************************
+*                                                *
+*            ProDOS Link Command File            *
+*                                                *
+**************************************************
+
+            ORG    $2000
+
+            TYP    $FF
+            DSK    /MAIN/CMDS/LIST
+
+ACOS        =      0
+Cr          =      $D
+Cls         =      $8C
+
+Open        =      $C8
+Read        =      $CA
+Close       =      $CC
+Setmark     =      $CE
+Getmark     =      $CF
+Geteof      =      $D1
+
+TEMP        =      0
+TEMP2       =      2
+TEMP3       =      $13
+CSW         =      $36
+
+BYTE        =      1
+WORD        =      2
+LADR        =      3
+LONG        =      4
+
+HDRBUF      =      $200
+FBUF1       =      $800
+DATABUF     =      $9600
+
+MLI         =      $BF00
+KYBD        =      $C000       ; Keyboard Data
+
+CLR80STO    =      $C000       ; Clear 80 Column Store
+DISP40      =      $C00C       ; Set 40 Column Mode
+
+KBDSTRB     =      $C010       ; Clear Keyboard Data
+
+SLOT3       =      $C300
+
+MONINIT     =      $FB2F       ; Init Monitor Routine
+MONSNORM    =      $FE84       ; Set Normal Routine
+MONSKBD     =      $FE89       ; Set Keyboard Routine
+MONSVID     =      $FE93       ; Set Video Routine
+MONCOUT     =      $FDED       ; Character Out Routine
+
+            USE    MACROS
+            PUT    DOS
+            PUT    MAIN
+            PUT    ACU
+            PUT    APL
+            PUT    BLU
+            PUT    SHK
+            PUT    LU
+            PUT    ARC
+            PUT    LZH
+            PUT    ZIP
+            PUT    ZOO
+            PUT    MAC
+            PUT    ARJ
+            PUT    DATA
+
diff --git a/SOURCE/LISTER/SHK.S b/SOURCE/LISTER/SHK.S
new file mode 100644
index 0000000..3e8c109
--- /dev/null
+++ b/SOURCE/LISTER/SHK.S
@@ -0,0 +1,572 @@
+*=================================================
+* SHRINKIT (APPLE)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    Master Header
+*         File 1 Header
+*              Attribute Section
+*              Filename Section
+*              Thread Section
+*                   Thread 1
+*                   .         File Data Is Contained In A Thread
+*                   .
+*                   Thread N
+*         File 2 Header
+*              Attribute Section
+*              Filename Section
+*              Thread Section
+*                   Thread 1
+*                   .
+*                   .
+*                   Thread N
+*         File 3 Header
+*         .
+*         .
+*         .
+* EOF
+*
+*-------------------------------------------------
+* MASTER HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+SHK_ID1     DCI       'Nu'                                     ; Master Signature Spells "NuFile"
+            DCI       'Fi'                                     ; In Alternating High And Low ASCII
+            DCI       'le'
+            DW        0                                        ; CRC Of Bytes 8 - 47 In This Block
+SHK_RECS    ADRL      0                                        ; Total Number Of Files In This Archive
+SHK_CTIM    DS        3                                        ; Archive Creation Time And Date
+SHK_CDAT    DS        5
+SHK_MTIM    DS        3                                        ; Time And Date Archive Last Modified
+SHK_MDAT    DS        5
+SHK_VER     DA        0                                        ; Master Version Number
+            ADRL      $E0                                      ; Archive File Type (Should Be $000000E0)
+            ADRL      $8002                                    ; Archive Aux Type (Should Be $00008002)
+            ADRL      0                                        ; Length Of The Archive
+            DS        6                                        ; Reserved
+; End Master Header
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+SHK_ID2     DCI       'Nu'                                     ; Header Signature Spells "NuFX" In
+            DCI       'FX'                                     ; Alternating High And Low ASCII
+            DW        0                                        ; CRC Of Bytes 6 - SHK_ATRB+1
+*
+*-------------------------------------------------
+* ATTRIBUTE SECTION
+*-------------------------------------------------
+*
+SHK_ATRB    DW        0                                        ; Length Of The Attribute Section Of
+; Each Header. The Distance From SHK_ID2
+; To And Including SHK_FNLN
+SHK_FVER    DW        0                                        ; Minimum Version Needed For Extraction
+SHK_NTHR    ADRL      0                                        ; The Number Of Threads Following NXFNAM
+SHK_OS      DW        0                                        ; Native File System Identifier
+*
+*  0     File Is An Archived Disk
+*  1     ProDOS/SOS
+*  2     DOS 3.3
+*  3     DOS 3.2
+*  4     Apple II Pascal
+*  5     Macintosh(Tm) (HFS)
+*  6     Macintosh (MFS)
+*  7     LISA(Tm) File System
+*  8     Apple CP/M
+*  9     Reserved, Do Not Use
+*  A     MS-DOS
+*  B     High-Sierra
+*  C     ISO 9660
+*  D     AppleShare
+*  E-
+*  FFFF  Reserved
+*
+            ASC       '/'                                      ; Native File System Separator
+; ProDOS = '/' ($2F)
+; HFS    = ':' ($3A)
+; MS-DOS = '\' ($5C)
+            DB        0                                        ; Sparse File Indicated If = 1
+SHK_ACS     ADRL      0
+*
+* SHK_ACS    31-8     Reserved, Must Be Zero
+*             7       Destroy Enabled
+*             6       Rename Enabled
+*             5       Backup Needed
+*            4-3      Reserved, Must Be Zero
+*             2       File Is Invisible
+*             1       Write Enabled
+*             0       Read Enabled
+*
+SHK_FTYP    ADRL      0                                        ; File Type, Disk = 0
+SHK_AUX     ADRL      0                                        ; Extra Type, ProDOS Aux_Type Or HFS
+; Creator_Type, Disk: Total Number
+; Of Blocks On The Device
+            DW        0                                        ; Storage Type, If A Disk This Should
+; Contain The Block Size Of The O/S
+*
+*   1  < 512 Bytes           ProDOS    512
+*   2  > 511 Bytes, < 128K   DOS 3.3   256
+*   3  > 129K                HFS       524
+*   5  Extended File
+*  $D  Subdirectory
+*
+            DS        3                                        ; File Creation Time And Date
+            DS        5
+SHK_MATM    DS        3                                        ; Time And Date File Last Modified
+SHK_MADT    DS        5
+            DS        3                                        ; Time And Date File Archived
+            DS        5
+            DA        0                                        ; Filename Length
+; If Filename Length Is 0,
+; Filename Is In Thread Class 3
+; Length Of FST Option List
+; Only If NuFX Version Is 1 Or Greater
+*
+* A GS/OS Option_List Is Formatted As Follows:
+* This List Is Present Only In NuFX Versions >0
+*
+*        DA    0          ; Option List Buffer Size (>45)
+*        DA    0          ; Bytes Of Info Returned By GS/OS
+*        DA    0          ; File System ID Word For FST
+*        DS    46         ; Bytes Returned By FST
+*
+*        DW    0          ; Filename Length
+*
+*-------------------------------------------------
+* THREAD SECTION
+*-------------------------------------------------
+*
+SHK_TCLS    DW        0                                        ; Describes The Class Of The Thread
+*              0            CLS_MSG
+*              1            CLS_CNTRL
+*              2            CLS_DATA
+*              3            CLS_FNAME
+*
+SHK_TFMT    DW        0                                        ; Format Of The Data Within The Thread
+*              0            Uncompressed
+*              1            Huffman SQueezed (SQ/USQ)
+*              2            Dynamic LZW Type 1
+*              3            Dynamic LZW Type 2
+*              4            Unix 12 bit compression
+*              5            Unix 16 bit compression
+*              .            RESERVED, Contact The Author
+*             FFFF
+*
+SHK_TKND    DW        0                                        ; Describes Data In Thread
+*
+* SHK_TCLS     SHK_TKND     THREAD CONTAINS:
+*-------------------------------------------------
+* CLS_MSG      0            ASCII Text
+*              1            Comment
+*                           All Others Undefined
+*
+* CLS_CNTRL    0            Create Directory
+*                           All Others Undefined
+*
+* CLS_DATA     0            Data_Fork Of File
+*              1            Disk Image
+*              2            Resource_Fork Of File
+*                           All Others Undefined
+*
+* CLS_FNAME    0            Record Filename
+*
+            DS        2                                        ; Reserved
+SHK_TFNL                                                       ; Length Of Filename
+SHK_TCML                                                       ; Length Of Comment
+SHK_TEOF    ADRL      0                                        ; Length Of The Uncompressed Thread
+                                                               ; Space Allocated For Filename
+                                                               ; Space Allocated For Comment
+SHK_TCEF    ADRL      0                                        ; Length Of The Compressed Thread
+            DEND
+*
+*-------------------------------------------------
+* FILENAME SECTION
+*-------------------------------------------------
+*
+            DUM       DATABUF
+SHK_FNAM    DS        1                                        ; Filename, Partial Pathname Or Disk
+            DEND                                               ; Volume Name. Names Ported Across
+; Systems May Have Illegal Characters
+; Or Characteristics.
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Start Of The Thread List = (Beginning Of Header)
+*                            + SHK_ATRB + SHK_FNLN
+*
+* End Of The Thread List = (Beginning Of Header)
+*                          + SHK_ATRB + SHK_FNLN
+*                          + (16 * NCNUMTHR)
+*
+* Start Of A Data_Thread = (Beginning Of Header)
+*                          + SHK_ATRB + SHK_FNLN
+*                          + (16 * NCNUMTHR)
+*                          + (THRCMPEOF Of All Threads In The
+*                           Thread List Which Are Not Data Prior
+*                           To Finding A CLS_DATA = 0000)
+*
+* Start Of A Resource_Thread = (Beginning Of Header)
+*                          + SHK_ATRB + SHK_FNLN
+*                          + (16 * SHK_NTHR)
+*                          + (THRCMPEOF Of All The Threads In
+*                            The Thread List Which Are Not
+*                            Resources Prior To Finding A
+*                            CLS_DATA = 0002)
+*
+* Next Record = (Beginning Of Header) + SHK_ATRB + SHK_FNLN +
+*               (16 * SHK_NTHR) + (THRCMPEOF Of Each Thread)
+*
+*-------------------------------------------------
+*
+DO_SHK      ZEROSEEK                                           ; Reset To Archive Start
+DO_SHK2     READ      #48;SHK_ID1                              ; Read In Master Header
+            LDX       #5                                       ; Check For Valid Header
+:SIGLOOP    LDA       HDRBUF,X
+            CMP       :M_SIG,X
+            BNE       :SIGERR
+            DEX
+            BPL       :SIGLOOP
+            BMI       :SIGOK
+
+:SIGERR     JSR       SHOWSTR                                  ; Invalid Header
+            ASC       '[Error]...Not A NuFX Archive.'8D
+            RTS
+
+:SIGOK      JSR       :CPYRECN                                 ; Copy Over Record Number
+            PRINT     'ShrinkIt V'
+            DECOUT    $80;WORD;SHK_VER
+            PRINT     ': Create: '
+            GDATE     SHK_CDAT
+            GTIME     SHK_CTIM
+            PRINT     'Mod: '
+            GDATE     SHK_MDAT
+            GTIME     SHK_MTIM
+            PRINT     'Rec: '
+            DECOUT    $80;LONG;SHK_RECS
+            APPLE     1                                        ; Compression used
+            LDA       #0                                       ; Flag First Pass
+            STA       PASSNO
+            STA       COMMENTS                                 ; Flag No Comments
+            GETMARK   STRTMARK                                 ; Save Starting Mark
+            JSR       :LLOOP                                   ; Show File List
+            BCC       :COMMENT
+            JMP       :BADFILE                                 ; Error, No Comments
+
+:COMMENT    BIT       COMMENTS                                 ; Any Comments To Show?
+            BPL       :SHKQUIT
+
+            PUTMARK   STRTMARK                                 ; Reset Mark To Start
+            JSR       :CPYRECN                                 ; Reset Number Of Records
+            DEC       PASSNO                                   ; Flag Pass 2
+            JSR       SHOWSTR
+            DB        Cr,Cr
+            ASC       'Comments:'0D8D
+:LLOOP      BIT       PASSNO                                   ; Which Pass?
+            BPL       :PASS1                                   ; Pass 1, Show List
+
+            JSR       :SHOWCOM                                 ; Show Comments
+            JMP       :PASS2                                   ; Next Entry
+
+:PASS1      JSR       :SHOWENT                                 ; Show The Entry
+            BCS       :BADQUIT
+:PASS2      BIT       INTOUT                                   ; Interrupted?
+            BMI       :SHKQUIT                                 ; Yes
+
+            LDA       CUR_REC                                  ; Count Down Records
+            BNE       :DEC1
+            DEC       CUR_REC+1
+:DEC1       DEC       CUR_REC
+            LDA       CUR_REC
+            ORA       CUR_REC+1
+            BEQ       :SHKQUIT                                 ; Finished
+
+            JSR       :SETETHR                                 ; Set Mark To Next Header
+            JSR       ADDXAY                                   ; Add In Thread Sizes
+            DA        TCOMPR
+            JSR       ADDXAY                                   ; Add In Other Comp Sizes
+            DA        OCOMPR
+            JSR       SET_POS                                  ; Set Mark
+            JMP       :LLOOP                                   ; Loop Back
+
+:BADQUIT    JSR       SHOWSTR
+            DB        Cr,Cr,Cr
+            ASC       'ERROR: File Corrupted.'8D
+:SHKQUIT    CLC
+            RTS
+
+:BADFILE    SEC
+            RTS
+
+*=================================================
+* Show Record File Information
+*=================================================
+
+:SHOWENT    JSR       :THRDATA                                 ; Read In Thread Data
+            JSR       :GET_FN
+            P_ACCESS  SHK_ACS                                  ; Show File's Access
+; Print The File Name
+            PSTRING   0;SHK_FNAM;SHK_FNAM+1
+
+            BIT       SHK_DSK                                  ; Is It A Disk?
+            BPL       :TFILE                                   ; Nope, File
+
+            PRINT     'Disk  '
+            JMP       :DODATE
+
+:TFILE      FILETYPE  SHK_FTYP                                 ; Show File Type
+:DODATE     GDATE     SHK_MADT                                 ; Print Date
+            GTIME     SHK_MATM                                 ; Print Time
+            BIT       SHK_DSK
+            BPL       :NOTDISK
+
+            LSR       SHK_AUX+1                                ; Divide Auxtype By 2 For
+            ROR       SHK_AUX                                  ; Disk Storage
+; Print Disk Size
+            DECOUT    $80;WORD;SHK_AUX
+            PRINT     'k  '
+            JMP       :SIZE
+
+:NOTDISK    AUXTYPE   SHK_AUX                                  ; Show Aux Type
+; Print Uncompressed Size
+:SIZE       DECOUT    8;LONG;TUCOMPR
+            TWOSPACE
+            LDA       SHK_TFMT+1
+            BEQ       :THROK
+
+:UNKFMT     LDX       #<UNK                                    ; Method Unknown
+            LDA       #>UNK
+            BNE       :DO_METH
+
+:THROK      LDA       SHK_TFMT                                 ; Print Pack Method
+            CMP       #5+1                                     ; Supported format?
+            BGE       :UNKFMT                                  ; Nope, Unknown
+
+            ASL
+            TAY
+            LDX       :METHODS,Y
+            LDA       :METHODS+1,Y
+:DO_METH    JSR       PRINTFMT
+            JSR       :DECTHRD
+; Print Compression %
+            PERCENT   LONG;TCOMPR;LONG;TUCOMPR
+            CROUT                                              ; Finish Line
+:NOCOMM     JMP       :GO_THRD                                 ; Reset To End Of Threads
+
+*=================================================
+* Show Comment Thread
+*=================================================
+
+:SHOWCOM    JSR       :THRDATA                                 ; Read In Thread Data
+            LDA       SHK_NCML                                 ; Any Comment To Show?
+            ORA       SHK_NCML+1
+            BEQ       :NOCOMM                                  ; Nope..
+
+            JSR       :GET_FN
+; Print The File Name
+            PSTRING   #$80;SHK_FNAM;SHK_FNAM+1
+            CROUT                                              ; Skip A Line
+            CROUT
+            JSR       :SETETHR
+            JSR       ADDXAY                                   ; Add In Comment Offset
+            DA        COMOFFS
+            JSR       SET_POS                                  ; Set Mark
+:COMLUP     READ      #1;SHK_FNAM                              ; Read In Comment Character
+            LDA       SHK_FNAM                                 ; Print Character
+            JSR       COUT
+            LDA       SHK_NCML                                 ; Decrement Comment Byte
+            BNE       :DECCOM                                  ; Count
+            DEC       SHK_NCML+1
+:DECCOM     DEC       SHK_NCML
+            LDA       SHK_NCML                                 ; If Zero, Finished
+            ORA       SHK_NCML+1
+            BNE       :COMLUP
+
+            CROUT
+            CROUT
+            RTS
+
+:SETTHRD    LDA       SHK_NTHR                                 ; Copy Number Of Threads
+            STA       TCOUNT                                   ; To Counter
+            LDA       SHK_NTHR+1
+            STA       TCOUNT+1
+            RTS
+
+:DECTHRD    LDA       TCOUNT                                   ; Count Down Thread Records
+            BNE       :DEC2
+            DEC       TCOUNT+1
+:DEC2       DEC       TCOUNT
+:CHKTHRD    LDA       TCOUNT
+            ORA       TCOUNT+1
+            RTS
+
+*-------------------------------------------------
+* List Data
+
+:M_SIG      DCI       'Nu'                                     ; Spells The Word 'NuFile'
+            DCI       'Fi'                                     ; In Alternating Ascii For
+            DCI       'le'                                     ; Uniqueness
+
+:F_SIG      DCI       'Nu'
+            DCI       'FX'
+
+*-------------------------------------------------
+* READ16 -- Read 16 Bytes Of A Thread_Record Into
+*           Thread Buffer
+
+:READ16     READ      #16;SHK_TCLS                             ; Read In Thread Record
+            RTS
+
+:GO_THRD    PUTMARK   THRMARK                                  ; Reset To Start Of Threads
+            RTS
+
+:CPYRECN    LDA       SHK_RECS                                 ; Copy Number Of Records
+            STA       CUR_REC                                  ; To Counter
+            LDA       SHK_RECS+1
+            STA       CUR_REC+1
+            RTS
+
+:THRDATA    READ      #8;SHK_ID2                               ; First Read Initial 8 Bytes
+            LDA       SHK_ATRB
+            SEC
+            SBC       #8                                       ; (Read SHK_ATRB-8) Bytes
+            TAY
+            JSR       DO_READ                                  ; Then Read Rest Of HEADER
+            DA        SHK_FVER
+            LDX       #3
+:TESTID     LDA       SHK_ID2,X
+            CMP       :F_SIG,X
+            BEQ       :GOODFIL
+            PLA
+            PLA
+            JMP       :BADFILE
+
+:GOODFIL    DEX
+            BPL       :TESTID
+
+            LDA       #0                                       ; Zero Filename
+            STA       SHK_FNAM
+            LDX       SHK_ATRB                                 ; Get And Read Filename
+            LDA       SHK_ID2-2,X                              ; Any Filename Here?
+            BEQ       :NNAME                                   ; No
+
+            TAY
+            STY       SHK_FNAM                                 ; Yes, Get The Filename
+            JSR       DO_READ
+            DA        SHK_FNAM+1
+:NNAME      LDA       #0
+            STA       SHK_DSK                                  ; Clear Disk Flag
+            LDA       SHK_OS                                   ; Get OS.
+            BEQ       :SETDISK                                 ; If Zero, It's A Disk
+
+            LDA       SHK_FTYP                                 ; Check File Type
+            BNE       :NODISK                                  ; If Not Zero, Not A Disk
+
+            LDA       SHK_AUX+2                                ; If AuxType > 65536
+            ORA       SHK_AUX+3
+            BNE       :NODISK                                  ; Not A Disk
+
+            LDA       SHK_AUX                                  ; If AuxType <> 1600
+            CMP       #<1600
+            BNE       :CHK280                                  ; Check For 280 Blocks
+            LDA       SHK_AUX+1
+            CMP       #>1600
+            BNE       :NODISK
+            BEQ       :SETDISK
+
+:CHK280     CMP       #<280                                    ; If AuxType <> 280
+            BNE       :NODISK                                  ; Not A Disk
+            LDA       SHK_AUX+1
+            CMP       #>280
+            BNE       :NODISK
+
+:SETDISK    DEC       SHK_DSK                                  ; Flag As Disk
+:NODISK     GETMARK   THRMARK                                  ; Get Start Of Threads
+            LDX       #11                                      ; Zero Old Sizes
+            LDA       #0
+:0TSIZE     STA       TCOMPR,X
+            DEX
+            BPL       :0TSIZE
+
+            JSR       :SETTHRD                                 ; Read All Thread Records
+:TLOOP1     JSR       :READ16                                  ; To Get All Sizes
+            LDA       SHK_TCLS
+            BEQ       :MSGTHRD
+
+            CMP       #3                                       ; Filename Thread?
+            BEQ       :DOFN                                    ; Yes
+
+            CMP       #2                                       ; Data Thread?
+            BNE       :ADDOTHR                                 ; Nope
+
+; Add Uncompressed Sizes
+            ADD       LONG;TUCOMPR;LONG;SHK_TEOF;LONG;TUCOMPR
+; Add Compressed Sizes
+            ADD       LONG;TCOMPR;LONG;SHK_TCEF;LONG;TCOMPR
+            JMP       :TLOOP1E
+
+:MSGTHRD    LDA       SHK_TKND                                 ; Comment Is Kind 1
+            CMP       #1
+            BNE       :ADDOTHR
+
+            LDA       SHK_TCML                                 ; Save Comment Length
+            STA       SHK_NCML
+            LDA       SHK_TCML+1
+            STA       SHK_NCML+1
+            ORA       SHK_NCML                                 ; Any Comment Here?
+            BEQ       :ADDOTHR                                 ; Nope
+
+* Add previous lengths to get offset
+* from end of threads to comment
+
+            ADD       LADR;OCOMPR;LADR;TCOMPR;LADR;COMOFFS
+            LDA       #$80
+            STA       COMMENTS
+            JMP       :ADDOTHR
+
+:DOFN       LDA       SHK_TFNL                                 ; Save Filename Length
+            STA       SHK_NFNL
+
+* All previous lengths to get offset
+* from end of threads to filename
+
+            ADD       LADR;OCOMPR;LADR;TCOMPR;LADR;FNAMOFFS
+
+; Add In Any Other Sizes
+:ADDOTHR    ADD       LADR;OCOMPR;LADR;SHK_TCEF;LADR;OCOMPR
+:TLOOP1E    JSR       :DECTHRD
+            BEQ       :ENDTHRD
+            JMP       :TLOOP1
+
+:ENDTHRD    GETMARK   ENDTHRD                                  ; Get End Of Thread Records
+            RTS                                                ; Location
+
+:GET_FN     LDY       SHK_FNAM                                 ; Filename There Already?
+            BNE       :SNAME                                   ; Yes, Skip Read
+
+            JSR       :SETETHR                                 ; Point To Filename
+            JSR       ADDXAY
+            DA        FNAMOFFS
+            JSR       SET_POS
+            LDY       SHK_NFNL                                 ; Read In Filename
+            STY       SHK_FNAM
+            JSR       DO_READ
+            DA        SHK_FNAM+1
+:SNAME      RTS
+
+:SETETHR    PUTMARK   ENDTHRD                                  ; Point To End Of Thread records
+            JMP       GET_MARK                                 ; Put Position In X, A, Y
+
+*-------------------------------------------------
+
+:METHODS    DA        STORE
+            DA        SQU
+            DA        TYPE1
+            DA        TYPE2
+            DA        COMP12
+            DA        COMP16
+
diff --git a/SOURCE/LISTER/TEST b/SOURCE/LISTER/TEST
new file mode 100644
index 0000000..f0397b2
Binary files /dev/null and b/SOURCE/LISTER/TEST differ
diff --git a/SOURCE/LISTER/ZIP.S b/SOURCE/LISTER/ZIP.S
new file mode 100644
index 0000000..6ab5fd4
--- /dev/null
+++ b/SOURCE/LISTER/ZIP.S
@@ -0,0 +1,361 @@
+*=================================================
+* ZIP  (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*         Local File Header 1
+*                   File 1 Extra Field
+*                   File 1 Comment
+*              File Data 1
+*         Local File Header 2
+*                   File 2 Extra Field
+*                   File 2 Comment
+*              File Data 2
+*         .
+*         .
+*         .
+*         Local File Header N
+*                   File N Extra Field
+*                   File N Comment
+*              File Data N
+*    Central Directory
+*              Central Extra Field
+*              Central Comment
+*         End Of Central Directory
+*                   End Comment
+* EOF
+*
+*-------------------------------------------------
+* LOCAL FILE HEADER
+*-------------------------------------------------
+*
+            DUM       HDRBUF
+ZIP_L_ID    ASC       'PK'                         ; 0  ZIP Header Signature
+            HEX       0304                         ; 2  Local File Header Signature
+            DW        0                            ; 4  Version Needed To Extract
+            DW        0                            ; 6  General Purpose Bit Flag
+*
+*  0     If Set, File Is Encrypted
+*  1     If File Imploded And This Bit Is Set, 8K
+*          Sliding Dictionary Was Used.
+*        If Clear, 4K Sliding Dictionary Was Used.
+*  2     If File Imploded And This Bit Is Set, 3
+*          3 Shannon-Fano Trees Were Used.
+*          If Clear, 2 Shannon-Fano Trees Were Used.
+* 3-4    Unused
+* 5-7    Used Internaly By ZIP
+*
+            DW        0                            ; 8  Compression Method
+*
+*  0  Stored     No Compression Used
+*  1  Shrunk     LZW, 8K Buffer
+*                  9-13 Bits With Partial Clearing
+*  2  Reduced-1  Probalistic Compression,
+*                  L(X) = Lower 7 Bits
+*  3  Reduced-2  Probalistic Compression
+*                  L(X) = Lower 6 Bits
+*  4  Reduced-3  Probalistic Compression,
+*                  L(X) = Lower 5 Bits
+*  5  Reduced-4  Probalistic Compression,
+*                  L(X) = Lower 4 Bits
+*  6  Imploded   2 Shanno-Fano Trees,
+*                  4K Sliding Dictionary
+*  7  Imploded   3 Shanno-Fano Trees,
+*                  4K Sliding Dictionary
+*  8  Imploded   2 Shanno-Fano Trees,
+*                  8K Sliding Dictionary
+*  9  Imploded   3 Shanno-Fano Trees,
+*                  8K Sliding Dictionary
+*
+            DW        0                            ; 10 Last Mod File Time (MS-DOS)
+            DW        0                            ; 12 Last Mod File Date (MS-DOS)
+            ADRL      0                            ; 14 CRC-32
+ZIP_LNSZ    ADRL      0                            ; 18 Compressed Size
+            ADRL      0                            ; 22 Uncompressed Size
+ZIP_LFLN    DW        0                            ; 26 Filename Length
+ZIP_LXLN    DW        0                            ; 28 Extra Field Length
+            DS        1                            ; Filename
+            DS        1                            ; Extra Field
+*
+*-------------------------------------------------
+* CENTRAL DIRECTORY STRUCTURE
+*-------------------------------------------------
+*
+ZIP_C_ID    ASC       'PK'                         ; 0  ZIP Header Signature
+            HEX       0102                         ; 2  Central File Header Signature
+            DB        0                            ; 4  Version Made By
+            DB        0                            ; 5  Host Operating System
+*
+*   0  MS-DOS And OS/2 (FAT)
+*   1  Amiga
+*   2  VMS
+*   3  Unix
+*   4  VM/CMS
+*   5  Atari ST
+*   6  OS/2 1.2 Extended File Sys
+*   7  Macintosh
+*   8  Thru
+* 255  Unused
+*
+            DB        0                            ; 6  Version Needed To Extract
+            DB        0                            ; 7  O/S Of Version Needed For Extraction
+            DW        0                            ; 8  General Purpose Bit Flag
+*
+*  0     If Set, File Is Encrypted
+*  1     If File Imploded And This Bit Is Set, 8K
+*            Sliding Dictionary Was Used.
+*        If Clear, 4K Sliding Dictionary Was Used.
+*  2     If File Imploded And This Bit Is Set, 3
+*            Shannon-Fano Trees Were Used. If Clear, 2
+*            Shannon-Fano Trees Were Used.
+* 3-4    Unused
+* 5-7    Used Internaly By ZIP
+*
+ZIP_CMTH    DW        0                            ; 10 Compression Method
+*
+* ZIP_CMTH  0  Stored     No Compression Used
+*           1  Shrunk     LZW, 8K Buffer
+*                           9-13 Bits With Partial Clearing
+*           2  Reduced-1  Probalistic Compression,
+*                           L(X) = Lower 7 Bits
+*           3  Reduced-2  Probalistic Compression
+*                           L(X) = Lower 6 Bits
+*           4  Reduced-3  Probalistic Compression,
+*                           L(X) = Lower 5 Bits
+*           5  Reduced-4  Probalistic Compression,
+*                           L(X) = Lower 4 Bits
+*           6  Imploded   2 Shanno-Fano Trees,
+*                           4K Sliding Dictionary
+*           7  Imploded   3 Shanno-Fano Trees,
+*                           4K Sliding Dictionary
+*           8  Imploded   2 Shanno-Fano Trees,
+*                           8K Sliding Dictionary
+*           9  Imploded   3 Shanno-Fano Trees,
+*                           8K Sliding Dictionary
+*
+ZIP_CTIM    DW        0                            ; 12 Last Mod File Time (MS-DOS)
+ZIP_CDAT    DW        0                            ; 14 Last Mod File Date (MS-DOS)
+            ADRL      0                            ; 16 CRC-32
+ZIP_CNSZ    ADRL      0                            ; 20 Compressed Size
+ZIP_COSZ    ADRL      0                            ; 24 Uncompressed Size
+ZIP_CFLN    DW        0                            ; 28 Filename Length
+ZIP_CXLN    DW        0                            ; 30 Extra Field Length
+ZIP_CCLN    DW        0                            ; 32 File Comment Length
+            DW        0                            ; 34 Disk Number Start
+            DW        0                            ; 36 Internal File Attributes
+                                                   ; If = 1, File Is Apparently An
+;         ASCII Or Text File
+; If = 0, File Apparently Contains
+;         Binary Data
+; 1-7     Unused In Version 1.0.
+*
+ZIP_CXTN    ADRL      0                            ; 38 External File Attributes, Host
+; System Dependent
+            ADRL      0                            ; 42 Relative Offset Of Local Header
+; From The Start Of The First Disk
+; On Which This File Appears
+            DS        1                            ; Filename Or Path - Should Not
+; Contain A Drive Or Device Letter,
+; Or A Leading Slash. All Slashes
+; Should Be Forward Slashes '/'
+            DS        1                            ; Extra Field
+            DS        1                            ; File Comment
+*
+*-------------------------------------------------
+* END OF CENTRAL DIR STRUCTURE
+*-------------------------------------------------
+*
+ZIP_E_ID    ASC       'PK'                         ; ZIP Header Signature
+            HEX       0506                         ; End Of Central Dir Signature
+            DW        0                            ; Number Of This Disk
+            DW        0                            ; Number Of Disk With Start Central Dir
+            DW        0                            ; Total Number Of Entries In Central Dir
+; On This Disk
+ZIP_EENT    DW        0                            ; Total Number Entries In Central Dir
+            ADRL      0                            ; Size Of The Central Directory
+            ADRL      0                            ; Offset Of Start Of Central Directory
+; With Respect To The Starting Disk
+; Number
+            DW        0                            ; Zipfile Comment Length
+            DS        1                            ; Zipfile Comment
+            DEND
+*
+*-------------------------------------------------
+* EXTRA FIELD
+*-------------------------------------------------
+*
+            DUM       DATABUF
+ZIP_EXID    DW        0                            ; 0-31 Reserved By PKWARE
+            DW        0
+            DS        1                            ; Specific Data For Individual
+            DEND                                   ; Files. Data Field Should Begin
+; With A S/W Specific Unique ID
+*-------------------------------------------------
+* MS-DOS Attribute Flags:
+*
+* Bit 7: Not Used
+*     6: Not Used
+*     5: File Not Archived
+*     4: Subdirectory File
+*     3: Volume Label
+*     2: System File
+*     1: Hidden File
+*     0: File Is Read-Only
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* First File Header = Beginning Of File
+*
+* Begining Of Data  = Beginning Of Header +
+*                       ZIP_LFLN + ZIP_LXLN + 30
+*
+* Next File Header = Begining Data + ZIP_LNSZ
+*       Or
+*                  = Previous File Header + ZIP_LNSZ +
+*                       ZIP_LFLN + ZIP_LXLN + 30
+*
+DO_ZIP      ZEROSEEK
+            LDA       #0
+            STA       LASTMARK
+            STA       LASTMARK+1
+            STA       LASTMARK+2
+:FNDCENT    READ      #30;ZIP_L_ID                 ; Read In A Header
+            LDA       ZIP_L_ID+2                   ; Is It A Local File Header?
+            CMP       #3
+            BNE       :CONT                        ; Nope
+
+            LDA       ZIP_L_ID+3
+            CMP       #4
+:CONT       BNE       :FINDEND                     ; Nope
+
+            LDX       LASTMARK
+            LDA       LASTMARK+1
+            LDY       LASTMARK+2
+            JSR       ADDXAY                       ; MARK = MARK + ZIP_LNSZ
+            DA        ZIP_LNSZ
+            JSR       ADDXAY2                      ; MARK = MARK + ZIP_LFLN
+            DA        ZIP_LFLN
+            JSR       ADDXAY2                      ; MARK = MARK + ZIP_LXLN
+            DA        ZIP_LXLN
+            JSR       ADDXAY2                      ; Add Local Header Length
+            DA        :30
+            PUTMARK   LASTMARK                     ; Point To Next Header
+            JMP       :FNDCENT
+
+:30         DA        30
+
+:FINDEND    LDX       LASTMARK                     ; Point Back To Last Header
+            LDA       LASTMARK+1
+            LDY       LASTMARK+2
+            STX       CENTMRK                      ; Save Start Of Central Header
+            STA       CENTMRK+1
+            STY       CENTMRK+2
+            JSR       SET_POS
+:SRCHEND    READ      #46;ZIP_C_ID                 ; Read Central Header
+            LDA       ZIP_C_ID+2                   ; Is It Central Header?
+            CMP       #1
+            BNE       :CONT2                       ; Nope
+
+            LDA       ZIP_C_ID+3
+            CMP       #2
+:CONT2      BNE       :DO_END                      ; Nope
+
+            LDX       LASTMARK
+            LDA       LASTMARK+1
+            LDY       LASTMARK+2
+            JSR       ADDXAY2                      ; MARK = MARK + ZIP_CFLN
+            DA        ZIP_CFLN
+            JSR       ADDXAY2                      ; MARK = MARK + ZIP_CXLN
+            DA        ZIP_CXLN
+            JSR       ADDXAY2                      ; MARK = MARK + ZIP_CCLN
+            DA        ZIP_CCLN
+            JSR       ADDXAY2
+            DA        :46
+            PUTMARK   LASTMARK                     ; Point To Next Header
+            JMP       :SRCHEND
+
+:46         DA        46
+
+:DO_END     PUTMARK   LASTMARK                     ; Point Back To Last Header
+
+            READ      #33;ZIP_E_ID                 ; Should Be End Header Now finally
+            PRINT     'ZIP  -  Records: '
+            DECOUT    $80;WORD;ZIP_EENT
+            MSDOS     1                            ; Print List Header
+            LDX       CENTMRK                      ; Set Mark Back To Central
+            LDA       CENTMRK+1
+            LDY       CENTMRK+2
+            STX       LASTMARK
+            STA       LASTMARK+1
+            STY       LASTMARK+2
+            JSR       SET_POS
+:ZIPLOOP    READ      #46;ZIP_C_ID                 ; Read In A Header
+            LDA       ZIP_C_ID+2                   ; Is It Central Header?
+            CMP       #1
+            BNE       :ZIPDONE
+
+            LDA       ZIP_C_ID+3
+            CMP       #2
+            BEQ       :ZIP_DO
+
+:ZIPDONE    RTS
+
+:ZIP_DO     CLC                                    ; LENGTH = ZIP_CFLN + ZIP_CXLN
+            LDA       ZIP_CFLN
+            ADC       ZIP_CXLN
+            CLC
+            ADC       ZIP_CCLN
+            TAY                                    ; Read In Filename +
+            JSR       DO_READ
+            DA        ZIP_EXID
+            M_ACCESS  ZIP_CXTN                     ; Show File's Access
+; Print File Name
+            PSTRING   #0;ZIP_CFLN;ZIP_EXID
+            MDATE     ZIP_CDAT                     ; Print Date
+            MTIME     ZIP_CTIM                     ; Print Time
+; Print Uncompressed Size
+            DECOUT    8;LONG;ZIP_COSZ
+            TWOSPACE
+            LDA       ZIP_CMTH                     ; Print Compression Method
+            CMP       #9+1                         ; Valid method?
+            BLT       :METHOK                      ; Yes
+
+            LDA       #10                          ; Make it unknown
+:METHOK     ASL
+            TAY
+            LDX       :METHODS,Y
+            LDA       :METHODS+1,Y
+            JSR       PRINTFMT
+; Print Compression Percentage
+            PERCENT   LONG;ZIP_CNSZ;LONG;ZIP_COSZ
+            CROUT                                  ; Next Line
+            BIT       INTOUT
+            BMI       :DONE2
+
+            SEC
+            LDA       ZIP_EENT
+            BNE       :DECE
+            DEC       ZIP_EENT+1
+:DECE       DEC       ZIP_EENT
+            LDA       ZIP_EENT
+            ORA       ZIP_EENT+1
+            BEQ       :DONE2
+
+            JMP       :ZIPLOOP
+
+:DONE2      RTS
+
+:METHODS    DA        STORE
+            DA        SHRUNK
+            DA        REDUCE
+            DA        REDUCE
+            DA        REDUCE
+            DA        REDUCE
+            DA        IMPLODE
+            DA        IMPLODE
+            DA        IMPLODE
+            DA        IMPLODE
+            DA        UNK
+
diff --git a/SOURCE/LISTER/ZOO.S b/SOURCE/LISTER/ZOO.S
new file mode 100644
index 0000000..5697392
--- /dev/null
+++ b/SOURCE/LISTER/ZOO.S
@@ -0,0 +1,146 @@
+*=================================================
+* ZOO  (MS-DOS)
+*=================================================
+* FILE FORMAT
+*-------------------------------------------------
+*
+*    Master Header
+*         File 1 Header
+*              File 1
+*         File 2 Header
+*              File 2
+*         .
+*         .
+*         File N Header
+*              File N
+* EOF
+*
+*-------------------------------------------------
+* MASTER HEADER
+*-------------------------------------------------
+*
+            DUM      HDRBUF
+ZOO_VER     DS       20                           ; ZOO Version Number
+            HEX      DCA7C4FD                     ; File Signature
+ZOO_FHDR    ADRL     0                            ; Pointer To 1St Header
+            ADRL     0                            ; ?
+            DB       0                            ; Version Making Archive
+            DB       0                            ; Minimum Version Needed To Extract
+; 34 Bytes
+*
+*-------------------------------------------------
+* FILE HEADER
+*-------------------------------------------------
+*
+ZOO_ID2     HEX      DCA7C4FD                     ; Signature
+            DB       0                            ; ?
+ZOO_MTHD    DB       0                            ; Compression Method
+*
+* ZOO_MTHD   0   Stored    No Compression Used
+*            1   Crunched  Packing, LZW, 4K Buffer
+*                            Variable Length (9-12 Bits)
+*
+ZOO_NHDR    ADRL     0                            ; Nxt Hdr Ofst Frm Start Of ZOO File
+ZOO_THDR    ADRL     0                            ; Offset Of This Hdr
+ZOO_MDAT    DW       0                            ; Last Mod File Date (MS-DOS)
+ZOO_MTIM    DW       0                            ; Last Mod File Time (MS-DOS)
+            DW       0                            ; CRC-16
+ZOO_OSIZ    ADRL     0                            ; Uncompressed Size
+ZOO_NSIZ    ADRL     0                            ; Compressed Size
+            DW       0                            ; Version That Made This File
+            DW       0                            ; Minimum Version Needed To Extract
+ZOO_DEL     DB       0                            ; 1 If File Deleted From Archive
+            ADRL     0                            ; Pointer To Comment, 0 If None
+            DB       0                            ; Length Of Comment
+ZOO_FNAM    DS       13                           ; Filename
+            DEND                                  ; 50 Bytes
+*
+*-------------------------------------------------
+* POSITIONING IN FILE
+*-------------------------------------------------
+*
+* Beginning Of 1St File Header = Begining Of File + ZOO_FHDR
+*       Or
+*                             = Begining Of File + 34
+*
+* Begining Of File Data = Begining Of File Header + 50
+*
+* Begining Of Next File = Begining Of File + ZOO_NHDR
+*
+* Begining Of File Comment = Begining Of File Header + ZOO_CPNT
+*
+DO_ZOO      LDX      #0                           ; Print ZOO Header
+:PRTZOO     LDA      ZOO_VER,X
+            CMP      #' '
+            BLT      :DONE
+            JSR      COUT
+            INX
+            CPX      #20
+            BNE      :PRTZOO
+
+:DONE       MSDOS    1                            ; Print List Header
+            PUTMARK  ZOO_FHDR                     ; Set Mark To First File Hdr
+:ZOOLOOP    READ     #50;ZOO_ID2                  ; Read File Header
+            LDA      ZOO_DEL                      ; Was It Deleted?
+            BNE      :SKIPENT                     ; Yes, Skip It
+
+            LDX      #3                           ; Check For Valid Entry
+:TESTID     LDA      :HDRID,X
+            CMP      ZOO_ID2,X
+            BNE      :ZOODONE
+            DEX
+            BPL      :TESTID
+
+            LDA      #0                           ; Check For Data In Record
+            LDX      #3
+:TESTENT    ORA      ZOO_THDR,X
+            DEX
+            BPL      :TESTENT
+
+            CMP      #0                           ; Any Data?
+            BEQ      :ZOODONE                     ; Nope
+
+            JSR      :SHOWENT
+
+:SKIPENT    BIT      INTOUT
+            BMI      :ZOODONE
+
+            LDA      ZOO_NHDR                     ; Any More Records?
+            ORA      ZOO_NHDR+1
+            ORA      ZOO_NHDR+2
+            BEQ      :ZOODONE                     ; Nope, Done
+
+            PUTMARK  ZOO_NHDR                     ; Point To Next Header
+            JMP      :ZOOLOOP                     ; Do Another
+
+:ZOODONE    RTS
+
+:SHOWENT    SPACE                                 ; No Attribute Byte
+; Print File Name
+            CSTRING  #0;ZOO_FNAM
+            MDATE    ZOO_MDAT                     ; Print Date
+            MTIME    ZOO_MTIM                     ; Print Time
+; Print Uncompressed Size
+            DECOUT   8;LONG;ZOO_OSIZ
+            TWOSPACE
+            LDA      ZOO_MTHD                     ; Print Compression Method
+            CMP      #1+1                         ; Valid method?
+            BLT      :METHOK                      ; Yes
+
+            LDA      #2                           ; Make it unknown
+:METHOK     ASL
+            TAY
+            LDX      :METHODS,Y
+            LDA      :METHODS+1,Y
+            JSR      PRINTFMT
+; Print Compression Percentage
+            PERCENT  LONG;ZOO_NSIZ;LONG;ZOO_OSIZ
+            CROUT                                 ; Next Line
+            RTS
+
+:METHODS    DA       STORE
+            DA       CRUNCH
+            DA       UNK
+
+:HDRID      HEX      DCA7C4FD
+
diff --git a/SOURCE/LLUCE.S b/SOURCE/LLUCE.S
new file mode 100644
index 0000000..4d56b1c
--- /dev/null
+++ b/SOURCE/LLUCE.S
@@ -0,0 +1,125 @@
+********************************
+*                              *
+*      LLUCE Version 1.0F4     *
+*                              *
+********************************
+* Copyright 1986-1993 By L&L Productions
+*-------------------------------
+* Version 1.0 Final 4
+*-------------------------------
+* This follows Apple's version types.
+* First byte is main version #.
+* Second byte contains 2 nibbles
+* The first nibble is the sub version
+* The second is a description character:
+*
+* 0 thru 9 - Release      version
+* A        - Alpha        version
+* B        - Beta         version
+* D        - Development  version
+* E        - Experimental version
+* F        - Final test   version
+*
+* E should not be released at all
+* A, B, D, F only to beta testers
+*-------------------------------
+
+Version     =      $01F4
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+NODEMO      =      Y
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List this source? (Y/N)'
+LISTSYM     KBD    'List symbol table? (Y/N)'
+            FIN
+            DO     NODEMO
+DEMOPGM     =      N
+            ELSE
+DEMOPGM     KBD    'Create LLUCE demo? (Y/N)'
+            FIN
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ERRORS
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA             ; Ramcard storage area
+
+]TYPE       =      ^sysfile                    ; set file type
+]AUX        =      sysfile                     ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/LLUCE.SYSTEM
+            LST    RTN
+
+            TTL    'LLUCE - Starting'
+HEADER      JMP    ENCODE                      ; System file standard start
+            HEX    EEEE                        ; There is room for filename
+            DB     65                          ; 65 bytes for filename
+ST_NAME     STR    'PROGRAM/LOGON.SEG'
+            DS     \
+            LST    OFF
+MOV_F00     ORG    MAINPGM
+            PUT    LLUCE/CONSOLE               ; Video driver
+            DS     \
+            PUT    LLUCE/START                 ; Main loop, error handler
+            PUT    LLUCE/IO.SUBS               ; I/O subroutines
+            PUT    LLUCE/PROG.SUBS             ; Misc subroutines
+            PUT    LLUCE/VAR                   ; Variable handlers
+            PUT    LLUCE/MATH                  ; Math functions
+            PUT    LLUCE/DISK                  ; Disk function handlers
+            PUT    LLUCE/MSG                   ; Message file handlers
+            PUT    LLUCE/DISKIO                ; Disk I/O routines
+            PUT    LLUCE/LOAD                  ; Segment/overlay loader
+            PUT    LLUCE/FLOW                  ; Program flow commands
+            PUT    LLUCE/STRING                ; String related commands
+            PUT    LLUCE/MEMORY                ; Memory related commands
+            PUT    LLUCE/DATETIME              ; Date/time commands
+            PUT    LLUCE/IO.CMDS               ; I/O commands
+            PUT    LLUCE/MISC.CMDS             ; Unrelated commands
+            DS     \
+CODEND      =      *
+            ORG                                ; End of moved code
+MOV_D800    ORG    XTRAPGM
+            PUT    LLUCE/HIGH.SUBS             ; High end subroutines
+            DS     \
+            ORG
+MOV_F100    ORG    ENTRYPTS
+            PUT    LLUCE/ENTRY                 ; Entry points
+            DS     \
+            PUT    LLUCE/TOKENS.JMP            ; Token jump table/text
+            DS     \
+            ORG
+MOV_D400    ORG    $D400
+            PUT    LLUCE/TOKENS.TXT
+            DS     \
+            ORG
+MOV_F800    ORG    RAMCARD
+            PUT    LLUCE/RAMCARD               ; Ramcard data area
+            ORG
+MOV_END     PUT    LLUCE/INIT                  ; Program initialization
+            PUT    LLUCE/ENCODE                ; Copyright/sn encoder
+
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'LLUCE - Symbol Table'
+
diff --git a/SOURCE/LLUCE/CONSOLE.S b/SOURCE/LLUCE/CONSOLE.S
new file mode 100644
index 0000000..ea16e3f
--- /dev/null
+++ b/SOURCE/LLUCE/CONSOLE.S
@@ -0,0 +1,648 @@
+            LST    RTN
+            TTL    'LLUCE - Console Driver'
+            PAG
+********************************
+*                              *
+*         Video Driver         *
+*  ProTERM Special Emulation   *
+*                              *
+*    Written By: Andy Wells    *
+*                              *
+********************************
+* Jump Table Entry Points
+*-------------------------------
+
+VIDRDKY     JMP    V_SCRNRD
+VIDSTORE    JMP    V_SCRNWR
+VIDCOUT     JMP    V_COUT
+VIDSCRL     JMP    V_SCROLL
+VIDBAN      JMP    V_BANNER
+VIDLST      JMP    V_CLRLST
+VIDRDST     JMP    V_SETLN
+VIDPOS      JMP    V_POSN
+
+VIDCHAT     LDEQX  WNDTOP;V_CHAT5            ; Screen Top Protected?
+
+            PUSHX  INVFLG                    ; save current stats
+            PUSHX  MOUSEFLG
+            PUSHX  CH
+            PUSHX  CV
+
+            CPNE   #-1;USE_NUM
+            LDA    LASTMSG
+USE_NUM     STA    LASTMSG
+
+            TAY
+            STZ    SETSTDZP
+            STZ    SETRAM1
+            MOVD   #VIDMSGS;PRN              ; set pointer
+            DBMI   Y;V_CHAT2
+V_CHAT0     JSR    INCPRN                    ; skip position byte
+V_CHAT1     LDEQ   (PRN);V_CHAT4             ; get a char
+            JSR    INCPRN                    ; bump pointer
+            ASL    A                         ; end of text?
+            BCC    V_CHAT1                   ; nope, loop
+            DBPL   Y;V_CHAT0                 ; yes, bump counter, loop
+
+V_CHAT2     LDY    #0
+            LDA    (PRN)
+            TAX
+            STZ    SETALTZP
+            JSR    V_POSN
+            STZ    SETSTDZP
+            JSR    INCPRN
+
+V_CHAT3     LDA    (PRN)                     ; Get Data
+            BEQ    V_CHAT4
+            PHP
+            AND    #Clrhi
+            STZ    SETALTZP
+            JSR    V_COUT
+            STZ    SETSTDZP
+            JSR    INCPRN
+            PLP
+            BPL    V_CHAT3                   ; End, Nope, Loop
+
+V_CHAT4     STZ    SETALTZP
+            STZ    SETRAM2
+            PLXY                             ; Restore Old Position
+            JSR    V_POSN
+            PULL   INVFLG                    ; And Inverse Flag
+            PULL   MOUSEFLG
+V_CHAT5     RTS
+
+*-------------------------------
+* Clear The Screen
+*-------------------------------
+
+V_CLEAR     JSR    V_HOME                    ; Move Cursor To Screen Top
+
+*-------------------------------
+* Clear From Cursor To End Of Screen
+*-------------------------------
+
+V_CLREOP    PUSHA  CV                        ; Save Cursor Vert
+            PUSHA  CH                        ; And Horiz
+            JSR    V_CLREOL                  ; Clear To End Of This Line
+            STZ    CH                        ; Cursor To Left
+            LDX    CV                        ; Go Down A Line
+V_CPLUP     INX
+            CPEQX  WNDBTM;V_CLRDN            ; At Bottom?
+
+            JSR    V_SETLN                   ; Set New Lines Address
+            LDA    #' '+Hibit                ; Fill It With Spaces
+            JSR    V_FILL
+            BRA    V_CPLUP                   ; Try Next Line
+
+V_CLRDN     PULL   CH                        ; Put The Cursor Back
+            PLA
+V_GOLINE    STA    CV                        ; Go To Line In A
+            TAX
+V_SETLN     CPEQX  V_OLDCV;V_BCDONE          ; Go To Line In X, same line, no calc
+
+            PHA                              ; Save The Char
+            TXA                              ; Set This New Line
+            STA    V_OLDCV
+            PHA                              ; Apples BASCALC Routine
+            LSR    A
+            AND    #%00000011
+            ORA    #%00000100
+            STA    BASE+1
+            PLA
+            AND    #%00011000
+            BCC    BASCALC2
+
+            ADC    #$7F
+BASCALC2    STA    BASE
+            ASL    A
+            ASL    A
+            ORA    BASE
+            STA    BASE
+            PLA
+V_BCDONE    RTS
+
+*-------------------------------
+* Goto (X,A)
+*-------------------------------
+
+V_POSN      STX    CH                        ; Do A Goto X,Y
+            TYA
+            BRA    V_GOLINE
+
+*-------------------------------
+* Clear From Cursor To End Of Line
+*-------------------------------
+
+V_CLREOL    LDX    CH                        ; Get Cursor Location
+V_CLLOOP    LDA    #' '+Hibit                ; Space To Fill
+            JSR    V_SCRNWR                  ; Stuff It
+            INC    CH                        ; Bump Cursor To Right
+            IFNE   CH;#vidWidth;V_CLLOOP     ; At Left Of Screen?
+
+            STX    CH                        ; Put Cursor Back
+            RTS
+
+*-------------------------------
+* Execute A TAB
+*-------------------------------
+
+V_TAB       INC    CH                        ; Move Cursor To Right
+            IFEQ   CH;#vidWidth;V_CRLF       ; End Of Line?
+
+            AND    #%00000111                ; 8 Spaces Per Tab
+            BNE    V_TAB                     ; Another If Not Done
+
+            RTS
+
+*-------------------------------
+* Do Carriage Return/Line Feed
+*-------------------------------
+
+V_CRLF      STZ    CH                        ; Cursor To Left Of Screen
+
+*-------------------------------
+* Do Line Feed Only
+*-------------------------------
+
+V_LF        LDA    CV                        ; Go Down One Line
+            INC    A
+            CPNE   WNDBTM;V_GOLINE           ; At Bottom Of Screen?
+
+*-------------------------------
+* Scroll The Screen Up 1 Line
+*-------------------------------
+
+V_SCROLL    LDX    WNDTOP                    ; Get Starting Line
+            JMP    V_SCRLUP                  ; Scroll The Screen Up
+
+*-------------------------------
+* Move Up 1 Line
+*-------------------------------
+
+V_UP        IFEQ   CV;WNDTOP;V_RTS1          ; At Top Of Screen?
+            DBRA   A;V_GOLINE                ; move up, do it
+
+*-------------------------------
+* Move Forward 1 Space
+*-------------------------------
+
+V_FWD       IFEQ   CH;#vidWidth-1;V_CRLF     ; At End Of Line?
+            INC    CH                        ; Nope, Move Forward
+V_RTS1      RTS
+
+*-------------------------------
+* Move Back 1 Space
+*-------------------------------
+
+V_BACK      LDNE   CH;V_BACKUP               ; At Start Of Line?
+            JSR    V_EOL                     ; Go To End Of Line
+            BRA    V_UP                      ; And Up One If Possible
+
+V_BACKUP    DEC    CH                        ; Go Back One Space
+            RTS
+
+*-------------------------------
+* Insert A Character
+*-------------------------------
+
+V_INSCHR    IFEQX  CH;#vidWidth-1;V_IC2      ; At End Of Line?
+
+            MOVY   #vidWidth-2;CH            ; Starting At End Of Line
+V_ICLOOP    JSR    V_SCRNRD
+            INC    CH                        ; Stuff It In Space To Right
+            JSR    V_SCRNWR
+            DEY                              ; Go Left One Space
+            STY    CH
+            CPMIX  CH;V_ICLOOP               ; At Insertion Point?
+            BEQ    V_ICLOOP                  ; Make Sure
+
+V_IC2       STX    CH                        ; Put Us Where We Were
+            LDA    #' '+Hibit                ; Put In A Space
+            JMP    V_SCRNWR
+
+*-------------------------------
+* Delete Character At Cursor
+*-------------------------------
+
+V_DELCHR    IFEQX  CH;#vidWidth-1;V_DC2      ; At End Of Line?
+
+V_DCLOOP    INC    CH                        ; Get Next Char
+            JSR    V_SCRNRD
+            DEC    CH                        ; Put It In Our Space
+            JSR    V_SCRNWR
+            INC    CH                        ; Go To Next Space
+            IFNE   CH;#vidWidth-1;V_DCLOOP   ; at end of line?
+
+V_DC2       LDA    #' '+Hibit                ; Space Out Last Char
+            JSR    V_SCRNWR
+            STX    CH                        ; Put Back Cursor
+            RTS
+
+*-------------------------------
+* Delete Line At Cursor
+*-------------------------------
+
+V_DELLN     LDX    CV                        ; Get Our Line
+
+*-------------------------------
+* Scroll Rest Of Screen Up
+*-------------------------------
+
+V_SCRLUP    JSR    V_SETLN                   ; Set It Up
+            MOVD   BASE;BASE2                ; Move Its Location
+            INX                              ; Set Next Line
+            JSR    V_SETLN
+            JSR    V_MVLINE                  ; Move The Line Base>Base2
+            TXA
+            TAY
+            INY
+            CPNEY  WNDBTM;V_SCRLUP           ; At End Of Screen?
+
+*-------------------------------
+* Clear Bottom Line Of Screen
+*-------------------------------
+
+V_CLRLST    LDX    WNDBTM                    ; Go To Bottom Line
+            DEX
+V_CLRX      LDA    #' '+Hibit                ; Filling It With Spaces
+
+*-------------------------------
+* Fill Line With Character In A
+*-------------------------------
+
+V_SHOW80    PHA
+            JSR    V_SETLN                   ; Set Our Lines Location
+            PLA
+V_FILL      LDY    #vidWidth/2-1             ; 40 Chars * 2
+V_FLOOP     STA    HISCR
+            STA    (BASE),Y                  ; Stuff It On Page 1
+            STA    LOWSCR
+            STA    (BASE),Y                  ; And On Page 2
+            DBPL   Y;V_FLOOP                 ; Finish It Off
+
+            RTS
+
+*-------------------------------
+* Insert A Line At Cursor
+*-------------------------------
+
+V_INSLN     LDX    WNDBTM                    ; Start At Bottom Of Screen
+            DEX
+V_ILLOOP    JSR    V_SETLN                   ; Get Lines Location
+            MOVD   BASE;BASE2                ; Put It In Tos Vector
+            DEX                              ; Next Line Up
+            JSR    V_SETLN
+            JSR    V_MVLINE                  ; Move The Line
+            CPNEX  CV;V_ILLOOP               ; At Cursors Line?
+            BRA    V_CLRX                    ; Clear Cursors Line
+
+*-------------------------------
+* Process A Character
+*-------------------------------
+
+V_COUT      TSTMI  V_MODE;V_COUT1            ; Processing A Command?
+            CPMI   #0;V_NULL                 ; high bit set?, ignore it
+
+V_COUT1     SVXAY                            ; Save All Registers
+            STY    VID_Y                     ; Need This Later
+            JSR    V_SETCV                   ; Set Our Line
+            JSR    V_COUT2                   ; Process The Char
+            JSR    V_SETCV                   ; Reset The Line Again
+            RSTXAY                           ; Get Back All Registers
+V_NULL      RTS
+
+*-------------------------------
+* Handle All Characters
+*-------------------------------
+
+V_COUT2     TSTMI  V_MODE;V_SPCL             ; Processing A Command?
+
+            CPGE   #' ';V_NORM               ; ctrl char, no, on scrn
+
+            ASL    A                         ; Go To The Routine
+            TAX
+            JMP    (V_ADRS,X)
+
+V_NORM      TSTMI  INVFLG;V_SETN             ; Are We In Normal Mode?
+            TSTMI  MOUSEFLG;V_SETM           ; Mouse Text Mode?
+
+            CPLT   #'@';V_PUTCHR             ; Put Char In Inverse Range
+            CPGE   #'_'+1;V_PUTCHR
+
+            AND    #%00111111
+            BPL    V_PUTCHR
+
+V_SETM      CPLT   #'@';V_SETN               ; Upper Case Range?
+            CPLT   #'_'+1;V_PUTCHR
+
+V_SETN      ORA    #Hibit
+V_PUTCHR    LDY    VID_Y                     ; Needed This From Before
+            JSR    V_SCRNWR                  ; Stuff The Char
+            JMP    V_FWD                     ; And Go Forward
+
+*-------------------------------
+* Set Vertical Position
+*-------------------------------
+
+V_SETCV     LDX    CV                        ; Set Vertical Line
+            JMP    V_SETLN
+
+*-------------------------------
+* Set Special Function Mode
+*-------------------------------
+
+V_SPCL      PHA                              ; Keep That Data
+            LDA    V_MODE                    ; Get Parm Position
+            EOR    #-1                       ; Make It Into Index
+            TAX
+            PULL   V_DATA,X                  ; Save It
+            IBPL   V_MODE;V_SPCL1            ; Parms All Done, Execute
+
+            RTS
+
+V_SPCL1     LDX    V_CALL                    ; Whats Our Call Type?
+            DBEQ   X;V_RPT                   ; Character Repeat?
+            DBEQ   X;V_GOXY                  ; how about gotoxy?
+
+            LDA    V_DATA+2                  ; Nope, Has To Be Tone
+            ASL    A                         ; Create Tone Data
+            TAX
+            LDA    V_DATA+1
+            ASL    A
+            TAY
+            LDA    V_DATA                    ; Pure Tone?
+            ASL    A
+            CPEQY  #2;V_PURE                 ; do it pure
+
+            STXY   V_TEMP+1                  ; Grabbed From ProTERM
+            LSR    A
+            STA    V_TEMP
+            MOV    V_TEMP+2;V_TEMP+4
+TN_LUP1     MOV    V_TEMP+1;V_TEMP+3
+            BIT    SPKR
+TN_LUP2     DBNE   X;DTONE3
+            DBMI   V_TEMP;ENDTONE
+
+DTONE3      BIT    LOWSPEED
+            BIT    LOWSPEED
+            DBEQ   V_TEMP+3;TN_LUP1
+
+            BIT    LOWSPEED
+            BIT    LOWSPEED
+            DBNE   V_TEMP+4;TN_LUP2
+
+            MOV    V_TEMP+2;V_TEMP+4
+            TSTRA  SPKR;TN_LUP2
+
+V_PURE      STX    V_TEMP+1                  ; Also Grabbed From ProTERM
+            PHY                              ; So Tones Are Same
+V_PLOOP     DBNE   X;V_PURE2
+
+            LDX    V_TEMP+1
+            BIT    SPKR
+V_PURE2     BIT    LOWSPEED
+            DBNE   Y;V_PLOOP
+            DBNE   A;V_PLOOP
+
+            PLY
+ENDTONE     RTS
+
+*-------------------------------
+* Execute A Gotoxy Function
+*-------------------------------
+
+V_GOXY      SEC                              ; Convert Line Data
+            LDA    V_DATA
+            SBC    #goxyOffs                 ; Subtract User Offset
+            CPGE   #vidHeight;V_NOOP
+
+            TAY                              ; Goes In Y
+            SEC                              ; Horiz Data
+            LDA    V_DATA+1
+            SBC    #goxyOffs                 ; Subtract User Offset
+            CPGE   #vidWidth;V_NOOP
+
+            TAX                              ; Goes In X
+            JMP    V_POSN                    ; Go There
+
+*-------------------------------
+* Execute Character Repeat Function
+*-------------------------------
+
+V_RPT       LDMI   V_DATA+1;V_NOOP           ; Get Char To Repeat
+V_RPT2      JSR    V_COUT                    ; Send The Char
+            DBNE   V_DATA;V_RPT2             ; Decrement Count
+V_NOOP      RTS
+
+*-------------------------------
+* Scroll Bottom Line Of Screen
+*-------------------------------
+
+V_BANNER    PHAX
+            LDX    #0
+            STA    LOWSCR
+BAN_LOOP    MOV    LINE24+2,X;HISCR
+            STA    LINE24+2,X
+            MOV    LINE24+3,X;LOWSCR
+            STA    LINE24+2,X
+            INX
+            CPNEX  #vidWidth/2-2;BAN_LOOP
+
+            PLAX
+            STA    LINE24+39
+            RTS
+
+*-------------------------------
+* Move Cursor To Upper Right
+*-------------------------------
+
+V_HOME      LDA    WNDTOP                    ; Go To Top Of Screen
+            JSR    V_GOLINE
+
+*-------------------------------
+* Move Cursor To Screen Right
+*-------------------------------
+
+V_CRONLY    STZ    CH                        ; And To Left
+            RTS
+
+*-------------------------------
+* Set Normal Mode
+*-------------------------------
+
+V_NORMAL    LDA    #-1                       ; Set Normal Mode
+            LDRAX  #Clrhi;SETV_MD
+
+*-------------------------------
+* Set Mousetext Mode
+*-------------------------------
+
+V_MOUSE     LDX    #-1                       ; Set Mousetext Mode
+            SKIP2
+
+*-------------------------------
+* Set Inverse Mode
+*-------------------------------
+
+V_INVRSE    LDX    #Clrhi                    ; Set Inverse Mode
+            LDA    #Clrhi
+SETV_MD     STA    INVFLG
+            STX    MOUSEFLG
+            RTS
+
+*-------------------------------
+* Read A Character From Screen
+*-------------------------------
+
+V_SCRNRD    CLC                              ; Reading
+            SKIPCS
+
+*-------------------------------
+* Write A Character To Screen
+*-------------------------------
+
+V_SCRNWR    SEC                              ; Writing
+            PHY                              ; Save Y
+            PHP                              ; Save Call Type
+            PHA                              ; And The Char For Write
+            LDA    CH                        ; Which Screen?
+            LSR    A
+            TAY
+            STA    HISCR                     ; Anticipate Page 2
+            BCC    V_SCWR1                   ; It Is, Leave It On
+
+            STA    LOWSCR                    ; Nope, Page 1
+V_SCWR1     PLA                              ; Get Our Char Back
+            PLP                              ; Is It A Write Call?
+            BCC    V_SCWR2                   ; Nope, Its Read
+
+            STA    (BASE),Y                  ; Put The Char On The Screen
+            BCS    V_SCWR3                   ; Always Does This
+
+V_SCWR2     LDA    (BASE),Y                  ; Get The Char From Screen
+V_SCWR3     STA    LOWSCR                    ; Back To Page 1
+            PLY                              ; Get Y Back
+            RTS
+
+*-------------------------------
+* Move Cursor To End Of Line
+*-------------------------------
+
+V_EOL       MOV    #vidWidth-1;CH            ; Force To End Of Line
+            RTS
+
+*-------------------------------
+* Setup For Tone Command
+*-------------------------------
+
+V_TONE      LDA    #-3                       ; 3 Parameters
+            LDRAX  #3;V_SETMD                ; Tone Call
+
+*-------------------------------
+* Setup For Gotoxy Command
+*-------------------------------
+
+V_GOTOXY    LDX    #2                        ; Gotoxy Call
+            SKIP2
+
+*-------------------------------
+* Setup For Repeat Command
+*-------------------------------
+
+V_REPEAT    LDX    #1                        ; Repeat Call
+            LDA    #-2                       ; 2 Parameters
+V_SETMD     STA    V_MODE
+            STX    V_CALL
+            RTS
+
+*-------------------------------
+* Do Standard Apple Beep
+*-------------------------------
+
+V_BELL      LDY    #$C0                      ; Standard Bell Routine
+V_BLLOOP    LDA    #12
+            JSR    WAIT
+            LDA    SPKR
+            DBNE   Y;V_BLLOOP
+            RTS
+
+*-------------------------------
+* Move A Line From BASE To BASE2
+*-------------------------------
+
+V_MVLINE    LDY    #vidWidth/2-1             ; Move Line Base -> Base2
+V_MLLOOP    STA    HISCR
+            MOV    (BASE),Y;(BASE2),Y
+            STA    LOWSCR
+            MOV    (BASE),Y;(BASE2),Y
+            DBPL   Y;V_MLLOOP
+
+            RTS
+
+*-------------------------------
+* Command Character Translate Table
+*-------------------------------
+
+V_NEWCHR    DB     homeChar                  ; 80 Home Command
+            DB     csrup                     ; 81 Cursor up
+            DB     csrdwn                    ; 82 Cursor down
+            DB     csrback                   ; 83 Cursor left
+            DB     csrfwd                    ; 84 Cursor right
+            DB     clreos                    ; 85 Clear to EOS
+            DB     0                         ; 86 Clear to BOS
+            DB     clrscn                    ; 87 Clear screen
+            DB     clreol                    ; 88 Clear to EOL
+            DB     0                         ; 89 Clear to BOL
+            DB     0                         ; 8A Clear line
+            DB     insline                   ; 8B insert line
+            DB     delline                   ; 8C Delete line
+            DB     inschar                   ; 8D Insert char
+            DB     delchar                   ; 8E Delete char
+            DB     norm                      ; 8F Normal Command
+            DB     inv                       ; 90 Inverse Command
+            DB     goxy                      ; 91 GotoXY Command
+            DB     realmous                  ; 92 Real Mouse Character
+            DB     Tonecmd                   ; 93 ProTERM Tone Command
+EndPTSE     DB     0                         ; 94 Null command
+
+*-------------------------------
+* Control Character Subroutines
+*-------------------------------
+
+V_ADRS      DA     V_NULL                    ; 00 Not Used
+            DA     V_CRONLY                  ; 01 Carriage Return Only
+            DA     V_EOL                     ; 02 Cursor To End Of Line
+            DA     V_NULL                    ; 03 Not Used
+            DA     V_DELCHR                  ; 04 Delete Character
+            DA     V_NULL                    ; 05 Not Used Here
+            DA     V_INSCHR                  ; 06 Insert Character
+            DA     V_BELL                    ; 07 Standard Beep
+            DA     V_BACK                    ; 08 Backup One Character
+            DA     V_TAB                     ; 09 Execute A Tab
+            DA     V_LF                      ; 0A Execute A Line Feed
+            DA     V_UP                      ; 0B Move Cursor Up 1 Line
+            DA     V_CLEAR                   ; 0C Home And Clear Screen
+            DA     V_CRLF                    ; 0D Do CR/LF
+            DA     V_NORMAL                  ; 0E Set Normal Mode
+            DA     V_INVRSE                  ; 0F Set Inverse Mode
+            DA     V_MOUSE                   ; 10 Set Mousetext Mode
+            DA     V_NULL                    ; 11 Not Used Here
+            DA     V_REPEAT                  ; 12 Repeat Character
+            DA     V_NULL                    ; 13 Not Used Here
+            DA     V_TONE                    ; 14 Execute A Tone
+            DA     V_FWD                     ; 15 Move Forward
+            DA     V_INSLN                   ; 16 Insert A Line
+            DA     V_CLREOP                  ; 17 Clear To End Of Screen
+            DA     V_HOME                    ; 18 Cursor To Upper Right
+            DA     V_CLREOL                  ; 19 Clear To End Of Line
+            DA     V_DELLN                   ; 1A Delete Current Line
+            DA     V_NULL                    ; 1B Not Used
+            DA     V_NULL                    ; 1C Not Used
+            DA     V_NULL                    ; 1D Not Used
+            DA     V_GOTOXY                  ; 1E Gotoxy Command
+            DA     V_NULL                    ; 1F Not Used
+
+LASTMSG     DB     0
+
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/DATETIME.S b/SOURCE/LLUCE/DATETIME.S
new file mode 100644
index 0000000..5818e47
--- /dev/null
+++ b/SOURCE/LLUCE/DATETIME.S
@@ -0,0 +1,243 @@
+            LST    RTN
+            TTL    'LLUCE - Time/Date Commands'
+            PAG
+*===============================
+* Contents:
+*
+* CLOCK    - Do Time Computations
+* CONVSEC  - Convert Time To Seconds
+* DATESTR  - Get Date
+* FMTDATE  - Get Date In Formated Form
+* FMTWHEN  - Get formatted date from 2 byte binary
+* TIME2STR - Get Time (12 hour format)
+* TIMESTR  - Get Time (24 hour format)
+* SECON    - Find Time On In Seconds
+* WHENSTR  - Get Date From 2 Byte Binary
+*===============================
+
+*===============================
+* Name: WHENSTR - Get Date From 2 Byte Binary
+*===============================
+
+WHENSTR     BCC    DO_WH2                        ; Get Data
+
+            JSR    GOBEQU                        ; Gobble Equals
+            JSR    ARGTYP                        ; Find Out Data Type
+            BCS    DO_WH1
+
+            JSR    INPNUM16                      ; Get Location
+            ST16   WHNPTR                        ; And Save
+            RTS
+
+DO_WH1      JSR    INPSTR                        ; Gobble
+            IFNE   STRLEN;#8;DO_WH1A             ; date supplied?
+
+            MOVD   STRLOC;TEMP3                  ; Set Pointer To String
+            JSR    ZNUMIN                        ; Get Month
+            PHX
+            JSR    INCTEMP3
+            JSR    ZNUMIN                        ; Get Date
+            PHX
+            JSR    INCTEMP3
+            JSR    ZNUMIN                        ; Get Year
+            STX    TEMP                          ; Save Year
+            PULL   TEMP+1                        ; save date
+            PLA                                  ; Move Month Over
+            ASL    A
+            ASL    A
+            ASL    A
+            ASL    A
+            ASL    A
+            ROL    TEMP                          ; High Bit Of Month W/Year
+            ORA    TEMP+1                        ; Add In Date
+            TAX                                  ; Get Values
+            LDRA   TEMP;DO_WH1B                  ; Save Date
+
+DO_WH1A     JSR    GETDATE                       ; Get Date From Clock
+DO_WH1B     LDY    #1
+            STA    (WHNPTR),Y                    ; Save Compacted Date
+            TXA
+            STA    (WHNPTR)
+            RTS
+
+DO_WH2      LDA    (WHNPTR)                      ; Get Compressed Date
+            TAX
+            LDY    #1
+            LDRA   (WHNPTR),Y;DO_DT2             ; Translate
+
+*===============================
+* Name: DATESTR - Get Date
+*===============================
+
+DATESTR     BCC    DO_DT1                        ; Get The Date
+
+            JSR    GOBEQU                        ; Gobble Equ
+            JSR    INSTR2                        ; Get String
+            LD16   STRLOC
+            LDY    STRLEN
+            JMP    SETDATE                       ; Set The Date
+
+DO_DT1      JSR    GETDATE
+DO_DT2      STA    TEMP                          ; Save Date Data
+            STX    TEMP+1
+            LDA    TEMP+1
+            AND    #%00011111
+            JSR    BINDEC8                       ; Save Day
+            STA    DATETXT+3
+            STX    DATETXT+4
+            LDA    TEMP+1                        ; Get Most Of Month
+            LSR    TEMP                          ; Shift Last Bit Into Carry
+            ROR    A                             ; Move Bit In
+            LSR    A
+            LSR    A
+            LSR    A
+            LSR    A
+            JSR    BINDEC8
+            STA    DATETXT                       ; Save Month
+            STX    DATETXT+1
+            LDA    TEMP                          ; Get Year
+            JSR    BINDEC8                       ; Make ASCII
+            STA    DATETXT+6
+            STX    DATETXT+7
+            LDX    #<DATETXT
+            LDA    #>DATETXT                     ; Point To String
+            LDY    #8                            ; Always 8 Bytes
+COPYDATE    STY    STRLEN                        ; Save Length
+            ST16   STRLOC                        ; Save String Location
+            PUSHW  VARSTR                        ; Save Current String pointer
+            JSR    STRCOPY                       ; Copy String To Main
+            LDY    STRLEN                        ; Get Back Length
+            PLAX                                 ; And Pointer
+            JMP    SVSTR
+
+*===============================
+* Name: TIMESTR - Get Time
+*===============================
+
+TIMESTR     CLC                                  ; Hi Bit Clear Is 24 Hours
+            SKIPCS
+TIME2STR    SEC                                  ; Hi Bit Set Is 12 Hours
+            ROR    CLKMODE
+            JSR    GETTIME                       ; Read Clock
+            JMP    COPYDATE                      ; Save The String
+; Address In A,X Length In Y
+; See Clock Driver
+
+*===============================
+* Name: FMTDATE - Get Date In Formated Form
+*===============================
+
+FMTDATE     JSR    GETDATE                       ; Get The ProDOS Date
+            BRA    DO_FDT2
+
+FMTWHEN     LDA    (WHNPTR)                      ; Get Compressed Date
+            TAX
+            LDY    #1
+            LDA    (WHNPTR),Y
+DO_FDT2     STZ    SETRAM1
+            JSR    DO_FDT0
+            STZ    SETRAM2
+            RTS
+
+*===============================
+* Name: CLOCK - Do Time Computations
+*===============================
+
+CLOCK       IFEQ   (PRGPTR);#OnlineTkn;CLKONLN
+            CPEQ   #Clear;CLK_CLR
+            BRA    CLKLIMIT
+
+*===============================
+* Name: CLK_CLR - Reset Timer
+*===============================
+
+CLK_CLR     JSR    GETBYT
+            JSR    CONVSEC                       ; Get Base In Seconds
+            ST16   CLKBASE
+            RTS
+
+*===============================
+* Name: CLKONLN - Get Connect Time In Seconds
+*===============================
+
+CLKONLN     JSR    GETBYT
+            JSR    SECON                         ; Connect Time In Seconds
+CLK_OUT     JMP    MATH_16                       ; Save Time
+
+*===============================
+* Name: CLKLIMIT - Get Time Limit
+*===============================
+
+CLKLIMIT    TSTMI  IMMDEF;SETLIMIT               ; Check Exec Status
+
+            LD16   TIMEON                        ; Get Time Limit
+            BRA    CLK_OUT                       ; Return It
+
+SETLIMIT    JSR    EQUNUM16                      ; Get Time Limit
+            ST16   TIMEON
+            RTS
+
+*===============================
+* Name: SECON - Find Time On In Seconds
+*===============================
+
+SECON       JSR    CONVSEC                       ; Get Time In Seconds
+            SEC
+            PHA
+            TXA
+            SBC    CLKBASE                       ; Time On = Current - Base
+            TAX
+            PLA
+            SBC    CLKBASE+1
+            BCS    SECON1
+
+            PHA
+            TXA
+            ADC    #<ROLTIME                     ; Time Past Midnight
+            TAX                                  ; Add In Rolover
+            PLA
+            ADC    #>ROLTIME
+SECON1      RTS
+
+ROLTIME     =      43200                         ; # Seconds In 12 Hours
+
+*-------------------------------
+* Convert Time To Seconds
+*-------------------------------
+
+CONVSEC     STZ    CLKMODE
+            JSR    GETTIME
+            ST16   TEMP3                         ; Point To Time String
+            MOV    #60;DATA+1                    ; Set Up Multiplier
+            STZ    DATA+2
+            STZ    DATA+3
+            JSR    ZNUMIN                        ; Get Hour
+            STA    NUMB+1                        ; Zero High
+            TXA
+            BNE    CONVSC2                       ; Not 00 Hours
+
+            LDA    #24                           ; Make 0 Hour Into 24 Hour
+CONVSC2     CPLT   #13;CONVSC3                   ; Is It Out Of Range?
+
+            SBC    #12                           ; Make Into 1-12 Range
+CONVSC3     STA    NUMB                          ; Save Result
+            JSR    DO_MUL0                       ; Multiply Into Minutes
+            INC    TEMP3
+            JSR    ZNUMIN                        ; Get Minute
+            CLC
+            TXA
+            ADA    RESULT;NUMB                   ; Add In Minutes
+            AD     #0;RESULT+1;NUMB+1
+            MOV    #60;DATA+1                    ; Multiply By 60
+            JSR    DO_MUL0
+            INC    TEMP3                         ; Position To Seconds
+            JSR    ZNUMIN
+            CLC
+            TXA
+            ADC    RESULT                        ; Add In Seconds
+            TAX
+            LDA    #0
+            ADC    RESULT+1
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/DISK.S b/SOURCE/LLUCE/DISK.S
new file mode 100644
index 0000000..79eb88d
--- /dev/null
+++ b/SOURCE/LLUCE/DISK.S
@@ -0,0 +1,1110 @@
+            LST    RTN
+            TTL    'LLUCE - Disk Routines'
+            PAG
+*===============================
+* Contents:
+*
+* APPEND   - Append To A Disk File
+* CHAIN    - Chain To Another Program Segment
+* CLOSE    - Close A Disk File
+* COMPRES  - Compress Variables
+* COPY     - Copy Data From Device To Device
+* CREATE   - create A File
+* DISKIN1  - Input From File 1
+* DISKIN2  - Input From File 2
+* DISKIN3  - Input From File 3
+* DO_CL3   - Close All Disk Files
+* DO_CLFL  - Close Or Flush All Disk Files
+* DSKOUT1  - Send Character To File 1
+* DSKOUT2  - Send Character To File 2
+* DSKOUT3  - Send Character To File 3
+* EOF      - Check For Disk File End
+* EXIST    - Test For Existing File
+* FLUSH    - Flush Data To Disk File
+* GETDEV   - Get Device Number
+* GET_CHNL - Get Disk Channel Number
+* IFOPEN   - Open File With Unused Channel
+* KILL     - Delete A File Or Message
+* LOCK     - Set File Read Only
+* MARK     - Get Or Set Disk File Mark
+* NAME     - Rename A File
+* OPEN     - Open A File
+* POSITION - Set Position Into Disk File
+* READ     - Read Data From Device
+* RECALL   - Recall Variables From Disk File
+* SIZE     - Get Size Of Disk File
+* SSYSTEMP - set system prefix and temp file name
+* STORE    - Store Variables In Disk File
+* SYSRCAL  - Recall Variables From System Temp
+* SYSSTORE - Store variables in system temp
+* TYPE     - Display A Disk File
+* UNCOMP   - Un-Compress Variables
+* UNLOCK   - Set File Read/Write/Delete/Rename
+* WRITE    - Write Data To Device
+* EXIT     - Exit from LLUCE
+*===============================
+
+*===============================
+*   Name: CREATE - Create A File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+CREATE      JSR    MOVNAME                      ; Get Filename
+            LDY    #Txt                         ; Make A TXT File
+            IFEQ   (PRGPTR);#','+Hibit;MAKE0    ; Different Type??
+
+            LDA    #0
+            TAX
+            BRA    MAKE3
+
+MAKE0       JSR    GOBCOM                       ; Eat The Comma
+            IFNE   (PRGPTR);#Msg;MAKE1          ; Create Message File?
+
+            JMP    MAKEMSG
+
+MAKE1       JSR    INPNUM8                      ; Get The Filetype
+            PHX                                 ; Save It
+            LDA    (PRGPTR)                     ; Is There A Subtype Parm?
+            TAY
+            LDA    #0                           ; Set To 0 In Case None
+            TAX
+            CPNEY  #','+Hibit;MAKE2             ; no sub type
+
+            JSR    COMNUM16                     ; Get The Subtype
+MAKE2       PLY                                 ; Restore The Main Type
+MAKE3       JMP    PD_MAKE                      ; Create It
+
+*===============================
+*   Name: KILL - Delete A File Or Message
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+KILL        IFEQ   (PRGPTR);#'#'+Hibit;KILL2A   ; Kill Message?
+            JSR    MOVNAME                      ; Get Filename
+            JMP    PD_KILL                      ; Delete It
+
+KILL2A      JMP    KILL2
+
+*===============================
+*   Name: NAME - Rename A File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+NAME        JSR    MOVNAME                      ; Get Original Name
+            LD16   #LNBUF
+            JSR    FRMFLN
+            JSR    COMNAME                      ; Get New Name
+            JMP    PD_NAME                      ; Rename It
+
+*===============================
+*   Name: EXIST - Test For Existing File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+EXIST       JSR    INPSARG                      ; Get The File Name
+            LDY    STRLEN
+            JSR    MOVNM0                       ; Set Up The File Name
+            JSR    PD_GINFO                     ; Get Files Info, Test Error
+            LDA    #1
+            BCC    EXIST2
+
+            DEC    A
+EXIST2      JMP    SVDATA
+
+*===============================
+*   Name: UNLOCK - Set File Read/Write/Delete/Rename
+*         LOCK   - Set File Read Only
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+UNLOCK      LDA    #%11100011                   ; Access Bits For Unlock
+            SKIP2
+LOCK        PUSHA  #%00100001                   ; Access Bits For Lock
+            JSR    MOVNAME
+            JSR    PD_GINFO
+            PULL   ACCESS
+            JMP    PD_SINFO
+
+*===============================
+*   Name: OPEN - Open A File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+OPEN        LDA    (PRGPTR)                     ; What Access?
+            TAY
+            LDA    #001100011                   ; Full Access, Deny All
+            CPEQY  #Readtkn;DO_OPN0             ; Read Only?
+            CPNEY  #Writetkn;DO_OPN1            ; Write Only?
+
+            LDA    #%00110010                   ; Deny All, Request Write
+            SKIP2
+DO_OPN0     PUSHA  #%00010001                   ; Deny Write, Request Read
+            JSR    GETBYT
+            PLA
+            SKIP2
+DO_OPN1     MOV    #$00110011;OPENACS           ; Request all, Deny all
+            LDX    #'#'+Hibit
+            JSR    GOBBLE                       ; Gobble "#"
+            JSR    INPNUM8                      ; Get Channel To Open
+            DBMI   X;DO_OPN8
+
+            STX    TEMP2                        ; Save Buffer Number
+            CPGEX  #ioFile3;DO_OPN8             ; In Range?
+
+            LDMI   DEVUSE+1,X;DO_OPN9           ; See If Channel In Use
+
+            JSR    COMNAME                      ; Move File Name
+            LDY    TEMP2                        ; Get Buffer Number
+            LDA    OPENACS
+            JSR    PD_BOPEN                     ; Open The File
+            LDX    TEMP2
+            BCS    DO_OPN4                      ; No Error
+
+            LDA    REFNUM
+            SKIP2
+DO_OPN4     MOV    #0;REFTAB,X                  ; Open Failed, Return A 0
+            BCS    DO_OPN7
+
+            DEC    DEVUSE+1,X                   ; Put "In Use"
+DO_OPN7     RTS
+
+DO_OPN8     JMP    BADDEV                       ; Bad Device Number
+
+DO_OPN9     JMP    BADNAME
+
+*===============================
+*   Name: IFOPEN - Open File With Unused Channel
+*
+*  Input: A - Access Mode
+*
+* Output: Y - Channel Number
+*===============================
+
+IFOPEN      STA    OPENACS                      ; Save Open Mode
+            LDY    #0
+            LDX    #3
+IFOPEN2     LDPL   DEVUSE+1,Y;IFOPEN3           ; Try all channels
+            INY
+            DBNE   X;IFOPEN2
+            SEC                                 ; Opps, Couldnt Open
+            RTS
+
+IFOPEN3     LDA    OPENACS
+            JMP    PD_BOPEN                     ; Open File
+
+*===============================
+*   Name: DISKIN1 - Input From File 1
+*         DISKIN2 - Input From File 2
+*         DISKIN3 - Input From File 3
+*
+*  Input: None
+*
+* Output: Char From File
+*===============================
+
+DISKIN1     PHX
+            LDRAX  #ioFile1-1;DISKINX           ; Use Channel 1
+DISKIN2     PHX
+            LDRAX  #ioFile2-1;DISKINX           ; Use Channel 2
+DISKIN3     PHX
+            LDX    #ioFile3-1                   ; Use Channel 3
+DISKINX     MOV    REFTAB,X;REFNUM
+            JSR    PD_RDBYT
+            PLX
+            RTS
+
+*===============================
+*   Name: READ - Read Data From Device
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+READ        JSR    DEVIVSET                     ; point to vector
+            JSR    RWPTRS
+READLOOP    JSR    DO_INP                       ; Read Data Into Memory
+            STA    (TEMP2)
+            JSR    COUNTUP
+            BNE    READLOOP
+
+            RTS
+
+*===============================
+*   Name: RECALL - Recall Variables From Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+RECALL      JSR    CL3NAME                      ; Close files, get filename
+RECALLIT    LDA    #%00110011                   ; Request All, Deny All
+            JSR    PD_OPEN
+            BCC    RCALL2                       ; All Is Fine
+
+            JMP    BADNAME
+
+RCALL2      JSR    CLRSMT
+
+            MOVD   HIMEM;TEMP                   ; point to top of var space
+
+RCALL3      SEC                                 ; source -= 8
+            SB     TEMP;#vRecSize;TEMP
+            BCS    RCALL4
+            DEC    TEMP+1
+
+RCALL4      LD16   TEMP
+            LDY    #vRecSize
+            JSR    PD_RBYTS
+
+            LDEQ   (TEMP);RCALL5                ; end of variables?
+            BPL    RCALL3                       ; its a number, get next
+
+            LDY    #valOffs+1                   ; Where is it located?
+            PUSHA  (TEMP),Y                     ; get location of variable
+            INY
+            LDA    (TEMP),Y                     ; and length
+            TAY
+            PLA
+            CPGE   #>ENDMOD;RCALL3              ; in high memory?
+
+            PHY
+            LD16   VARSTR
+            JSR    PD_RBYTS
+            LDY    #valOffs
+            MOV    VARSTR;(TEMP),Y
+            INY
+            MOV    VARSTR+1;(TEMP),Y
+
+            CLC
+            PLA
+            ADA    VARSTR;VARSTR
+            BCC    RCALL3
+            IBRA   VARSTR+1;RCALL3
+
+RCALL5      JSR    PD_CLOSE
+
+            SEC
+            LDA    VARSTR+1
+            JMP    FIX_MID2
+
+*===============================
+*   Name: SYSRCAL - Recall Variables From System Temp
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SYSRCAL     JSR    SSYSTEMP                     ; open system temp
+            JSR    RECALLIT                     ; recall variables
+            JMP    OVDONE                       ; reset back to prefix
+
+*===============================
+*   Name: DSKOUT1 - Send Character To File 1
+*         DSKOUT2 - Send Character To File 2
+*         DSKOUT3 - Send Character To File 3
+*
+*  Input: A - Character
+*
+* Output: None
+*===============================
+
+DSKOUT1     PHX
+            LDRAX  #ioFile1-1;DSKOUTX           ; Use Channel 1
+DSKOUT2     PHX
+            LDRAX  #ioFile2-1;DSKOUTX           ; Use Channel 2
+DSKOUT3     PHX
+            LDX    #ioFile3-1                   ; Use Channel 3
+DSKOUTX     PHA
+            MOV    REFTAB,X;REFNUM
+            PLA
+            JSR    PD_WRBYT
+            PLX
+            BCS    WRERR
+
+            RTS
+
+WRERR       JMP    BADWRITE
+
+*===============================
+*   Name: WRITE - Write Data To Device
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+WRITE       JSR    DEVOVSET                     ; set up vectors
+            JSR    RWPTRS
+WRITELUP    LDA    (TEMP2)                      ; Write Data
+            JSR    DO_OUT
+            JSR    COUNTUP
+            BNE    WRITELUP
+
+            RTS
+
+*===============================
+*   Name: STORE - Store Variables In Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+STORE       JSR    CL3NAME                      ; Close files, move filename
+STOREIT     LDY    #^overlays                   ; Compressed Data
+            LD16   #overlays                    ; aux file type ($8002)
+            JSR    PD_MAKE                      ; Create File
+            LDA    #%00000011                   ; Request All, Deny All
+            JSR    PD_OPEN                      ; Open File
+
+            MOVD   HIMEM;TEMP                   ; point to top of variable space
+
+STORE2      SEC                                 ; source -= 8
+            SB     TEMP;#vRecSize;TEMP
+            BCS    STORE3
+            DEC    TEMP+1
+
+STORE3      LDEQ   (TEMP);STORE5                ; end of variables?
+            BMI    STORE4                       ; go handle strings
+
+            LDY    #valOffs                     ; Is the value 0?
+            LDA    (TEMP),Y
+            INY
+            ORA    (TEMP),Y
+            INY
+            ORA    (TEMP),Y
+            BEQ    STORE2                       ; yes, skip it
+            JSR    STORE6
+            BRA    STORE2                       ; no, do next one
+
+STORE4      LDY    #valOffs+2                   ; any string allocated?
+            LDEQ   (TEMP),Y;STORE2
+
+            JSR    STORE6
+            LDY    #valOffs                     ; Where is it located?
+            LDA    (TEMP),Y                     ; get location of variable
+            TAX
+            INY
+            PUSHA  (TEMP),Y
+            INY
+            LDA    (TEMP),Y                     ; and length
+            TAY
+            PLA
+            CPGE   #>ENDMOD;STORE2              ; in high memory?
+
+            JSR    PD_WBYTS
+            BRA    STORE2
+
+STORE5      JSR    STORE6
+            JMP    PD_CLOSE
+
+STORE6      LD16   TEMP
+            LDY    #vRecSize
+            JMP    PD_WBYTS
+
+*===============================
+*   Name: SYSSTORE - Store variables in system temp
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SYSSTORE    JSR    SSYSTEMP                     ; open system temp
+            JSR    STOREIT                      ; recall variables
+            JMP    OVDONE                       ; reset back to prefix
+
+SSYSTEMP    JSR    SETSYSTM                     ; Point to system prefix
+            MOV    #STEMPLEN;STRLEN             ; Length of filename
+            MOVD   #SYSTEMP;STRLOC              ; Point to temp name
+            JMP    MOVNM0                       ; Move name to buffer
+
+SYSTEMP     ASC    'SYSTEMP'
+STEMPLEN    =      *-SYSTEMP
+
+*===============================
+*   Name: CLOSE - Close A Disk File
+*         FLUSH - Flush Data To Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+CLOSE       SEC
+            SKIPCC
+FLUSH       CLC
+            PHP
+            JSR    GETDEV                       ; Get Device
+            CPEQX  #ioBoth;DO_CLFL              ; None? (Or Dev0), close all
+            CPNEX  #ioMsg;CLFL2                 ; Message File?
+
+            PLP                                 ; Close Of Flush?
+            PHP
+            BCC    OK6                          ; Flush, Its Ok
+
+            PLP                                 ; Close Is Not Allowed
+            JMP    GETDEV2
+
+OK6         LDRA   MSGREF;CF_FLUSH              ; Do The Flush
+
+CLFL2       JSR    CHKDSK                       ; Make sure its a file
+            TYA
+            TAX                                 ; X = Y
+            STZ    DEVUSE+1,X                   ; "Un Use" It
+            LDEQ   REFTAB,X;CF_DONE             ; Get Refnum, not open
+
+            STA    REFNUM
+            PLP
+            BCC    CF_FLUSH
+
+            JMP    PD_CLOSE                     ; Close The Correct File(S)
+
+CF_FLUSH    JMP    PD_FLUSH
+
+CF_DONE     PLP
+            RTS
+
+*===============================
+*   Name: DO_CLFL - Close Or Flush All Disk Files
+*         DO_CL3  - Close All Disk Files
+*
+*  Input: Program Pointer
+*         C = 0: Flush
+*         C = 1: Close
+*
+* Output: None
+*===============================
+
+DO_CLFL     PLP
+            BRA    CLFL
+
+DO_CL3      SEC
+CLFL        PHP
+            LDX    #ioFile3-1                   ; Check Channel 3
+DO_CL1      LDPL   DEVUSE+1,X;DO_CL4
+            LDEQ   REFTAB,X;DO_CL4              ; Close Channel, not open
+
+            STA    REFNUM
+            PLP
+            PHP                                 ; Close Or Flush?
+            BCC    DO_FL                        ; Flush
+
+            JSR    PD_CLOSE
+            BRA    DO_CL4
+
+DO_FL       JSR    PD_FLUSH
+DO_CL4      DBPL   X;DO_CL1                     ; Next Lower Channel
+
+            PLP                                 ; Close Or Flush?
+            PHP
+            BCC    DO_CL6                       ; Flush, Dont Flag Channels
+
+            STZ    DEVUSE+1                     ; Close All Channels
+            STZ    DEVUSE+2
+            STZ    DEVUSE+3
+DO_CL6      PLP
+            BCS    CL6_DONE                     ; Close, Ignore Msg File
+
+            MOV    MSGREF;REFNUM
+            JMP    PD_FLUSH
+
+CL6_DONE    RTS
+
+*===============================
+*   Name: MARK - Get Or Set Disk File Mark
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+MARK        CLC                                 ; Ram Drive Allowed
+            JSR    GET_CHNL                     ; Get Channel Number
+            CPEQX  #ioRamDsk;DO_MRK5            ; Ram Drive?
+
+            LDPL   DEVUSE,X;DO_MRK3             ; Not Current In Use
+            TSTPL  IMMDEF;DO_MRK2               ; See If Mark Was Execed
+
+            JSR    EQUNUM
+            JMP    PD_SPOS
+
+DO_MRK2     JSR    PD_GMARK                     ; Get The Mark
+            BCC    DO_MRK4                      ; All Is Well
+
+DO_MRK3     LDA    #1                           ; Error
+            JMP    SVDATA
+
+DO_MRK4     JMP    DO_MATH                      ; Return Location
+
+DO_MRK5     TSTPL  IMMDEF;DO_MRK6               ; Did They Exec Command?
+
+            JSR    EQUNUM8                      ; Get Pointer
+            STX    RAMPTR                       ; Save
+            RTS
+
+DO_MRK6     LDA    RAMPTR                       ; Return Pointer
+            JMP    SVDATA
+
+*===============================
+*   Name: POSITION - Set Position Into Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+POSITION    JSR    DEVCKDSK                     ; Get device, make sure its a file
+            MOV    REFTAB,Y;REFNUM              ; Save The Reference Number
+            JSR    INPNUM16                     ; Get Record Length
+            ST16   FLPOS                        ; Save Rec Length
+            JSR    COMNUM16                     ; Get Record Number
+            ST16   FLPOS+2                      ; Save Rec Number
+            STZ    FLPOS+4                      ; Default Offset To 0
+            IFNE   (PRGPTR);#','+Hibit;DO_POS2  ; Check For Last Arg...
+
+            JSR    COMNUM8
+            STX    FLPOS+4                      ; Save Byte Offset
+DO_POS2     MOVD   FLPOS;NUMB                   ; Setup For Multiply
+            STZ    NUMB+2
+            MOVD   FLPOS+2;DATA+1
+            STZ    DATA+3
+            JSR    DO_MUL0
+            CLC
+            LDA    RESULT
+            ADC    FLPOS+4
+            TAX                                 ; Save Low (X)
+            LDA    RESULT+1
+            ADC    #0                           ; Compute Med (A)
+            PHA
+            LDA    RESULT+2                     ; Get High (Y)
+            ADC    #0
+            TAY
+            PLA
+            JMP    PD_SPOS
+
+*===============================
+*   Name: APPEND - Append To A Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+APPEND      JSR    DEVCKDSK                     ; Get device, make sure its a file
+            MOV    REFTAB,Y;REFNUM              ; Get Refnum
+            JMP    PD_APEND                     ; Append To File
+
+*===============================
+*   Name: SIZE - Get Size Of Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+SIZE        SEC                                 ; No Ram Drive
+            JSR    GET_CHNL                     ; Get Channel Number
+            JSR    PD_GEOF                      ; Get The File Size
+            JMP    DO_MATH
+
+*===============================
+*   Name: EOF - Check For Disk File End
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+EOF         SEC                                 ; No Ram Drive
+            JSR    GET_CHNL                     ; Get Channel Number
+            JSR    PD_CKEOF                     ; Check For EOF
+            TXA
+            JMP    SVDATA                       ; Return Results
+
+*===============================
+*   Name: RELOAD - Reloads current segment or another
+*
+*  Input: A = Reload flags
+*             No bits, start from segment start
+*             Bit 7, continue from current PC
+*
+*         STACK
+*   PC -> RTS            Word
+*         NAMELENGTH     Byte
+*         FILENAME       Pointer (Word)
+*         LABELLENGTH    Byte
+*         LABELNAME      Pointer (Word)
+*
+* Output: None
+*===============================
+
+RELOAD      STA    IMMDEF                       ; save load type
+            PULLW  TEMP                         ; save return address
+            PULL   STRLEN                       ; get filename info
+            PULLW  STRLOC
+            JSR    FIXFLAG
+            JSR    MOVNM0                       ; move in name (if any)
+            BNE    HADNAME                      ; name was supplied
+
+            LD16   #SEGSAVE                     ; Restore last segment
+            JSR    TOFLN                        ; name
+
+HADNAME     PULL   STRLEN                       ; get link label (if any)
+            PULLW  STRLOC
+            JSR    FIXFLAG
+            BRA    LINK1
+
+FIXFLAG     ORA    STRLOC
+            BEQ    FLAGFIXD
+            STZ    IMMDEF
+FLAGFIXD    RTS
+
+*===============================
+*   Name: CHAIN - Chain To Another Program Segment
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+CHAIN       STZ    NOCDFLG
+            STZ    ONERRFLG
+            STZ    IMMDEF                       ; set to begin at start
+            STZ    LNKLBL                       ; Def To No Link Label
+
+            JSR    PD_GPFX                      ; Get Current Prefix
+            LD16   #SEGSAVE                     ; Save segment prefix
+            JSR    FRMFLN                       ; for later reload
+
+            JSR    CL3NAME                      ; Close files, move filename
+
+            JSR    SAVESEG
+
+            IFNE   (PRGPTR);#','+Hibit;LINK4    ; Check For Link Label
+
+            JSR    GOBCOM
+            JSR    INPSTR                       ; Get Link Label
+
+* Reload enters here
+
+LINK1       STZ    LNKLBL                       ; Def To No Link Label
+            LDEQ   STRLEN;LINK4                 ; skip if empty
+            LDY    #0
+LINK2       LDA    (STRLOC),Y                   ; Copy Label Name
+            JSR    CONV
+            INY
+            CPNEY  STRLEN;LINK3                 ; Is This The Last Char?
+
+            ORA    #Hibit
+LINK3       STA    LNKLBL-1,Y                   ; Save Char
+            CPNEY  #8;LINK2
+
+            ORA    #Hibit                       ; Mark Last Char
+            STA    LNKLBL-1,Y
+LINK4       JSR    COMPRES                      ; Compress Variables
+            JSR    LD_MOD                       ; Load In Module
+            BCC    LINK_OK
+
+            LDA    #Modulenf
+            JMP    BADERR
+
+LINK_OK     JSR    UNCOMP                       ; Un-Compress Variables
+            TSTMI  IMMDEF;LINK4A                ; leave pointers?
+            MOVD   MODULE;PRGPTR                ; were finally done!
+LINK4A      LDEQ   LNKLBL;LINK9                 ; Link To A Label?
+
+            LDX    #$80                         ; Start Table Pointer
+LINK5       LDY    #0                           ; Start String Pointer
+LINK6       LDEQ   LNBUF,X;LINK8                ; Get First Char
+            INX
+            CPNE   LNKLBL,Y;LINK7               ; Check It
+
+            INY
+            ASL    A                            ; Are We Done?
+            BCC    LINK6                        ; Nope, Keep Checking
+
+            TXA
+            AND    #%11110000                   ; Round Down X
+            TAX
+            MOV    LNBUF+8,X;PRGPTR             ; Get Address And Save
+            MOV    LNBUF+9,X;PRGPTR+1
+LINK9       JMP    ERRENT                       ; Return
+
+LINK7       TXA                                 ; Round Down X
+            AND    #%11110000
+            CLC
+            ADC    #$10                         ; Go To Next Label
+            TAX
+            BCC    LINK5                        ; Keep Going If More Data
+
+LINK8       LDA    #Linknf                      ; Link Label Not Found
+            JMP    BADERR
+
+SAVESEG     LDX    #0                           ; Save segment name for
+            LDY    SEGSAVE
+PUTSEGNM    MOV    FLNAME+1,X;SEGSAVE+1,Y       ; later reload
+            INY
+            INX
+            CPNEX  FLNAME;PUTSEGNM
+            STY    SEGSAVE
+            RTS
+
+*===============================
+*   Name: COPY - Copy Data From Device To Device
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+COPY        STZ    SHW_CNT                      ; Reset Line Count
+            IFNE   (PRGPTR);#'('+Hibit;SHOW0A   ; check for # of lines
+
+            JSR    INPNARG8                     ; Get Argument
+            STX    SHW_CNT                      ; Save Count
+SHOW0A      JSR    DEVIVSET                     ; Get source, save vector
+            STY    SHWIN
+            MOV    REFTAB-1,Y;REFNUM            ; Save Possible Refnum
+            TYA
+            BNE    SHOW0                        ; If Using Device, Skip
+
+            JSR    MOVNAME                      ; Get Filename
+SHOW0       IFNE   (PRGPTR);#','+Hibit;SHOW1
+
+            JSR    GOBCOM                       ; Gobble
+SHOW1       JSR    DEVOVSET                     ; save output vectors
+            STY    SHWOUT
+            IFGE   SHWIN;#ioFile3+1;SHOW3       ; get input device
+            CPNE   #ioBoth;SHOW2                ; Is File Open?
+
+            STZ    LNBUF
+            LDA    #%00100001                   ; Deny Write, Request Read
+            JSR    PD_OPEN                      ; Open The File
+            BCS    SHWRTS                       ; Done
+
+SHOW2       JSR    PD_NEWLN                     ; Setup For Rdline
+            MOV    REFNUM;SHWREF                ; Save Refnum
+
+*-------------------------------
+* Input Line Of Data From A Disk File
+*-------------------------------
+
+SHOW3       TSTMI  XTERNAL;SHOW3X               ; Use External?
+
+            IFGE   SHWIN;#ioFile3+1;SHOW3A      ; Char Device?
+
+SHOW3X      MOV    SHWREF;REFNUM                ; Make Sure Refnum Is Valid
+            LD16   #LNBUF                       ; Read up to 256 characters
+            LDY    #2
+            JSR    PD_RDBLK
+            BCS    SHOW5                        ; Opps, End Of Data
+
+SHWRTS      BRA    SHOW4
+
+*-------------------------------
+* Input A Line Of Data From A Character Device
+*-------------------------------
+
+SHOW3A      LDX    #0                           ; Start Pointer
+SHOW3B      PHX
+            JSR    DO_INP                       ; Get Data
+            CPNE   #eot;SHOW3C                  ; End Of Section?
+
+            LDA    #0                           ; Mark It
+SHOW3C      STA    LNBUF,X                      ; Save
+            TAY
+            PLX
+            INX
+            CPEQY  #0;SHOW4                     ; Are We Done?
+            CPNEY  #cr;SHOW3B                   ; End Of Line?
+
+*-------------------------------
+* Check For And Handle ".X" External
+*-------------------------------
+
+            IFEQ   SHWOUT;#ioEditor;SHOW4       ; is it to the CRT?
+
+            LDA    LNBUF                        ; Is It A Dot?
+            AND    #Clrhi
+            CPNE   #'.';SHOW4
+            LDA    LNBUF+1                      ; Check For "X"
+            JSR    CONV
+            CPNE   #'X';SHOW4
+            LDA    LNBUF+2                      ; Is It A Space?
+            AND    #Clrhi
+            CPNE   #' ';SHOW4
+
+            JSR    EXTERN                       ; Set Up External File
+            TSTMI  XTERNAL;SHOW2                ; ok, file is open
+
+*-------------------------------
+* Output A Line Of Data To A Device
+*-------------------------------
+
+SHOW4       LDX    #0                           ; Start Pointer
+SHOW4A      STX    SHOW_X
+            LDEQ   LNBUF,X;SHOW5                ; Get Data, done with file
+
+            CPNE   #lf;DOIT                     ; Strip All LFs
+            CPEQX  #0;SHOW4B                    ; From Start Of Line
+
+DOIT        PHA
+            JSR    DO_OUT                       ; Output It
+            PLA
+SHOW4B      LDX    SHOW_X                       ; Get Back Pointer
+            IBEQ   X;SHOW4C                     ; keep from locking up
+            CPNE   #cr;SHOW4A                   ; Done With Line?
+
+*-------------------------------
+* Handle End Of Line Of Output
+*-------------------------------
+
+SHOW4C      LDEQ   SHW_CNT;SHOW4D               ; Is There A Line Limit?
+            DBEQ   SHW_CNT;SHOW5                ; Count Down Lines
+
+SHOW4D      IFEQ   SHWIN;#ioMail;JSHOW3         ; is this a read mail?
+            LDNE   SHWOUT;JSHOW3                ; Is Output To The CRT?
+            TSTPL  INTOUT;JSHOW3                ; Stop Output?
+
+*-------------------------------
+* Handle End Of Output And Return
+*-------------------------------
+
+SHOW5       TSTMI  XTERNAL;SHOW5B               ; External On?, close it
+            LDNE   SHWIN;SHOW6                  ; Is This From A Disk File?
+
+SHOW5B      MOV    SHWREF;REFNUM                ; Get Correct Refnum
+            JSR    PD_CLOSE                     ; Close File
+            TSTPL  XTERNAL;SHOW6
+
+            INC    XTERNAL                      ; Turn Off Extrnal
+JSHOW3      JMP    SHOW3                        ; And Continue
+
+SHOW6       IFLT   SHWOUT;#ioLocal+1;EXTERN2    ; Console, Disk 1, 2 Or 3?
+
+            LDA    #0                           ; Were Finished
+            JMP    DO_OUT
+
+EXTERN      MOVD   #LNBUF+3;STRLOC              ; Point To Filename
+            MOV    #19;STRLEN                   ; Save Max String Length
+            JSR    MOVNM0                       ; Move The Filename
+            LDA    #%00100001                   ; Deny Write, Request Read
+            JSR    IFOPEN                       ; Open File
+            BCS    EXTERN2                      ; Opps, File Didnt Open
+
+            DEC    XTERNAL                      ; Flag External Read On
+EXTERN2     RTS
+
+*===============================
+*   Name: TYPE - Display A Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+TYPE        JSR    MOVNAME                      ; Set Up Path/File Name
+            JSR    PD_GINFO
+            IFNE   (PRGPTR);#','+Hibit;TO_DEV
+
+            JSR    GOBCOM
+TO_DEV      JSR    DEVOVSET
+            LDA    #%00100001                   ; Deny Write, Request Read
+            JSR    PD_OPEN                      ; Open The File
+            BCS    NOFILE                       ; No File Found
+
+            IFEQ   FILETYPE;#Awp;AWPRNT         ; File Type AWP
+            CPEQ   #Txt;STDFILE                 ; File Type TXT
+            CPNE   #Src;TYPE_FIN                ; File Type SRC
+
+STDFILE     LDX    #vidWidth-1                  ; Clear Out The Buffer
+ZLNB        STZ    LNBUF,X
+            DBPL   X;ZLNB
+
+            LDA    #vidWidth                    ; Line Length Is 80 Max
+            JSR    PD_TREAD                     ; Read In The Line
+            BCS    TYPE_FIN                     ; Close If Error
+
+            TSTMI  INTOUT;TYPE_FIN              ; Interrupted?
+
+            LDX    #0                           ; Show The Line
+TYPE_PR     LDEQ   LNBUF,X;TYPE_FIN
+
+            JSR    COUTLO
+            INX
+            CPNEX  #vidWidth;TYPE_PR
+            BEQ    STDFILE                      ; CHANGE TO BRA LATER
+
+NOFILE      RTS
+
+AWERR       JSR    CROUT
+TYPE_FIN    JMP    PD_CLOSE
+
+AWPRNT      LD16   #300
+            JSR    PD_SMARK
+AWLOOP      LDA    #2                           ; Read In 2 Bytes
+            JSR    PD_TREAD
+            BCS    AWERR
+
+            TSTMI  INTOUT;TYPE_FIN
+
+            IFNE   LNBUF+1;#$D0;XLNEXT
+
+            JSR    CROUT
+            BRA    AWLOOP
+
+XLNEXT      LDA    #$D1
+            BCS    AWTSTEND
+
+            LDA    #2                           ; Read Line Size
+            JSR    PD_TREAD
+            BCS    AWERR
+
+            LDA    LNBUF+1
+            AND    #Clrhi
+            STA    SHW_CNT
+            JSR    PD_TREAD                     ; Read The Line
+            BCS    AWERR
+
+            LDX    #0
+PRINTAW     LDA    LNBUF,X                      ; Show The Line
+            AND    #Clrhi
+            CPLT   #' ';CTRLSKP
+
+            JSR    COUT
+CTRLSKP     INX
+            CPNEX  SHW_CNT;PRINTAW              ; End Of Line?
+
+            JSR    CROUT                        ; CR At End Of Line
+            BRA    AWLOOP
+
+AWTSTEND    IFEQ   LNBUF+1;#$FF;TYPE_FIN        ; End Of File?
+            BNE    AWLOOP                       ; CHANGE TO BRA LATER
+
+*===============================
+*   Name: GETDEV - Get Device Number
+*
+*  Input: Program Pointer
+*
+* Output: Y = Channel Number
+*         X = Channel Index
+*===============================
+
+GETDEV      LDX    #0
+            LDY    #0
+            IFNE   (PRGPTR);#'#'+Hibit;GETDEV1  ; Device Indicator?
+
+            JSR    GETBYT                       ; Gobble #
+            STZ    DEVCLR                       ; Reset Device Byte
+            IFEQ   (PRGPTR);#Msg;GETMSG         ; Check For Message
+
+            JSR    INPNUM8
+            TSTMI  MSGINIT;GETMSG2              ; Is Channel 7 Setup?
+            CPEQX  #ioMsg;GETDEV2               ; Trying To Use Channel 7?
+
+GETMSG2     IFNE   (PRGPTR);#','+Hibit;GETDEV0
+
+            JSR    GETBYT                       ; Gobble Comma
+GETDEV0     LDPL   DEVUSE,X;GETDEV2             ; Is Channel In Use
+            TXA
+            TAY                                 ; Y = X
+            ASL    A                            ; X = X * 2
+            TAX
+GETDEV1     RTS
+
+GETMSG      JSR    GETBYT                       ; Gobble
+            JSR    INPNUM16                     ; Get Msg Number
+            ST16   MSGNUM                       ; Save
+            STZ    MSGINIT                      ; Init Message
+            LDRAX  #ioMsg;GETMSG2               ; Return Channel
+
+GETDEV2     JMP    BADDEV
+
+DEVCKDSK    JSR    GETDEV
+; Make Sure Device Is A File
+CHKDSK      DEY
+            CPGEY  #ioFile3;GETDEV2             ; If Its Not A File...
+            RTS
+
+*===============================
+*   Name: GET_CHNL - Get Disk Channel Number
+*
+*  Input: Program Pointer
+*
+* Output: X = Channel Number
+*===============================
+
+GET_CHNL    PHP
+            JSR    INPNARG8                     ; Get Channel Number
+            PLP
+            BCS    CHNL_OK
+
+            CPEQX  #ioRamDsk;CHNLDONE           ; Ram Drive?
+CHNL_OK     CPEQX  #ioBoth;GETDEV2              ; No Channel 0
+            CPGEX  #ioFile3+1;GETDEV2           ; Must Be Less Than 3
+            MOV    REFTAB-1,X;REFNUM
+CHNLDONE    RTS
+
+*===============================
+*   Name: COMPRES - Compress Variables
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+COMPRES     STZ    SETRAM1                      ; Switch In Subs
+            JSR    COMPRES2
+            BRA    DRAM5
+
+*===============================
+*   Name: UNCOMP - Un-Compress Variables
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+UNCOMP      STZ    SETRAM1                      ; Switch In Subs
+            JSR    UNCOMP2
+DRAM5       STZ    SETRAM2                      ; Switch Out Subs
+            RTS
+
+*===============================
+*   Name: EXIT - Exit from LLUCE
+*===============================
+
+EXIT        JSR    INPTYP                       ; Get next byte type
+            BEQ    DO_EXIT                      ; if end of line or statement
+
+            JSR    MOVNAME                      ; Get the pathname
+
+            MOV    #$EE;QUIT_TYP                ; flag as extended quit
+
+            MOVD   #FLNAME;QUITPATH             ; point to the path
+
+DO_EXIT     JMP    PD_QUIT                      ; do the quit
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/DISKIO.S b/SOURCE/LLUCE/DISKIO.S
new file mode 100644
index 0000000..e115827
--- /dev/null
+++ b/SOURCE/LLUCE/DISKIO.S
@@ -0,0 +1,632 @@
+            LST    RTN
+            TTL    'LLUCE - ProDOS I/O Routines'
+            PAG
+*===============================
+* Contents:
+*
+* NEW_MLI  - Entry Point For All ProDOS Calls
+*            Patched In ProDOS Global Page
+* PD_APEND - Set Mark To End Of Disk File
+* PD_BOPEN - Open File Channel Y
+* PD_CKEOF - Check For End Of Disk File
+* PD_CLOSE - Close Disk File
+* PD_FLUSH - Flush Data To Disk File
+* PD_GEOF  - Get Disk File EOF Pointer
+* PD_GINFO - Get A Files Info
+* PD_GMARK - Get Disk File Mark
+* PD_GPFX  - Get Current Prefix
+* PD_KILL  - Delete A File
+* PD_MAKE  - Create A File
+* PD_NAME  - Rename A File
+* PD_NEWLN - Setup For ASCII Line Input
+* PD_OPEN  - Open File Channel 0
+* PD_QUIT  - Quit To ProDOS
+* PD_RBLK1 - Read One Block
+* PD_RBYTS - Read a bunch of bytes
+* PD_RDBLK - Read Multiple Blocks
+* PD_RDBYT - Read Single Byte
+* PD_RDLN  - Read ASCII Line From Disk File
+* PD_SINFO - Set Files Info
+* PD_SMARK - Set 16 Bit Disk File Mark
+* PD_SPFX  - Set New Prefix
+* PD_SPOS  - Set 24 Bit Disk File Mark
+* PD_TREAD - Read Data Bytes
+* PD_WBYTS - Write a bunch of bytes
+* PD_WRBYT - Write Byte To Disk File
+* PD_WRBLK - Write Multiple Blocks
+*===============================
+
+*===============================
+*   Name: PD_QUIT - Quit To ProDOS
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_QUIT     PHP                                   ; No interrupts here!!
+            SEI
+
+            MOVD   PDOSVEC;MLI+1                  ; restore MLI Entry Point
+            MOVD   IRQSAVE;IRQVEC                 ; restore IRQ vector
+
+            LDEQ   RAMDEV;NODRVR                  ; /RAM removed?
+
+            MOVD   RAMDRVR;DEV2ADR+6
+
+            INC    DEVCNT
+            LDY    DEVCNT
+FIXDEV      MOV    DEVLST-1,Y;DEVLST,Y
+            DBNE   Y;FIXDEV
+            MOV    RAMDEV;DEVLST
+            STA    SETSTDZP                       ; Standard Memory
+            AND    #HiNibble
+            STA    DVRUNIT
+            MOV    #3;DVRCMD                      ; format command
+            MOVD   #SYSTEM;DVRBUFF
+            LDA    SETRAM2
+            LDA    SETRAM2
+            JSR    FMTDVR
+
+NODRVR      STA    SETSTDZP                       ; Standard Memory
+            BIT    SETROM
+            PLP
+
+            PDOS   Quit;QUITLST                   ; do the quit
+
+            INC    SOFTEV                         ; Should Never Get Here
+            JMP    (RESETVEC)                     ; If So, Cold Start
+
+FMTDVR      JMP    (DEV2ADR+6)
+
+QUITLST     DB     4
+QUIT_TYP    DB     0                              ; Quit type 0=Standard, EE=extended
+QUITPATH    DW     0                              ; App to quit to (Extended only)
+            DB     0
+            DW     0
+
+*===============================
+*   Name: PD_MAKE - Create A File
+*
+*  Input: Y    - File Type
+*         X, A - Aux Type
+*
+* Output: None
+*===============================
+
+PD_MAKE     STY    CR_FTYPE                       ; Save Filetype
+            ST16   CR_ATYPE                       ; save aux type
+            LDA    #Seedling                      ; 1
+            CPNEY  #Dir;CR1                       ; Directory?
+
+            LDA    #Linklist
+CR1         STA    CR_STYPE
+            LDX    #3
+CR_MOVE     STZ    CR_DATE,X
+            DBPL   X;CR_MOVE
+
+            PDOS   Create;CRLST
+            RTS
+
+CRLST       DB     7
+            DW     FLNAME
+            DB     %11100011
+CR_FTYPE    DB     0
+CR_ATYPE    DW     0
+CR_STYPE    DB     1
+CR_DATE     DW     0
+            DW     0
+
+*===============================
+*   Name: PD_KILL - Delete A File
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_KILL     PDOS   Destroy;DELLST                 ; Delete A File
+            RTS
+
+DELLST      DB     1
+            DW     FLNAME
+
+*===============================
+*   Name: PD_NAME - Rename A File
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_NAME     PDOS   Rename;RENLST                  ; Rename A File
+            RTS
+
+RENLST      DB     2
+            DW     LNBUF
+            DW     FLNAME
+
+*===============================
+*   Name: PD_SINFO - Set Files Info
+*
+*  Input: A - File Access
+*
+* Output: None
+*===============================
+
+PD_SINFO    STA    ACCESS                         ; Set File Access
+            MOV    #7;INFOLST
+            PDOS   Setinfo;INFOLST
+            RTS
+
+INFOLST     DB     7
+            DW     FLNAME
+ACCESS      DB     %11100011
+FILETYPE    DB     0
+AUXTYPE     DW     0
+            DB     1                              ; not used in set_info
+            DW     0                              ; not used in set_info
+MOD_DATE    DW     0
+MOD_TIME    DW     0
+            DW     0                              ; not used in set_info
+            DW     0                              ; not used in set_info
+
+*===============================
+*   Name: PD_GINFO - Get A Files Info
+*
+*  Input: None
+*
+* Output: A - Access
+*         X - Filetype
+*===============================
+
+PD_GINFO    MOV    #10;INFOLST                    ; Get File Access/Type
+            PDOS   Getinfo;INFOLST
+            LDA    ACCESS
+            LDX    FILETYPE
+            RTS
+
+*===============================
+*   Name: PD_SPFX - Set New Prefix
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_SPFX     PDOS   Setpfx;SPFXLST                 ; Set A New Prefix
+            RTS
+
+SPFXLST     DB     1
+            DW     FLNAME
+
+*===============================
+*   Name: PD_GPFX - Get Current Prefix
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_GPFX     PDOS   Getpfx;GPFXLST                 ; Get Current Prefix
+            RTS
+
+GPFXLST     DB     1
+            DW     FLNAME
+
+*===============================
+*   Name: PD_OPEN  - Open File Channel 0
+*         PD_BOPEN - Open File Channel Y
+*
+*  Input: Y - Channel Number
+*         A - File Access
+*
+* Output: A - Files Ref Number
+*===============================
+
+PD_OPEN     LDY    #0                             ; Open File With Buffer 0
+PD_BOPEN    STA    OPENACS                        ; Open File With Buffer Y
+            MOV    BUFADR,Y;OPENBUF+1             ; Point At Buffer
+OPEN0       TSTPL  ATLAUNCH;OPEN1                 ; Launched From AppleShare?
+            MOV    #4;OPENLST                     ; Set For 4 Parameters
+            PDOS   SpclOpen;OPENLST               ; AppleTalk Special Open
+            BRA    OPEN2
+
+OPEN1       MOV    #3;OPENLST                     ; Set For 3 Parameters
+            PDOS   Open;OPENLST
+OPEN2       BCC    OPEN3
+
+            CMP    #invalidAccess                 ; Access Error?
+            SEC
+            BNE    OPEN4
+
+            LDA    #$FF                           ; Wait A Bit
+            JSR    WAIT
+            BRA    OPEN0                          ; Try It Again
+
+OPEN3       LDA    OPENREF                        ; Save Refnum
+            SKIP2
+OPEN4       MOV    #-1;REFNUM                     ; Make A Bad Refnum
+            RTS
+
+OPENLST     DB     3
+            DW     FLNAME
+OPENBUF     DW     FBUF1
+OPENREF     DB     0
+OPENACS     DB     0
+
+*===============================
+*   Name: PD_NEWLN - Setup For ASCII Line Input
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_NEWLN    MOV    REFNUM;NEWLNREF                ; Enable Newline Mode
+            PDOS   Newline;NEWLNLST
+            RTS
+
+NEWLNLST    DB     3
+NEWLNREF    DB     0
+            DB     Clrhi
+            DB     cr
+
+*===============================
+*   Name: PD_RDLN - Read ASCII Line From Disk File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+PD_RDLN     MOV    REFNUM;RDLNREF                 ; Read Text Line From File
+            PDOS   Read;RDLNLST
+            BNE    RDLINE2                        ; Read Error
+
+            LDX    XFRD                           ; CR At End Of Line?
+            LDA    LNBUF-1,X
+            AND    #Clrhi
+            CPNE   #cr;RDLINE2                    ; No More Stuff
+
+            CLC
+            RTS
+
+RDLINE2     MOV    #0;LNBUF                       ; No Data In Line
+            SEC                                   ; EOF
+            RTS
+
+RDLNLST     DB     4
+RDLNREF     DB     0
+            DW     LNBUF
+            DW     255
+XFRD        DW     0
+
+*===============================
+*   Name: PD_TREAD - Read Data Bytes
+*
+*  Input: A - Number Of Bytes To Read
+*
+* Output: None
+*===============================
+
+PD_TREAD    STA    TREQCNT                        ; Set Characters To Read
+            MOV    REFNUM;TRDREF
+            PDOS   Read;TRDLST
+            RTS
+
+TRDLST      DB     4
+TRDREF      DB     0
+            DW     LNBUF
+TREQCNT     DW     0
+            DW     0
+
+*===============================
+*   Name: PD_RDBYT - Read Single Byte
+*
+*  Input: None
+*
+* Output: A - Byte Read
+*===============================
+
+PD_RDBYT    LDEQ   REFNUM;RDBYTE2                 ; Read Byte From File
+            STA    BRDREF
+            PDOS   Read;BRDLST
+            BCS    RDBYTE2
+
+            LDA    RWBYTE                         ; Get Byte
+            SKIP2
+RDBYTE2     LDA    #0                             ; Fake Data
+            RTS
+
+BRDLST      DB     4
+BRDREF      DB     0
+            DW     RWBYTE
+            DW     1
+            DW     0
+
+RWBYTE      DB     0
+
+*===============================
+*   Name: PD_RBYTS
+*         PD_WBYTS
+*
+*  Input: A, X - Address to read into
+*         Y    - Number of bytes to read
+*
+* Output: C - Error flag
+*         A - Error code
+*===============================
+
+PD_RBYTS    CLC                                   ; Flag for read
+            SKIPCS
+PD_WBYTS    SEC                                   ; Flag for write
+            ST16   RWBADR                         ; Save location
+            STY    RWBREQ                         ; and size
+            LDA    #Read                          ; assume reading
+            BCC    RWBYTS
+
+            LDA    #Write                         ; unless writing
+RWBYTS      STA    MODBYTS                        ; set command
+            LDEQ   REFNUM;RWBERR                  ; set reference
+            STA    RWBREF
+            JSR    MLI                            ; execute
+MODBYTS     DB     Read
+            DA     RWBLST
+            BCC    RWBNERR                        ; exit if no error
+
+            SKIP2                                 ; skip next operation
+RWBERR      LDA    #0                             ; no open file
+            SEC                                   ; set error flag
+RWBNERR     RTS
+
+RWBLST      DB     4
+RWBREF      DB     0
+RWBADR      DW     0
+RWBREQ      DW     0
+            DW     0
+
+*===============================
+*   Name: PD_WRBYT - Write Byte To Disk File
+*
+*  Input: A - Byte To Write
+*
+* Output: None
+*===============================
+
+PD_WRBYT    STA    RWBYTE                         ; Save Data
+            PHA
+            LDEQ   REFNUM;WRBYTE2
+            STA    BWRREF
+            PDOS   Write;BWRLST
+            PLA
+            RTS
+
+WRBYTE2     PLA
+            SEC
+            RTS
+
+BWRLST      DB     4
+BWRREF      DB     0
+            DW     RWBYTE
+            DW     1
+            DW     0
+
+*===============================
+*   Name: PD_RBLK1 - Read One Block
+*         PD_RDBLK - Read Multiple Blocks
+*         PD_WRBLK - Write Multiple Blocks
+*
+*  Input: X, A - Buffer Pointer
+*         Y    - Number Of Blocks
+*
+* Output: None
+*===============================
+
+PD_RBLK1    LDY    #1                             ; Reading 1 Block
+PD_RDBLK    PHA                                   ; Read Y Blocks
+            LDRA   #Read;RWBLK                    ; Use Read Call
+
+PD_WRBLK    PHA                                   ; Write Y Blocks
+            LDA    #Write
+RWBLK       STA    RWTYPE                         ; --- Does Modify
+            PLA
+            ST16   RWADR                          ; Save Read Address
+            STZ    RWREQ
+            STY    RWREQ+1                        ; Number Of Blocks To Read
+            LSR    RWREQ+1                        ; Divide By 2
+            ROR    RWREQ
+            LDEQ   REFNUM;RWERR                   ; Get Refnum
+            STA    RWREF
+            JSR    MLI                            ; Call MLI
+RWTYPE      DB     Read                           ; *** Modified ***
+            DW     RWLST
+            RTS
+
+RWERR       SEC
+            RTS
+
+RWLST       DB     4
+RWREF       DB     0
+RWADR       DW     0
+RWREQ       DW     128
+            DW     0
+
+*===============================
+*   Name: PD_CLOSE - Close Disk File
+*         PD_FLUSH - Flush Data To Disk File
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_CLOSE    LDA    #Close                         ; Closing A File
+            SKIP2                                 ; Skip Next Two Bytes
+PD_FLUSH    MOV    #Flush;CLFL_MOD                ; Flushing A File
+            MOV    REFNUM;CLFLREF
+            JSR    MLI
+CLFL_MOD    DB     Close
+            DW     CLFLLST
+            RTS
+
+CLFLLST     DB     1
+CLFLREF     DB     0
+
+*===============================
+*   Name: PD_SMARK - Set 16 Bit Disk File Mark
+*         PD_SPOS  - Set 24 Bit Disk File Mark
+*
+*  Input: X, A, Y - Position
+*         PD_SMARK - Y=0
+*
+* Output: None
+*===============================
+
+PD_SMARK    LDY    #0                             ; Setting 16 Bit Mark
+*-------------------------------
+* Do Actual Position Set Within File
+*-------------------------------
+PD_SPOS     ST24   SMARK                          ; Setting 24 Bit Mark
+            MOV    REFNUM;SMARKREF
+SETPOS2     PDOS   Setmark;SMARKLST
+            CPNE   #outOfRange;SETPOS3            ; Check For Out-Of-Range
+
+            PDOS   Seteof;SMARKLST                ; Set EOF To New Mark
+            BEQ    SETPOS2                        ; Position Again
+
+SETPOS3     RTS
+
+SMARKLST    DB     2
+SMARKREF    DB     0
+SMARK       DB     0,0,0
+
+*===============================
+*   Name: PD_GMARK - Get Disk File Mark
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_GMARK    MOV    REFNUM;GMARKREF                ; Save Refnum
+            PDOS   Getmark;GMARKLST
+            LDX    #0                             ; Make Zero In Case Error
+            TXA
+            TAY
+            BCS    GETMRK2                        ; Opps, Error
+
+            LD24   GMARK                          ; All Is Well
+GETMRK2     RTS
+
+GMARKLST    DB     2
+GMARKREF    DB     0
+GMARK       DB     0,0,0
+
+*===============================
+*   Name: PD_GEOF - Get Disk File EOF Pointer
+*
+*  Input: None
+*
+* Output: X, A, Y - End Of File
+*===============================
+
+PD_GEOF     MOV    REFNUM;GEOFREF                 ; Save Refnum
+            PDOS   Geteof;GEOFLST
+            LD24   GEOF                           ; get length
+            RTS
+
+GEOFLST     DB     2
+GEOFREF     DB     0
+GEOF        DB     0,0,0
+
+*===============================
+*   Name: PD_APEND - Set Mark To End Of Disk File
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PD_APEND    JSR    PD_GEOF                        ; Get End Of File
+            JMP    PD_SPOS                        ; Append
+
+*===============================
+*   Name: PD_CKEOF - Check For End Of Disk File
+*
+*  Input: None
+*
+* Output: X = 0: Not At End
+*         X = 1: At End
+*===============================
+
+PD_CKEOF    JSR    PD_GMARK                       ; Get The Current Place
+            SVXAY
+            JSR    PD_GEOF                        ; Get The End Of File
+            ST24   TEMP
+            RSTXAY
+            CPLTY  TEMP+2;CHKEOF2                 ; Are They The Same?
+            CPLT   TEMP+1;CHKEOF2
+            CPLTX  TEMP;CHKEOF2
+            LDX    #1                             ; Yep, Mark It
+            SKIP2
+CHKEOF2     LDX    #0
+            RTS
+
+*===============================
+*   Name: NEW_MLI - Entry Point For All ProDOS Calls
+*                   Patched In ProDOS Global Page
+*
+*  Input: None
+*
+* Output: A = ProDOS Error Code
+*         P = Status Code
+*===============================
+
+NEW_MLI     PHP                                   ; Get Processor Status In A
+            PULL   STSAVE                         ; Save For Later
+            SEI                                   ; Interrupts Off
+            STX    DISK_X                         ; Save X & Y
+            STY    DISK_Y
+            PULL   DOSPARM
+            PULLY  DOSPARM+1
+            CLC                                   ; Set Up Return Address
+            ADC    #3
+            BCC    MLI_OK
+            INY
+MLI_OK      PHY
+            PHA
+            LDY    #3                             ; Get Call Number
+MLI_MOVE    MOV    (DOSPARM),Y;OURPARM-1,Y
+            DBNE   Y;MLI_MOVE                     ; and parameter address
+
+            TSX                                   ; Get Stack Pointer
+            STX    $101                           ; Save Aux Stack Pointer
+            LDX    $100                           ; Restore Std Stack Pointer
+            TXS
+            STA    SETSTDZP                       ; ProDOS Is In Standard Area
+            PUSHA  STSAVE                         ; Restore Status
+            PLP
+            JSR    GO_MLI                         ; Call ProDOS Itself
+OURPARM     DB     0
+            DW     0
+            PHP                                   ; Save Status On Stack
+            SEI                                   ; Interrupts Off
+            TAY                                   ; Save Return Code In Y
+            PULL   SETALTZP                       ; Back To Alternate Memory
+            TSX                                   ; Save Std Stack
+            STX    $100
+            LDX    $101                           ; Restore Aux Stack
+            TXS
+            PHA                                   ; Save Status On Stack
+            TYA                                   ; Get Back DOS Error Code
+            LDX    DISK_X                         ; Restore X & Y
+            LDY    DISK_Y
+            PLP                                   ; Restore Status
+            RTS
+
+GO_MLI      JMP    (PDOSVEC)
+
+STSAVE      DB     0
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/EMULS.S b/SOURCE/LLUCE/EMULS.S
new file mode 100644
index 0000000..0ee550e
--- /dev/null
+++ b/SOURCE/LLUCE/EMULS.S
@@ -0,0 +1,394 @@
+**************************************************
+*
+* Emulation sequence tables.
+*
+* Contains:
+*
+*  Datamedia 1500
+*  HeathKit H-19
+*  TeleVideo 1500, SOROC IQ, ADM-3A
+*  Hazeltine 1500
+*  IBM
+*  VT-52
+*  ProTerm special
+*  ANSI (VT-100)
+**************************************************
+
+DM15LST     =     *
+DM15home    HEX   0119        ; Home
+            DS    8-*+DM15home
+DM15up      HEX   011F        ; Cursor up
+            DS    8-*+DM15up
+DM15down    HEX   010A        ; Cursor down
+            DS    8-*+DM15down
+DM15left    HEX   0108        ; Cursor left
+            DS    8-*+DM15left
+DM15rght    HEX   011C        ; Cursor right
+            DS    8-*+DM15rght
+DM15eos     HEX   010B        ; Clear to eos
+            DS    8-*+DM15eos
+DM15bos     HEX   00          ; Clear to bos
+            DS    8-*+DM15bos
+DM15cls     HEX   010C        ; Clear screen
+            DS    8-*+DM15cls
+DM15eol     HEX   011D        ; Clear to eol
+            DS    8-*+DM15eol
+DM15bol     HEX   00          ; Clear to bol
+            DS    8-*+DM15bol
+DM15cll     HEX   020D1D      ; Clear line
+            DS    8-*+DM15cll
+DM15iln     HEX   00          ; Insert line
+            DS    8-*+DM15iln
+DM15dln     HEX   00          ; Delete line
+            DS    8-*+DM15dln
+DM15ich     HEX   00          ; Insert char
+            DS    8-*+DM15ich
+DM15dch     HEX   00          ; Delete char
+            DS    8-*+DM15dch
+DM15nor     HEX   010E        ; Normal
+            DS    8-*+DM15nor
+DM15inv     HEX   010F        ; Inverse
+            DS    8-*+DM15inv
+DM15goxy    HEX   011E        ; Goto XY
+            DS    8-*+DM15goxy
+DM15mous    HEX   00          ; Mouse text on
+            DS    8-*+DM15mous
+DM15offs    DB    32          ; XY offset and order
+            DS    \
+
+H19LST      =     *
+H19home     HEX   021B48      ; Home
+            DS    8-*+H19home
+H19up       HEX   021B41      ; Cursor up
+            DS    8-*+H19up
+H19down     HEX   021B42      ; Cursor down
+            DS    8-*+H19down
+H19left     HEX   021B44      ; Cursor left
+            DS    8-*+H19left
+H19rght     HEX   021B43      ; Cursor right
+            DS    8-*+H19rght
+H19eos      HEX   021B4A      ; Clear to eos
+            DS    8-*+H19eos
+H19bos      HEX   00          ; Clear to bos
+            DS    8-*+H19bos
+H19cls      HEX   021B45      ; Clear screen
+            DS    8-*+H19cls
+H19eol      HEX   021B4B      ; Clear to eol
+            DS    8-*+H19eol
+H19bol      HEX   00          ; Clear to bol
+            DS    8-*+H19bol
+H19cll      HEX   030D1B4B    ; Clear line
+            DS    8-*+H19cll
+H19iln      HEX   021B4C      ; Insert line
+            DS    8-*+H19iln
+H19dln      HEX   021B4D      ; Delete line
+            DS    8-*+H19dln
+H19ich      HEX   00          ; Insert char
+            DS    8-*+H19ich
+H19dch      HEX   021B4E      ; Delete char
+            DS    8-*+H19dch
+H19nor      HEX   021B70      ; Normal
+            DS    8-*+H19nor
+H19inv      HEX   021B71      ; Inverse
+            DS    8-*+H19inv
+H19goxy     HEX   021B59      ; Goto XY
+            DS    8-*+H19goxy
+H19mous     HEX   00          ; Mouse text on
+            DS    8-*+H19mous
+H19offs     DB    32+128      ; XY offset and order
+            DS    \
+
+TV          =     *
+TVhome      HEX   011E        ; Home
+            DS    8-*+TVhome
+TVup        HEX   010B        ; Cursor up
+            DS    8-*+TVup
+TVdown      HEX   010A        ; Cursor down
+            DS    8-*+TVdown
+TVleft      HEX   0108        ; Cursor left
+            DS    8-*+TVleft
+TVrght      HEX   010C        ; Cursor right
+            DS    8-*+TVrght
+TVeos       HEX   021B59      ; Clear to eos
+            DS    8-*+TVeos
+TVbos       HEX   00          ; Clear to bos
+            DS    8-*+TVbos
+TVcls       HEX   011A        ; Clear screen
+            DS    8-*+TVcls
+TVeol       HEX   021B54      ; Clear to eol
+            DS    8-*+TVeol
+TVbol       HEX   00          ; Clear to bol
+            DS    8-*+TVbol
+TVcll       HEX   030D1B54    ; Clear line
+            DS    8-*+TVcll
+TViln       HEX   021B45      ; Insert line
+            DS    8-*+TViln
+TVdln       HEX   021B52      ; Delete line
+            DS    8-*+TVdln
+TVich       HEX   021B51      ; Insert char
+            DS    8-*+TVich
+TVdch       HEX   021B57      ; Delete char
+            DS    8-*+TVdch
+TVnor       HEX   021B6B      ; Normal
+            DS    8-*+TVnor
+TVinv       HEX   021B6A      ; Inverse
+            DS    8-*+TVinv
+TVgoxy      HEX   021B3D      ; Goto XY
+            DS    8-*+TVgoxy
+TVmous      HEX   00          ; Mouse text on
+            DS    8-*+TVmous
+TVoffs      DB    32+128      ; XY offset and order
+            DS    \
+
+HAZLLST     =     *
+HAZLhome    HEX   027E12      ; Home
+            DS    8-*+HAZLhome
+HAZLup      HEX   027E0B      ; Cursor up
+            DS    8-*+HAZLup
+HAZLdown    HEX   010A        ; Cursor down
+            DS    8-*+HAZLdown
+HAZLleft    HEX   0108        ; Cursor left
+            DS    8-*+HAZLleft
+HAZLrght    HEX   0110        ; Cursor right
+            DS    8-*+HAZLrght
+HAZLeos     HEX   027E18      ; Clear to eos
+            DS    8-*+HAZLeos
+HAZLbos     HEX   00          ; Clear to bos
+            DS    8-*+HAZLbos
+HAZLcls     HEX   047E127E18  ; Clear screen
+            DS    8-*+HAZLcls
+HAZLeol     HEX   027E0F      ; Clear to eol
+            DS    8-*+HAZLeol
+HAZLbol     HEX   00          ; Clear to bol
+            DS    8-*+HAZLbol
+HAZLcll     HEX   030D7E0F    ; Clear line
+            DS    8-*+HAZLcll
+HAZLiln     HEX   027E1A      ; Insert line
+            DS    8-*+HAZLiln
+HAZLdln     HEX   027E13      ; Delete line
+            DS    8-*+HAZLdln
+HAZLich     HEX   027E1C      ; Insert char
+            DS    8-*+HAZLich
+HAZLdch     HEX   00          ; Delete char
+            DS    8-*+HAZLdch
+HAZLnor     HEX   027E1F      ; Normal
+            DS    8-*+HAZLnor
+HAZLinv     HEX   027E19      ; Inverse
+            DS    8-*+HAZLinv
+HAZLgoxy    HEX   027E11      ; Goto XY
+            DS    8-*+HAZLgoxy
+HAZLmous    HEX   00          ; Mouse text on
+            DS    8-*+HAZLmous
+HAZLoffs    DB    0           ; XY offset and order
+            DS    \
+
+IBMLST      =     *
+IBMhome     HEX   021B48      ; Home
+            DS    8-*+IBMhome
+IBMup       HEX   021B41      ; Cursor up
+            DS    8-*+IBMup
+IBMdown     HEX   021B42      ; Cursor down
+            DS    8-*+IBMdown
+IBMleft     HEX   021B44      ; Cursor left
+            DS    8-*+IBMleft
+IBMrght     HEX   021B43      ; Cursor right
+            DS    8-*+IBMrght
+IBMeos      HEX   021B4A      ; Clear to eos
+            DS    8-*+IBMeos
+IBMbos      HEX   00          ; Clear to bos
+            DS    8-*+IBMbos
+IBMcls      HEX   041B481B4A  ; Clear screen
+            DS    8-*+IBMcls
+IBMeol      HEX   021B49      ; Clear to eol
+            DS    8-*+IBMeol
+IBMbol      HEX   00          ; Clear to bol
+            DS    8-*+IBMbol
+IBMcll      HEX   030D1B49    ; Clear line
+            DS    8-*+IBMcll
+IBMiln      HEX   00          ; Insert line
+            DS    8-*+IBMiln
+IBMdln      HEX   00          ; Delete line
+            DS    8-*+IBMdln
+IBMich      HEX   00          ; Insert char
+            DS    8-*+IBMich
+IBMdch      HEX   00          ; Delete char
+            DS    8-*+IBMdch
+IBMnor      HEX   00          ; Normal
+            DS    8-*+IBMnor
+IBMinv      HEX   00          ; Inverse
+            DS    8-*+IBMinv
+IBMgoxy     HEX   021B59      ; Goto XY
+            DS    8-*+IBMgoxy
+IBMmous     HEX   00          ; Mouse text on
+            DS    8-*+IBMmous
+IBMoffs     DB    32          ; XY offset and order
+            DS    \
+
+VT52LST     =     *
+VT52home    HEX   021B48      ; Home
+            DS    8-*+VT52home
+VT52up      HEX   021B41      ; Cursor up
+            DS    8-*+VT52up
+VT52down    HEX   021B42      ; Cursor down
+            DS    8-*+VT52down
+VT52left    HEX   021B44      ; Cursor left
+            DS    8-*+VT52left
+VT52rght    HEX   021B43      ; Cursor right
+            DS    8-*+VT52rght
+VT52eos     HEX   021B4A      ; Clear to eos
+            DS    8-*+VT52eos
+VT52bos     HEX   00          ; Clear to bos
+            DS    8-*+VT52bos
+VT52cls     HEX   010C        ; Clear screen
+            DS    8-*+VT52cls
+VT52eol     HEX   021B4B      ; Clear to eol
+            DS    8-*+VT52eol
+VT52bol     HEX   00          ; Clear to bol
+            DS    8-*+VT52bol
+VT52cll     HEX   030D1B4B    ; Clear line
+            DS    8-*+VT52cll
+VT52iln     HEX   00          ; Insert line
+            DS    8-*+VT52iln
+VT52dln     HEX   00          ; Delete line
+            DS    8-*+VT52dln
+VT52ich     HEX   00          ; Insert char
+            DS    8-*+VT52ich
+VT52dch     HEX   00          ; Delete char
+            DS    8-*+VT52dch
+VT52nor     HEX   0E          ; Normal
+            DS    8-*+VT52nor
+VT52inv     HEX   0F          ; Inverse
+            DS    8-*+VT52inv
+VT52goxy    HEX   021B5A      ; Goto XY
+            DS    8-*+VT52goxy
+VT52mous    HEX   00          ; Mouse text on
+            DS    8-*+VT52mous
+VT52offs    DB    32          ; XY offset and order
+            DS    \
+
+PTLST       =     *
+PThome      HEX   0118        ; Home
+            DS    8-*+PThome
+PTup        HEX   010B        ; Cursor up
+            DS    8-*+PTup
+PTdown      HEX   010A        ; Cursor down
+            DS    8-*+PTdown
+PTleft      HEX   0108        ; Cursor left
+            DS    8-*+PTleft
+PTrght      HEX   0115        ; Cursor right
+            DS    8-*+PTrght
+PTeos       HEX   0117        ; Clear to eos
+            DS    8-*+PTeos
+PTbos       HEX   00          ; Clear to bos
+            DS    8-*+PTbos
+PTcls       HEX   010C        ; Clear screen
+            DS    8-*+PTcls
+PTeol       HEX   0119        ; Clear to eol
+            DS    8-*+PTeol
+PTbol       HEX   00          ; Clear to bol
+            DS    8-*+PTbol
+PTcll       HEX   020119      ; Clear line
+            DS    8-*+PTcll
+PTiln       HEX   0116        ; Insert line
+            DS    8-*+PTiln
+PTdln       HEX   011A        ; Delete line
+            DS    8-*+PTdln
+PTich       HEX   0106        ; Insert char
+            DS    8-*+PTich
+PTdch       HEX   0104        ; Delete char
+            DS    8-*+PTdch
+PTnor       HEX   010E        ; Normal
+            DS    8-*+PTnor
+PTinv       HEX   010F        ; Inverse
+            DS    8-*+PTinv
+PTgoxy      HEX   011E        ; Goto XY
+            DS    8-*+PTgoxy
+PTmous      HEX   0110        ; Mouse text on
+            DS    8-*+PTmous
+PToffs      DB    32          ; XY offset and order
+            DS    \
+
+ANSILST     =     *
+ANSIhome    HEX   031B5B48    ; Home
+            DS    8-*+ANSIhome
+ANSIup      HEX   031B5B41    ; Cursor up
+            DS    8-*+ANSIup
+ANSIdown    HEX   031B5B42    ; Cursor down
+            DS    8-*+ANSIdown
+ANSIleft    HEX   031B5B44    ; Cursor left
+            DS    8-*+ANSIleft
+ANSIrght    HEX   031B5B43    ; Cursor right
+            DS    8-*+ANSIrght
+ANSIeos     HEX   041B5B304A  ; Clear to eos
+            DS    8-*+ANSIeos
+ANSIbos     HEX   041B5B314A  ; Clear to bos
+            DS    8-*+ANSIbos
+ANSIcls     HEX   041B5B324A  ; Clear screen
+            DS    8-*+ANSIcls
+ANSIeol     HEX   041B5B304B  ; Clear to eol
+            DS    8-*+ANSIeol
+ANSIbol     HEX   041B5B314B  ; Clear to bol
+            DS    8-*+ANSIbol
+ANSIcll     HEX   041B5B324B  ; Clear line
+            DS    8-*+ANSIcll
+ANSIiln     HEX   031B5B4C    ; Insert line
+            DS    8-*+ANSIiln
+ANSIdln     HEX   031B5B4D    ; Delete line
+            DS    8-*+ANSIdln
+ANSIich     HEX   031B5B40    ; Insert char
+            DS    8-*+ANSIich
+ANSIdch     HEX   031B5B50    ; Delete char
+            DS    8-*+ANSIdch
+ANSInor     HEX   041B5B306D  ; Normal
+            DS    8-*+ANSInor
+ANSIinv     HEX   061B5B303B376D  ; Inverse
+            DS    8-*+ANSIinv
+ANSIgoxy    HEX   00          ; GotoXY (handled special)
+            DS    8-*+ANSIgoxy
+ANSImous    HEX   00
+            DS    8-*+ANSImous
+ANSIoffs    DB    0
+            DS    \
+
+BLNKLST     =     *
+BLNKhome    HEX   00          ; Home
+            DS    8-*+BLNKhome
+BLNKup      HEX   00          ; Cursor up
+            DS    8-*+BLNKup
+BLNKdown    HEX   00          ; Cursor down
+            DS    8-*+BLNKdown
+BLNKleft    HEX   00          ; Cursor left
+            DS    8-*+BLNKleft
+BLNKrght    HEX   00          ; Cursor right
+            DS    8-*+BLNKrght
+BLNKeos     HEX   00          ; Clear to eos
+            DS    8-*+BLNKeos
+BLNKbos     HEX   00          ; Clear to bos
+            DS    8-*+BLNKbos
+BLNKcls     HEX   00          ; Clear screen
+            DS    8-*+BLNKcls
+BLNKeol     HEX   00          ; Clear to eol
+            DS    8-*+BLNKeol
+BLNKbol     HEX   00          ; Clear to bol
+            DS    8-*+BLNKbol
+BLNKcll     HEX   00          ; Clear line
+            DS    8-*+BLNKcll
+BLNKiln     HEX   00          ; Insert line
+            DS    8-*+BLNKiln
+BLNKdln     HEX   00          ; Delete line
+            DS    8-*+BLNKdln
+BLNKich     HEX   00          ; Insert char
+            DS    8-*+BLNKich
+BLNKdch     HEX   00          ; Delete char
+            DS    8-*+BLNKdch
+BLNKnor     HEX   00          ; Normal
+            DS    8-*+BLNKnor
+BLNKinv     HEX   00          ; Inverse
+            DS    8-*+BLNKinv
+BLNKgoxy    HEX   00          ; Goto XY
+            DS    8-*+BLNKgoxy
+BLNKmous    HEX   00          ; Mouse text on
+            DS    8-*+BLNKmous
+BLNKoffs    DB    32          ; XY offset and order
+            DS    \
+
diff --git a/SOURCE/LLUCE/ENCODE.S b/SOURCE/LLUCE/ENCODE.S
new file mode 100644
index 0000000..08884c3
--- /dev/null
+++ b/SOURCE/LLUCE/ENCODE.S
@@ -0,0 +1,103 @@
+            LST   RTN
+            TTL   'LLUCE - Copyright Encoder'
+            PAG
+]COPYR      =     COPNOT-VIDRDKY+MOV_F00
+]SERIAL     =     SERNUM-VIDRDKY+MOV_F00
+
+ENCODE      BRA   ENC_DOIT                     ; Jump Around
+
+            HEX   EEEE                         ; Tell Em We're Here
+            DO    DEMOPGM
+            DW    0
+            ELSE
+            DW    ]SERIAL
+            FIN
+
+ENC_DOIT    IFNE  TEMP;#1;ARRGH
+            IFEQ  TEMP+1;#2;ENCODEIT
+
+ARRGH       LDY   #0                           ; Print Message
+EN_PRMSG    LDEQ  ARGMSG,Y;ENC_DONE
+
+            ORA   #Hibit
+            JSR   MONCOUT
+            IBRA  Y;EN_PRMSG
+
+ENC_DONE    LDA   KBDSTRB
+ENC_WAIT    LDPL  KYBD;ENC_WAIT                ; Wait For Keypress
+
+            LDA   KBDSTRB
+            PDOS  Quit;ENC_QLST
+            INC   SOFTEV
+            JMP   ($FFFC)
+
+ENC_QLST    DB    4
+            DS    7
+
+ARGMSG      DB    cr,cr
+            ASC   'System Not Set Up'00
+ENCODEIT    MOVD  #]COPYR;TEMP
+            LDY   #COPLEN
+            DEY
+ENC_COPY    LDA   (TEMP),Y
+            ROL   A
+            EOR   #COPLEN
+            STA   (TEMP),Y
+            DBPL  Y;ENC_COPY
+
+            MOVD  #]SERIAL;TEMP
+            LDY   #SERLEN
+            DEY
+ENC_SN      LDA   (TEMP),Y
+            ROL   A
+            EOR   #SERLEN
+            STA   (TEMP),Y
+            DBPL  Y;ENC_SN
+
+            LDA   SETRAM1
+            LDA   SETRAM1
+            LDX   #0                           ; Zero CRC Pages
+ENC_ZCRC    STZ   CRCLO,X
+            STZ   CRCHI,X
+            IBNE  X;ENC_ZCRC
+
+EN_FETCH    TXA                                ; Set Up CRC Table
+            EOR   CRCHI,X
+            STA   CRCHI,X
+            LDY   #8
+ENC_MCTB    ASL   CRCLO,X
+            ROL   CRCHI,X
+            BCC   ENC_LUP1
+
+            LDA   CRCHI,X
+            EOR   #>$1021
+            STA   CRCHI,X
+            LDA   CRCLO,X
+            EOR   #<$1021
+            STA   CRCLO,X
+ENC_LUP1    DBNE  Y;ENC_MCTB
+            IBNE  X;EN_FETCH
+
+            MOVD  #MOV_F00;TEMP
+ENCALCRC    LDA   (TEMP)
+            EOR   CRC2+1                       ; Add It To CRC
+            TAX
+            LDA   CRC2
+            EOR   CRCHI,X
+            STA   CRC2+1
+            MOV   CRCLO,X;CRC2
+            INCD  TEMP
+            IFNE  TEMP;#<CRC1;ENCALCRC
+            IFNE  TEMP+1;#>CRC1;ENCALCRC
+
+            LDA   SETROM
+            MOVD  #STARTUP;HEADER+1
+            LDY   CRC2
+            LDA   CRC2+1
+ZAPENCOD    LDX   #ZAPENCOD-ENCODE
+ENC_ZERO    STZ   ENCODE,X
+            DBNE  X;ENC_ZERO
+
+            RTS
+            LST   OFF
+
diff --git a/SOURCE/LLUCE/ENTRY.S b/SOURCE/LLUCE/ENTRY.S
new file mode 100644
index 0000000..f798461
--- /dev/null
+++ b/SOURCE/LLUCE/ENTRY.S
@@ -0,0 +1,72 @@
+            LST   RTN
+            TTL   'LLUCE - Entry Points'
+            PAG
+ENTPOINT    JMP   GETBYT                  ; Get a program byte and inc
+            LDA   (PRGPTR)                ; Get raw data, no inc
+            RTS
+            JMP   GOBCOM                  ; Check for and eat comma
+            JMP   INPNUM                  ; Get a 24 bit number
+            JMP   INPSTR                  ; Get a string
+            JMP   INPNARG                 ; Get a numeric argument
+            JMP   INPSARG                 ; Get a string argument
+            JMP   ZNUMIN                  ; Get number from (TEMP3)
+            JMP   DO_MATH                 ; Save number for math rtns
+            JMP   MOVNAME                 ; Get a filename from program
+            JMP   BADERR                  ; Generate an error
+
+            JMP   SETIVEC                 ; Set input vector
+            JMP   CHKKEY                  ; Check for a key
+            JMP   GETCHR                  ; Get a char from buffer
+            JMP   INPLN                   ; Input a line
+            JMP   RDKEY                   ; Read keystroke
+
+            JMP   SETOVEC                 ; Set output vector
+            JMP   COUT                    ; Output a char
+            JMP   DECOUT0                 ; Convert number to string
+            JMP   DO_SED                  ; Set interrupts
+
+            JMP   PD_MAKE                 ; Create file
+            JMP   PD_KILL                 ; Delete file
+            JMP   PD_OPEN                 ; Open a file
+            JMP   IFOPEN                  ; Open an unused channel
+            JMP   PD_CLOSE                ; Close file
+            JMP   PD_FLUSH                ; Flush file
+            JMP   PD_RDBYT                ; Read a byte from file
+            JMP   PD_WRBYT                ; Write a byte to file
+            JMP   PD_RDBLK                ; Read block(s) from file
+            JMP   PD_WRBLK                ; Write block(s) to file
+            JMP   PD_RDLN                 ; Read a line from file
+            JMP   PD_GMARK                ; Get a files mark
+            JMP   PD_SPOS                 ; Set files mark
+            JMP   PD_GPFX                 ; Get current prefix
+            JMP   PD_SPFX                 ; Set prefix
+            JMP   LOGSYS                  ; Log to system prefix
+            DB    NoLbl                   ; force a no label error
+            BRA   GONLBL
+            JMP   SHOWSTR                 ; Show a string
+            JMP   PD_NEWLN                ; Set newline mode
+
+            JMP   ED_CLR                  ; Clear the editor
+            JMP   EDIN                    ; Get char from editor
+            JMP   EDOUT                   ; Add char to editor
+            JMP   ADDCRC                  ; Add byte val to CRC
+
+            JMP   PD_RBYTS                ; Read byte(s) from file
+            JMP   PD_WBYTS                ; Write byte(s) to file
+
+            JMP   SYSSTORE                ; Store current variables
+            JMP   SYSRCAL                 ; Recall variables
+
+            JMP   COMPRES                 ; Compress Variables
+            JMP   UNCOMP                  ; Un-Compress Variables
+            JMP   RELOAD                  ; Reload segment
+            JMP   DO_CL3                  ; Close all files
+
+            JMP   TOFLN                   ; Move string (X,A) to fn
+            JMP   FRMFLN                  ; Move fn to string (X,A)
+
+GONLBL      JMP   NOLABEL                 ; Actual no label routine
+
+WHATSTK     =     $F1E0                   32
+            LST   OFF
+
diff --git a/SOURCE/LLUCE/FLOW.S b/SOURCE/LLUCE/FLOW.S
new file mode 100644
index 0000000..d9524e8
--- /dev/null
+++ b/SOURCE/LLUCE/FLOW.S
@@ -0,0 +1,604 @@
+            LST    RTN
+            TTL    'LLUCE - Program Flow'
+            PAG
+*===============================
+* Contents:
+*
+* ELSE    - Else Statement
+* FOR     - Handle For-Next Statement
+* DO_DO   - start a DO loop
+* GOSUB   - Gosub Statement
+* GOTO    - Goto Statement
+* IF      - If Statement
+* NEXT    - Handle "Next" Part Of For-Next Loop
+* NOCAR   - Setup No Carrier Vector
+* ON      - Do ON Commands
+* ONERROR - Setup On Error Vector
+* POP     - Pop A Label Off The Gosub Stack
+* PUSH    - Push A Label Onto The Stack
+* RESUME  - Resume Command
+* RETURN  - Return To The Address On The Stack
+* WHILE   - end a DO loop, start a WHILE loop
+*===============================
+
+*===============================
+* Name: GOTO - Goto Statement
+*===============================
+
+GT_RANGE    LDY    #0                           ; check range of goto with
+            LD16   TEMP                         ; loop range
+            CPLT   TEMP2+1;GT_OUT
+            CPLTX  TEMP2;GT_OUT
+            CPEQ   TEMP3+1;GT_LOW
+            BGE    GT_OUT
+GT_LOW      CPEQX  TEMP3;GT_IN
+            BLT    GT_IN
+GT_OUT      INY
+GT_IN       TYA
+            RTS
+
+GOTO        JSR    GETRAW                       ; Get Address (No List)
+            PHA
+            JSR    GETRAW
+DO_GT2      STA    TEMP+1                       ; Put Into Program Counter
+            PULL   TEMP
+DO_GT3      LDEQX  WHATLVL;DO_GT5               ; check loop in progress
+            DEX                                 ; get loop type
+            LDPL   WHATSTK,X;DO_GT4             ; its a while
+            LDX    DOLVL                        ; get while start/end
+            DEX
+            MOV    WHLOCL,X;TEMP2
+            MOV    WHLOCH,X;TEMP2+1
+            MOV    END_WHIL,X;TEMP3
+            MOV    END_WHIL+16,X;TEMP3+1
+            JSR    GT_RANGE                     ; check the range
+            BEQ    DO_GT5                       ; in range, do the goto
+            DEC    WHILELVL
+DO_GT3A     DEC    WHATLVL                      ; bump down the levels
+            BRA    DO_GT3                       ; check next one
+
+DO_GT4      LDX    DOLVL                        ; get DO start/end
+            DEX
+            MOV    DOLOCL,X;TEMP2
+            MOV    DOLOCH,X;TEMP2+1
+            MOV    END_DO,X;TEMP3
+            MOV    END_DO+16,X;TEMP3+1
+            JSR    GT_RANGE                     ; check the range
+            BEQ    DO_GT5                       ; in range, goto
+            DEC    DOLVL                        ; bump down the levels
+            BRA    DO_GT3A
+
+DO_GT5      MOVD   TEMP;PRGPTR                  ; reset program pointer
+            RTS
+
+*===============================
+* Name: GOSUB - Gosub Statement
+*===============================
+
+GOSUB       IFEQX  GSBLVL;#16;STKFUL            ; enough room?
+
+            JSR    GETRAW                       ; Get Address (No List)
+            PHA
+            JSR    GETRAW
+            PHA
+            MOV    PRGPTR;GSBSTKL,X             ; Current Address -> Stack
+            MOV    PRGPTR+1;GSBSTKH,X
+            INX                                 ; Increment Stack Pointer
+            STX    GSBLVL
+            PULL   PRGPTR+1
+            PULL   PRGPTR
+            RTS
+
+*===============================
+* Name: PUSH - Push A Label Onto The Stack
+*===============================
+
+PUSH        IFEQX  GSBLVL;#16;STKFUL            ; enough room?
+
+            JSR    GETRAW                       ; Put Data Onto Stack
+            STA    GSBSTKL,X
+            JSR    GETRAW
+            STA    GSBSTKH,X
+            INX                                 ; Increment Stack Pointer
+            STX    GSBLVL
+            RTS
+
+STKFUL      LDA    #Gsbfull                     ; Gosub Stack Full
+            SKIP2
+NOGSB       LDA    #Nogosub                     ; No Gosub Error
+            SKIP2
+DOSTKFUL    LDA    #DoFull
+            SKIP2
+NODOERR     LDA    #NoDo
+            JMP    BADERR
+
+*===============================
+* Name: RETURN - Return To The Address On The Stack
+*===============================
+
+RETURN      LDEQX  GSBLVL;NOGSB                 ; Anything On Stack?
+            DEX                                 ; Decrement Stack Pointer
+            STX    GSBLVL
+            MOV    GSBSTKL,X;PRGPTR
+            MOV    GSBSTKH,X;PRGPTR+1
+            RTS
+
+*===============================
+* Name: POP - Pop A Label Off The Gosub Stack
+*===============================
+
+POP         LDEQX  GSBLVL;NOGSB                 ; Anything On Stack?
+            DEX                                 ; Decrement Stack Pointer
+            STX    GSBLVL
+            RTS
+
+*===============================
+* Name: DO - DO loop
+*===============================
+
+DO_DO       IFEQX  DOLVL;#16;DOSTKFUL           ; enough room?
+
+            MOV    PRGPTR+1;DOLOCH,X
+            PHA
+            MOV    PRGPTR;DOLOCL,X              ; Current address -> stack
+            PHAX
+            CLC
+            JSR    FINDEND                      ; find DOs end
+            PLX
+            MOV    PRGPTR;END_DO,X              ; save it
+            MOV    PRGPTR+1;END_DO+16,X
+            PULLW  PRGPTR                       ; restore pointer
+            INC    DOLVL                        ; Increment stack pointer
+
+            LDX    WHATLVL                      ; save type on stack
+            STZ    WHATSTK,X
+            INC    WHATLVL
+
+DO_TOP      JSR    ZAP_CHNS
+            JSR    RUN                          ; run to end of line or block
+            CPEQ   #Break;DO_BRK
+            CPNE   #Continue;DO_TEST
+
+            LDX    DOLVL                        ; Anything on stack?
+            DEX                                 ; Decrement stack pointer
+            MOV    END_DO,X;PRGPTR              ; point back to start
+            MOV    END_DO+16,X;PRGPTR+1
+
+DO_TEST     JSR    ZAP_CHNS
+
+            LDX    #While                       ; must be a WHILE here
+            JSR    GOBBLE
+
+            LDA    (PRGPTR)
+            CMP    #'('+Hibit
+            BNE    DO_SYN
+
+            JSR    INPNUM                       ; Evaluate expression
+            STXY   TEMP                         ; Save high and low byte
+            ORA    TEMP                         ; Is it not zero?
+            ORA    TEMP+1
+            BEQ    POPDO                        ; It is, just return
+
+            LDX    DOLVL                        ; Anything on stack?
+            DEX                                 ; Decrement stack pointer
+            MOV    DOLOCL,X;PRGPTR              ; point back to start
+            MOV    DOLOCH,X;PRGPTR+1
+            BRA    DO_TOP                       ; and continue
+
+DO_BRK      LDX    DOLVL
+            DEX
+            MOV    END_DO,X;PRGPTR
+            MOV    END_DO+16,X;PRGPTR+1
+            JSR    GETRAW                       ; skip the WHILE statement
+            PUSHW  VECTOR
+            MOVD   #NIL;VECTOR
+            JSR    INPNUM                       ; Evaluate expression
+            PULLW  VECTOR
+POPDO       DEC    DOLVL
+            DEC    WHATLVL
+            RTS
+
+DO_SYN      JMP    SYNTAX
+
+*===============================
+* Name: WHILE - WHILE loop
+*===============================
+
+WHSTKFUL    LDA    #WhileFul
+            JMP    BADERR
+
+WHILE       IFEQX  WHILELVL;#16;WHSTKFUL        ; pending DO?
+
+            MOV    PRGPTR+1;WHLOCH,X
+            PHA
+            MOV    PRGPTR;WHLOCL,X              ; Current address -> stack
+            PHAX
+            IFNE   (PRGPTR);#'('+Hibit;DO_SYN
+            JSR    INPNUM
+            SEC
+            JSR    FINDEND                      ; find WHILEs end
+            PLX
+            MOV    PRGPTR;END_WHIL,X            ; save it
+            MOV    PRGPTR+1;END_WHIL+16,X
+            PULLW  PRGPTR                       ; restore pointer
+            INX                                 ; Increment stack pointer
+            STX    WHILELVL
+
+            LDX    WHATLVL
+            LDA    #-1
+            STA    WHATSTK,X
+            INC    WHATLVL
+
+WH_TOP      IFNE   (PRGPTR);#'('+Hibit;DO_SYN
+
+            JSR    INPNUM                       ; Evaluate expression
+            STXY   TEMP                         ; Save high and low byte
+            ORA    TEMP                         ; Is it not zero?
+            ORA    TEMP+1
+            BEQ    WH_FALSE
+
+            JSR    ZAP_CHNS
+            JSR    RUN                          ; run this section
+            CPEQ   #Break;WH_FALSE
+
+WH_CONT     LDX    WHILELVL                     ; Anything on stack?
+            DEX                                 ; Decrement stack pointer
+            MOV    WHLOCL,X;PRGPTR              ; point back to start
+            MOV    WHLOCH,X;PRGPTR+1
+            BRA    WH_TOP                       ; loop
+
+WH_FALSE    DEC    WHILELVL                     ; kill the last while
+            LDX    WHILELVL
+            MOV    END_WHIL,X;PRGPTR
+            MOV    END_WHIL+16,X;PRGPTR+1
+            DEC    WHATLVL
+            JMP    ZAP_CHNS
+
+*===============================
+* Name: IF - If Statement
+*===============================
+
+IF          JSR    INPNUM                       ; Evaluate Expression
+            STXY   TEMP                         ; Save High And Low Byte
+            ORA    TEMP                         ; Is It Not Zero?
+            ORA    TEMP+1
+            BNE    IF_TRUE                      ; It Is, Just Return
+            SEC
+            JSR    FINDEND
+            JSR    ZAP_CHNS
+            CPNE   #Else;IF_TRUE                ; is there an ELSE?
+            JSR    GETBYT                       ; eat the else
+            JSR    ZAP_CHNS
+IF_TRUE     STZ    LSTTXT                       ; Clear Text Mode
+            RTS
+
+*===============================
+* Name: ELSE - Else Statement
+*===============================
+
+ELSE        SEC
+            JSR    FINDEND
+            JSR    ZAP_CHNS
+            CPEQ   #Else;ELSE                   ; eat ELSEs too
+            STZ    LSTTXT                       ; Clear Text Mode
+            RTS
+
+FINDEND     PHP                                 ; save eat status
+            JSR    ZAP_CHNS                     ; skip chains
+            CPNE   #CompStrt;FIND_EOL           ; doing block?
+
+FIND_EOB    JSR    GETRAW                       ; eat the start
+            LDY    #0                           ; start level 0
+EOB_2       PHY
+            JSR    IFGOB                        ; eat byte(s)
+            PLY
+            STA    LSTTOK
+            LDNEX  LSTTXT;EOB_2                 ; Doing Text, no other test
+
+            CPNE   #CompStrt;EOB_3              ; Start of another block?
+            IBRA   Y;EOB_2                      ; count up
+
+EOB_3       CPNE   #CompEnd;EOB_2               ; End Of Line?
+            CPEQY  #0;EOB_4                     ; End of our block?
+            DBRA   Y;EOB_2                      ; count down blocks
+
+EOB_4       PLP
+            BCC    ZAP_CHNS
+            JSR    GETRAW                       ; eat closing }
+            BRA    ZAP_CHNS
+
+FIND_EOL    JSR    IFGOB                        ; Loop Until A Chain Or Else
+            STA    LSTTOK
+            LDNEX  LSTTXT;FIND_EOL              ; Doing Text, no other test
+            CPEQ   #Chain2;EOL_1                ; End Of Line?
+            CPNE   #Else;FIND_EOL               ; Is There An Else Clause?
+EOL_1       PLP
+            BRA    ZAP_CHNS
+
+ZAP_C       JSR    GETRAW
+ZAP_CHNS    IFEQ   (PRGPTR);#Chain;ZAP_C        ; skip chains
+            CPEQ   #Chain2;ZAP_C
+            RTS
+
+*===============================
+* Gobble Program Bytes
+*===============================
+
+IFGOB       STZ    SETRAM1                      ; Switch In Subs
+            JSR    IFGOB1
+            STZ    SETRAM2                      ; Switch Out Subs
+            RTS
+
+*===============================
+* Name: FOR - Handle For-Next Statement
+*===============================
+
+FOR         IFLTX  FORLVL;#16;DO_FOR1           ; enough room?
+            LDA    #Forfull
+            JMP    BADERR
+
+DO_FOR1     LDY    #1                           ; get first char of name
+DO_FOR2     LDPL   (PRGPTR),Y;DO_FOR4           ; if hi bit clear, not name
+            JSR    TST_ALF                      ; is it alpha?
+            BCC    DO_FOR3                      ; yes, part of name
+            JSR    TST_NUM                      ; how about number?
+            BCS    DO_FOR4                      ; nope, name done
+DO_FOR3     AND    #Clrhi
+            PHA                                 ; save byte
+            INY                                 ; point to next byte
+            CPLTY  #5;DO_FOR2                   ; at max size?
+
+DO_FOR4     LDA    #0                           ; fill rest with 0s
+DO_FOR5     CPGEY  #5;DO_FOR6                   ; at max size?
+            PHA                                 ; save it
+            IBNE   Y;DO_FOR5                    ; always
+
+DO_FOR6     JSR    LET                          ; Do Assign
+            LDX    FORLVL                       ; Get Level
+            PULL   FORVARH,X                    ; save var name
+            PULL   FORVARMH,X
+            PULL   FORVARML,X
+            PULL   FORVARL,X
+            LDX    #To                          ; Gobble "TO" Statement
+            JSR    GOBBLE
+            JSR    INPNUM
+            PHY
+            PHA
+            TXA
+            LDX    FORLVL                       ; Save End Value
+            STA    FORENDL,X
+            PULL   FORENDM,X
+            PULL   FORENDH,X
+            MOV    #1;FORSTPL,X                 ; Save Default Step (1)
+            STZ    FORSTPM,X
+            STZ    FORSTPH,X
+            IFNE   (PRGPTR);#Step;DO_FOR7       ; step specified?
+
+            JSR    GETBYT                       ; Gobble "STEP"
+            JSR    INPNUM                       ; Get Step
+            PHY
+            PHA
+            TXA
+            LDX    FORLVL
+            STA    FORSTPL,X                    ; Save Desired Step
+            PULL   FORSTPM,X
+            PULL   FORSTPH,X
+            ORA    FORSTPM,X                    ; Did They Try Step 0?
+            ORA    FORSTPL,X
+            BEQ    FOR_ERR                      ; The Dolt! Error Out
+
+DO_FOR7     LDX    FORLVL                       ; Save FOR Address
+            MOV    PRGPTR;FORLOCL,X
+            MOV    PRGPTR+1;FORLOCH,X
+            INC    FORLVL                       ; Inc Level
+            RTS
+
+FOR_ERR     JMP    SYNTAX
+
+*===============================
+* Name: NEXT - Handle "Next" Part Of For-Next Loop
+*===============================
+
+NEXT        LDNEX  FORLVL;DO_NXT2               ; Check For Next Without For
+DO_NXT1     LDA    #Nonext
+            JMP    BADERR
+
+DO_NXT2     IFNE   (PRGPTR);#Number;DO_NXT4     ; variable must be #
+
+            JSR    VARSET                       ; Get The Variable
+            LDX    FORLVL                       ; Get Level
+DO_NXT3     DBMI   X;DO_NXT1                    ; Bump Down One
+
+            IFNE   FORVARL,X;VNAME;DO_NXT3      ; check for name
+            IFNE   FORVARML,X;VNAME+1;DO_NXT3
+            IFNE   FORVARMH,X;VNAME+2;DO_NXT3
+            IFNE   FORVARH,X;VNAME+3;DO_NXT3
+
+            INX                                 ; Bump Pointer Up 1
+            STX    FORLVL                       ; This Resets The FOR Stack
+            BRA    DO_NXT5                      ; For Dropped Levels
+
+DO_NXT4     DEX                                 ; Back Down 1 Level
+            MOV    FORVARL,X;VNAME              ; Restore Var Pointer
+            MOV    FORVARML,X;VNAME+1
+            MOV    FORVARMH,X;VNAME+2
+            MOV    FORVARH,X;VNAME+3
+            JSR    VARSET2                      ; Find Var In Memory
+DO_NXT5     LDX    FORLVL
+            DEX
+            MOVD   VPTR;TEMP                    ; Move Pointer
+            LDY    #2
+            LDMI   FORSTPH,X;DO_NXT9            ; Doing Negative Step?
+
+            IFLT   (TEMP),Y;FORENDH,X;DO_NXT12
+            BEQ    DO_NXT6                      ; Hmmm, Check Mid Byte
+            BRA    DO_NXT8                      ; Yes, We Are Done
+
+DO_NXT6     DEY
+            IFLT   (TEMP),Y;FORENDM,X;DO_NXT12
+            BEQ    DO_NXT7                      ; Maybe, Check Low Byte
+            BRA    DO_NXT8
+
+DO_NXT7     DEY
+            IFLT   (TEMP),Y;FORENDL,X;DO_NXT12
+DO_NXT8     DEC    FORLVL
+            RTS
+
+DO_NXT9     IFEQ   (TEMP),Y;FORENDH,X;DO_NXT10
+            BLT    DO_NXT8                      ; Yes, Finish Up
+            BGE    DO_NXT12                     ; Nope, Loop
+
+DO_NXT10    DEY                                 ; Are We Done With Mid Byte?
+            IFEQ   (TEMP),Y;FORENDM,X;DO_NXT11
+            BLT    DO_NXT8                      ; If Less, We Are Done
+            BGE    DO_NXT12                     ; Not Done, Do Another
+
+DO_NXT11    DEY                                 ; Are We Done With Low Byte?
+            IFEQ   (TEMP),Y;FORENDL,X;DO_NXT8
+            BLT    DO_NXT8                      ; If Less, We Are Done
+
+DO_NXT12    MOV    FORLOCL,X;PRGPTR             ; Point To "FOR" Location
+            MOV    FORLOCH,X;PRGPTR+1
+            CLC                                 ; Add In Step Value
+            AD     (TEMP);FORSTPL,X;(TEMP)
+            LDY    #1
+            AD     (TEMP),Y;FORSTPM,X;(TEMP),Y
+            INY
+            AD     (TEMP),Y;FORSTPH,X;(TEMP),Y
+            RTS
+
+*===============================
+* Name: ON - Do ON Commands
+*===============================
+
+ON          IFEQ   (PRGPTR);#Nocar;GO_CAR       ; Is It ON NOCAR?
+            CPEQ   #Onerr;GO_ERR                ; Is It ON ERROR?
+
+            JSR    INPNUM                       ; Get Value
+            JSR    GETBYT                       ; Get ON Type
+            PHA                                 ; Save It
+            JSR    GETRAW                       ; Get ON Count
+            STA    TEMP                         ; Save Count Number
+            STZ    TEMP+1
+            ASL    TEMP                         ; Multiply By 2 For Index
+            ROL    TEMP+1
+            LDNEY  NUMB;DECIT                   ; Decrement Number
+            DEC    NUMB+1
+DECIT       DEC    NUMB
+            CMP    NUMB                         ; In Range?
+            PHP
+            ASL    NUMB                         ; Multiply By 2 For Index
+            ROL    NUMB+1
+            PLP
+            BEQ    DO_ON2
+            BGE    DO_INDX
+
+DO_ON2      PLA
+ADD_CNT     ADD    PRGPTR;TEMP;PRGPTR           ; Add In Count To End Of ON
+            RTS
+
+GO_CAR      BRA    NOCAR
+GO_ERR      BRA    ONERROR
+
+DO_INDX     ADD    PRGPTR;NUMB;TEMP2            ; Point To ON Element
+            JSR    ADD_CNT                      ; Point To End Of ON
+            PLA                                 ; Get Back ON Type
+            LDY    #1
+            CPNE   #Goto;NOTGTO                 ; Is It ON GOTO?
+
+ON_GO       PUSHA  (TEMP2)                      ; Do The GOTO
+            LDA    (TEMP2),Y
+            JMP    DO_GT2
+
+NOTGTO      IFNEX  GSBLVL;#16;ON_DOIT           ; enough room?
+            JMP    STKFUL                       ; No, Error
+
+ON_DOIT     CPEQ   #Gosub;ON_GOSUB              ; Is It A Gosub?
+            CPEQ   #Push;ON_PUSH                ; Is It A Push?
+            JMP    SYNTAX
+
+ON_GOSUB    MOV    PRGPTR;GSBSTKL,X             ; Save New Location
+            MOV    PRGPTR+1;GSBSTKH,X
+            INX                                 ; Increment Pointer
+            STX    GSBLVL
+            MOV    (TEMP2);PRGPTR
+            MOV    (TEMP2),Y;PRGPTR+1
+            RTS
+
+ON_PUSH     MOV    (TEMP2);GSBSTKL,X
+            MOV    (TEMP2),Y;GSBSTKH,X
+            INX
+            STX    GSBLVL
+            RTS
+
+*===============================
+*   Name: DO_NOCD2 - Setup No Carrier Vector
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+NOCAR       JSR    GETBYT                       ; Skip NOCAR Token
+            STZ    NOCDFLG                      ; Reset Carrier Vector
+            JSR    GETRAW                       ; See If It Has A Vector
+            CPNE   #Goto;DO_NOC2                ; Was It Goto?
+
+            JSR    GETRAW                       ; Get Low Byte Of Routine
+            STA    NOCDVEC
+            JSR    GETRAW                       ; Get High Byte Of Routine
+            STA    NOCDVEC+1
+            DEC    NOCDFLG                      ; Turn On Routine
+DO_NOC2     RTS
+
+*===============================
+*   Name: DO_OERR2 - Setup On Error Vector
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+ONERROR     JSR    GETBYT                       ; Skip ERROR Token
+            STZ    ONERRFLG                     ; Reset Error Vector
+            STZ    FROMERR                      ; Set No Error
+            STZ    FROMERR+1
+            JSR    GETRAW                       ; See If It Has A Vector
+            CPNE   #Goto;DO_ERR2                ; Was It Goto?
+
+            JSR    GETRAW                       ; Get Low Byte Of Routine
+            STA    ONERRVEC
+            JSR    GETRAW                       ; Get High Byte Of Routine
+            STA    ONERRVEC+1
+            DEC    ONERRFLG                     ; Turn On Routine
+DO_ERR2     RTS
+
+*===============================
+* Name: RESUME - Resume Command
+*===============================
+
+RESUME      BREQW  FROMERR;NOERR                ; Was There An Error?
+
+            LDX    FROMERR+1
+            LDNE   FROMERR;BACKBYT              ; Replace Error Location
+            DEX                                 ; go back one byte just in case
+BACKBYT     DEC    A                            ; the error happened on eol
+            STX    PRGPTR+1
+            STA    PRGPTR
+
+            LDRA   (PRGPTR);TSTIT2
+
+TSTIT       JSR    IFGOB                        ; Loop Until A Chain
+TSTIT2      STA    LSTTOK
+            LDNEX  LSTTXT;TSTIT                 ; Doing Text, no other test
+            CPEQ   #Chain;RESUM2                ; End Of Line?
+            CPNE   #Chain2;TSTIT
+
+RESUM2      STZ    LSTTXT                       ; Clear Text Mode
+            RTS
+
+NOERR       STZ    ONERRFLG                     ; Dont Trap This One
+            LDA    #Noerr                       ; No Error Occurred
+            JMP    BADERR
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/HIGH.SUBS.S b/SOURCE/LLUCE/HIGH.SUBS.S
new file mode 100644
index 0000000..5f980c3
--- /dev/null
+++ b/SOURCE/LLUCE/HIGH.SUBS.S
@@ -0,0 +1,1002 @@
+            LST     RTN
+            TTL     'High End Stuff'
+            PAG
+*===============================
+* ADDCRC2  - Add Byte To CRC
+* ANSILST  - ANSI screen control list
+* ARGTYP   - Get Argument Type
+* BINDEC82 - Binary To Decimal
+* CLRSMT2  - Clear Variables, GOSUBs And FORs
+* COMPRES2 - Compress Variables
+* DO_DIV1A - Actual Divide routine
+* DO_FDT0  - Part of FMTDATE
+* DO_FRE2  - Compress String Space
+* DO_MUL0  - Actual Multiply Routine
+* DO_NSR00 - Part of the INSTR function
+* DO_RNDS2 - Generate Random Character
+* GETCHR2  - Get Character From Buffer
+* IFGOB1   - Ignore To Line End Or Else Cmd
+* INPTYP2  - Get Next Token/Character Type
+* LFTTRIM0 - Part of LEFTTRIM
+* PUTCHR2  - Save Character In Buffer
+* RAMIN2   - Get Byte From RAM Drive
+* RAMOUT2  - Write Byte To RAM Drive
+* RESTSCRN - Restore Screen
+* RGTTRIM0 - Part of RGTTRIM
+* RstEMUL  - Restore original emulation
+* RSTLINE  - Print Saved Screen Line
+* SAVESCRN - Save And Clear Screen
+* SetANSI  - Set ANSI mode, save old emulation
+* SETSCRPT - Setup Screen Pointers
+* STRCASE  - Part of UPPERSTR, LOWERSTR and MIXEDSTR
+* STRCOPY  - Copy A String To String Space
+* SVLINE   - Save Screen Line
+* SWPBLK0  - Switch Block Buffers
+* UNCOMP2  - Uncompress Variables
+*===============================
+
+*===============================
+*   Name: PUTCHR2 - Save Character In Buffer
+*
+*  Input: A - Character To Store
+*
+* Output: None
+*===============================
+
+PUTCHR2     PHX                                  ; Save X
+            LDX     TYPIN                        ; Any Room?
+            STA     TYPEBUF,X                    ; Save Data
+            INX
+            CPEQX   TYPOUT;GETCHR3               ; Overflow?
+            STX     TYPIN                        ; Save Pointer
+            BRA     GETCHR3
+
+*===============================
+*   Name: GETCHR2 - Get Character From Buffer
+*
+*  Input: None
+*
+* Output: A > 0: Character
+*         A = 0: No Character Available
+*===============================
+
+GETCHR2     PHX
+            IFEQX   TYPOUT;TYPIN;GETCHR3         ; Any Data?
+
+            LDA     TYPEBUF,X                    ; Get Character
+            INX                                  ; Inc Pointer
+            STX     TYPOUT                       ; Update
+GETCHR3     PLX                                  ; Restore X
+            CMP     #0
+            RTS
+
+*===============================
+*   Name: INPTYP2 - Get Next Token/Character Type
+*
+*  Input:  None
+*
+* Output:  A = 0: Line/Command Link
+*          A = 1: Expression
+*          A = 2: Literal String
+*          A = 3: Literal Number
+*          A = 4: Token Or Unknown
+*          A = 5: String Variable
+*          A = 6: Numeric Variable
+*===============================
+
+INPTYP2     LDPL    (PRGPTR);INPTYP5             ; Get Current Program Byte
+
+            LDX     #tknExpr
+            CPEQ    #'('+Hibit;INPTYP4           ; Is It An Expression
+            INX
+            CPEQ    #'"'+Hibit;INPTYP4           ; Is It Data?
+
+            INX
+            JSR     TST_NUM                      ; Is It A Number?
+            BCC     INPTYP4                      ; Yep
+
+INPTYP3     INX
+INPTYP4     TXA
+            RTS
+
+INPTYP5     LDX     #numVar
+            CPEQ    #Number;INPTYP4              ; Is It A Var Number?
+            CPLT    #OneByte;INPTYP6             ; what about a constant?
+            CPLT    #ThreeByte+1;INPTYP4
+
+INPTYP6     DEX
+            CPEQ    #String;INPTYP4              ; Is It A Var String?
+            LDX     #eolChain
+            CPEQ    #Chain;INPTYP4               ; Is It End Of Statement
+            CPEQ    #Chain2;INPTYP4              ; Is It End Of Line?
+            CPEQ    #CompStrt;INPTYP4
+            CPEQ    #CompEnd;INPTYP4
+            BRA     INPTYP3                      ; Must Be A Token
+
+*===============================
+*   Name: BINDEC82 - Binary To Decimal
+*
+*  Input: A - Number To Convert
+*
+* Output: X,A Converted Number
+*===============================
+
+BINDEC82    LDY     #0                           ; Start 10s Counter
+BIN8        CPLT    #10;BIN8A                    ; Less Than 10, Were Done
+
+            SBC     #10                          ; Minus 10
+            IBNE    Y;BIN8                       ; Add 1 To The 10s Counter
+
+BIN8A       ADC     #'0'                         ; Make 1s Into Text
+            TAX                                  ; Save
+            TYA
+            ADC     #'0'                         ; Make 10s Into Text
+            RTS                                  ; Were Done
+
+*===============================
+*   Name: ADDCRC2 - Add Byte To CRC
+*
+*  Input: A - Byte To Act On
+*
+* Output: CRC
+*===============================
+
+ADDCRC2     PHAX                                 ; Save X And A
+            EOR     CRC+1                        ; Add It To CRC
+            TAX
+            LDA     CRC
+            EOR     CRCHI,X
+            STA     CRC+1
+            MOV     CRCLO,X;CRC
+            PLAX                                 ; Restore X And A
+            RTS
+
+*===============================
+*   Name: RAMIN2 - Get Byte From RAM Drive
+*   Name: RAMOUT2 - Write Byte To RAM Drive
+*
+*  Input: A - Byte To Save (RAMOUT)
+*
+* Output: A - Byte Read (RAMIN)
+*===============================
+
+RAMIN2      CLC
+            SKIPCS                               ; fake a BCS
+RAMOUT2     SEC
+            PHY
+            LDY     RAMPTR                       ; Is Pointer In Range?
+            IBEQ    Y;RAMOUT4                    ; this way, dont hose c
+
+            DEY
+            BCC     RAMIN3
+            STA     RAMDRV,Y                     ; Save Data
+            BRA     RAMOUT3
+
+RAMIN3      LDA     RAMDRV,Y                     ; Get Data
+RAMOUT3     INC     RAMPTR                       ; Move Pointer
+RAMOUT4     PLY
+            RTS
+
+*===============================
+*   Name: CLRSMT2 - Clear Variables, GOSUBs And FORs
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CLRSMT2     MOV     #>ENDMOD;HIMEM+1
+            STA     TEMP+1
+            MOV     #<ENDMOD;HIMEM               ; Save Ending Address
+            SEC
+            SBA     #vRecSize;TEMP               ; Point to actual variable
+            BCS     CLRSMT3
+            DEC     TEMP+1
+
+CLRSMT3     MOV     #0;(TEMP)
+            MOVD    LOMEM;VARSTR                 ; Reset String Space
+
+            SEC
+            LDA     HIMEM+1                      ; Midmem=Lomem
+            SBC     LOMEM+1                      ; +(Himem-Lomem)/2
+            LSR     A
+            CLC
+            ADA     LOMEM+1;MIDMEM+1             ; Compute Midmem Value
+            STZ     MIDMEM
+
+            STZ     FROMERR                      ; Clear error location
+            STZ     FROMERR+1
+
+            STZ     GSBLVL                       ; Reset Gosub Stack
+            STZ     FORLVL                       ; Reset For-Next Level
+            RTS
+
+*===============================
+*   Name: DO_FRE2  - Compress String Space
+*         COMPRES2 - Compress Variables
+*         UNCOMP2  - Uncompress Variables
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_FRE2     JSR     COMPRES2                     ; compress variables to AUX
+; fall through to uncompress
+
+UNCOMP2     MOVD    #STORETOP;TEMP               ; point to top of aux space
+            MOVD    HIMEM;TEMP2                  ; point to top of variable space
+            MOVD    LOMEM;TEMP3                  ; point to string space
+            STZ     AUXREAD                      ; reading from aux memory
+            BRA     COMPRES3                     ; go do it
+
+COMPRES2    MOVD    HIMEM;TEMP                   ; point to top of variable space
+            MOVD    #STORETOP;TEMP2              ; point to top of aux space
+            MOVD    #STRDEST;TEMP3               ; point to bottom of aux space
+            STZ     AUXWRT                       ; writing to aux memory
+
+COMPRES3    SEC                                  ; destination -= 8
+            SB      TEMP2;#vRecSize;TEMP2
+            BCS     COMPRES4
+            DEC     TEMP2+1
+
+COMPRES4    SEC                                  ; source -= 8
+            SB      TEMP;#vRecSize;TEMP
+            BCS     COMPRES5
+            DEC     TEMP+1
+
+COMPRES5    LDY     #vRecSize-1                  ; move variable record
+COMPRES6    MOV     (TEMP),Y;(TEMP2),Y
+            DBPL    Y;COMPRES6
+
+            LDEQ    (TEMP);COMPRESX              ; end of variables?
+            BMI     COMPRES7                     ; go handle strings
+
+            LDY     #valOffs                     ; Is the value 0?
+            LDA     (TEMP),Y
+            INY
+            ORA     (TEMP),Y
+            INY
+            ORA     (TEMP),Y
+            BEQ     COMPRES4                     ; yes, skip it
+            BRA     COMPRES3                     ; no, do next one
+
+COMPRES7    LDY     #valOffs                     ; Where is it located?
+            MOV     (TEMP),Y;STRLOC
+            INY
+            MOV     (TEMP),Y;STRLOC+1
+            PHA
+            INY
+            MOV     (TEMP),Y;STRLEN
+            PLA
+            CPGE    #>ENDMOD;COMPRES3            ; in high memory?
+
+            LDEQ    STRLEN;COMPRES4              ; any string allocated?
+
+            LDY     #0                           ; copy string
+COMPRES8    CPEQY   STRLEN;COMPRES9              ; Go Until Done
+
+            MOV     (STRLOC),Y;(TEMP3),Y         ; Copy Byte
+
+            IBNE    Y;COMPRES8
+
+COMPRES9    PHY                                  ; move new pointers
+            LDY     #valOffs
+            MOV     TEMP3;(TEMP2),Y
+            INY
+            MOV     TEMP3+1;(TEMP2),Y
+
+            CLC                                  ; add in string length
+            PLA
+            ADA     TEMP3;TEMP3
+            BCC     COMPRES3                     ; continue
+            IBRA    TEMP3+1;COMPRES3
+
+COMPRESX    TSTPL   RDRAMRD;COMPED               ; compressing or uncompressing?
+
+            MOVD    TEMP3;VARSTR                 ; reset end of strings
+
+            SEC
+            LDA     TEMP2+1
+            SBC     LOMEM+1                      ; +(Himem-Lomem)/2
+            LSR     A
+            CLC
+            ADA     LOMEM+1;MIDMEM+1             ; Compute Midmem Value
+            STZ     MIDMEM
+
+COMPED      STZ     MAINWRT                      ; set back to main memory
+            STZ     MAINREAD
+
+            RTS
+
+*===============================
+*   Name: SVLINE - Save Screen Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SVLINE2     LDX     CV
+            LDY     WNDWDTH
+            DEY
+SVLNLUP     STZ     MAINWRT
+            JSR     V_RDCHAR                     ; Read Character
+            STZ     AUXWRT
+            STA     CHATBUF+2,Y
+            DBPL    Y;SVLNLUP                    ; Save Entire Line
+
+            MOV     CH;CHATBUF                   ; Save Current Ch Position
+            MOV     INPMODE;CHATBUF+1            ; Save Current Input Mode
+            BRA     COMPED
+
+*===============================
+*   Name: RSTLINE - Print Saved Screen Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+RSTLINE2    STZ     AUXREAD
+            LDEQX   CHATBUF;RSTLN3               ; Get Length
+
+            LDY     #0
+RSTLN2      LDA     CHATBUF+2,Y
+            STZ     MAINREAD
+            JSR     COUTLO                       ; Print Line
+            STZ     AUXREAD
+            INY
+            DBNE    X;RSTLN2
+
+RSTLN3      MOV     CHATBUF+1;INPMODE
+            BRA     COMPED
+
+*===============================
+*   Name: IFGOB1 - Ignore To Line End Or Else Cmd
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+IFGOB2      EOR     LSTTXT                       ; toggle text mode
+            STA     LSTTXT
+IFGOBX      RTS
+
+IFGOB1      JSR     GETRAW                       ; get a token
+            CPEQ    #'"'+Hibit;IFGOB2            ; start or end of text?
+            LDNEX   LSTTXT;IFGOBX                ; in text mode?
+            CPNE    #Hitoken;IFGOB3              ; Check For High Tokens
+            JSR     GETRAW                       ; Get The Token
+            ORA     #Hibit                       ; Make It High
+IFGOB3      CPEQ    #Number;IFGOB8               ; Check For Variables
+            CPEQ    #String;IFGOB8
+            CPLT    #ThreeByte+1;IFGOB9          ; Check for constants
+            CPEQ    #Goto;IFGOB4                 ; Goto And Push
+            CPEQ    #Push;IFGOB4                 ; both have 2 extra bytes
+            CPEQ    #On;HandleON                 ; is it an ON statement?
+            CPNE    #Gosub;IFGOB7                ; Gosub Might Not Have 2
+
+            LDY     LSTTOK                       ; Check For Clear Gosub
+            CPEQ    #Clear;IFGOB7                ; CHANGE TO IFEQY
+
+IFGOB4      JSR     GETRAW
+IFGOB5      JSR     GETRAW
+IFGOB6      LDA     #0
+IFGOB7      RTS
+
+IFGOB8      JSR     GETRAW                       ; BUG FIX: 11/17/92
+; ADD CHECK OF NEXT BYTE, NOT CURRENT BYTE
+            LDPL    (PRGPTR);IFGOB6              ; eat variable name
+
+            JSR     TST_NUM
+            BCC     IFGOB8
+            JSR     TST_ALF
+            BCC     IFGOB8
+            BRA     IFGOB6
+
+IFGOB9      TAX                                  ; eat constant bytes
+            JSR     GETRAW
+            CPEQX   #TwoByte;IFGOB5
+            CPEQX   #ThreeByte;IFGOB4
+            BNE     IFGOB6                       ; CHANGE TO BRA LATER
+
+HandleON    IFEQY   LSTTOK;#Chain;DOONN          ; ON or control token?
+            CPNEY   #Chain2;IFGOB7
+
+DOONN       IFEQ    (PRGPTR);#Nocar;IFGOB7       ; Is It ON NOCAR?
+            CPEQ    #Onerr;IFGOB7                ; Is It ON ERROR?
+            PUSHA   SHWTRC                       ; dont show this part
+            STZ     SHWTRC
+            JSR     INPNUM                       ; Get Value
+            JSR     GETBYT                       ; Get ON Type
+            PULL    SHWTRC
+            JSR     GETRAW                       ; Get ON Count
+            STA     TEMP                         ; Save Count Number
+            STZ     TEMP+1
+            ASL     TEMP                         ; Multiply By 2 For Index
+            ROL     TEMP+1
+            ADD     PRGPTR;TEMP;PRGPTR           ; Add In Count To End Of ON
+            RTS
+
+*===============================
+*   Name: DO_RNDS2 - Generate Random Character
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_RNDS2    LDA     RNDNUM
+            AND     #%00011111                   ; Make In Range [0-31]
+            CPLT    #'Z'-Ctrl;DO_RNDS3           ; in range
+
+            SBC     #10                          ; Put Into Range
+DO_RNDS3    ADC     #'A'
+            STA     (VARSTR)                     ; Save Character
+            LDA     RNDNUM+1
+            EOR     #%10110100
+            ADA     RNDNUM;RNDNUM                ; Re-Seed For Next Pass
+            ROL     A
+            ROL     A
+            ROL     A
+            STA     RNDNUM+1
+            LD16    VARSTR                       ; Point To Random Char
+            INY
+            JMP     INCVARST
+
+*===============================
+*   Name: SAVESCRN - Save And Clear Screen
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SAVESCRN    JSR     SETSCRPT                     ; Move Buffer To Screen
+SS_LOOP1    LDY     #119
+SS_LOOP2    MOV     (TEMP),Y;HISCR
+            STA     (TEMP2),Y
+            MOV     (TEMP),Y;(TEMP3),Y
+            MOV     #' '+Hibit;(TEMP),Y
+            STA     LOWSCR
+            STA     (TEMP),Y
+            DBPL    Y;SS_LOOP2
+
+            JSR     INCSCRPT
+
+            DBNE    X;SS_LOOP1
+
+            STA     LORES
+            RTS
+
+*===============================
+*   Name: RESTSCRN - Restore Screen
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+RESTSCRN    JSR     SETSCRPT                     ; Move Screen To Buffer
+RS_LOOP1    LDY     #119
+RS_LOOP2    STA     HISCR
+            MOV     (TEMP3),Y;(TEMP),Y
+            MOV     (TEMP2),Y;LOWSCR
+            STA     (TEMP),Y
+            DBNE    Y;RS_LOOP2
+
+            JSR     INCSCRPT
+
+            DBNE    X;RS_LOOP1
+
+            STA     LORES
+            RTS
+
+*===============================
+*   Name: INCSCRPT - Setup Screen Pointers
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+INCSCRPT    LDA     TEMP
+            EOR     #$80
+            STA     TEMP
+            STA     TEMP2
+            STA     TEMP3
+            BNE     INCSRET
+            INC     TEMP+1
+            INC     TEMP2+1
+            INC     TEMP3+1
+INCSRET     RTS
+
+*===============================
+*   Name: SETSCRPT - Setup Screen Pointers
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SETSCRPT    STZ     TEMP
+            STZ     TEMP2
+            STZ     TEMP3
+            MOV     #>LINE1;TEMP+1
+            MOV     #>SCRNBUF;TEMP2+1
+            MOV     #>SCRNBUF+$400;TEMP3+1
+            LDX     #8
+            STA     HIRES
+            RTS
+
+*===============================
+* Set ANSI mode, save old emulation
+*===============================
+
+SetANSI     LDX     #$C0
+SetAlup     DEX
+            MOV     CURREMUL,X;EMULSAVE,X
+            MOV     ANSILST,X;CURREMUL,X
+            TXA
+            BNE     SetAlup
+            RTS
+
+*===============================
+* Restore original emulation
+*===============================
+
+RstEMUL     LDX     #$C0
+RstLup      DEX
+            MOV     EMULSAVE,X;CURREMUL,X
+            TXA
+            BNE     RstLup
+            RTS
+
+*===============================
+*   Name: ARGTYP - Get Argument Type
+*
+*  Input: Program Pointer
+*
+* Output: C = 1: String
+*         C = 0: Number
+*===============================
+
+ARGTYP0     IFEQ    (PRGPTR);#'"'+Hibit;ARGTYP1  ; If Its Text
+            CPEQ    #'('+Hibit;ARGTYP2           ; If Its An Expression
+            CPMI    #0;ARGTYP2                   ; If Its Other Than Text
+            CPEQ    #String;ARGTYP1              ; If Its A String Var
+            CPLT    #Strtyp;ARGTYP2              ; Set Carry If String
+            CPGE    #Compare;ARGTYP2             ; Make Sure Its In Range
+
+ARGTYP1     SEC                                  ; Its A String
+            RTS
+
+ARGTYP2     CLC                                  ; Its A Number
+            RTS
+
+*===============================
+*   Name: STRCOPY - Copy A String To String Space
+*
+*  Input: String Parameters
+*
+* Output: None
+*===============================
+
+STRCOPY0    LDY     #0
+STRCOP2     CPEQY   STRLEN;STRCOP3               ; Go Until Done
+
+            MOV     (STRLOC),Y;(VARSTR),Y        ; Copy Byte
+            IBEQ    TTLLEN;STR2BIG               ; increase length, too big
+
+            IBNE    Y;STRCOP2
+
+STRCOP3     TYA                                  ; Add In Bytes Copied
+            CLC
+            ADA     VARSTR;VARSTR
+            BCC     STRCOP4
+            INC     VARSTR+1
+STRCOP4     RTS
+
+STR2BIG     LDA     #Strtobig
+            JMP     BADERR
+
+*===============================
+*   Name: DO_MUL0 - Actual Multiply Routine
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_MUL00    LDX     #5                           ; Empty Result
+DO_MUL0A    STZ     RESULT,X
+            DBPL    X;DO_MUL0A
+
+            STZ     DATA+4
+            STZ     DATA+5
+            LDX     #24                          ; 24 Bits To Do
+DO_MUL1     LSR     NUMB+2
+            ROR     NUMB+1                       ; Put Bit 0 Into Carry
+            ROR     NUMB
+            BCC     DO_MUL2                      ; If Carry Set, Do Add
+
+            CLC
+            LDY     #0                           ; Start Index
+            PHP                                  ; Save Carry For Later
+ADDIT       PLP                                  ; Restore Current Carry
+            AD      RESULT,Y;DATA+1,Y;RESULT,Y   ; Add In Multiplier
+            PHP                                  ; Save Carry
+            INY                                  ; Bump Index
+            CPNEY   #6;ADDIT                     ; Finished? (Kills Carry)
+
+            PLP
+DO_MUL2     ASL     DATA+1                       ; Shift Data For Next Bit
+            ROL     DATA+2
+            ROL     DATA+3
+            ROL     DATA+4
+            ROL     DATA+5
+            DBNE    X;DO_MUL1
+
+            RTS
+
+*===============================
+*   Name: DO_DIV1A - Actual Divide routine
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_DIV1A    BREQ3   NUMB;DO_DIV5                 ; Is It Divide By Zero?
+
+            LDA     #0                           ; Clear Remainder
+            ZERO24  REMAIN
+            CLC
+            LDX     #24                          ; 24 Bits To Do
+DO_DIV2     ROL     DATA+1                       ; Shift Up The Carry Bit
+            ROL     DATA+2
+            ROL     DATA+3
+            ROL     REMAIN
+            ROL     REMAIN+1
+            ROL     REMAIN+2
+            PHX
+            SEC
+            LDA     REMAIN                       ; Check Remainder>Divisor
+            SBC     NUMB
+            TAX
+            LDA     REMAIN+1
+            SBC     NUMB+1
+            TAY
+            LDA     REMAIN+2
+            SBC     NUMB+2
+            BCC     DO_DIV3                      ; Nope, Skip Subtract
+
+            STX     REMAIN                       ; Allow Subtract
+            STY     REMAIN+1
+            STA     REMAIN+2
+DO_DIV3     PLX
+            DBNE    X;DO_DIV2
+
+            ROL     DATA+1                       ; Shift In Quotient
+            ROL     DATA+2
+            ROL     DATA+3
+            JSR     GETDATA
+            ST24    RESULT
+            RTS
+
+DO_DIV5     LDA     #Divby0                      ; Division By Zero
+            JMP     BADERR
+
+*===============================
+* Switch Block Buffers
+*===============================
+
+SWPBLK0     LDY     #127
+SWPBLK2     PUSHA   BLKBUF,Y                     ; Get Buf 1 Char
+            MOV     BLKBUF2,Y;BLKBUF,Y           ; Get Buf 2 Char
+            PULL    BLKBUF2,Y                    ; Put In Buf 2
+            DBPL    Y;SWPBLK2                    ; Loop
+
+            LDY     #3
+SWPBLK3     PUSHA   MSGPTR,Y                     ; Swap Pointers
+            MOV     MSGPTR2,Y;MSGPTR,Y
+            PULL    MSGPTR2,Y
+            DBPL    Y;SWPBLK3
+
+            RTS
+
+*===============================
+* Part of the INSTR function
+*===============================
+
+DO_NSR00    STX     TEMP+1                       ; Restore first string info
+            STY     TEMP
+            STA     TEMP2
+            LDX     TEMP3+1
+            TAY                                  ; For null match
+            BEQ     DO_NSR5                      ; Null String, Always Match
+
+            SEC
+            LDA     STRLEN                       ; How Many Chars To Search?
+            SBC     TEMP2
+            BEQ     DO_NSR1
+            BCC     DO_NSR9                      ; None!
+DO_NSR1     TAX
+            SEC                                  ; force subtract - 1
+            SBC     TEMP3+1
+            BEQ     DO_NSR2
+            BCC     DO_NSR9                      ; None!
+
+DO_NSR2     INX
+            STX     TEMP2+1                      ; Save Passes Plus 1
+
+            LDX     TEMP3+1                      ; Start At Pass 0
+            CLC
+            TXA                                  ; add in start
+            ADA     STRLOC;STRLOC
+            BCC     DO_NSR3
+            INC     STRLOC+1
+
+DO_NSR3     LDY     #0                           ; Start Checking At Byte 0
+DO_NSR4     LDA     (TEMP),Y                     ; Get First Byte
+            JSR     CONV                         ; Make Upper
+            STA     TEMP3                        ; Save
+            LDA     (STRLOC),Y                   ; Get Second Byte
+            JSR     CONV                         ; Make Upper
+            CPNE    TEMP3;DO_NSR7                ; Do They Match?
+
+            INY                                  ; Inc Pointer
+            CPNEY   TEMP2;DO_NSR4                ; We Done?
+
+DO_NSR5     INX                                  ; Get Pass+1
+            TXA
+DO_NSR6     JMP     SVDATA                       ; Return
+
+DO_NSR7     INCD    STRLOC                       ; Check Against Next Byte
+            INX                                  ; Count Up Passes
+            CPNEX   TEMP2+1;DO_NSR3              ; Are We Done?
+
+DO_NSR9     LDEQ    #0;DO_NSR6                   ; No Match CHANGE TO BRA LATER
+
+*===============================
+* Part of UPPERSTR, LOWERSTR and MIXEDSTR
+*===============================
+
+STRCASE     STA     TEMP                         ; Flags
+            LDEQY   STRLEN;CVS_EXIT              ; Null String?
+
+            STZ     TEMP+1                       ; Upper/Lower Switch
+            LDY     #0                           ; Get First Char
+CVS_NEXT    MOV     (STRLOC),Y;TEMP2             ; savint hi bit
+            AND     #Clrhi                       ; Clear Hi Bit
+            TSTMI   TEMP;CVS_LOW                 ; What Are We Doing?
+            BVS     CVS_MIX                      ; Make Mixed
+
+            JSR     CONV                         ; Convert To Upper
+            BRA     CVS_STOR
+
+CVS_LOW     JSR     LOWER                        ; Convert To Lower
+            BRA     CVS_STOR
+
+CVS_MIX     CPLT    #'A';CVS_SW                  ; Make Next Char Upper
+
+            LDNEX   TEMP+1;MKLOW                 ; Making Lower Or Upper?
+
+            JSR     CONV
+            BRA     XSTORE
+
+MKLOW       JSR     LOWER
+XSTORE      INC     TEMP+1                       ; Flag Next Is Lower
+CVS_STOR    TSTPL   TEMP2;CVS_STUF               ; Was Hi Bit Set?
+
+            ORA     #Hibit                       ; Reset Hi Bit
+CVS_STUF    STA     (STRLOC),Y                   ; Save New Char
+CVS_NCH     INY                                  ; Point To Next
+            CPNEY   STRLEN;CVS_NEXT              ; Done?
+
+CVS_EXIT    RTS
+
+CVS_SW      STZ     TEMP+1                       ; Flag Next Is Upper
+            BRA     CVS_NCH
+
+LOWER       CPLT    #'A';LO_EXIT                 ; Standard Convert
+            CPGE    #'Z'+1;LO_EXIT
+            ADC     #$20
+LO_EXIT     RTS
+
+*===============================
+* Part of RGTTRIM
+*===============================
+
+RGTTRIM0    LDEQY   STRLEN;RT_ZERO               ; Get Length
+
+RT_NXTCH    DEY                                  ; Bump Down
+            CPEQY   #-1;RT_EXIT                  ; Finished?
+
+            LDA     (STRLOC),Y                   ; Get Character
+            AND     #Clrhi                       ; Clear Hi Bit
+            CPNE    #' ';RT_EXIT                 ; Is It A Space?
+
+            DBRA    STRLEN;RT_NXTCH              ; Count Down Length
+
+* CHANGE TO MOV STRLEN;(VPTR),Y LATER
+RT_EXIT     LDA     STRLEN                       ; Get New Length
+            LDY     #2                           ; Store It
+            STA     (VPTR),Y
+RT_ZERO     RTS
+
+*===============================
+* Part of LEFTTRIM
+*===============================
+
+LFTTRIM0    LDEQY   STRLEN;LFT_ZERO              ; Get Length
+
+LF_NXTCH    LDA     (STRLOC)                     ; Get The Character
+            AND     #Clrhi                       ; Clear Off High Bit
+            CPNE    #' ';LFT_FIN                 ; Is It A Space?
+
+            DEC     STRLEN                       ; Count Down Length
+            INCD    STRLOC                       ; Increment String Pointer
+            BRA     LF_NXTCH                     ; Check Next One
+
+LFT_FIN     LDY     #1                           ; Save New String Start
+            MOV     STRLOC;(VPTR)
+            MOV     STRLOC+1;(VPTR),Y
+            INY
+            MOV     STRLEN;(VPTR),Y              ; Get New Length
+LFT_ZERO    RTS
+
+*===============================
+* Part of  FMTDATE
+*===============================
+
+DO_FDT0     STZ     DOWSTR                       ; Zero Out Old String Length
+            STA     TEMP                         ; Save Year*2..
+            TXA
+            PHA                                  ; Save Month/Day
+            AND     #%00011111                   ; Mask Out Month Data
+            STA     TEMP2                        ; Save The Day
+            PLA                                  ; Get Back Month/Day
+            LSR     TEMP                         ; Make Year Normal
+            ROR     A                            ; Put Month Bit Into Month
+            AND     #%11110000                   ; Mask Out Day Data
+            LSR     A                            ; Move to low nibble
+            LSR     A
+            LSR     A
+            LSR     A
+            STA     TEMP2+1                      ; Save This (Month)
+            TAX                                  ; Get Token For This Month
+            MOV     MTKNS-1,X;TEMP3
+            LDX     TEMP                         ; Get Year
+            TXA                                  ; Do The Calculation
+            SEC                                  ; For Day Of Week
+            SBC     #85                          ; Subtract 85
+            LSR     A                            ; Divide By 4
+            LSR     A
+            CLC                                  ; Add Year In Again
+            ADC     TEMP                         ; Year
+            SBC     #83                          ; Subtract 83
+            JSR     SUBWEEK                      ; Mod 7
+            TAY                                  ; Save In Y
+            TXA                                  ; Get Year Again
+            STZ     TEMP+1
+            AND     #%00000011                   ; If Year Mod 4<>0, X=FF
+            BEQ     CALCDAY
+
+            DEC     TEMP+1                       ; Year Mod 4 Flag
+CALCDAY     TYA                                  ; Get Back Previous Result
+            CLC                                  ; Add In Month Token
+            ADC     TEMP3                        ; Month Token
+            ADC     TEMP2                        ; Add In Day Of Month
+            IFLTY   TEMP2+1;#3;DOMOD             ; month
+
+            ADC     TEMP+1                       ; 0 Or -1
+DOMOD       JSR     SUBWEEK                      ; Mod 7 Again
+            ASL     A                            ; Multiply By 4 For Index
+            ASL     A
+            TAY                                  ; Move To Index
+FMT_LUP1    LDA     DAYS,Y                       ; Get Character To Save
+            JSR     SAVECHR                      ; Save The Character
+            INY                                  ; Go For Next One
+            CPNE    #'.';FMT_LUP1
+
+            LDA     #' '
+            JSR     SAVECHR
+            LDA     TEMP2+1                      ; Get Month
+            DEC     A
+            ASL     A                            ; Multiply By 4 For Index
+            ASL     A
+            TAY                                  ; Move To Index
+FMT_LUP2    LDA     MONTHS,Y                     ; Get Character Of Month
+            JSR     SAVECHR                      ; Save It
+            INY                                  ; Go For Next One
+            CPNE    #' ';FMT_LUP2
+
+            LDA     TEMP2                        ; Get Day Of Month
+            JSR     BINDEC82                     ; Convert It To ASCII
+            CPNE    #'0';FMT2                    ; Make Leading 0 A Space
+
+            LDA     #' '
+FMT2        JSR     SAVEAX                       ; Stuff It In Buffer
+            LDA     #','
+            LDX     #' '                         ; Stuff ", " In Buffer
+            JSR     SAVEAX
+            LDA     #'1'                         ; Stuff In Leading 19
+            LDX     #'9'
+            JSR     SAVEAX
+            LDA     TEMP                         ; Get Year
+            JSR     BINDEC82                     ; Convert To ASCII
+            JSR     SAVEAX                       ; Save It
+            LD16    #DOWSTR+1                    ; Point To String
+            LDY     DOWSTR
+            STY     STRLEN                       ; Save Length
+            ST16    STRLOC                       ; Save String Location
+            PUSHW   VARSTR                       ; Save Current String pointer
+            JSR     STRCOPY0                     ; Copy String To Main
+            LDY     STRLEN                       ; Get Back Length
+            PLAX                                 ; And Pointer
+            JMP     SVSTR
+
+SAVEAX      JSR     SAVECHR
+            TXA                                  ; Get X
+SAVECHR     PHX                                  ; Save X
+            LDX     DOWSTR                       ; Get Index In X
+            STA     DOWSTR+1,X                   ; Stuff It
+            INC     DOWSTR                       ; Increment Index
+            PLX                                  ; Get Back X
+            RTS
+
+SUBWEEK     SEC                                  ; A=A Mod 7
+FMT_LUP3    SBC     #7
+            BCS     FMT_LUP3
+
+            ADC     #7
+            RTS
+            DS      \
+
+*===============================
+* ANSI screen control list
+*===============================
+
+ANSILST     =       *
+ANSIhome    HEX     031B5B48                     ; Home
+            DS      8-*+ANSIhome
+ANSIup      HEX     031B5B41                     ; Cursor up
+            DS      8-*+ANSIup
+ANSIdown    HEX     031B5B42                     ; Cursor down
+            DS      8-*+ANSIdown
+ANSIleft    HEX     031B5B44                     ; Cursor left
+            DS      8-*+ANSIleft
+ANSIrght    HEX     031B5B43                     ; Cursor right
+            DS      8-*+ANSIrght
+ANSIeos     HEX     041B5B304A                   ; Clear to eos
+            DS      8-*+ANSIeos
+ANSIbos     HEX     041B5B314A                   ; Clear to bos
+            DS      8-*+ANSIbos
+ANSIcls     HEX     041B5B324A                   ; Clear screen
+            DS      8-*+ANSIcls
+ANSIeol     HEX     041B5B304B                   ; Clear to eol
+            DS      8-*+ANSIeol
+ANSIbol     HEX     041B5B314B                   ; Clear to bol
+            DS      8-*+ANSIbol
+ANSIcll     HEX     041B5B324B                   ; Clear line
+            DS      8-*+ANSIcll
+ANSIiln     HEX     031B5B4C                     ; Insert line
+            DS      8-*+ANSIiln
+ANSIdln     HEX     031B5B4D                     ; Delete line
+            DS      8-*+ANSIdln
+ANSIich     HEX     031B5B40                     ; Insert char
+            DS      8-*+ANSIich
+ANSIdch     HEX     031B5B50                     ; Delete char
+            DS      8-*+ANSIdch
+ANSInor     HEX     041B5B306D                   ; Normal
+            DS      8-*+ANSInor
+ANSIinv     HEX     061B5B303B376D               ; Inverse
+            DS      8-*+ANSIinv
+            DS      $C0-*+ANSILST
+
+EMULSAVE    =       *
+            LST     OFF
+
diff --git a/SOURCE/LLUCE/INIT.S b/SOURCE/LLUCE/INIT.S
new file mode 100644
index 0000000..d26df65
--- /dev/null
+++ b/SOURCE/LLUCE/INIT.S
@@ -0,0 +1,584 @@
+            LST    RTN
+            TTL    'LLUCE - Initialize'
+            PAG
+*===============================
+* Do Memory Move And Setup
+*===============================
+* Standard 128k Test Routine
+*-------------------------------
+
+TST128LC    ORG    $80
+
+TST128      MOV    #$EE;AUXWRT                ;Testing For 128k
+            STA    AUXREAD
+            STA    $C00
+            STA    $800
+            IFNE   $C00;#$EE;T128_1
+
+            ASL    $C00
+            ASL    A
+            CPNE   $C00;T128_1
+            CPNE   $800;T128_2
+
+T128_1      SEC
+            BCS    T128_3                     ; CHANGE TO SKIPCC
+
+T128_2      CLC
+T128_3      STA    MAINWRT                    ; REMOVE LABEL LATER
+            STA    MAINREAD
+            RTS
+E128
+            ORG
+
+*-------------------------------
+* Begin Initialization
+* Initialize Monitor
+*-------------------------------
+
+STARTUP     STA    DISP40                     ; Clear //E 80 Column
+            STA    CLR80STO                   ; Clear 80 Column Store
+            JSR    MONSNORM                   ; Init Monitor In Std ZP
+            JSR    MONINIT
+            JSR    MONSKBD
+            JSR    MONSVID
+            JSR    MONCLS
+            JSR    IPRINT
+            DO     DEMOPGM
+            ASC    'DEMO '
+            FIN
+            ASC    'LOADING...'
+            DB     cr,cr
+            DCI    'CHECKING SYSTEM: '
+
+*-------------------------------
+* Check Machine Type
+*-------------------------------
+
+            LDA    MONID1                     ; Is This A //E Or Better?
+            CMP    #6
+            SEC
+            BNE    BADMACH                    ; Nope
+
+            LDA    MONID2                     ; Unenhanced?
+            EOR    #$EA
+            BEQ    BADMACH                    ; Yes, Won't Run
+
+            LDX    #E128-TST128               ; Move 128K Tester Down
+I_MV128     MOV    TST128LC,X;TST128,X
+            DBPL   X;I_MV128
+
+            JSR    TST128                     ; Test For 128K
+BADMACH     BCC    I_DO_CRC                   ; Not There
+
+            JSR    IPRINT
+            DB     cr,cr
+            DCI    'REQUIRES 65C02 AND 128K'
+            JMP    IQUIT
+
+I_DO_CRC    JSR    IPRINT
+            ASC    'Ok'
+            DB     cr
+            DCI    'CRC Check: '
+            LDA    SETRAM1
+            MOV    SETRAM1;SETALTZP
+            LDX    #0                         ; Zero Crc Pages
+I_ZCRCTB    STZ    CRCLO,X
+            STZ    CRCHI,X
+            IBNE   X;I_ZCRCTB
+
+I_FETCH     TXA                               ; Set Up CRC Table
+            EOR    CRCHI,X
+            STA    CRCHI,X
+            LDY    #8
+I_MKCRCT    ASL    CRCLO,X
+            ROL    CRCHI,X
+            BCC    I_MCRCL1
+
+            LDA    CRCHI,X
+            EOR    #>$1021
+            STA    CRCHI,X
+            LDA    CRCLO,X
+            EOR    #<$1021
+            STA    CRCLO,X
+I_MCRCL1    DBNE   Y;I_MKCRCT
+
+            IBNE   X;I_FETCH
+
+            MOVD   #MOV_F00;TEMP
+I_CALCRC    LDA    (TEMP)
+            EOR    CRC1+1                     ; Add It To Crc
+            TAX
+            LDA    CRC1
+            EOR    CRCHI,X
+            STA    CRC1+1
+            MOV    CRCLO,X;CRC1
+            INCD   TEMP
+            IFNE   TEMP;#<CRC1;I_CALCRC
+            IFNE   TEMP+1;#>CRC1;I_CALCRC
+
+*-------------------------------
+* Check CRC Found, Error If Wrong
+*-------------------------------
+
+            MOV    SETROM;SETSTDZP
+            IFNE   CRC1;CRC2;I_G_XCRC         ; check CRC
+            IFEQ   CRC1+1;CRC2+1;BITSET
+
+I_G_XCRC    JSR    IPRINT
+            DB     cr,cr
+            DO     DEMOPGM
+            DCI    'This program cannot be altered'
+            ELSE
+            DCI    'Bad CRC - Check For Virus:'
+            FIN
+            JMP    IQUIT
+
+*-------------------------------
+* Set Up Bitmap
+*-------------------------------
+
+BITSET      JSR    IPRINT
+            ASC    'Ok'
+            DB     cr
+            DCI    'Loading Drivers: '
+            LDX    #23
+I_ZBIT      STZ    BITMAP,X                   ; Move 1 - 000 Pattern
+            DBNE   X;I_ZBIT
+
+            MOV    #%11001111;BITMAP          ; Protect Bottom Pages
+            INC    BITMAP+23
+
+*-------------------------------
+* Setup Starting Prefix
+*-------------------------------
+
+            PDOS   Getpfx;INITGPFX            ; Get The Current Prefix
+            MOVX   DEVNUM;I_ATUNIT            ; Any Unit Used?
+            LDNE   LNBUF+$80;I_DRVOK          ; Any Prefix?
+
+            TXA
+            BNE    I_DEVOK                    ; Yes, All Ok
+
+            LDX    DEVCNT                     ; Use Last Unit On List
+            MOV    DEVLST,X;DEVNUM
+I_DEVOK     STA    I_UNIT                     ; Save Unit Number
+            PDOS   Online;I_ONLINE            ; Get Last Drive's Name
+            LDA    LNBUF+$81                  ; Get Length Of Volume Name
+            AND    #LoNibble                  ; Trim Off Slot Number
+            INC    A                          ; Add 1 For Leading '/'
+            STA    LNBUF+$80                  ; Save For Set Prefix
+            MOV    #'/';LNBUF+$81             ; Put In Laading '/'
+            PDOS   Setpfx;INITGPFX            ; Set The Prefix
+
+*-------------------------------
+* Check If AppleShare Active
+*-------------------------------
+
+I_DRVOK     PDOS   Ashare;I_ATALST            ; Is AppleShare Available?
+            STZ    ATAVAIL
+            STZ    ATLAUNCH                   ; Flag None
+            BCS    I_LD_DVR                   ; Nope
+
+            DEC    ATAVAIL
+            PDOS   Rd_Block;I_ATLLST          ; Check If Launched From
+            CPNE   #networkError;I_LD_DVR
+
+            DEC    ATLAUNCH                   ; It's There
+
+*-------------------------------
+* Load In LLUCE Drivers
+*-------------------------------
+
+I_LD_DVR    MOV    #3;I_DVROPN                ; Standard Open List Length
+            STA    I_TXTOPN
+            PUSHX  ATAVAIL                    ; save AT stuff for later
+            PUSHX  ATLAUNCH                   ; Launched From AppleTalk?
+            PHP
+            BPL    REGTOPEN                   ; Nope
+
+            INC    I_TXTOPN                   ; Special Open List Length
+            PDOS   SpclOpen;I_TXTOPN          ; Open File As Read Only
+            BRA    TXTCONT
+
+REGTOPEN    PDOS   Open;I_TXTOPN              ; Open The Driver File
+TXTCONT     BCS    BADTXT                     ; Doesn't Exist?
+
+            MOV    TXTOREF;TXTRDRF            ; Move Reference Numbers
+            STA    TXTCLSRF
+            PDOS   Read;TXTREAD               ; Read In First Chunk
+BADTXT      PHA
+            PDOS   Close;TXTCLS               ; Close It
+            PLA
+            BEQ    MOV_TXT
+
+            PLP
+
+            JSR    IPRINT
+            DB     cr,cr
+            DCI    'LLUCE.TEXT missing or damaged'
+            JMP    IQUIT
+
+MOV_TXT     LDY    #0                         ; Move The Code
+            LDX    #11
+            LDA    SETRAM1
+            LDA    SETRAM1
+            MOVD   #NODENUM;TEMP
+            MOVD   #ERRMSGS;TEMP2
+I_MOVET     MOV    (TEMP),Y;(TEMP2),Y
+            IBNE   Y;I_MOVET
+
+            INC    TEMP+1
+            INC    TEMP2+1
+            DBNE   X;I_MOVET
+
+            LDA    SETROM
+
+            PLP
+            BPL    REGOPEN                    ; Nope
+
+            INC    I_DVROPN                   ; Special Open List Length
+            PDOS   SpclOpen;I_DVROPN          ; Open File As Read Only
+            BRA    DVRCONT
+
+REGOPEN     PDOS   Open;I_DVROPN              ; Open The Driver File
+DVRCONT     BCS    BADDRVR                    ; Doesn't Exist?
+
+            MOV    DVROREF;DVRRDRF            ; Move Reference Numbers
+            STA    DVCLSRF
+            PDOS   Read;DVRREAD               ; Read In First Chunk
+BADDRVR     PHA
+            PDOS   Close;DVRCLS               ; Close It
+            PLA
+            BEQ    INIT_BGN
+
+            JSR    IPRINT
+            DB     cr,cr
+            DCI    'Driver Missing Or Damaged:'
+            JMP    IQUIT
+
+I_DVROPN    DB     3
+            DA     DVRNAME                    ; Open Driver File
+            DA     FBUF1                      ; First I/O Buffer
+DVROREF     DB     0
+            DB     %00100001                  ; Deny Write/Request Read
+
+DVRREAD     DB     4
+DVRRDRF     DB     0
+            DA     NODENUM                    ; Read In At Bottom
+            DA     $800                       ; $800 Bytes
+            DA     0
+
+I_ATALST    DB     0                          ; Async Flag
+            DB     2                          ; GetInfo Command
+            DW     0                          ; Result Code
+            ADRL   0                          ; Completion Routine Return
+            DDB    0                          ; This-Net
+            DB     0                          ; A-Bridge
+            DB     0                          ; Hardware ID
+            DW     0                          ; ROM Version
+ASNODE      DB     0                          ; Node Number
+
+DVRCLS      DB     1
+DVCLSRF     DB     0
+
+DVRNAME     STR    'LLUCE.DRIVERS'
+
+I_TXTOPN    DB     3
+            DA     TXTNAME                    ; Open Driver File
+            DA     FBUF1                      ; First I/O Buffer
+TXTOREF     DB     0
+            DB     %00100001                  ; Deny Write/Request Read
+
+TXTREAD     DB     4
+TXTRDRF     DB     0
+            DA     NODENUM                    ; Read In At Bottom
+            DA     $B00                       ; $B00 Bytes
+            DA     0
+
+TXTCLS      DB     1
+TXTCLSRF    DB     0
+
+TXTNAME     STR    'LLUCE.TEXT'
+
+*-------------------------------
+* Set Up Stack And Pointers
+*-------------------------------
+
+INIT_BGN    PULL   ATLAUNCH                   ; Get AppleTalk Stuff Back
+            PULL   ATAVAIL
+            TSTPL  ATLAUNCH;INITBGN2          ; Launched From AppleTalk
+
+            MOV    ASNODE;NODENUM             ; Move AppleShare Node Num
+INITBGN2    JSR    IPRINT
+            ASC    'Ok'
+            DB     cr
+            DCI    'Initializing System'
+            STZ    GSFLAG
+            SEC
+            JSR    IDROUTINE
+            ROR    GSFLAG
+
+*-------------------------------
+* Clear Out Zero Page
+*-------------------------------
+
+            STZ    SETALTZP                   ; in alt zp
+
+            LDX    #0                         ; Clear Zero Page
+I_ZRO_ZP    STZ    0,X
+            IBNE   X;I_ZRO_ZP
+
+            STZ    SETSTDZP
+
+            IFNE   DEV1ADR;DEV2ADR+6;KILLRAM  ; /RAM
+            IFEQ   DEV1ADR+1;DEV2ADR+7;NORAM  ; installed?
+
+KILLRAM     LDX    DEVCNT                     ; Find Any Ramdisk
+FNDRAM      LDA    DEVLST,X                   ; Get Device Id Byte
+            TAY
+            AND    #$B3                       ; Low Nibble Is Type
+            CPEQ   #$B3;MVDEV                 ; Is It A RAM Disk?
+
+            DBPL   X;FNDRAM                   ; Go To Next Device
+            BRA    NORAM
+
+MVDEV       MOV    DEVLST+1,X;DEVLST,X        ; Copy Bytes Down
+            INX
+            CPLTX  #13;MVDEV                  ; Finished With List?
+            STZ    DEVLST+13                  ; zap last byte
+
+            DEC    DEVCNT                     ; 1 Less Device
+
+            LD16   DEV2ADR+6                  ; save driver info
+            STZ    SETALTZP                   ; in alt zp
+            ST16   RAMDRVR
+            STY    RAMDEV
+            STZ    SETSTDZP
+
+            MOVD   DEV1ADR;DEV2ADR+6          ; set no device
+
+            TYA
+            AND    #HiNibble
+            STA    I_UNIT                     ; Save Unit Number
+            PDOS   Online;I_ONLINE            ; This Clears Device
+
+NORAM       MOVX   #-1;$100                   ; Set To Top Of Stack
+            STX    $101
+            STX    SETALTZP
+            STX    $100
+            STX    $101
+            TXS                               ; Set Top Of Stack
+
+*-------------------------------
+* Copy Interrupt Vectors To Ram
+*-------------------------------
+
+            LDA    $C081                      ; Read ROM/Write RAM
+            LDA    $C081
+            LDX    #5                         ; Save Vectors
+CPYINT      MOV    INTVEC,X;INTVEC,X
+            DBPL   X;CPYINT
+
+*-------------------------------
+* Initialize Monitor Here
+*-------------------------------
+
+            JSR    MONSNORM                   ; Init Monitor In Alt ZP
+            JSR    MONINIT
+            JSR    MONSKBD
+            JSR    MONSVID
+            LDA    SETRAM2                    ; Switch RAM Back In
+            LDA    SETRAM2
+
+*-------------------------------
+* Move Supplied Filename
+*-------------------------------
+
+            LDX    ST_NAME                    ; Move Startup Name
+I_MVNAME    MOV    ST_NAME,X;SEG_NAME,X
+            DBPL   X;I_MVNAME
+
+*-------------------------------
+* Move Profanity Filter Into Place
+*-------------------------------
+
+            LDX    #0
+I_MVFILT    MOV    $F00,X;FILTER,X
+            IBNE   X;I_MVFILT
+
+*-------------------------------
+* Point To Code Start
+*-------------------------------
+
+            MOVD   #CODEND;MODULE             ; Set ptr to segment space
+            MOVD   #Version;VERSION           ; put in version number
+
+*-------------------------------
+* Move Main Program Into Place
+*-------------------------------
+
+            LDX    #0                         ; Start It Up
+I_MV_LUP    MOV    MV_PARMS,X;TEMP            ; Get Ram Area To Move To
+            INX
+            MOV    MV_PARMS,X;TEMP+1
+            INX
+            ORA    TEMP                       ; Finished?
+            BEQ    I_DONE
+
+            LDA    (TEMP)                     ; Switch Ram In
+            LDY    #0                         ; Get Source & Destination
+I_MV_PRM    MOV    MV_PARMS,X;TEMP,Y
+            INX
+            INY
+            CPNEY  #6;I_MV_PRM
+
+            LDY    #0                         ; Move The Code
+I_MOVEB     MOV    (TEMP),Y;(TEMP2),Y
+            IBNE   Y;I_MOVEB
+
+            INC    TEMP+1
+            INC    TEMP2+1
+            DBNE   TEMP3+1;I_MOVEB
+            BRA    I_MV_LUP
+
+*-------------------------------
+* Patch ProDOS Entry Point
+*-------------------------------
+
+I_DONE      PHP                               ; No interrupts during this!
+            SEI
+
+            LDA    SETRAM2                    ; Set Ram To Proper State
+            MOVD   MLI+1;PDOSVEC              ; Get MLI's JMP Address
+            MOVD   #NEW_MLI;MLI+1             ; Patch In Our Routine
+
+*-------------------------------
+* Patch IRQ vector
+*-------------------------------
+
+            MOVD   IRQVEC;IRQSAVE             ; save current IRQ vector
+            MOVD   #IRQ_FIX;IRQVEC            ; point to our routine
+
+*-------------------------------
+* Point Reset Vector
+*-------------------------------
+
+            MOVD   #RESET;RESETVEC            ; Setup Reset Vector
+            EOR    #$A5                       ; Get Power-Up Byte
+            STA    SOFTEV
+            PLP
+
+*-------------------------------
+* Get And Save Boot Prefix
+*-------------------------------
+
+            JSR    PD_GPFX                    ; Get The Startup Prefix
+            LDX    FLNAME                     ; Save It For Later Use
+MVSYS       MOV    FLNAME,X;SYSPFX,X
+            DBPL   X;MVSYS
+
+*-------------------------------
+* Initialize All Drivers
+*-------------------------------
+
+            DO     DEMOPGM
+            ELSE
+            JSR    MDMINIT                    ; Initialize The Modem
+            JSR    PRINIT                     ; And Printer
+            FIN
+            JSR    CLRBUF                     ; Clear Type Ahead Buffer
+            JSR    PRGINIT                    ; Do All The Program Setup
+            LDA    #norm
+            JSR    VIDCOUT                    ; Set Normal Mode
+            LDA    #clrscn
+            JSR    VIDCOUT                    ; Clear Local Screen
+            LDY    #0                         ; Set I/O Vectors
+            JSR    SETOVEC
+            JSR    SETIVEC
+            JSR    MDMINIT
+            JSR    PTERM
+            LDA    #3
+            STA    AUTORST                    ; Allow Auto-Restart 3 Times
+            JMP    LLUCE
+
+I_ATLLST    DB     3
+I_ATUNIT    DB     0
+            DA     $800
+            DA     0
+
+INITGPFX    DB     1
+            DA     LNBUF+$80
+
+I_ONLINE    DB     2
+I_UNIT      DB     0
+            DA     LNBUF+$81
+
+*-------------------------------
+* Move Parameters
+*-------------------------------
+
+; Move main code
+MV_PARMS    DA     SETRAM2
+            DA     MOV_F00,VIDRDKY
+            DA     MOV_D800-MOV_F00+256
+
+; Move entry points
+; and token jump table
+            DA     SETRAM2
+            DA     MOV_F100,ENTPOINT
+            DA     MOV_D400-MOV_F100+256
+
+; Move ramcard data
+            DA     SETRAM2
+            DA     MOV_F800,SEGSAVE
+            DA     MOV_END-MOV_F800+256
+
+; Move high stuff
+            DA     SETRAM1
+            DA     MOV_D800,XTRAPGM
+            DA     MOV_F100-MOV_D800+256
+
+; Move token text
+            DA     SETRAM1
+            DA     MOV_D400,SYMTXT
+            DA     MOV_F800-MOV_D400+256
+            DA     0
+
+*===============================
+* Standard Inline Print Message Routine
+*===============================
+
+IPRINT      PULL   PRN
+            PULL   PRN+1
+            LDA    SETROM
+I_PR1       INCD   PRN
+            LDA    (PRN)
+            PHP
+            ORA    #Hibit
+            JSR    MONCOUT
+            PLP
+            BPL    I_PR1
+
+            INCD   PRN
+            JMP    (PRN)
+
+*===============================
+* Error, Quitting
+*===============================
+
+IQUIT       JSR    IPRINT
+            DB     cr,cr
+            DCI    '     PRESS A KEY'
+            LDA    KBDSTRB                    ; Clear Keyboard
+I_WAIT2     LDPL   KYBD;I_WAIT2               ; Wait For Key Press
+
+            LDA    KBDSTRB                    ; Clear Keyboard Again
+            PDOS   Quit;DVRQUIT               ; Quit Back To ProDOS
+
+DVRQUIT     DB     4
+            DS     8
+
+CRC1        DA     0
+CRC2        DA     0
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/IO.CMDS.S b/SOURCE/LLUCE/IO.CMDS.S
new file mode 100644
index 0000000..6e19d3d
--- /dev/null
+++ b/SOURCE/LLUCE/IO.CMDS.S
@@ -0,0 +1,1153 @@
+            LST    RTN
+            TTL    'LLUCE - I/O Commands'
+            PAG
+*===============================
+* Contents:
+*
+* ADDINT   - Add Interrupt Keys
+* BAUD     - Return Users Baud Rate
+* DO_NULLS - Set or get nulls
+* DO_OFFSET - Set or get GotoXY offset
+* DO_SED   - Set Interrupt Key To Spacebar (For Editor)
+* DO_SER   - Print Serial # Of Software
+* ECHOSTR  - Set Echo
+* ERR      - Return Last Error Number
+* EXEC     - Read Or Set Exec Flag
+* GET      - Get A Single Character
+* INPUT    - Input A Line Of Text Or Data
+* KEY      - Check For Keypress
+* MODEM    - Handle Modem Calls
+* NODE     - Return System Node Number
+* ONLINE   - Return Online Status
+* PRINT    - Print Statement
+* SETINT   - Set Interrupt Keys To Be Used
+* SCRN     - Read, Set Or Execute Screen Stuff
+* TERMINAL - Read/Set Terminal Number
+* TONE     - Produce A Tone With Apple Speaker
+* WAITSEC  - Delay One Second
+* WIDTH    - Get Width From Index
+* WINDOW   - Read Or Set Top Of Screen
+*===============================
+
+*===============================
+* Name: PRINT - Print Statement
+*===============================
+
+PRINT       JSR    GETDEV
+            JSR    SETOVEC                                       ; Set Output Vector
+            BRA    N_PRINT
+
+TST_EOL     JSR    INPTYP                                        ; Check For Eol
+            BNE    N_PRINT
+
+            RTS
+
+*-------------------------------
+* Execute Gotoxy
+*-------------------------------
+
+DO_XY       JSR    INPNUM8                                       ; Handle "@"
+            DEX
+            STX    CH                                            ; Set Position
+            IFNE   (PRGPTR);#','+Hibit;N_PRINT                   ; Any Y Position?
+
+            JSR    BYTNUM8                                       ; Get The Number
+            DEX
+            STX    CV                                            ; Set Position
+            BRA    N_PRINT
+
+PRT_COM     JSR    DO_OUT
+N_PRINT     JSR    INPTYP                                        ; Get Data
+            BNE    DO_PR
+            JMP    DO_CR                                         ; Eol?
+
+DO_PR       CPEQ   #tknExpr;CHK_TKN                              ; Token?
+            CPEQ   #strLit;PRT_LIT                               ; Hard-Coded Text?
+            CPEQ   #numLit;PRT_NUM                               ; Number?
+            CPEQ   #strVar;CHK_TKN                               ; String Variable?
+            CPEQ   #numVar;PRT_NUM                               ; Numeric Variable?
+
+            JSR    GETBYT                                        ; Must Be Control
+            AND    #Clrhi
+            CPEQ   #',';PRT_COM
+            CPEQ   #';';TST_EOL
+            CPEQ   #'@';DO_XY                                    ; Position
+            JMP    SYNTAX                                        ; Syntax Error
+
+*-------------------------------
+* Print A Literal
+*-------------------------------
+
+PRT_LIT     JSR    GETBYT                                        ; Eat Opening Quote
+LIT_NXT     JSR    GETBYT                                        ; Get Next Char
+            CPEQ   #'"'+Hibit;N_PRINT                            ; Closed Quote?
+            JSR    DO_OUT
+            BRA    LIT_NXT                                       ; And Loop
+
+*-------------------------------
+* Print A Number
+*-------------------------------
+
+PRT_NUM     JSR    INPNUM                                        ; Get Number
+            JSR    DECOUT                                        ; Print It
+            BRA    N_PRINT
+
+*-------------------------------
+* Check For And Handle Screen Stuff
+*-------------------------------
+
+CHK_TKN     IFLT   (PRGPTR);#ClsTkn;PRT_TKN                      ; Must Be In The Right Place
+            CPGE   #EndEmul;PRT_TKN                              ; Make Sure About It
+            JSR    GETBYT                                        ; Get Again, Skip To Next
+            CPNE   #ClsTkn;CHK_TKN3
+            LDA    #ClsTkn2                                      ; make it a CLRSCN
+CHK_TKN3    SEC
+            SBC    #HomeTkn
+            JSR    EMULFUNC
+GO_PRNT     JMP    N_PRINT
+
+*-------------------------------
+* Print From A Token
+*-------------------------------
+
+PRT_TKN     JSR    ARGTYP
+            BCC    PRT_NUM                                       ; If It Is A Number
+
+            JSR    INSTR2                                        ; Set Up Pointers
+            TYA
+            TAX
+            INX
+            LDY    #0
+PRTSTR      DBEQ   X;GO_PRNT                                     ; Print Out String
+
+            LDA    (STRLOC),Y
+            JSR    DO_OUT
+            IBRA   Y;PRTSTR
+
+DO_CR       LDA    #cr                                           ; Print CR/LF
+DO_OUT      JMP    (VECTOR)
+
+            DO     DEMOPGM
+COPNOT      REV    'LLUCE DEMO (C)1986-1993 L&L Productions: V'
+            ELSE
+COPNOT      REV    'LLUCE (C)1986-1993 L&L Productions: V'
+            FIN
+COPLEN      =      *-COPNOT
+
+*===============================
+* Name: MODEM - Handle Modem Calls
+*===============================
+
+MODEM       JSR    INPTYP                                        ; get type of next token
+            BEQ    MDMERR                                        ; REMOVE THIS
+
+            JSR    GETBYT
+            CPEQ   #Timestr;MDM3
+            CPEQ   #Clear;MDM4
+            CPEQ   #Ready;MDM0
+            CPEQ   #Nocar;MDM1
+            CPEQ   #OnlineTkn;MDM2
+MDMERR      JMP    SYNTAX
+
+*===============================
+* Name: MDM2 - Setup Modem To Call Out
+*===============================
+
+MDM2        JSR    EQUNUM8                                       ; Get the baud rate
+
+            LDY    #0
+            TXA
+            LSR    A
+            LSR    A
+            BEQ    SPDOK
+
+            LSR    A                                             ; Divide By 2 Till 0
+SPEED       INY
+            CPEQY  #5;SPDOK                                      ; Only Up To 9600
+
+            LSR    A                                             ; Divide By 2 Again
+            BNE    SPEED
+
+SPDOK       STY    MDMSPEED                                      ; Save The Speed In Default
+            DO     DEMOPGM
+            RTS
+            ELSE
+            JSR    MDMINIT                                       ; Init The Modem
+            JMP    MDMRSET                                       ; Set It Up For Use
+            FIN
+
+*===============================
+* Name: MDM3 - Set auto logon time
+*===============================
+
+MDM3        JSR    EQUSTR
+            IFLTY  STRLEN;#12;M3_MVTIM                           ; is it legal?
+
+            LDA    #Strtobig
+            JMP    BADERR
+
+M3_MVTIM    MOV    (STRLOC),Y;QTIME,Y                            ; Get Char And Save
+            DBPL   Y;M3_MVTIM
+
+            SEC                                                  ; Flag an auto logon
+            ROR    AUTOLOG
+            RTS
+
+*===============================
+* Name: MDM4 - Clear auto logon
+*===============================
+
+MDM4        STZ    AUTOLOG
+            RTS
+
+*===============================
+* Name: MDM1 - Hang Up
+*===============================
+
+]TEMP       =      COPLEN/2
+
+MDM1        JSR    CROUT                                         ; Start At Beginning Of Line
+            LDY    #38-]TEMP                                     ; Center The Message
+            LDA    #' '
+M1_SPACE    JSR    COUT
+            DBNE   Y;M1_SPACE
+
+            LDY    #COPLEN-1                                     ; Print The Message
+M1_PRNT     LDA    COPNOT,Y
+            EOR    #COPLEN
+            LSR    A
+            JSR    COUT
+            DBPL   Y;M1_PRNT
+
+            STZ    PRN+1
+            JSR    PRTVER                                        ; Print Version #
+            JSR    SHOWSTR
+            DB     cr,cr,cr+Hibit
+MDM1_2      STZ    REMOTE                                        ; Set Local Modem
+            DO     DEMOPGM
+            RTS
+            ELSE
+            JMP    MDMHANG                                       ; Hang Up Phone
+            FIN
+
+*===============================
+* Name: MDM0 - Handle Waiting For A Call
+*===============================
+
+MDM0        STZ    REMOTE
+            DO     DEMOPGM
+            ELSE
+            JSR    MDMHANG                                       ; Hang Up Phone
+            JSR    MDMRSET                                       ; Setup For Answer
+            FIN
+            JSR    CLRANSI                                       ; Clear ANSI mode (if set)
+
+MDM0_X      STZ    SSAVED                                        ; Zero Screen Saved Flag
+            STZ    EXECFLG                                       ; Reset Possible Exec Mode
+            STZ    DOCHAT                                        ; Reset Chat Mode
+            MOVD   SCREENTO;LSTVNAM                              ; Setup Screen Blank Time
+
+            TSTPL  FLASHING;NOFLSH1                              ; flash enabled?, skip color save
+
+            MOV    FGBG;LSTPTR
+            MOV    BORDER;LSTPTR+1
+
+NOFLSH1     MOVX   #-1;REMOTE                                    ; setup for local only
+            STX    VIDECHO                                       ; Turn Off Any Echo
+            MOV    TIMEDISP;CLKMODE                              ; Set Up 12/24 Hour Display
+            PUSHA  #'@'                                          ; Start With Open Apple
+            JMP    M0_TIME
+
+MDM0_0      MOV    #60;PRN                                       ; Set for 1/2 Second
+
+MDM0_1      LDPL   KYBD;MDM0_2                                   ; Check For Keypress
+
+            STA    KBDSTRB                                       ; Clear Keyboard
+
+            TSTPL  FLASHING;NOFLSH2                              ; flash enabled, as //e
+            TSTPL  GSFLAG;MDM0_1A
+
+NOFLSH2     TSTPL  SSAVED;MDM0_1A                                ; Screen Saved?
+
+            STZ    SETRAM1                                       ; Switch In Subs
+            JSR    RESTSCRN
+            STZ    SETRAM2                                       ; Switch Out Subs
+            PLA
+            BRA    MDM0_X                                        ; Restart All
+
+MDM0_1A     AND    #%00011111                                    ; Make Into [0-31] Range
+            CPNE   M_LOGIN;MDM0_4                                ; do local
+
+M0_AUTO     =      *
+            DO     DEMOPGM
+            ELSE
+            JSR    MDMHANG                                       ; Hang Up (Disable AA)
+            FIN
+            STZ    REMOTE                                        ; Set To Local
+            STZ    MDMSPEED                                      ; Set Speed To 0
+MDM0_6      PLA
+            JSR    CLRBUF                                        ; Clear Keyboard Buffer
+
+            TSTPL  FLASHING;NOFLSH3                              ; flash enabled?
+
+            JSR    M0_RESET
+
+NOFLSH3     LDA    #clrscn
+            JSR    VIDCOUT                                       ; Clear Local Console
+            JMP    PTERM
+
+MDM0_4      CPNE   M_QUIT;MDM0_3                                 ; quit
+            PLA
+            JSR    RESET
+            JMP    RESTART1                                      ; Quit
+
+            DO     DEMOPGM
+MDM0_3      =      *
+MDM0_2      =      *
+            ELSE
+MDM0_3      CPNE   M_ANSWER;MDM0_2                               ; keep checking
+
+            JSR    MDMANS                                        ; Answer Phone
+MDM0_2      JSR    MDMRING                                       ; Check For Connect
+            BCC    MDM0_2X                                       ; We Got A Connect
+
+MDM0_5      JSR    MDMIN                                         ; Get Modem Input
+            BCS    MDM0_5                                        ; And Gobble Until Gone
+            BRA    MDM0_6
+            FIN
+
+MDM0_2X     JSR    USERVEC                                       ; Do User Sub-Routine
+
+            TSTPL  FLASHING;NOFLSH4                              ; flash enabled, as //e
+            TSTPL  GSFLAG;MDM0_2Y
+
+NOFLSH4     TSTMI  SSAVED;MDM0_0                                 ; Screen Been Saved, no time
+MDM0_2Y     LDPL   VBL;M0_PLUS                                   ; State Of Vertical Blank
+            TSTPL  CMD;M0_DOWN                                   ; Was Last State Negative?
+
+MDM0_1X     JMP    MDM0_1                                        ; Yes, No Change
+
+M0_PLUS     TSTPL  CMD;MDM0_1X                                   ; Last State Positive?
+
+M0_DOWN     STA    CMD                                           ; No, Change It
+            DBNE   PRN;MDM0_1X                                   ; Decrement Counter
+
+M0_TIME     JSR    GETTIME
+            ST16   M0_STIME+1
+            ST16   M0_CTIME+1
+            STY    M0_CSIZE+1
+            MOV    CNTROFF,Y;CH                                  ; Done This Way For Time
+            MOV    #vidHeight-2;CV                               ; Set To Line 22
+            LDX    #0                                            ; Print The Time
+M0_STIME    LDA    -1,X
+            AND    #Clrhi
+            JSR    VIDCOUT
+            INX
+            DBNE   Y;M0_STIME
+
+            PULL   LINE23+12                                     ; Put First Apple On Screen
+            EOR    #%00000001                                    ; Invert It
+            PHA                                                  ; Save Apple Type
+            STA    LINE23+26                                     ; Put Second Apple On Screen
+            AND    #%00000001                                    ; Done With A Second?
+            BEQ    GO0_0
+
+            TSTPL  FLASHING;NOFLSH5                              ; flash enabled, no colors
+
+            LDA    FGBG
+            INC    A
+            AND    #LoNibble
+            STA    PRN+1
+            ASL    A
+            ASL    A
+            ASL    A
+            ASL    A
+            EOR    #HiNibble
+            ORA    PRN+1
+            STA    FGBG
+            LDA    BORDER
+            AND    #HiNibble
+            ORA    PRN+1
+            STA    BORDER
+
+            TSTPL  GSFLAG;GO0_0
+
+NOFLSH5     BREQW  LSTVNAM;GO0_0                                 ; Is Screen Blank On?
+            DECD   LSTVNAM                                       ; Count down seconds
+            BRNEW  LSTVNAM;GO0_0
+
+            MOV    #-1;SSAVED                                    ; Flag Screen Saved
+            STZ    SETRAM1                                       ; Switch In Subs
+            JSR    SAVESCRN
+            STZ    SETRAM2                                       ; Switch Out Subs
+GO0_0       TSTPL  AUTOLOG;GO0_1
+
+M0_CSIZE    LDX    #0                                            ; Length of time string
+M0_CTIME    IFNE   -1,X;QTIME,X;GO0_1                            ; check the time
+            DBPL   X;M0_CTIME
+            JMP    M0_AUTO                                       ; Is equal, log on
+
+GO0_1       JMP    MDM0_0
+
+CNTROFF     DB     39,39,38,38,37,37,36,36,35,35,34,34
+
+M0_RESET    MOV    LSTPTR;FGBG
+            MOV    LSTPTR+1;BORDER
+            RTS
+
+*===============================
+* Name: INPUT - Input A Line Of Text Or Data
+*===============================
+
+INPUT       JSR    CHKFRE                                        ; Check The Free Memory
+            MOV    #%10000001;INPMODE                            ; Default Input Mode
+            STZ    INTOUT                                        ; Reset Output Interrupt
+            STZ    INTBUF
+            JSR    GETDEV                                        ; Setup Dev Pointer
+            JSR    SETIVEC                                       ; Set Input Vector
+            STX    SHWIN                                         ; Save Channel #
+IN_SET      IFEQ   (PRGPTR);#'"'+Hibit;IN_LIT                    ; Check For String
+            CPEQ   #';'+Hibit;EAT_SEMI                           ; Possible Gobble
+            CPNE   #'@'+Hibit;XDO_INP
+
+            JSR    BYTNUM8                                       ; Get Argument
+            CPGEX  #5;XDO_INP
+
+            MOV    MODEBYT,X;INPMODE                             ; set new mode
+            BRA    IN_SET
+
+IN_LIT      JSR    GETBYT                                        ; Gobble Up
+PR_LIT      JSR    GETBYT
+            CPEQ   #'"'+Hibit;IN_SET                             ; Are We Done?
+
+            JSR    COUTLO
+            BRA    PR_LIT
+
+EAT_SEMI    JSR    GETBYT                                        ; Gobble Semicolon
+            BRA    IN_SET
+
+XDO_INP     IFEQX  SHWIN;#0;DO_IN3D                              ; Use Console Input Routine
+
+            LDX    #0
+IN_LOOP     JSR    DO_INP                                        ; Get Input Line
+            CPEQ   #lf;IN_LOOP                                   ; Gobble LF
+
+            TAY                                                  ; Set Zero/Non-Zero Bit
+            BNE    DO_IN3B
+
+            LDA    #cr
+DO_IN3B     STA    LNBUF,X                                       ; Save Char
+            INX
+            CPNE   #cr;IN_LOOP                                   ; Check For Eol
+            BEQ    DO_IN3C                                       ; Yep
+
+DO_IN3D     JSR    INPLN                                         ; Get Console Input Line
+DO_IN3C     STZ    LNCNT                                         ; Reset To Start Of Line
+DO_IN4      JSR    VARSET
+            LDX    #cr
+            IFNE   (PRGPTR);#','+Hibit;DO_IN5                    ; more input?
+
+            JSR    GOBCOM                                        ; Gobble Up Char
+            LDX    #','
+DO_IN5      STX    TEMP2                                         ; Save Ending Character
+            LDPL   VNAME;DO_IN8                                  ; Input A Number?
+
+            LDY    #1
+            MOV    VARSTR+1;(VPTR),Y                             ; Point At New String
+            MOV    VARSTR;(VPTR)
+            STZ    TEMP2+1                                       ; Zero Counter
+            LDX    LNCNT
+MOVE_IN     IFEQ   LNBUF,X;#cr;DO_IN7A                           ; get input
+
+            INX
+            CPEQ   TEMP2;DO_IN7A                                 ; Are We Done?
+
+            STA    (VARSTR)                                      ; Copy
+            INC    TEMP2+1                                       ; Inc Length Counter
+            JSR    INCVARST
+            BRA    MOVE_IN
+
+DO_IN7A     STX    LNCNT
+            LDY    #2
+            LDEQX  TEMP2+1;DO_IN7C                               ; Get The Length
+
+            LDA    INPMODE
+            AND    #%00000010
+            BEQ    DO_IN7C
+
+            LDX    #1                                            ; Use Length 1
+DO_IN7C     TXA
+            STA    (VPTR),Y
+DO_IN7B     IFNE   TEMP2;#cr;DO_IN4                              ; done?
+
+            IFNE   (PRGPTR);#Or;NO_OUT                           ; Get Another Line?
+
+            JSR    GETBYT                                        ; Gobble
+            JMP    XDO_INP
+
+DO_IN8      MOV    LNCNT;TEMP3                                   ; Point At Number
+            MOV    #>LNBUF;TEMP3+1
+            JSR    ZNUMIN                                        ; Get Number
+            PHA
+            TYA
+            LDY    #2
+            STA    (VPTR),Y
+            DEY
+            PULL   (VPTR),Y
+            DEY
+            TXA
+            STA    (VPTR),Y
+            MOVX   TEMP3;LNCNT
+            IFEQ   LNBUF,X;#cr;DO_IN7B
+
+            IBRA   LNCNT;DO_IN7B
+
+DO_INP      JMP    (VECTOR2)                                     ; Get A Byte Of Input
+
+NO_INP      LDA    #0                                            ; No Input Available
+NO_OUT      RTS
+
+*===============================
+* Name: ECHOSTR - Set Echo
+*===============================
+
+ECHOSTR     JSR    EQUSTR
+            LDA    #-1
+            IFNEY  STRLEN;#1;DO_ECH2                             ; is it legal (1 char)?
+
+            LDA    (STRLOC)                                      ; Get Char And Save
+            AND    #Clrhi
+DO_ECH2     STA    VIDECHO
+            RTS
+
+*===============================
+* Name: DO_SED - Set Interrupt Key To Spacebar
+*                (For Editor)
+*===============================
+
+DO_SED      SEC                                                  ; Set Flag
+            SKIPCC                                               ; Skip Next Byte
+
+*===============================
+* Name: SETINT - Set Interrupt Keys To Be Used
+*===============================
+
+SETINT      CLC                                                  ; Fall Into Aint Routine
+            PHP
+            LDY    #$7F
+            MOV    #0;INTOUT                                     ; Reset Output
+SINT_ZRO    STA    INTBUF,Y                                      ; Clear Int Buffer
+            DBPL   Y;SINT_ZRO                                    ; Loop And Fall Into Addint
+
+            PLP                                                  ; Restore Status
+            BCS    AINT0                                         ; Just Enable Spacebar
+
+*===============================
+* Name: ADDINT - Add Interrupt Keys
+*===============================
+
+ADDINT      JSR    INPARG                                        ; Get Arg
+            LSR    A
+            BCS    AINT1                                         ; Error, Should Be A String
+
+            IFEQX  NUMB;#1;AINT0                                 ; Fix Stop Char
+            CPNEX  #2;AINT3                                      ; Theres A Problem
+
+            LDA    #-1
+            LDX    NXTCHR                                        ; Flag "Next-Message" Char
+            STA    INTBUF,X
+AINT0       LDA    #-1
+            LDX    STPCHR                                        ; Flag "Stop-Message" Char
+            STA    INTBUF,X
+            STA    INTBUF                                        ; Enable Ints
+            STA    INTBUF+127                                    ; Special Int Flag
+            STZ    INTCHR                                        ; Clear Int Char
+            RTS
+
+AINT1       LSR    A                                             ; Put Arg Count Into Carry
+            PHP
+            LDA    (STRLOC)                                      ; Get Key
+            JSR    CONV
+            TAX
+            MOV    #-1;INTBUF                                    ; Enable Int
+            STA    INTBUF,X                                      ; Mark As An Int Key
+            PLP
+            BCS    ADDINT
+
+RTS3        RTS
+
+AINT3       JMP    MISSMTCH                                      ; Type Mismatch
+
+*===============================
+* Name: GET - Get A Single Character
+*===============================
+
+GET         JSR    CHKFRE                                        ; Make Sure Enough Memory
+            MOV    #0;INTOUT                                     ; Reset Output
+            STA    INTBUF
+            JSR    VARSET                                        ; Setup Var
+            LDPL   VNAME;AINT3                                   ; its a number
+
+            JSR    CHKTIME                                       ; Check For Timeout
+            BCC    RTS3                                          ; Opps, Timeout!
+
+DO_GET1     JSR    KEYIN                                         ; Get The Char
+            TSTPL  DOCHAT;DO_GET2                                ; all is well
+
+            MOVX   #-1;INCHAT
+            JSR    DO_CHAT                                       ; Handle Chat
+            BRA    DO_GET1
+
+DO_GET2     JSR    CONV
+            STA    (VARSTR)                                      ; Save Character
+            MOV    VARSTR;(VPTR)                                 ; Point To Char
+            LDY    #1
+            MOV    VARSTR+1;(VPTR),Y
+            INY
+            MOV    #1;(VPTR),Y                                   ; Length 1
+            JMP    INCVARST                                      ; Inc String Space
+
+*===============================
+* Name: KEY - Check For Keypress
+*===============================
+
+KEY         JSR    CHKDCD                                        ; Make Key Check For Carrier
+            LDA    #0                                            ; Null Character For Test
+            JSR    COUT                                          ; Poll Modem/Keyboard
+            JSR    INPTYP                                        ; get next token type
+            BEQ    KEY0                                          ; end of statement/line
+
+            JSR    GETBYT                                        ; get token
+            CPEQ   #End;DO_KEY2                                  ; Check For STOP Char?
+            CPEQ   #Next;DO_KEY3                                 ; Check For NEXT Char?
+            CPEQ   #Flag;DO_KEY5                                 ; Check For Int Taking Place
+
+KEY0        JSR    GETCHR                                        ; Check Buffer
+            BRA    DO_KEY1
+
+DO_KEY2     LDRAX  STPCHR;DO_KEY4                                ; Check Stop Char
+
+DO_KEY3     LDX    NXTCHR                                        ; Check Next Char
+DO_KEY4     LDA    #0
+            CPNEX  INTCHR;DO_KEY1                                ; Did They Hit It?
+            IBRA   A;DO_KEY1
+
+DO_KEY5     LDA    INTOUT                                        ; Output Interrupted?
+DO_KEY1     AND    #Clrhi
+            JMP    SVDATA                                        ; Thats It
+
+*===============================
+* Name: WIDTH - Get Width From Index
+*===============================
+
+WIDTH       IFNE   (PRGPTR);#'('+Hibit;VWIDTH                    ; Is It A Normal Width Cmd?
+
+            JSR    INPNARG8                                      ; Get Arg
+            CPGEX  #5;W_ERR                                      ; In Range?
+
+            LDA    E_WIDTH,X                                     ; Get Width
+            JMP    SVDATA
+
+VWIDTH      TSTMI  IMMDEF;VWIDTH1                                ; Get Cmd
+
+            LDA    VIDLEN
+            JMP    SVDATA
+
+VWIDTH1     JSR    EQUNUM8                                       ; Get Video Width
+            TXA
+            BEQ    W_ERR                                         ; Opps Problem
+
+            STX    VIDLEN
+            RTS
+
+W_ERR       JMP    SYNTAX
+
+*===============================
+* Name: WINDOW - Read Or Set Top Of Screen
+*===============================
+
+WINDOW      BCC    W_ERR                                         ; Read No Longer Supported
+
+            JSR    GOBEQU                                        ; Set New Window Value
+            LDRAY  #2;WINDOW2A                                   ; Start With Screen Top
+
+WINDOW2     IFNE   (PRGPTR);#','+Hibit;WINDOW4                   ; more parms?
+
+            JSR    GOBCOM                                        ; Eat The Comma
+WINDOW2A    PHY                                                  ; Save Y For Later
+            JSR    INPNUM8                                       ; Get Number
+            PLY                                                  ; Restore Y
+            TXA
+            CPGE   WIN_PARM,Y;WINDOW3                            ; In Range?
+
+            STA    WNDLFT,Y                                      ; Save It
+WINDOW3     INY                                                  ; Point To Next
+            CPEQY  #2;WINDOW4                                    ; done?
+            CPNEY  #4;WINDOW2                                    ; done with top/bottom?
+            LDRAY  #0;WINDOW2                                    ; set to left/width
+
+WINDOW4     RTS
+
+WIN_PARM    DB     23,23,80,80
+
+*===============================
+* Name: SCRN - Read, Set Or Execute Screen Stuff
+*===============================
+
+SCRN        PHP
+            LSR    A                                             ; Convert Back Into Token
+            SEC
+            SBC    #HomeTkn                                      ; Convert To Index
+            TAX
+            PLP
+            BCC    NGETVAL                                       ; Opps, Do read, not set
+
+            PHA
+            IFNE   (PRGPTR);#Equal;DO_SFUNC                      ; next an equal?
+
+            JSR    EQUSTR
+            CPGEY  #7+1;SCRNOVFL                                 ; 7 chars max
+            PLA
+            ASL    A                                             ; multiply by 8
+            ASL    A
+            ASL    A
+            TAX
+            TYA
+            STA    CURREMUL,X                                    ; Set The Value
+            LDY    #0                                            ; Copy the string
+SVEMSTR     INX
+            MOV    (STRLOC),Y;CURREMUL,X
+            INY
+            CPNEY  STRLEN;SVEMSTR
+            RTS
+
+SCRNOVFL    LDA    #Strtobig                                     ; Too big
+            JMP    BADERR
+
+NGETVAL     ASL    A                                             ; Make into offset
+            ASL    A
+            ASL    A
+            TAX
+            LDA    CURREMUL,X                                    ; Get the length
+            TAY                                                  ; Put it where it belongs
+            TXA
+            CLC                                                  ; Add in the table location
+            ADC    #<CURREMUL+1
+            TAX
+            LDA    #0
+            ADC    #>CURREMUL+1
+            JMP    SVSTR                                         ; Save it
+*
+*  Handle the local video
+*
+DO_CLS      PUSHA  #ClsTkn2-HomeTkn
+DO_SFUNC    LDY    #ioBoth                                       ; set i/o to modem & screen
+            JSR    SETOVEC
+            PLA
+EMULFUNC    PHA
+            CPNE   #Gotoxy-HomeTkn;DO_FUNC2                      ; Is It A Gotoxy?
+
+            JSR    INPNARG8                                      ; Get X parm
+            STX    GOTO_X
+            JSR    INPNARG8                                      ; and Y parm
+            STX    GOTO_Y
+
+DO_FUNC2    LDEQ   CURODEV;DO_FUNC3                              ; Wheres this going?, all
+            CPNE   #ioLocal;DO_FUNC4                             ; screen only?
+
+DO_FUNC3    PLX                                                  ; convert to local control
+            PHX
+            LDA    V_NEWCHR,X
+            BEQ    DO_FUN3A
+            JSR    VIDCOUT
+DO_FUN3A    PLA
+            PHA
+
+            CPNE   #Gotoxy-HomeTkn;DO_FUNC4                      ; Is It A Gotoxy?
+
+            CLC
+            LDA    GOTO_X
+            ADC    #goxyOffs                                     ; Add The Offset Value
+            JSR    VIDCOUT                                       ; Print It
+            CLC
+            LDA    GOTO_Y
+            ADC    #goxyOffs                                     ; Add The Offset Here Also
+            JSR    VIDCOUT
+*
+*  Now do the remote stuff
+*
+            DO     DEMOPGM
+DO_FUNC4    PLA
+            RTS
+            ELSE
+DO_FUNC4    LDNE   CURODEV;DO_FUNC5                              ; anywhere but both mdm/scrn
+
+            TSTMI  REMOTE;DO_FUNC5                               ; Online?
+            PLA                                                  ; Nope
+SCRNDONE    RTS
+
+DO_FUNC5    PLA
+            CPNE   #Gotoxy-HomeTkn;DO_FUNC6                      ; if not gotoxy, normal
+
+            TSTMI  ANSIFLAG;DO_ANSI                              ; in ANSI mode?
+
+DO_FUNC6    PHA
+            ASL    A                                             ; make index
+            ASL    A
+            ASL    A
+            TAX
+            LDEQ   CURREMUL,X;NO_FUNC                            ; Get the length
+            TAY                                                  ; Put it where it belongs
+DO_FUNC7    INX
+            LDA    CURREMUL,X                                    ; send the string
+            JSR    SMDMOUT
+            DBNE   Y;DO_FUNC7
+
+NO_FUNC     PLA                                                  ; Get Back Call Type
+            CPNE   #Gotoxy-HomeTkn;SCRNDONE                      ; Is It A Gotoxy?
+
+            LDX    GOTO_X                                        ; get X & Y
+            LDY    GOTO_Y
+            TSTPL  OFFSNUM;SND_XY                                ; in YX order?
+            PHXY                                                 ; no, reverse them
+            PLX
+            PLY
+SND_XY      CLC                                                  ; send X & Y data
+            TXA
+            ADC    OFFSNUM                                       ; Add offset to X
+            AND    #Clrhi
+            JSR    SMDMOUT
+            CLC
+            TYA
+            ADC    OFFSNUM                                       ; Add offset to Y
+            AND    #Clrhi
+            JMP    SMDMOUT
+
+DO_ANSI     LDA    #esc                                          ; send leadin seq
+            JSR    SMDMOUT
+            LDA    #'['
+            JSR    SMDMOUT
+            LDA    GOTO_Y                                        ; Get back X
+            JSR    XYDEC                                         ; Send number string
+            LDA    #';'                                          ; send the separator
+            JSR    SMDMOUT
+            LDA    GOTO_X                                        ; Get back Y
+            JSR    XYDEC                                         ; Send this string too
+            LDRA   #'H';SMDMOUT                                  ; Send the terminator
+
+MKDEC       LDY    #0                                            ; zero 100's
+CP100       CPLT   #100;LT100                                    ; > 99?
+            INY                                                  ; incerment 100s
+            SEC
+            SBC    #100                                          ; remove 100
+            BRA    CP100                                         ; check again
+
+LT100       LDX    #0                                            ; zero 10s
+CP10        CPLT   #10;LT10                                      ; > 9?
+            INX                                                  ; increment 10s
+            SEC
+            SBC    #10                                           ; remove 100
+            BRA    CP10                                          ; check again
+
+LT10        RTS
+
+XYDEC       JSR    MKDEC
+            PHA                                                  ; A contains 1s
+            PHX                                                  ; save 10s
+            TYA                                                  ; get 100s
+            BEQ    NO100                                         ; none, dont send
+            ORA    #'0'                                          ; make ASCII
+            JSR    SMDMOUT
+NO100       PLA                                                  ; get 10s
+            BEQ    NO10                                          ; none, dont send
+            ORA    #'0'                                          ; make ASCII
+            JSR    SMDMOUT
+NO10        PLA                                                  ; get 1s
+            ORA    #'0'                                          ; make ASCII
+SMDMOUT     PHA                                                  ; save char
+            LDEQ   CURODEV;S_MODEM                               ; where to?
+            PLA                                                  ; get back char
+            JMP    (VECTOR)                                      ; send to device
+
+S_MODEM     PLA                                                  ; get char back
+            JMP    MDMOUT                                        ; send to modem
+            FIN
+
+*===============================
+* Set or get nulls
+*===============================
+
+DO_NULLS    BCS    NULLS1                                        ; Do Set Not Read
+
+            LDRA   NNULLS;SAVEIT                                 ; Get nulls
+
+NULLS1      JSR    EQUNUM8
+            STX    NNULLS                                        ; Set nulls
+            RTS
+
+*===============================
+* Set or get GotoXY offset
+*===============================
+
+DO_OFFSET   BCS    OFFSET1                                       ; Do Set Not Read
+
+            LDRA   OFFSNUM;SAVEIT                                ; Get the offset
+
+OFFSET1     JSR    EQUNUM8
+            STX    OFFSNUM                                       ; Set the offset
+            RTS
+
+*===============================
+* Name: ERR - Return Last Error Number
+*===============================
+
+ERR         LDA    ERRNO                                         ; Get Value
+SAVEIT      JMP    SVDATA
+
+*===============================
+* Name: NODE - Return System Node Number
+*===============================
+
+NODE        LDRA   NODENUM;SAVEIT                                ; Get Network Node #
+
+*===============================
+* Name: ONLINE - Return Online Status
+*===============================
+
+ONLINE      LDRA   REMOTE;SAVEIT                                 ; Pass Remote Flag
+
+*===============================
+* Name: BAUD - Return Users Baud Rate
+*===============================
+
+BAUD        LDRA   CALLSPD;SAVEIT                                ; Get Callers Speed
+
+*===============================
+* Name: EXEC - Read Or Set Exec Flag
+*===============================
+
+EXEC        BCS    EXECCMD1                                      ; Opps Do Set Not Read
+
+            LDRA   EXECFLG;SAVEIT
+
+EXECCMD1    MOV    #%10111111;EXECFLG                            ; Set Exec Flag
+            JSR    EQUNUM8                                       ; Set New Exec Flag
+            CPNEX  #0;EXECCMD2                                   ; Its Already Set
+
+            STX    EXECFLG                                       ; Set Exec To 0
+EXECCMD2    RTS
+
+*===============================
+* Name: TERMINAL - Read/Set Terminal Number
+*===============================
+
+TERMINAL    BCS    SETTERM                                       ; Set It
+
+            LDRA   TERMNO;SAVEIT                                 ; Get Terminal ID Number
+
+SETTERM     JSR    EQUNUM8                                       ; Get The Number
+            TXA
+            BPL    TSET                                          ; Set It If Positive
+
+            DO     DEMOPGM
+TSET        STA    TERMNO
+            RTS
+            ELSE
+            LDEQX  REMOTE;PTERM                                  ; Remote mode?
+
+            JSR    WAITSEC                                       ; Wait One Second
+            JSR    CHECKPT                                       ; is it Proterm special?
+            BNE    TSET                                          ; yes, set it
+            JSR    WAITSEC                                       ; Wait One Second
+            JSR    WAITSEC                                       ; Wait One Second
+            JSR    CHKANSI                                       ; how about ANSI
+            BEQ    TSET
+            PHA
+            JSR    SETANSI                                       ; set ANSI mode
+            PLA
+TSET        STA    TERMNO
+            CPNE   #0;T_DONE                                     ; was a terminal detected?
+            LDX    #$C0
+ZEROTRM     DEX                                                  ; zero the emulation table
+            STZ    CURREMUL,X
+            TXA
+            BNE    ZEROTRM
+T_DONE      JMP    WAITSEC                                       ; Wait One Second
+
+CHECKPT     LDA    #'E'-Ctrl                                     ; Proterm Special Enq?
+            JSR    MDMOUT                                        ; Send It
+            LDY    #2                                            ; Wait A Max 3 Sec
+WAITPT      JSR    WAITSEC                                       ; Wait Another Sec
+            JSR    MDMIN                                         ; Get A Char (If There)
+            DEY                                                  ; Bump Seconds Done One
+            CPEQ   #']'-Ctrl;PTERM                               ; Proterm Special Ack
+
+            TYA                                                  ; Done?
+            BNE    WAITPT
+            RTS
+
+PTERM       LDX    #EndPTSE-V_NEWCHR
+SETPT       TXA
+            ASL    A                                             ; make index
+            ASL    A
+            ASL    A
+            TAY
+            MOV    #1;CURREMUL,Y                                 ; Set the length
+            MOV    V_NEWCHR,X;CURREMUL+1,Y                       ; and the char
+            DBPL   X;SETPT
+
+            MOV    #goxyOffs;OFFSNUM
+            MOV    #255;TERMNO                                   ; Acknowledged, Set It
+            RTS
+
+ANSIDA      HEX    1B5B356E00                                    ; Report status
+
+CHKANSI     JSR    MDMIN                                         ; Clear anything waiting
+            BCS    CHKANSI
+
+            LDX    #0                                            ; Send the string
+CHKANSI2    LDEQ   ANSIDA,X;SND_DN
+            JSR    MDMOUT
+            IBNE   X;CHKANSI2
+
+SND_DN      MOV    #62;PRN                                       ; wait a while
+            TAY
+            LDX    #0                                            ; read at position 0
+GETRESP     JSR    MDMIN                                         ; read a char (maybe)
+            BCS    SVRESP                                        ; got one
+            DBNE   Y;GETRESP
+            DBNE   PRN;GETRESP                                   ; count down more
+            BRA    CHKLINE
+
+SVRESP      STA    LNBUF,X                                       ; save the char
+            IBNE   X;GETRESP
+
+CHKLINE     IFNE   LNBUF;#esc;NOTANSI                            ; must be esc[
+            IFNE   LNBUF+1;#'[';NOTANSI
+            LDX    #2
+SKIPPRMS    LDA    LNBUF,X                                       ; check line for parameters
+            INX
+            CPLT   #'A';SKIPPRMS
+            CPNE   #'n';NOTANSI                                  ; if not an n, not real ANSI
+            LDA    #254
+            RTS
+
+NOTANSI     LDA    #0                                            ; no response, or not ANSI
+            RTS
+
+*===============================
+* Name: WAITSEC - Delay One Second
+*===============================
+
+WAITSEC     LDX    #10
+SEC_LUP     LDA    #$C3                                          ; 1/10 Sec
+            JSR    WAIT
+            DBPL   X;SEC_LUP
+
+            RTS
+
+*===============================
+* Name: TONE - Produce A Tone With Apple Speaker
+*===============================
+
+TONE        MOV    #1;TEMP+1                                     ; Default To 1 Tone
+            JSR    INPNARG8                                      ; Get Tone Argument
+            STX    TEMP2
+            JSR    INPNARG8                                      ; Get Duration/Tone2 Arg
+            STX    TEMP                                          ; Save As Duration
+            BCC    DO_TONE                                       ; Last Argument, All Correct
+
+            IFNE   (PRGPTR);#','+Hibit;DO_TONE                   ; do single tone
+
+            STX    TEMP+1                                        ; Save Second Tone
+            JSR    INPNARG8                                      ; Get Real Duration
+            STX    TEMP2                                         ; Save Duration
+DO_TONE     IFNE   TERMNO;#255;NOPT                              ; Useing ProTERM?
+
+            LDA    #Tonecmd                                      ; Tell Them This Is A Tone
+            LDX    #TEMP2+1                                      ; Point To Arguments+1
+            BRA    SENDIT
+
+SENDARG     LDA    TEMP,X                                        ; Get An Argument
+SENDIT      LDY    REMOTE                                        ; Remote User Online?
+            DO     DEMOPGM
+            ELSE
+            BEQ    TRYLOC                                        ; No, Try Local
+
+            JSR    MDMOUT                                        ; Send To Modem
+            FIN
+TRYLOC      TSTMI  LASTIN;DONEXT                                 ; Sysop At Keyboard?
+
+            JSR    VIDCOUT                                       ; Send It
+DONEXT      DBPL   X;SENDARG                                     ; Next One
+
+NOPT        RTS
+
+*===============================
+* Name: DO_SER - Print Serial # Of Software
+*===============================
+
+            DO     DEMOPGM
+DO_SER      RTS
+            ELSE
+DO_SER      JSR    KEYIN2                                        ; Check Serial # Show Access
+            CPEQ   #'?';SER1
+
+            RTS
+
+SER1        MOVD   #SERNUM;TEMP                                  ; Print Serial #
+            LDY    #SERLEN
+            DEY
+SER2        LDA    (TEMP),Y
+            EOR    #SERLEN
+            LSR    A
+            JSR    MDMOUT
+            DBPL   Y;SER2
+            LDA    #' '
+            JSR    MDMOUT
+            MOV    #-1;PRN+1
+            FIN
+
+*-------------------------------
+* Print Version Number
+*-------------------------------
+
+PRTVER      LDA    VERSION+1                                     ; print main version number
+            JSR    PRBYTE
+            LDA    #'.'                                          ; separate with a .
+            JSR    PRHEX2
+            LDA    VERSION                                       ; get minor version number
+            PHA
+            LSR    A                                             ; do the high nibble
+            LSR    A
+            LSR    A
+            LSR    A
+            JSR    PRTHEX
+            CPGE   #'9'+1;NO_DOT                                 ; was it a non-release?
+            LDA    #'.'                                          ; nope, show another .
+            JSR    PRHEX2
+NO_DOT      PLA                                                  ; now do the low nibble
+            BRA    PRTHEX
+
+PRBYTE      PHA                                                  ; Get High Nibble
+            LSR    A
+            LSR    A
+            LSR    A
+            LSR    A
+            BEQ    PRBYTE2                                       ; Not 0, Print It
+PRBYTE1     JSR    PRTHEX                                        ; Print Nibble
+PRBYTE2     PLA                                                  ; Bet Back Byte
+PRTHEX      AND    #%00001111                                    ; Strip Off Hi Nibble
+            ORA    #'0'                                          ; Make It ASCII
+            CPLT   #'9'+1;PRHEX2                                 ; Letter?
+
+            ADC    #$26                                          ; Yes, Make It Lower Case
+            DO     DEMOPGM
+PRHEX2      JMP    COUT
+            ELSE
+PRHEX2      TSTMI  PRN+1;PRHEX3
+            JMP    COUT
+PRHEX3      JMP    MDMOUT
+            FIN
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/IO.SUBS.S b/SOURCE/LLUCE/IO.SUBS.S
new file mode 100644
index 0000000..1913176
--- /dev/null
+++ b/SOURCE/LLUCE/IO.SUBS.S
@@ -0,0 +1,938 @@
+            LST    RTN
+            TTL    'LLUCE - I/O Subroutines'
+            PAG
+*===============================
+* Contents:
+*
+* BELLOUT  - Send A Bell To Output Device
+* BSOUT    - Send A BS To Output Device
+* CHKKEY   - Check For Input Character
+* CLRBTM   - Reset Screen, Clear Bottom Line
+* CLRBUF   - Clear Char Buffer
+* COUT     - Print Char In A, Check For Input
+* COUTLO   - Print char in A, strip high bit
+* CROUT    - Send A CR/LF To Output Device
+* DO_CHAT  - Chat With User
+* DO_EXEC  - Set Exec Mode, Modem Output Off
+* GO23     - Save Cursor, GotoXY(0,23)
+* GETCHR   - Get Char From Buffer
+* INPLN    - Get An Input Line
+* KEYIN    - Get Character From Input Device
+* LDCHCV   - Restore Cursor Position
+* PR       - Print Text, Normal Or Banner
+* PRBACK   - Print A Destructive Backspace
+* PRMSG    - Print Message From Index
+* PUTCHR   - Save Char In Buffer
+* RDKEY    - Get Character From Input Device
+* RSTLINE  - Print Saved Screen Line
+* SDUMP    - Send Screen To Printer
+* SETBTM   - Scroll Screen, Protect Last 2 Lines
+* SHOWSTR  - Print String
+* SHOW_ERR - Print An Error Message
+* SPCOUT   - Send A Space To Output Device
+* SVCHCV   - Save Cursor, GotoXY(0,A)
+* SVLINE   - Save Screen Line
+* V_RDCHAR - Read Character From Screen
+* ZMDMOUT  - Send Data To Modem Only
+*===============================
+
+*===============================
+*   Name: INPLN - Get An Input Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+INPLNA      JSR    CROUT                      ; Do CR Before Getting Line
+
+INPLN       TSTMI  INCHAT;INPLN1C             ; Are They In Chat?
+
+            JSR    CHKTIME                    ; Is Time Ok?
+            BCC    INPLN1A                    ; Opps, Timeout!
+
+INPLN1C     LDY    #0
+INPLN1      JSR    KEYIN
+            TSTPL  DOCHAT;INPLN1A             ; Do Chat?
+            TSTPL  INCHAT;INPLN1B             ; In Chat?
+            RTS                               ; Return Early
+
+INPLN1B     LDA    #can                       ; Do We Need To Del Line?
+            CPNEY  #0;INPLN2
+
+            MOVX   #-1;INCHAT                 ; Set InChat mode
+            JSR    DO_CHAT                    ; Do Actual Chat
+            BRA    INPLN
+
+INPLN1A     TSTMI  LOGOFF;JINPLN8             ; Check No Carrier/Timeout
+            CPEQ   #cr;JINPLN6                ; Return
+            CPEQ   #bs;INPLN2                 ; Back Space
+            CPEQ   #can;INPLN2                ; Ctrl-X / Cancel
+            CPNE   #del;INPLN3                ; Delete
+
+INPLN2      CPEQY  #0;INPLN1                  ; Can We Back Up?
+
+            PHA
+            JSR    PRBACK                     ; Do Backspace
+            DEY                               ; Decrease Char Count
+            PLA
+            CPEQ   #can;INPLN2                ; If Its A Cancel
+            BRA    INPLN1
+
+INPLN3      CPLT   #' ';INPLN1                ; If Its A Control Char...
+            CPNEY  VIDLEN;INPLN4              ; Check For Max Length
+
+            STA    LNBUF,Y                    ; Save Last Character
+            LDA    INPMODE
+            AND    #%00010000                 ; Do Word-Wrap?
+            BEQ    INPLN3E                    ; Nope
+
+            STY    TEMP                       ; Save Line Length
+            IFEQ   LNBUF,Y;#' ';INPLNA        ; get last char, ok, Restart
+
+            LDX    #0                         ; Setup For Inpln3B
+INPLN3A     IFEQ   LNBUF,Y;#' ';INPLN3B       ; We Found A Space
+            DBNE   Y;INPLN3A                  ; Keep Checking
+
+            LDNEY  TEMP;INPLN3E               ; Get Back Length, no word wrap
+
+INPLN3B     INY
+            JSR    PRBACK                     ; Back Up
+            MOV    LNBUF,Y;LNBUF,X
+            INX
+            CPNEY  TEMP;INPLN3B               ; Loop Until All Data Copied
+
+            STX    TEMP                       ; Save End Pointer
+            JSR    CROUT                      ; Start A New Line
+            LDY    #0
+INPLN3C     LDA    LNBUF,Y
+            JSR    COUTLO                     ; Print Data
+            INY
+            CPNEY  TEMP;INPLN3C
+            JMP    INPLN1                     ; Go Back For More Input
+
+JINPLN6     BEQ    INPLN6
+JINPLN8     BMI    INPLN8
+
+INPLN3E     JSR    BELLOUT                    ; Beep The Bell
+            JMP    INPLN1
+
+INPLN4      TSTPL  INPMODE;INPLN4A            ; Do We Convert?
+
+            JSR    CONV                       ; Convert To Upper
+INPLN4A     TSTVC  INPMODE;INPLN5             ; Check The Inpmode
+            CPEQ   #',';INPLN5B               ; Dont Accept A Comma
+            CPNE   #' ';INPLN5                ; Dont Accept A Space
+            CPEQY  #0;INPLN5B                 ; For First Char Of The Line
+
+INPLN5      STA    LNBUF,Y                    ; Save Char
+            INY
+            TSTMI  VIDECHO;INPLN5A            ; Special Echo?
+
+            LDA    VIDECHO
+INPLN5A     JSR    COUTLO                     ; Print It
+INPLN5B     JMP    INPLN1                     ; Loop
+
+INPLN6      MOV    #cr;LNBUF,Y                ; Save The Return
+            CPNEY  #0;INPLN7                  ; Was Is Just A Return?
+
+            LDA    INPMODE                    ; Accept A Blank Line?
+            AND    #%00100000
+            BNE    CROUT                      ; Yep
+
+            JMP    INPLN                      ; Dont Take, CR, Start Over
+
+INPLN8      MOV    #cr;LNBUF                  ; Return Blank Line
+            RTS
+
+*===============================
+*   Name: PRBACK - Print A Destructive Backspace
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PRBACK      JSR    BSOUT                      ; Print BS - Space - BS
+            JSR    SPCOUT
+
+*===============================
+*   Name: BSOUT   - Send A BS To Output Device
+*         BELLOUT - Send A Bell To Output Device
+*         CROUT   - Send A CR/LF To Output Device
+*         SPCOUT  - Send A Space To Output Device
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+BSOUT       LDA    #bs                        ; Execute A Backspace
+            SKIP2
+BELLOUT     LDA    #bel                       ; Execute A Bell
+            SKIP2
+CROUT       LDA    #cr                        ; Execute A CR
+            SKIP2
+SPCOUT      LDA    #' '                       ; Do A Space
+INPLN7      JMP    COUTLO                     ; Print The Return And Exit
+
+*===============================
+*   Name: KEYIN - Get Character From Input Device
+*
+*  Input: None
+*
+* Output: A - Keyboard Character
+*===============================
+
+KEYIN       JSR    GETCHR                     ; Get Char From Buffer
+            BNE    KEYIN5                     ; (If Present)
+
+KEYIN2      LDA    #'_'
+            JSR    VIDCOUT                    ; Print Cursor
+            LDA    #bs
+            JSR    VIDCOUT
+            MOVD   TOCONST;TIMEOUT+2          ; [32=1 Minute] - 5 Minutes
+            STZ    TIMEOUT+1                  ; Reset Medium Counter
+            LDA    KILCLTO                    ; Local Time Constant
+            TSTPL  REMOTE;KEYIN2B             ; Dont Change Anything
+
+            LDA    KIRMTTO                    ; Get Modem Time Constant
+KEYIN2B     STA    TIMEOUT
+            STA    TIMEOUT+4
+KEYIN3      DBNE   TIMEOUT;KEYIN3A            ; Count Down
+
+            MOV    TIMEOUT+4;TIMEOUT          ; Reset Low-Byte Constant
+            IBNE   TIMEOUT+1;KEYIN3A          ; Cycle 256 Counter
+
+            LDA    TIMEOUT+2                  ; Check Time
+            AND    #%00011111                 ; Do Bell?
+            BNE    KEYIN3B
+
+            JSR    BELLOUT                    ; Beep Bell
+KEYIN3B     TSTPL  NOCDFLG;KEYIN3A            ; No Carrier Vector?
+            TSTMI  EXECFLG;KEYIN3A            ; Check For Exec User
+            DBNE   TIMEOUT+2;KEYIN3A          ; Count Down Minutes
+            DBPL   TIMEOUT+3;KEYIN3A
+
+            JMP    ZAPCALL                    ; Signal Logoff
+
+KEYIN3A     JSR    CHKKEY                     ; Wait For Keypress
+            BNE    KEYIN4                     ; Got One!
+
+            TSTPL  DOCHAT;KEYIN3              ; Check Chat Flag
+
+            LDA    #0                         ; Return Early
+KEYIN4      PHA
+            LDA    #' '
+            JSR    VIDCOUT                    ; Remove Cursor
+            LDA    #bs
+            JSR    VIDCOUT
+            PLA
+KEYIN5      RTS
+
+*===============================
+*   Name: CHKKEY - Check For Input Character
+*
+*  Input: None
+*
+* Output: A - Character
+*         A = 0: No Character
+*===============================
+
+CHKKEY      INCD   RNDNUM                     ; Setup Random Seed
+            LDPL   KYBD;GET2                  ; Get char from Keyboard
+
+            AND    #Clrhi
+            STA    LASTIN                     ; Last Char From Local
+            STA    KBDSTRB                    ; Clear strobe
+            TSTPL  BUTN0;GET3                 ; Read Open-Apple
+
+            JSR    CONV                       ; Make It Upper Case
+            CPEQ   #prnscr;GET4               ; Print Screen?
+            CPEQ   #chat;GET7                 ; Chat?
+            CPEQ   #logout;GET8               ; Quick Logoff?
+            CPEQ   #execon;GET9               ; Exec Mode?
+            CPNE   #bartog;GET3               ; Toggle Bottom Bar?
+
+            TSTMI  SHWTXT;GET8A               ; Go To Program Trace Mode?
+            TSTMI  SHWTRC;GET8B               ; Exit Program Trace Mode?
+
+            DEC    SHWTXT                     ; Show User Input
+            PHY
+            JSR    SETBTM
+            JSR    GO23                       ; Save Horiz / Vert Position
+            JSR    PR                         ; Print Message
+            ASC    'INP:'00
+            JSR    LDCHCV                     ; Restore Position
+            DEC    WNDBTM                     ; Shorten Screen
+            DEC    WNDBTM
+            PLY
+GET2        LDA    #0                         ; No Data
+            DO     DEMOPGM
+            RTS
+            ELSE
+            TSTPL  REMOTE;GET3B               ; Check Modem?
+
+            JSR    CHKDCD                     ; Is There Carrier?
+            BCC    GET3B                      ; Nope!
+
+            JSR    MDMIN                      ; Check Modem
+            BCC    GET3B                      ; No Data
+
+            ROR    LASTIN                     ; Put Carry Set To High Bit
+            AND    #Clrhi                     ; Strip High Bit
+            FIN
+GET3        TSTPL  SHWTXT;GET3B               ; Show Input?
+
+            PHA
+            ORA    #Hibit
+            CPGE   #' '+Hibit;GET3A           ; Is It A Control?
+
+            PHA
+            LDA    #'^'+Hibit                 ; Show Control Lead-In
+            JSR    VIDBAN
+            PLA
+GET3A       JSR    VIDBAN
+            PLA
+GET3B       CMP    #0                         ; Set Status
+            RTS
+
+GET4        BRA    SDUMP                      ; Go To Get4 (Screen Dump)
+
+GET7        MOV    #-1;DOCHAT                 ; Signal Chat Is Needed
+            BRA    GET2                       ; Finish Up
+
+GET8        JMP    ZAPCALL                    ; Signal Logoff
+
+GET8A       INC    SHWTXT                     ; Select Program Trace
+            DEC    SHWTRC
+            PHY                               ; Save Y
+            JSR    GO23                       ; Save Current Horiz / Vert
+            JSR    PR                         ; Print Message
+            ASC    'PRG:'00
+            JSR    LDCHCV                     ; Restore Position
+            PLY                               ; Restore Y
+            BRA    GET2
+
+GET9        MOV    #Hibit;DOCHAT              ; Signal Exec Mode Is Wanted
+            BRA    GET2
+
+GET8B       JSR    SVCHCV
+            INC    SHWTRC                     ; Select Nothing
+            JSR    CLRBTM
+GET8C       BRA    GET2
+
+*===============================
+*   Name: SDUMP - Send Screen To Printer
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SDUMP       PHXY                              ; Save X & Y
+            LDX    #0                         ; Start At Line 0
+SDUMP1      PHX
+            LDY    #0                         ; Start At Char Zero
+            PHY
+SDUMP2      JSR    V_RDCHAR                   ; Read Char From Screen
+            JSR    LPROUT                     ; Print Char On Printer
+            PLY
+            INY
+            CPNEY  WNDWDTH;SDUMP2             ; At Window Width?
+
+            LDA    #cr                        ; Add CR To Line
+            JSR    LPROUT
+            PLX
+            INX
+            CPNEX  #vidHeight;SDUMP1          ; At Last Line?
+
+            JSR    LPROUT                     ; Add Extra CR
+            PLXY                              ; Restore X & Y
+            BRA    GET8C                      ; Go Back To Get
+
+*===============================
+*   Name: CLRBTM - Reset Screen, Clear Bottom Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CLRBTM      INC    WNDBTM                     ; Select Bottom 2 Lines
+            INC    WNDBTM
+            PHXY
+            JSR    VIDLST                     ; Clear Line 24
+            JSR    LDCHCV
+            PLXY
+            RTS
+
+*===============================
+*   Name: SETBTM - Scroll Screen, Protect Last 2 Lines
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SETBTM      IFLTY  CV;#vidHeight-2;BTM_RTS    ; Do We Need To Scroll?
+
+            DEY                               ; Move Cursor Up 2 Lines
+            DEY
+            STY    CV                         ; Save New Cursor Position
+            JSR    VIDSCRL                    ; Scroll Data
+            JMP    VIDSCRL
+
+BTM_RTS     RTS
+
+*===============================
+*   Name: GO23   - Save Cursor, GotoXY(0,23)
+*         SVCHCV - Save Cursor, GotoXY(0,A)
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+GO23        LDA    #vidHeight-1
+SVCHCV      PHA
+            MOV    CH;OLDCH                   ; Save Old Values
+            MOV    CV;OLDCV
+            STZ    CH                         ; Position To 0,[Inparg]
+            PULL   CV
+            RTS
+
+*===============================
+*   Name: LDCHCV - Restore Cursor Position
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+LDCHCV      PHXY                              ; Save Both X & Y
+            LDX    OLDCH                      ; Position
+            LDY    OLDCV
+            JSR    VIDPOS
+            PLXY
+            RTS
+
+*===============================
+*   Name: RDKEY - Get Character From Input Device
+*
+*  Input: None
+*
+* Output: Keypress - 0 if none
+*===============================
+
+RDKEY       JSR    GETCHR                     ; Get Char From Buffer
+            BNE    OUT_RTS                    ; (If Present)
+
+            PHX
+            LDX    CV
+            JSR    VIDRDST                    ; Set Up Line Position
+            JSR    VIDRDKY                    ; Get Current Char
+            STA    BLINK                      ; Save It
+            PLX
+            STZ    TIMEOUT                    ; Setup Counter For Timeout
+            MOV    #4;TIMEOUT+1
+RDKEY2      PHA
+            JSR    VIDRDKY                    ; Read Char From Screen
+            STA    VID_Y                      ; Save It
+            IFNE   #'_'+Hibit;VID_Y;RDKEY1    ; Nope, Show The '_'
+
+            LDA    BLINK                      ; Show Original Char
+RDKEY1      JSR    VIDSTORE
+            PLA
+            TSTPL  REMOTE;RDKEY3              ; we are local
+
+            IBNE   TIMEOUT;RDKEY3             ; Do High Counter
+            DBNE   TIMEOUT+1;RDKEY3           ; do main counter
+
+            JSR    MDM1_2
+            JSR    ZAPCALL                    ; Return Without Carrier
+            BNE    RDKEY4
+
+RDKEY3      JSR    CHKKEY                     ; Check For Keypress
+            BNE    RDKEY4                     ; Nope
+
+            LDNE   MONRND;RDKEY3              ; Count Down High
+
+            LDA    MONRND+1
+            AND    #%00001111                 ; Blink?
+            BNE    RDKEY3
+            BRA    RDKEY2                     ; yes
+
+RDKEY4      PHA
+            LDA    BLINK
+            JSR    VIDSTORE                   ; Put Back Character
+            PLA
+OUT_RTS     RTS
+
+*===============================
+*   Name: COUT - Print Char In A, Check For Input
+*
+*  Input: Character To Print
+*
+* Output: None
+*===============================
+
+COUTLO      AND    #Clrhi                     ; Clear High Bit
+COUT        STX    COUT_X+1
+            STY    COUT_Y+1
+            TSTMI  INTOUT;OUT_RTS             ; If Output Interrupt
+            STA    SAVE_X
+
+            JSR    CHKKEY                     ; Check For A Char
+            BEQ    COUT1B
+
+            CPNE   #xoff;COUT0                ; Check For Ctrl-S
+
+            JSR    KEYIN2                     ; Get A Char
+            CPNE   #pass;COUT1B               ; Is It A Serial # Request?
+
+            JSR    DO_SER
+            BRA    COUT1B                     ; Dont Check For Int
+
+            DO     DEMOPGM
+SERNUM      REV    'E1.DEMO1'
+            ELSE
+SERNUM      REV    'E1.00000'
+            FIN
+SERLEN      =      *-SERNUM
+
+COUT0       TSTPL  INTBUF;COUT1A              ; See If Ints Enabled
+
+            PHA
+            JSR    CONV                       ; Convert To Upper
+            STA    COUT1+1                    ; Point To Parm [0-127]
+            PLA
+COUT1       TSTPL  INTBUF;COUT1A              ; *** Self-Modified
+
+            STZ    INTBUF                     ; No More Ints
+            DEC    INTOUT                     ; Turn On Output Interrupt
+            IFEQ   #cr;LASTCHR;COUT1C         ; was last char a CR?
+
+            JSR    COUT2                      ; Print CR
+COUT1C      MOV    COUT1+1;INTCHR             ; Get Converted Byte
+            TSTMI  INTBUF+127;OUT_RTS         ; Special Flag For (^X, ^N)
+
+COUT1A      JSR    PUTCHR                     ; Save Char In Buffer
+COUT1B      LDA    SAVE_X
+COUT2       CPEQ   #0;OUT_RTS                 ; Any Data?
+
+            STA    LASTCHR                    ; Save Last Character
+            TSTMI  REMOTE;COUT3               ; Remote Call?
+COUT2A      JMP    COUT2M                     ; Remote Call?
+
+COUT3       =      *
+            DO     DEMOPGM
+            ELSE
+            LDEQX  TERMNO;CO_NCHR2
+            TSTMI  CONVFLAG;CO_DOCNV          ; convert emulation?
+CO_NCHR2    JMP    CO_NCHR                    ; nope
+
+CO_DOCNV    TSTPL  CO_XY;CO_NOTXY             ; gotoxy sequence?
+            SEC
+            SBC    #goxyOffs                  ; make into value
+            IBEQ   CO_XY;CO_YDONE             ; which value?
+CO_SETX     STA    GOTO_X                     ; doing X, save it
+            BRA    COUT2A                     ; continue like nothing happened
+
+CO_YDONE    STA    GOTO_Y                     ; doing Y, save it and send
+            TSTMI  ANSIFLAG;CO_ANSI           ; ANSI?
+            LDX    GOTO_X                     ; get X and Y
+            LDY    GOTO_Y
+            TSTPL  OFFSNUM;CO_STDXY           ; which order?
+            PHXY                              ; reverse them
+            PLX
+            PLY
+CO_STDXY    CLC                               ; send first value
+            TXA
+            ADC    OFFSNUM
+            AND    #Clrhi
+            JSR    MDMOUT
+            CLC                               ; send other value
+            TYA
+            ADC    OFFSNUM
+            AND    #Clrhi
+CO_XY2      JSR    MDMOUT
+            BRA    COUT2A                     ; like nothing happened
+
+CO_ANSI     LDA    GOTO_Y                     ; get X
+            JSR    CO_XYDEC                   ; send it
+            LDA    #';'                       ; and the separator
+            JSR    MDMOUT
+            LDA    GOTO_X                     ; get Y
+            JSR    CO_XYDEC                   ; send it
+            LDRA   #'H';CO_XY2                ; and the terminator
+
+CO_NOTXY    TSTPL  CO_RPT;CO_NOTR             ; doing repeat?
+            IBEQ   CO_RPT;CO_CDONE            ; which pass?
+            BRA    CO_SETX
+
+CO_CDONE    TAX                               ; set counter
+            LDRA   GOTO_X;NUL_LOOP            ; get char
+
+CO_NOTR     CPGE   #' ';CO_NCHR               ; check only if ctrl
+            CPNE   #goxy;CO_NOXY              ; GotoXY Command?
+            MOVX   #-2;CO_XY                  ; need 2 chars
+            TSTPL  ANSIFLAG;CO_NOXY           ; is it ANSI?
+            LDA    #esc                       ; send lead-in
+            JSR    MDMOUT
+            LDRA   #'[';CO_XY2
+
+CO_NOXY     CPNE   #ptRepeat;CO_NORPT
+            IFEQX  TERMNO;#255;CO_NCHR
+            MOVX   #-2;CO_RPT
+            BRA    CO_NCHR
+
+CO_NORPT    LDX    #EndPTSE-V_NEWCHR          ; is it an emul char?
+FND_EMU     CPEQ   V_NEWCHR,X;GOT_EMU
+            DBPL   X;FND_EMU                  ; keep searching
+            BRA    CO_NCHR                    ; not emulation
+
+GOT_EMU     TXA                               ; get index
+            ASL    A
+            ASL    A
+            ASL    A
+            TAX
+            LDEQ   CURREMUL,X;COUT2M          ; Get length
+
+            TAY
+SNDEMUL     INX
+            LDA    CURREMUL,X                 ; Get one char
+            JSR    MDMOUT                     ; send it
+            DBNE   Y;SNDEMUL
+            BRA    COUT2M
+
+CO_NCHR     JSR    ZMDMOUT                    ; Output To Modem
+            CPNE   #cr;COUT2M                 ; Was It A CR?
+
+SNDNULS     LDEQ   NNULLS;COUT2M              ; Add Nulls?
+
+            TAX
+            LDA    #0
+NUL_LOOP    JSR    MDMOUT                     ; Send A Null
+            DBNE   X;NUL_LOOP
+
+            FIN
+COUT2M      IFNE   SAVE_X;#bel;CO_DOIT        ; Beep Speaker?
+
+            TSTMI  LASTIN;COUT_X              ; Was Last Input Remote?
+
+CO_DOIT     JSR    VIDCOUT
+
+COUT_X      LDX    #0
+COUT_Y      LDY    #0
+            RTS
+
+CO_XYDEC    JSR    MKDEC                      ; convert to decimal
+            PHA                               ; save 10s and 1s
+            PHX
+            TYA                               ; any 100s?
+            BEQ    CO_NO100                   ; nope
+            ORA    #'0'                       ; make ascii
+            JSR    MDMOUT
+CO_NO100    PLA                               ; what about 10s?
+            BEQ    CO_NO10                    ; nope
+            ORA    #'0'                       ; make ascii
+            JSR    MDMOUT
+CO_NO10     PLA                               ; always 1s
+            ORA    #'0'
+            JMP    MDMOUT
+
+*===============================
+*   Name: PR - Print Text, Normal Or Banner
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PR          PULLW  PRN
+            PHY                               ; Save Y
+PR2         JSR    INCPRN                     ; Get Next Byte
+            LDEQ   (PRN);PR4                  ; Get Byte
+            BMI    PR3A                       ; If High Bit, Banner Print
+
+            JSR    VIDCOUT                    ; Otherwise Use Normal
+            BRA    PR3B
+
+PR3A        JSR    VIDBAN                     ; Print It
+PR3B        JSR    PAUSE
+            BRA    PR2
+
+PR4         JSR    INCPRN                     ; Inc For Return
+            PLY                               ; Restore Y
+            JMP    (PRN)
+
+*===============================
+*   Name: SHOW_ERR - Print An Error Message
+*
+*  Input: A - Error Code
+*
+* Output: None
+*===============================
+
+SHOW_ERR    CPEQ   #0;ERROR2                  ; Error?
+
+            JSR    CROUT
+            IFLT   ERRNO;#Usrerr;STDERR       ; User Defined Error?
+            LDX    ERRNO                      ; Get Back Error Code
+            LDA    #0                         ; Always Less Then 256
+            TAY
+            JSR    DECOUT                     ; Print The Code
+            LDA    #Usrerr                    ; Print User Defined Message
+STDERR      JSR    PRMSG
+            JMP    CROUT                      ; And A CR
+
+*===============================
+*   Name: SHOWSTR - Print String
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SHOWSTR     PULLW  PRN                        ; Save Calling Address
+            PHXY
+            JSR    INCPRN                     ; Get Next Byte
+SHOWSTR2    LDA    (PRN)                      ; Get Data
+            PHP
+            JSR    COUTLO                     ; Show Char
+            JSR    INCPRN
+            PLP
+            BPL    SHOWSTR2                   ; End, Nope, Loop
+
+            PLXY
+            JMP    (PRN)
+
+*===============================
+*   Name: PRMSG - Print Message From Index
+*
+*  Input: X - Message Number
+*
+* Output: None
+*===============================
+
+PRTEXT      TAY
+            LDX    #PROGTEXT
+            LDA    #PROGTEXT/256
+            BRA    PRMSG0
+
+PRMSG       TAY                               ; move into count
+            LDX    #ERRMSGS                   ; set pointer
+            LDA    #ERRMSGS/256
+PRMSG0      STZ    SETSTDZP
+            STZ    SETRAM1
+            ST16   PRN
+            DEY                               ; never a zero
+PRMSG1      LDA    (PRN)                      ; get a char
+            BEQ    PRMSG3
+            INCD   PRN                        ; bump pointer
+            ASL    A                          ; end of text?
+            BCC    PRMSG1                     ; nope, loop
+            DBPL   Y;PRMSG1                   ; yes, bump counter, loop
+
+PRMSG2      LDA    (PRN)                      ; Get Data
+            BEQ    PRMSG3
+            PHP
+            STZ    SETALTZP
+            STZ    SETRAM2
+            JSR    COUTLO                     ; Show Char
+            STZ    SETSTDZP
+            STZ    SETRAM1
+            JSR    INCPRN
+            PLP
+            BPL    PRMSG2                     ; End, Nope, Loop
+
+PRMSG3      STZ    SETALTZP
+            STZ    SETRAM2
+ERROR2      RTS
+
+*===============================
+*   Name: V_RDCHAR - Read Character From Screen
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+V_RDCHAR    PHX                               ; Save X
+            JSR    VIDRDST                    ; X = Line To Read
+            LDX    CH
+            STY    CH                         ; Use Y As Offset
+            JSR    VIDRDKY                    ; Get Data On Screen
+            AND    #Clrhi
+            CPGE   #' ';VREAD                 ; Convert Inverse
+
+            ADC    #'@'                       ; Make Normal
+VREAD       STX    CH
+            PLX
+            RTS
+
+*===============================
+*   Name: PUTCHR - Save Char In Buffer
+*
+*  Input: Character To Save
+*
+* Output: None
+*===============================
+
+PUTCHR      CPEQ   #clb;CLRBUF                ; Clear The Buffer?
+
+            STZ    SETRAM1                    ; Switch In Subs
+            JSR    PUTCHR2
+            BRA    DRAM
+
+*===============================
+*   Name: CLRBUF - Clear Char Buffer
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CLRBUF      STZ    TYPIN                      ; Zero Pointers
+            STZ    TYPOUT
+            RTS
+
+*===============================
+*   Name: GETCHR - Get Char From Buffer
+*
+*  Input: None
+*
+* Output: A - Character Read
+*         A = 0: No Character
+*===============================
+
+GETCHR      LDA    #0                         ; Default To No Input
+            STZ    SETRAM1                    ; Switch In Subs
+            JSR    GETCHR2
+            BRA    DRAM
+
+*===============================
+*   Name: SVLINE - Save Screen Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SVLINE      STZ    SETRAM1
+            JSR    SVLINE2
+            BRA    DRAM
+
+*===============================
+*   Name: RSTLINE - Print Saved Screen Line
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+RSTLINE     STZ    SETRAM1
+            JSR    RSTLINE2
+DRAM        STZ    SETRAM2
+            RTS
+
+*===============================
+*   Name: DO_EXEC - Set Exec Mode, Modem Output Off
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_EXEC     LDA    #3
+            JSR    VIDCHAT                    ; Show Exec On Message
+            MOV    EXECFLG;OLDEXEC            ; Save Old Status
+            MOV    REMOTE;OLDRMT
+            MOV    #-1;EXECFLG                ; Set Exec Mode On
+            LDA    #Moment1
+            JSR    PRTEXT
+            STZ    REMOTE                     ; Set To Local I/O Mode
+            STZ    DOCHAT                     ; Reset Chat Flag
+            STZ    INCHAT                     ; No Actually In Chat
+            BRA    RSTLINE                    ; Restore Copy Of Line
+
+EXEC2       LDA    #0                         ; Get Rid Of Exec Mode Flag
+            JSR    VIDCHAT
+            LDA    #ExecOut
+            JSR    PRTEXT
+            MOV    OLDEXEC;EXECFLG            ; Restore Exec State
+            MOV    OLDRMT;REMOTE              ; Restore Remote State
+            JSR    RSTLINE                    ; Put Back Extra
+            TSTVS  DOCHAT;CHAT2               ; Check Chat Mode, do chat
+            JMP    CHAT6                      ; Finish Up
+
+*===============================
+*   Name: DO_CHAT - Chat With User
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_CHAT     BRNEW  TLEFT;CHAT1                ; Time Limit Saved?
+            BREQW  TIMEON;CHAT1               ; Is There A Limit?
+
+            JSR    SECON                      ; Get Time Used
+            ST16   TLEFT
+            SUB    TIMEON;TLEFT;TLEFT         ; set remaining time
+CHAT1       JSR    SVLINE                     ; Save Current Line
+            TSTVS  EXECFLG;EXEC2              ; exit exec mode
+            TSTVS  DOCHAT;CHAT2
+            JMP    DO_EXEC                    ; We Really Want Exec Mode
+
+CHAT2       LDA    #SysopIn
+            JSR    PRTEXT
+            MOV    #%00110000;INPMODE         ; Accept Everything
+            LDA    #2
+            JSR    VIDCHAT                    ; Turn Off Chat Message
+            STZ    DOCHAT                     ;reset chat
+CHAT4       JSR    INPLN                      ; Get A Line Of Type
+            TSTMI  LOGOFF;CHAT6
+            TSTPL  DOCHAT;CHAT4               ; Exit?
+            LDA    #SysopOut
+            JSR    PRTEXT
+            LDA    #0
+            JSR    VIDCHAT                    ; Turn Off Chat Message
+            JSR    RSTLINE                    ; Restore Line
+            TSTVS  DOCHAT;CHAT6               ; Do They Want To Exec?
+            JMP    DO_EXEC                    ; Yep
+
+CHAT6       STZ    DOCHAT                     ; Clear Chat Flag
+            STZ    INCHAT
+            BREQW  TLEFT;CHATDONE             ; Any Time To Add In?
+            BREQW  TIMEON;CHATDONE            ; How About A Limit?
+
+            JSR    SECON                      ; Get Seconds On
+            ST16   TIMEON                     ; Add In Time Remaining
+            ADD    TLEFT;TIMEON;TIMEON
+CHATDONE    STZ    TLEFT                      ; Flag Done With Hold
+            STZ    TLEFT+1
+            RTS
+
+*===============================
+*   Name: ZMDMOUT - Send Data To Modem Only
+*
+*  Input: Character To Send
+*
+* Output: None
+*===============================
+
+            DO     DEMOPGM
+ZMDMOUT     RTS
+            ELSE
+ZMDMOUT     JSR    MDMOUT                     ; Send Data
+            CPNE   #cr;ZMDM2                  ; Add LF To CR?
+
+            LDA    #lf                        ; Send LF
+            JSR    MDMOUT
+            LDA    #cr                        ; Set Back To CR
+ZMDM2       RTS
+            FIN
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/LOAD.S b/SOURCE/LLUCE/LOAD.S
new file mode 100644
index 0000000..c02bff2
--- /dev/null
+++ b/SOURCE/LLUCE/LOAD.S
@@ -0,0 +1,397 @@
+            LST    RTN
+            TTL    'LLUCE - Segment Loader'
+            PAG
+*===============================
+* Contents:
+*
+* LD_MOD   - Load module into memory
+* LOADOV   - Open and test overlay
+* LOADOV0  - Load compiler or editor overlay
+* LOGSYS   - Set to system prefix
+* MOVMAME  - Move filename from program
+* MOVNM0   - Move filename from pointer
+* OVDONE   - Restore saved prefix
+* OVERLAY  - Load overlay if not loaded
+* PREFIX   - Get or set prefix
+* SETSYSTM - Save prefix, log to system
+*===============================
+
+*===============================
+*   Name: LD_MOD - Load Module Into Memory
+*
+*  Input: None
+*
+* Output: C = 0: Load Successful
+*         C = 1: Unsuccessful Load
+*===============================
+
+LD_MOD      TSX                                    ; Save Stack Pointer
+            STX    EDSTACK
+            STZ    NOSOURCE                        ; Reset Source Flag
+            IFLTX  FLNAME;#62;LD_MOD0              ; Room For .C Or .S?
+
+            LDA    #Badfn
+            JMP    BADERR                          ; Too Long!
+
+LD_MOD0     INX
+            MOV    #'.';FLNAME,X                   ; Tack On .S Extension
+            INX
+            STX    FLNAME                          ; Fix Name Length
+            MOV    #'S';FLNAME,X
+            JSR    PD_GINFO                        ; If An Error Here,
+            LDX    FLNAME
+            MOV    #'C';FLNAME,X
+            BCC    TST_DATE
+            DBRA   NOSOURCE;LOAD0B                 ; Flag Source Not Available
+
+TST_DATE    MOVD   MOD_DATE;TEMP
+            MOVD   MOD_TIME;TEMP2
+            JSR    PD_GINFO                        ; If An Error Here,
+            IFLT   TEMP+1;MOD_DATE+1;LOAD0B
+            BNE    KILLSEG
+            IFLT   TEMP;MOD_DATE;LOAD0B
+            BNE    KILLSEG
+            IFLT   TEMP2+1;MOD_TIME+1;LOAD0B
+            BNE    KILLSEG
+            IFLT   TEMP2;MOD_TIME;LOAD0B
+KILLSEG     JSR    PD_KILL
+
+LOAD0B      LDA    #%00100001                      ; Deny Write, Request Read
+            JSR    PD_OPEN                         ; Compiled Module Available?
+            BCS    LD_MOD2                         ; Nope
+
+            PUSHA  MSGREF                          ; Save Msg Refnum
+            MOV    REFNUM;MSGREF
+            LD16   #LNBUF+$80                      ; Read Label Info
+            JSR    PD_RBLK1
+            MOVD   LNBUF+142;LOMEM                 ; Set Up Variable Space
+            LD16   MODULE                          ; Read In Rest Of Module
+            LDY    #$80
+            JSR    PD_RDBLK
+            BCS    NO_LD
+
+            JSR    PD_CLOSE
+            PULL   MSGREF                          ; Restore Msg Refnum
+            IFNE   LNBUF+138;MODULE;LD_MOD2        ; load address ok?
+            IFNE   LNBUF+139;MODULE+1;LD_MOD2
+            IFNE   LNBUF+140;#'L';LD_MOD2          ; ID bytes ok?
+            IFNE   LNBUF+141;#'P';LD_MOD2
+            IFNE   LNBUF+254;VERSION;LD_MOD2       ; version ok?
+            IFNE   LNBUF+255;VERSION+1;LD_MOD2
+            CLC
+NO_LD       LDX    EDSTACK                         ; Reset Stack Pointer
+            TXS
+            RTS                                    ; And We Are Done!
+
+*===============================
+* Go And Compile The Segment
+*===============================
+
+LD_MOD2     TSTPL  NOSOURCE;SVSEGNM                ; Source Present?
+            LDA    #Modulenf
+            JMP    BADERR
+
+SVSEGNM     LD16   #FLNSV
+            JSR    FRMFLN
+
+            LDA    #Compiler
+            JSR    TST_OVR
+
+            LD16   #FLNSV                          ; Get back segment name
+            JSR    TOFLN
+
+            IFNE   OVERBUF+3;VERSION;BADVER        ; check compiler version
+            IFEQ   OVERBUF+4;VERSION+1;VER_OK
+
+BADVER      LDA    #Badver                         ; Do Error
+            JMP    BADERR
+
+VER_OK      JSR    OVERBUF                         ; Compile It
+            CLC
+            BRA    NO_LD
+
+*===============================
+*   Name: MOVMAME - Move Filename From Program
+*         MOVNM0  - Move Filename From Pointer
+*
+*  Input: Program Pointer Or String Pointer
+*
+* Output: None
+*===============================
+
+COMNAME     JSR    GOBCOM
+            BRA    MOVNAME
+
+CL3NAME     JSR    DO_CL3
+MOVNAME     JSR    INSTR2                          ; Get Name (Dont Use Memory)
+MOVNM0      MOVY   STRLEN;FLNAME                   ; Move Length Of Filename
+            BEQ    NAMEOK                          ; If No Name, Return
+
+CHKSYN      DBMI   Y;NAMEOK
+
+            IFEQ   (STRLOC),Y;#'.';SYN_FRST        ; Is it a ., cant be first
+            CPEQ   #'/';SYN_SEP                    ; Is it a separator?
+            CPEQ   #'\';SYN_SEP
+            CPEQ   #':';SYN_SEP
+
+            JSR    TST_ALF
+            BCC    SYN_OK                          ; All letters ok
+
+            JSR    TST_NUM                         ; Numbers ok if not first
+            BCC    SYN_FRST
+
+            LDA    #'.'                            ; Invalid char, make '.'
+SYN_FRST    CPNEY  #0;SYN_OK                       ; first char?, cant be # of .
+            JMP    BADNAME
+
+SYN_SEP     LDA    #'/'
+SYN_OK      STA    FLNAME+1,Y                      ; Save it in buffer
+            BRA    CHKSYN
+
+*===============================
+*   Name: OVERLAY - Load Overlay If Not Loaded
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+OVERLAY     JSR    SETSYSTM                        ; Point To System Directory
+            JSR    MOVNAME                         ; Move In The Name
+            STZ    PRN                             ; Allow Any Overlay
+            JSR    LOADOV                          ; Load It In
+            JMP    OVERBUF                         ; Go To It
+
+*===============================
+*   Name: LOADOV0 - Load Compiler Or Editor Overlay
+*
+*  Input: X, A, Y - Pointer To Overlay Filename
+*         PRN     - Overlay Type
+*                   0 - Any Type
+*                   1 - Compiler
+*                   2 - Editor
+*
+* Output: None
+*===============================
+
+LOADOV0     ST16   STRLOC                          ; Save Overlay Name Pointer
+            STY    STRLEN
+            PUSHA  PRN                             ; Movname Kills PRN If List
+            JSR    SETSYSTM                        ; Point To System Directory
+            JSR    MOVNM0                          ; Move In The Name
+            PULL   PRN
+            JSR    LOADOV                          ; Load It In
+NAMEOK      RTS
+
+*===============================
+*   Name: LOADOV - Open And Test Overlay
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+LOADOV      LDA    #%00100001                      ; Deny Write, Request Read
+            JSR    IFOPEN                          ; Open The File
+            BCS    LDOVERR
+
+            STZ    PRN+1                           ; Zero Checksum
+            LDX    #0                              ; Read In The 8 Id Bytes
+LDOVLUP1    JSR    PD_RDBYT
+            STA    OVIDTEST,X
+            INX
+            CPLTX  #8;LDOVLUP1
+
+            LDA    #0                              ; Reset Test Counter
+            LDX    #0                              ; Check Overlay IDs
+LDOVLUP2    EOR    OVIDTEST,X
+            INX
+            CPLTX  #4;LDOVLUP2
+
+            EOR    #%10100101                      ; And Checksum
+            BNE    LDOVERR                         ; Checksum Bad, Error Out
+
+            LDEQ   PRN;OV3                         ; Specific Overlay Type, any
+            CPNE   OVIDTEST;LDOVERR                ; Correct Overlay Type?
+
+OV3         LDX    #7                              ; Are They Whats There Now?
+CPYID       IFNE   OVIDTEST,X;OVERLYID,X;DOLOADOV  ; nope, load it
+            DBPL   X;CPYID
+
+            JSR    OVCRCTST                        ; Check Overlay CRC
+            BNE    DOLOADOV
+            BRA    OVDONE                          ; Yes, Close It Up
+
+*===============================
+* Load In The Overlay
+*===============================
+
+DOLOADOV    MOVD   #OVERBUF;TEMP2                  ; Point To Overlay Buffer
+            STZ    SAVE_Y                          ; Save First Flag
+NXTCHNK     LD16   #LNBUF                          ; Read Next Chunk (If Any)
+            LDY    #2                              ; Read 2 - 128 Byte Pages
+            JSR    PD_RDBLK
+            BCC    DOMOVE                          ; If There, Go Move It
+
+*-------------------------------
+* Nothing To Read:
+*-------------------------------
+
+            LDNE   SAVE_Y;DONE                     ; First Chunk?
+
+LDOVERR     JSR    OVDONE                          ; Finish With The File
+            STZ    ONERRFLG                        ; Cant Trap This One
+            JMP    BADEXT
+
+DOMOVE      JSR    MOVEOVER                        ; Move This Chunk
+            INC    SAVE_Y                          ; Finished With First Chunk
+            BCC    NXTCHNK                         ; Go Read It.
+
+*-------------------------------
+* Buffer Full, Fall Through
+*-------------------------------
+
+DONE        JSR    OVCRCTST                        ; Check Overlay CRC
+            BNE    LDOVERR
+
+            LDX    #7                              ; Save The New Ids
+MOVID       MOV    OVIDTEST,X;OVERLYID,X
+            DBPL   X;MOVID
+
+OVDONE      JSR    PD_CLOSE                        ; Close Up The File
+
+            LD16   #PFXSAVE                        ; Reset to original prefix
+            JSR    TOFLN
+
+            JMP    SET_PFX                         ; Finished
+
+*===============================
+* Move Chunk Of Overlay
+*===============================
+
+MOVEOVER    MOVD   #LNBUF;TEMP                     ; Point To Buffer
+            LDY    #0                              ; Move It All
+MVOVLY      MOV    (TEMP),Y;(TEMP2),Y
+            IBNE   Y;MVOVLY
+
+            INC    TEMP2+1                         ; Point To Next Page
+            LDA    TEMP2+1                         ; Buffer Full?
+            CMP    #>OVERBUF+$2000
+            RTS
+
+*===============================
+* Check Overlay Checksum & Type
+*===============================
+
+TST_OVR     STA    PRN
+            CPNE   OVERLYID+3;GET_OVR              ; Correct Overlay?
+
+            EOR    OVERLYID+2                      ; Valid Id Bytes?
+            EOR    OVERLYID+1
+            EOR    #%10100101
+            EOR    OVERLYID
+            BNE    GET_OVR                         ; No, Load
+
+            JSR    OVCRCTST                        ; Check Overlay CRC
+            BNE    GET_OVR
+
+            RTS
+
+*===============================
+* Point To Overlay Name
+*===============================
+
+GET_OVR     PHXY                                   ; Load In The Editor
+            IFNE   PRN;#Editid;GETCOMP             ; Looking For Editor?
+
+            LD16   #EDNAME+1
+            LDRAY  EDNAME;DO_OVR
+
+GETCOMP     LD16   #COMPNAME+1
+            LDY    COMPNAME
+DO_OVR      JSR    LOADOV0                         ; Load It In
+            PLXY
+            RTS
+
+*===============================
+*   Name: SETSYSTM - Save Prefix, Log To System
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+SETSYSTM    JSR    PD_GPFX                         ; Get Current Prefix
+
+            LD16   #PFXSAVE                        ; Save for later
+            JSR    FRMFLN
+
+            JSR    LOGSYS                          ; Set To The System Prefix
+
+            LD16   #SYSNAME                        ; And add SYSTEM
+            JSR    TOFLN
+            BRA    SET_PFX                         ; Do It
+
+*===============================
+*   Name: LOGSYS - Set To System Prefix
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+LOGSYS      LD16   #SYSPFX                         ; Move system prefix
+            JSR    TOFLN                           ; to filename buffer
+
+SET_PFX     JSR    PD_SPFX                         ; Go And Set It
+            BCC    PFXOK
+
+            LDA    #Badpfx
+            JMP    BADERR                          ; Prefix Not There
+
+PFXOK       RTS
+
+*===============================
+*   Name: PREFIX - Get Or Set Prefix
+*
+*  Input: Program Pointer
+*
+* Output: Prefix/None
+*===============================
+
+PREFIX      BCC    GET_PFX                         ; Getting The Prefix
+
+            IFEQ   (PRGPTR);#Chain;LOGSYS          ; is there a prefix?
+            CPEQ   #Chain2;LOGSYS
+
+            JSR    MOVNAME                         ; Get The Name
+            LDEQ   FLNAME;LOGSYS                   ; Check For Prefix Given
+            BRA    SET_PFX                         ; Go And Set It
+
+GET_PFX     JSR    PD_GPFX                         ; Get Current Prefix
+            LD16   #FLNAME+1                       ; point to string
+            LDY    FLNAME
+            JMP    SVSTR
+
+*===============================
+* Test Overlay CRC
+*===============================
+
+OVCRCTST    MOVD   #OVERBUF;TEMP                   ; Point To Overlay
+            MOVD   OVIDTEST+4;TEMP2                ; Get Length To Test
+            STZ    CRC
+            STZ    CRC+1
+OVCRCLUP    LDA    (TEMP)                          ; Add In A Byte
+            JSR    ADDCRC
+            INCD   TEMP                            ; Bump Pointer Up
+            DECD   TEMP2                           ; Bump Counter Down
+            DEC    A
+            ORA    TEMP2+1
+            BNE    OVCRCLUP
+
+            IFNE   OVIDTEST+6;CRC;OVTST3           ; CRCs match?
+            LDA    OVIDTEST+7
+            CMP    CRC+1
+OVTST3      RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/MATH.S b/SOURCE/LLUCE/MATH.S
new file mode 100644
index 0000000..3980eb3
--- /dev/null
+++ b/SOURCE/LLUCE/MATH.S
@@ -0,0 +1,417 @@
+            LST    RTN
+            TTL    'LLUCE - Math Routines'
+            PAG
+*===============================
+* Contents:
+*
+* ABS      - 24 Bit Absolute Value
+* ADDITION - 24 Bit Addition
+* DECREMNT - decrement variable
+* DIVIDE   - 24 Bit Division
+* DO_MATH  - save 24 bit math data
+* DO_MUL0  - Actual Multiply Routine
+* INCREMNT - increment variable
+* MATH_16  - save 16 bit math data
+* MOD      - 24 Bit Modulo
+* MULTIPLY - 24 Bit Multiplication
+* SHFTLFT  - 24 Bit shift left
+* SHFTRGT  - 24 Bit shift right
+* SUBTRACT - 24 Bit Subtraction
+* Also contains all logic and numeric compares
+*===============================
+
+*===============================
+*   Name: SHFTLFT - 24 Bit shift left
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+SHFTLFT     PUSH3  NUMB                     ; Save Old Number
+            JSR    INPMATH                  ; Get Next Part
+            PULL3  DATA+1
+
+SL_LOOP     ASL    DATA+1
+            ROL    DATA+2
+            ROL    DATA+3
+            JSR    NUMBSUB1
+            JSR    NUMBZERO
+            BNE    SL_LOOP
+            JSR    GETDATA
+            JMP    DO_MATH                  ; Finish Up
+
+*===============================
+*   Name: SHFTRGT - 24 Bit shift right
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+SHFTRGT     PUSH3  NUMB                     ; Save Old Number
+            JSR    INPMATH                  ; Get Next Part
+            PULL3  DATA+1
+
+SR_LOOP     LSR    DATA+3
+            ROR    DATA+2
+            ROR    DATA+1
+            JSR    NUMBSUB1
+            JSR    NUMBZERO
+            BNE    SR_LOOP
+            JSR    GETDATA
+            JMP    DO_MATH                  ; Finish Up
+
+*===============================
+*   Name: ADDITION - 24 Bit Addition
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+INCREMNT    BVS    INC_3
+            BCC    INC_2
+INC_0       JSR    INPNUM0A
+INC_1       JSR    NUMBADD1
+            JSR    GETNUMB
+            JMP    DO_LET8A
+
+INC_2       JSR    GETNUMB
+            SVXAY
+            JSR    INC_1
+            RSTXAY
+            BRA    DO_MATH
+
+INC_3       JSR    INC_0
+            JSR    GETNUMB
+            BRA    DO_MATH
+
+ADDITION    PUSH3  NUMB                     ; Save Old Number
+            JSR    INPMATH                  ; Get Next Part
+            CLC
+            PLA
+            ADC    NUMB                     ; Do Add
+            TAX                             ; Low Byte In X
+            PLA
+            ADC    NUMB+1
+            TAY
+            PLA
+            ADC    NUMB+2
+            PHA
+            TYA                             ; Mid Byte In A
+            PLY                             ; High Byte In Y
+            BRA    DO_MATH                  ; Finish Up
+
+*===============================
+*   Name: SUBTRACT - 24 Bit Subtraction
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+DECREMNT    BVS    DEC_3
+            BCC    DEC_2
+DEC_0       JSR    INPNUM0A
+DEC_1       JSR    NUMBSUB1
+            JSR    GETNUMB
+            JMP    DO_LET8A
+
+DEC_2       JSR    GETNUMB
+            SVXAY
+            JSR    DEC_1
+            RSTXAY
+            BRA    DO_MATH
+
+DEC_3       JSR    DEC_0
+            JSR    GETNUMB
+            BRA    DO_MATH
+
+SUBTRACT    PUSH3  NUMB                     ; Save Initial Value
+            JSR    INPMATH                  ; Get Other Amount
+            SEC
+            PLA
+            SBC    NUMB
+            TAX                             ; Do Actual Subtraction
+            PLA
+            SBC    NUMB+1
+            TAY
+            PLA
+            SBC    NUMB+2
+            PHA
+            TYA
+            PLY
+            SKIP2
+
+MATH_16     LDY    #0
+DO_MATH     JSR    SAVEDATA                 ; Save Result
+            PHA
+            MOV    #1;DATA                  ; Set Data Type 1
+            PLA
+            RTS
+
+*===============================
+*   Name: MULTIPLY - 24 Bit Multiplication
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+MULTIPLY    JSR    DO_MLDV                  ; Command Mult/Divd
+            JSR    DO_MUL0                  ; Do Multiply
+
+*===============================
+* Finish Up Routine For Signed Operands
+*===============================
+
+DO_MLD2     LD24   RESULT                   ; Is It Apparently Neg.?
+            BPL    DO_MLD3                  ; Nope, In Range
+
+            LDA    #Numtobig
+            JMP    BADERR                   ; Number Too Large
+
+DO_MLD3     TSTPL  SIGN;DO_MATH             ; Supposed To Be Positive?
+
+            JSR    NEGAXY                   ; Invert It..
+            BRA    DO_MATH
+
+DO_MLDV     JSR    GETNUMB                  ; Save First Number
+            STY    SIGN                     ; Set For Negative
+            JSR    DO_ABS1                  ; Make Sure Its Positive
+            JSR    SAVEDATA
+            JSR    INPNUM0                  ; Get Next Number
+            LDA    NUMB+2
+            EOR    SIGN                     ; (+/+)=+ (-/-)=+
+            STA    SIGN                     ; (-/+)=- (+/-)=-
+            JSR    GETNUMB
+            JSR    DO_ABS1
+            JMP    SAVENUMB
+
+*===============================
+*   Name: DO_MUL0 - Actual Multiply Routine
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+DO_MUL0     STZ    SETRAM1
+            JSR    DO_MUL00
+            BRA    DRAM4
+
+*===============================
+*   Name: DIVIDE - 24 Bit Division
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+DIVIDE      JSR    DO_DIV1                  ; Do Divide
+            JMP    DO_MLD2
+
+*===============================
+*   Name: MOD - 24 Bit Modulo
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+MOD         JSR    DO_DIV1                  ; Do Divide
+            MOV24  REMAIN;RESULT            ; Get Remainder
+            JMP    DO_MLD2                  ; Finish Up
+
+DO_DIV1     JSR    DO_MLDV
+            STZ    SETRAM1
+            JSR    DO_DIV1A
+DRAM4       STZ    SETRAM2
+            RTS
+
+*===============================
+*   Name: ABS - 24 Bit Absolute Value
+*
+*  Input: None
+*
+* Output: X, A, Y = Result
+*===============================
+
+ABS         JSR    INPARG
+            JSR    GETNUMB                  ; Get Number
+            JSR    DO_ABS1                  ; Get Abs
+            JMP    DO_MATH                  ; Finish Up
+
+DO_ABS1     CPPLY  #0;DO_ABS2               ; If It Is Already Ok
+
+NEGAXY      JSR    NOT_XAY
+
+            IBNE   X;DO_ABS2                ; And Add 1
+            IBNE   A;DO_ABS2
+
+            INY
+DO_ABS2     RTS
+
+NOT_XAY     EOR    #-1                      ; Not Positive, Invert It
+            PHA
+            TXA
+            EOR    #-1
+            TAX
+            TYA
+            EOR    #-1
+            TAY
+            PLA
+            RTS
+
+*===============================
+* Compare Routines
+*===============================
+
+EQUAL       JSR    CP_ST                    ; Compare For Equal
+            JSR    CMPEQ
+            JMP    DO_MATH
+
+NOTEQU      JSR    CP_ST                    ; Compare If Not Equal
+            JSR    CMPEQ                    ; Just Inverse Compare Equal
+            JSR    INVERT
+            JMP    DO_MATH
+
+LESS        JSR    CP_ST                    ; Compare If Less Than
+            JSR    CP_LTGT
+            JSR    CMPLT
+            BRA    CP_END
+
+GREATER     JSR    CP_ST                    ; Compare If Greater Than
+            JSR    CP_LTGT
+            JSR    CMPGT
+            BRA    CP_END
+
+LESSEQU     JSR    CP_ST                    ; Compare <=
+            JSR    CP_LTGT
+            JSR    CMPGT                    ; Invert, >
+            JSR    INVERT
+            BRA    CP_END
+
+GREQU       JSR    CP_ST                    ; Compare =>
+            JSR    CP_LTGT
+            JSR    CMPLT                    ; Invert, <
+            JSR    INVERT
+            BRA    CP_END
+
+AND         JSR    CP_ST                    ; bitwise AND 2 Numbers
+            LDA    NUMB
+            AND    DATA+1
+            TAX
+            LDA    NUMB+2
+            AND    DATA+3
+            TAY
+            LDA    NUMB+1
+            AND    DATA+2
+            BRA    CP_END
+
+OR          JSR    CP_ST                    ; bitwise OR 2 Numbers
+            LDA    NUMB
+            ORA    DATA+1
+            TAX
+            LDA    NUMB+2
+            ORA    DATA+3
+            TAY
+            LDA    NUMB+1
+            ORA    DATA+2
+            BRA    CP_END
+
+XOR         JSR    CP_ST                    ; bitwise EOR 2 Numbers
+            LDA    NUMB
+            EOR    DATA+1
+            TAX
+            LDA    NUMB+2
+            EOR    DATA+3
+            TAY
+            LDA    NUMB+1
+            EOR    DATA+2
+CP_END      JMP    DO_MATH
+
+BIN_NOT     JSR    INPNUM                   ; bitwise NOT
+            JSR    NOT_XAY
+            BRA    CP_END
+
+CP_ST       PUSH3  NUMB                     ; Compare Start
+            JSR    INPMATH
+            PULL3  DATA+1
+            RTS
+
+CP_LTGT     LDA    DATA+3                   ; Invert Sign Bits
+            EOR    #Hibit
+            STA    DATA+3
+            LDA    NUMB+2
+            EOR    #Hibit
+            STA    NUMB+2
+            RTS
+
+*===============================
+* Logic Operations
+*===============================
+
+LOGICAND    LDX    #0                       ; Logical AND 2 numbers
+            JSR    NUMBZERO
+            BEQ    CMP2
+            BREQ3  DATA+1;CMP2
+            BRA    CMP1
+
+LOGICOR     LDX    #0                       ; Logical OR 2 numbers
+            JSR    NUMBZERO
+            BNE    CMP1
+            BREQ3  DATA+1;CMP2
+            BRA    CMP1
+
+CMPEQ       LDX    #0                       ; Compare Equal
+            IFNE   NUMB;DATA+1;CMP2
+            IFNE   NUMB+1;DATA+2;CMP2
+            IFNE   NUMB+2;DATA+3;CMP2
+CMP1        INX
+CMP2        LDA    #0
+            TAY
+            RTS
+
+CMPLT       LDX    #0                       ; Compare Less Than
+            IFLT   NUMB+2;DATA+3;CMP2
+            BNE    CMP1
+            IFLT   NUMB+1;DATA+2;CMP2
+            BNE    CMP1
+            IFEQ   NUMB;DATA+1;CMP2
+            BLT    CMP2
+            BGE    CMP1
+
+CMPGT       LDX    #0                       ; Compare Greater Than
+            IFLT   DATA+3;NUMB+2;CMP2
+            BNE    CMP1
+            IFLT   DATA+2;NUMB+1;CMP2
+            BNE    CMP1
+            IFEQ   DATA+1;NUMB;CMP2
+            BLT    CMP2
+            BRA    CMP1
+
+*===============================
+* Name: NOT - logical "Not" A Value
+*===============================
+
+LOGICNOT    JSR    INPNUM                   ; Get Value
+            STXY   TEMP
+            LDX    #1
+            ORA    TEMP                     ; See If Zero Or Non-Zero
+            ORA    TEMP+1
+            BEQ    DO_NOT2
+
+            DEX
+DO_NOT2     TXA
+            JMP    SVDATA                   ; Save Result
+
+INVERT      PHA                             ; Change Bit 0
+            TXA
+            EOR    #%00000001
+            TAX
+            PLA
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/MEMORY.S b/SOURCE/LLUCE/MEMORY.S
new file mode 100644
index 0000000..0677e37
--- /dev/null
+++ b/SOURCE/LLUCE/MEMORY.S
@@ -0,0 +1,282 @@
+            LST    RTN
+            TTL    'LLUCE - Memory Commands'
+            PAG
+*===============================
+* Contents:
+*
+* BYTE   - Byte Command
+* CALL   - Call A Machine-Language Routine
+* FILL   - Fill A Range Of Memory
+* FLAG   - Flag Command
+* MOVE   - Move Memory
+* NIBBLE - Nibble Command
+* PEEK   - Peek A Location
+* POKE   - Poke A Value
+* RAM    - Get Location Of Scratch RAM
+* WORD   - Word Command
+*===============================
+
+*===============================
+* Name: FLAG - Flag Command
+*===============================
+
+FLAG        IFEQ   (PRGPTR);#'('+Hibit;FLAG2    ; Is There An Arg?
+
+            TSTPL  IMMDEF;FLAG1                 ; Was It An Assignment?
+
+            JSR    EQUNUM16                     ; Get Location
+            ST16   FLGPTR
+            RTS
+
+FLAG1       LD16   FLGPTR                       ; Get Current Pointer
+            JMP    MATH_16                      ; And Return
+
+FLAG2       BIT    IMMDEF                       ; Check Exec Status
+            PHP                                 ; And Save It
+            JSR    INPNARG6                     ; Get Arg
+            TXA
+            AND    #%00000111                   ; Save Bit Number
+            TAX
+            MOV    BITVAL,X;TEMP2               ; Convert To Bit Value
+            LSR    NUMB+1                       ; Divide By 8
+            ROR    NUMB
+            LSR    NUMB+1
+            ROR    NUMB
+            LSR    NUMB+1
+            ROR    NUMB
+            ADD    FLGPTR;NUMB;TEMP             ; Add In Flag Location
+            PLP
+            BMI    FLAG4                        ; Set Bit..
+
+            LDA    (TEMP)                       ; Get Byte
+            AND    TEMP2                        ; And Value
+            BEQ    FLAG3
+
+            LDA    #1                           ; Return Flag Setting
+FLAG3       JMP    SVDATA
+
+FLAG4       JSR    EQUNUM
+            BREQW  FLGPTR;FLAG7                 ; Has FLAG pointer been set?
+
+            BRNE3  NUMB;FLAG5                   ; Check For Zero
+
+            LDA    TEMP2                        ; Get Bit
+            EOR    #-1                          ; Make Into Mask
+            AND    (TEMP)                       ; Kill Bit
+            BRA    FLAG6                        ; Save
+
+FLAG5       LDA    TEMP2                        ; Get Bit
+            ORA    (TEMP)                       ; Add In
+FLAG6       STA    (TEMP)                       ; Save
+FLAG7       RTS
+
+*===============================
+* Name: NIBBLE - Nibble Command
+*===============================
+
+NIBBLE      IFEQ   (PRGPTR);#'('+Hibit;NIBBLE2
+
+            TSTPL  IMMDEF;NIBBLE1               ; get address
+
+            JSR    EQUNUM16
+            ST16   NIBPTR                       ; Save Pointer
+            RTS
+
+NIBBLE1     LD16   NIBPTR                       ; Get Point To Nibble
+            JMP    MATH_16
+
+NIBBLE2     BIT    IMMDEF                       ; Is This An Assignment?
+            PHP
+            JSR    INPNARG6                     ; Get Arg
+            LSR    NUMB+1                       ; Divide By 2
+            ROR    NUMB
+            ROR    A                            ; Put Low Bit (C) In N
+            STA    TEMP2                        ; Save It
+            ADD    NUMB;NIBPTR;TEMP             ; Add In Nibble Location
+            PLP
+            BMI    NIBBLE4                      ; Assignment
+
+            LDA    (TEMP)                       ; Get Byte
+            TSTPL  TEMP2;NIBBLE3
+
+            LSR    A                            ; Shift Down
+            LSR    A
+            LSR    A
+            LSR    A
+NIBBLE3     AND    #%00001111                   ; Get Rid Of Any Extra
+            JMP    SVDATA
+
+NIBBLE4     JSR    EQUNUM8
+            BREQW  NIBPTR;NIBBLE8               ; Pointer Set Yet?
+
+            TXA                                 ; Get Data
+            CPLT   #16;NIBBLE5                  ; In Range?
+
+            LDA    #15                          ; Set To Max
+NIBBLE5     STA    TEMP3                        ; Save
+            ASL    A                            ; Save X 16
+            ASL    A
+            ASL    A
+            ASL    A
+            STA    TEMP3+1
+            TSTMI  TEMP2;NIBBLE6                ; Do Appropriate Save
+
+            LDA    (TEMP)                       ; Get Orig Byte
+            AND    #%11110000                   ; Kill Old
+            ORA    TEMP3                        ; Insert New
+            BRA    NIBBLE7                      ; Save
+
+NIBBLE6     LDA    (TEMP)                       ; Get Orig Byte
+            AND    #%00001111                   ; Kill Old Stuff
+            ORA    TEMP3+1                      ; Insert New
+NIBBLE7     STA    (TEMP)                       ; Save
+NIBBLE8     RTS
+
+*===============================
+* Name: BYTE - Byte Command
+*===============================
+
+BYTE        IFEQ   (PRGPTR);#'('+Hibit;BYTE2
+
+            TSTPL  IMMDEF;BYTE1                 ; Get Location?
+
+            JSR    EQUNUM16
+            ST16   BYTPTR                       ; Save New Pointer
+            RTS
+
+BYTE1       LD16   BYTPTR                       ; Return Current Pointer
+            JMP    MATH_16
+
+BYTE2       BIT    IMMDEF                       ; Is This An Assignment?
+            PHP
+            JSR    INPNARG6                     ; Get Arg
+            ADD    NUMB;BYTPTR;TEMP             ; Add In Byte Location
+            PLP
+            BMI    BYTE3                        ; Yep -- ^^^^
+
+            LDA    (TEMP)                       ; Get Data
+            JMP    SVDATA
+
+BYTE3       JSR    EQUNUM8                      ; Get Value
+            BREQW  BYTPTR;BYTE4                 ; Pointer Set Yet?
+
+            TXA
+            STA    (TEMP)                       ; Save Value
+BYTE4       RTS
+
+*===============================
+* Name: WORD - Word Command
+*===============================
+
+WORD        IFEQ   (PRGPTR);#'('+Hibit;WORD2
+
+            TSTPL  IMMDEF;WORD1                 ; Get Location?
+
+            JSR    EQUNUM16
+            ST16   WORDPTR                      ; Save New Pointer
+            RTS
+
+WORD1       LD16   WORDPTR                      ; Return Current Pointer
+            JMP    MATH_16
+
+WORD2       BIT    IMMDEF                       ; Is This An Assignment?
+            PHP
+            JSR    INPNARG6                     ; Get Arg
+            CLC                                 ; Divide By 2 (2 Bytes)
+            ASL    NUMB
+            ROL    NUMB+1
+            ADD    NUMB;WORDPTR;TEMP            ; Add In Word Location
+            PLP
+            BMI    WORD3                        ; Yep -- ^^^^
+
+            LDY    #1
+            LDA    (TEMP)                       ; Get Data Low Byte
+            TAX
+            LDA    (TEMP),Y                     ; Hi Byte
+            JMP    MATH_16
+
+WORD3       JSR    EQUNUM16                     ; Get Value
+            TAY
+            BREQW  WORDPTR;WORD4                ; Pointer Set Yet?
+
+            TYA
+            LDY    #1
+            STA    (TEMP),Y                     ; Save Value
+            TXA                                 ; Low Byte In X
+            STA    (TEMP)
+WORD4       RTS
+
+*===============================
+* Name: RAM - Get Location Of Scratch RAM
+*===============================
+
+RAM         LDA    (PRGPTR)                     ; Use Default RAM?
+            LDX    #0
+            CPNE   #'('+Hibit;DEFRAM            ; Yes
+
+            JSR    INPNARG8                     ; Get The Arg
+            CPGEX  #4;RAM_ERR                   ; In Range (0-3)?
+
+DEFRAM      CLC                                 ; Add To High Byte Of RAM
+            TXA                                 ; Location
+            ADC    #>SCRATCH
+            LDX    #<SCRATCH
+            JMP    MATH_16                      ; Return It
+
+RAM_ERR     JMP    SYNTAX
+
+*===============================
+* Name: PEEK - Peek A Location
+*===============================
+
+PEEK        JSR    INPNARG6                     ; Get Arg
+            ST16   TEMP
+            LDA    (TEMP)                       ; Get Value
+            JMP    SVDATA                       ; Return In
+
+*===============================
+* Name: POKE - Poke A Value
+*===============================
+
+POKE        JSR    NUM2TMP                      ; Get Place To Poke
+            JSR    COMNUM8                      ; Get Value
+            TXA
+            STA    (TEMP)
+            RTS
+
+*===============================
+* Name: CALL - Call A Machine-Language Routine
+*===============================
+
+CALL        JSR    NUM2TMP                      ; Get Address
+            JMP    (TEMP)                       ; Transfer Control
+
+*===============================
+* Name: FILL - Fill A Range Of Memory
+*===============================
+
+FILL        JSR    RWPTRS
+            JSR    COMNUM8                      ; Get Byte To Fill With
+FILL2       TXA
+            STA    (TEMP2)                      ; Fill
+            JSR    COUNTUP
+            BNE    FILL2                        ; Yes, Do More
+
+            RTS
+
+*===============================
+* Name: MOVE - Move Memory
+*===============================
+
+MOVE        JSR    RWPTRS
+            LDX    #To
+            JSR    GOBBLE                       ; Gobble TO Statement
+            JSR    NUM2TMP                      ; Get Destination Address
+MOVE2       MOV    (TEMP2);(TEMP)               ; Copy Byte
+            INCD   TEMP                         ; Increment Source
+            JSR    COUNTUP
+            BNE    MOVE2                        ; Nope
+
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/MISC.CMDS.S b/SOURCE/LLUCE/MISC.CMDS.S
new file mode 100644
index 0000000..4224cde
--- /dev/null
+++ b/SOURCE/LLUCE/MISC.CMDS.S
@@ -0,0 +1,450 @@
+            LST    RTN
+            TTL    'LLUCE - Misc Commands'
+            PAG
+*===============================
+* Contents:
+*
+* ANSI     - Set/reset ANSI mode
+* CLEAR    - Clear Command
+* CONVERT  - Set/reset convert emulation flag
+* DEBUG    - Break into debugger
+* EDIT     - Edit Command
+* FLASH    - Set GS screen color change
+* LET      - Let Statement
+* MODE     - Read Or Set Backspace Mode
+* NET      - Lock Out Other Computer Writing
+* NOT      - "Not" A Value
+* PDL      - Read Status Of A Paddle
+* RND      - Get A Random Number
+* RNDSTR   - Generate A Random Character
+* SET      - Set Up Variable Pointers
+*===============================
+
+*===============================
+* Name: CLEAR - Clear Command
+*===============================
+
+CLEAR       IFEQ   (PRGPTR);#Gosub;CLRSTK       ; what clear?
+            CPEQ   #Key;CLRKEY                  ; Key?
+            CPNE   #'#'+Hibit;CLRSMT            ; How About Device?
+
+*-------------------------------
+* Clear A Device
+*-------------------------------
+
+            JSR    BYTNUM8
+            CPEQX  #ioEditor;CLR_ED             ; Clear Editor?
+            CPNEX  #ioRamDsk;CLRRTS             ; Ram Drive?
+
+            MOV    #0;RAMPTR                    ; Clear Ram Drive
+            JSR    RAMOUT
+            STA    RAMPTR
+CLRRTS      RTS
+
+*-------------------------------
+* Clear The Editor
+*-------------------------------
+
+CLR_ED      JMP    ED_CLR
+
+*-------------------------------
+* Clear The Gosub Stack
+*-------------------------------
+
+CLRSTK      STZ    GSBLVL                       ; Reset Gosub Stack
+            BRA    EATBYT
+
+*-------------------------------
+* Clear The Keyboard Buffer
+*-------------------------------
+
+CLRKEY      STZ    TYPIN                        ; Reset Type-Ahead Buffer
+            STZ    TYPOUT
+EATBYT      JMP    GETBYT                       ; Gobble!
+
+*-------------------------------
+* Clear Statement
+*-------------------------------
+
+CLRSMT      STZ    SETRAM1                      ; Switch In Subs
+            JSR    CLRSMT2
+            STZ    SETRAM2                      ; Switch Out Subs
+            STZ    DOLVL                        ; Reset IF stack pointer
+            STZ    WHILELVL                     ; Reset WHILE stack pointer
+            STZ    WHATLVL                      ; Reset what loop stack
+            RTS
+
+*===============================
+* Name: LET - Let Statement
+*===============================
+
+LET         IFNE   (PRGPTR);#String;DO_LET0     ; Not String, Dont Check
+
+            JSR    CHKFRE                       ; Check For Low Memory
+DO_LET0     JSR    VARSET                       ; Set Pointers To Variable
+
+            PUSHA  VNAME
+            PUSHW  VPTR                         ; Save Var Address
+            PUSHA  VNAME
+            BMI    DO_LET0A
+
+            IFLT   (PRGPTR);#Incremnt;DO_LET0A  ; assignment?
+            CPGE   #Mod;DO_LET0A
+
+            PHA                                 ; save type for later
+            JSR    INPNUM0X
+            CLV
+            JSR    INPNUM2                      ; do function
+            STA    TEMP+1
+            PLA                                 ; get type back
+            CMP    #Incremnt+2                  ; increment or decrement?
+            LDA    TEMP+1
+            BLT    INC_DEC                      ; yeah, dont need result
+            BRA    DO_LET2
+
+INC_DEC     PLA                                 ; throw out new? value
+            PLA
+            PLA
+            PLA
+            RTS
+
+DO_LET0A    JSR    GOBEQU
+
+            PLA
+            PHA
+            BPL    DO_LET1                      ; Or Number
+
+            JSR    INPSTR                       ; Get String Address/Length
+            BRA    DO_LET2
+
+DO_LET1     JSR    INPNUM
+DO_LET2     ST16   TEMP                         ; Save Data
+            STY    SAVE_Y
+            PLA
+            PULLW  VPTR                         ; Point Back At Var
+
+            PLA
+            BPL    DO_LET9                      ; If Numeric
+
+            LDY    #1                           ; Get Last Variable Address
+            MOV    (VPTR);TEMP2
+            MOV    (VPTR),Y;TEMP2+1
+            BEQ    DO_LET6
+
+            JSR    CHKMEM2                      ; In normal memory?
+            BCC    DO_LET5                      ; yes, treat as normal
+
+DO_LET3     INY                                 ; Get String Length
+            LDA    (VPTR),Y
+            TAX
+            LDY    #0                           ; Move String
+DO_LET4     MOV    (TEMP),Y;(TEMP2),Y
+            INY
+            CPGEY  STRLEN;DO_LET4B              ; past length of source str?
+            DBNE   X;DO_LET4
+            RTS
+
+DO_LET4A    MOV    #' ';(TEMP2),Y               ; fill with spaces
+            INY
+DO_LET4B    DBNE   X;DO_LET4A
+            RTS
+
+DO_LET5     CPLT   LOMEM+1;DO_LET6              ; In Variable Space
+            BNE    DO_LET9
+            IFGE   TEMP;LOMEM;DO_LET9           ; Its In String Space
+
+DO_LET6     LDY    #0                           ; String -> String Space
+DO_LET7     CPEQY  SAVE_Y;DO_LET8               ; Done With String?
+
+            MOV    (TEMP),Y;(VARSTR),Y          ; Move A Byte
+            IBRA   Y;DO_LET7
+
+DO_LET8     LDY    #1
+            MOV    VARSTR+1;(VPTR),Y
+            MOV    VARSTR;(VPTR)                ; Save Pointer/Add Length
+
+            CLC
+            ADA    SAVE_Y;VARSTR
+            BCC    DO_LETA
+            IBRA   VARSTR+1;DO_LETA             ; Go Save The Length
+
+DO_LET8A    ST16   TEMP
+            STY    SAVE_Y
+DO_LET9     LDY    #1
+            MOV    TEMP;(VPTR)                  ; Save Low Address Or Byte
+            MOV    TEMP+1;(VPTR),Y              ; Save High Address Or Byte
+DO_LETA     INY
+            MOV    SAVE_Y;(VPTR),Y              ; Save Length Or High Byte
+            STZ    TTLLEN                       ; Zero Old String Length
+            RTS
+
+*===============================
+* Name: SET - Set Up Variable Pointers
+*===============================
+
+SET         IFEQ   (PRGPTR);#Msg;MSGSET
+
+            JSR    VARSET                       ; Set Up Pointers
+            JSR    GOBEQU
+            IFNE   (PRGPTR);#'"'+Hibit;SET2     ; to null?
+
+            JSR    GETBYT                       ; Gobble Quotes
+            JSR    GETBYT
+            MOVD   VARSTR;TEMP                  ; Point At Empty Space
+            LDEQX  #0;SET3                      ; Set Length To Zero
+
+SET2        PUSHW  VPTR                         ; Save Current Pointers
+            JSR    INPNUM16                     ; Get Address Of String
+            PHAX
+            JSR    COMNUM8                      ; Get Length Of String
+            PULLW  TEMP                         ; Restore Address Of String
+            PULLW  VPTR                         ; Restore Orig Var Pointers
+SET3        LDY    #2
+            TXA                                 ; Save File Length
+            STA    (VPTR),Y
+            DEY
+            MOV    TEMP;(VPTR)                  ; Save Low Byte Of Address
+            MOV    TEMP+1;(VPTR),Y              ; Save High Byte Of Address
+            RTS
+
+*-------------------------------
+* Print CHAT Or EXEC
+*-------------------------------
+
+MSGSET      JSR    GETBYT                       ; Eat msg token
+            JSR    EQUNUM8
+            TXA
+            JMP    VIDCHAT                      ; Carry Through
+
+*===============================
+* Name: PDL - Read Status Of A Paddle
+*===============================
+
+PDL         JSR    INPNARG8                     ; Get Paddle Number
+            BIT    SETROM                       ; Map In Monitor ROM
+            JSR    PREAD                        ; Use Monitors Pdl Routine
+            LDA    SETRAM2                      ; Select Ram Card
+            MOV    SETRAM2;SETALTZP
+            TYA
+            JMP    SVDATA                       ; Return Value
+
+*===============================
+* Name: RNDSTR - Generate A Random Character
+*===============================
+
+RNDSTR      STZ    SETRAM1                      ; Switch In Subs
+            JSR    DO_RNDS2
+            STZ    SETRAM2                      ; Switch Out Subs
+            JMP    SVSTR                        ; Save Location Of Char
+
+*===============================
+* Name: RND - Get A Random Number
+*===============================
+
+RND         JSR    INPNARG                      ; Get Range
+            ST16   TEMP
+            ORA    TEMP
+            BEQ    DO_RN1
+
+            LDA    RNDNUM
+            EOR    #$96
+            SBC    RNDNUM+1
+            TAX
+            LDEQ   TEMP+1;DO_RN4                ; Is It Below 256?
+
+            LDA    RNDNUM+1                     ; Get Seed
+            EOR    #$B4
+            ADC    RNDNUM
+DO_RN0      CPEQ   TEMP+1;DO_RN2
+            BGE    DO_RN3                       ; Kill Number
+
+DO_RN1      JMP    MATH_16                      ; Return Number
+
+DO_RN2      CPEQX  TEMP;DO_RN1                  ; Check Low Byte
+            BLT    DO_RN1                       ; All Is Well, Return
+
+DO_RN3      PHA
+            TXA
+            SEC
+            SBC    TEMP                         ; (AX) = (AX) - Range
+            TAX
+            PLA
+            SBC    TEMP+1
+            BRA    DO_RN0                       ; Loop And Check
+
+DO_RN4      CPEQX  TEMP;DO_RN1
+            BLT    DO_RN1
+            PHA
+            TXA                                 ; nope, subtract
+            SEC
+            SBC    TEMP
+            TAX
+            PLA
+            BRA    DO_RN4
+
+*===============================
+* Name: NET - Lock Out Other Computer Writing
+*===============================
+
+NET         JSR    GETBYT                       ; Whats Up?
+            CPEQ   #Unlock;NET_EN               ; Unlock The Net?
+            CPEQ   #Lock;NET_DIS                ; Lock The Net?
+            JMP    SYNTAX
+
+NET_DIS     TSTMI  MLBUS;NET_DIS2               ; shift status to carry
+
+            LDA    #Moment2
+            JSR    PRTEXT
+NET_DIS0    TSTPL  MLBUS;NET_DIS1               ; Check Again After Message
+
+            JSR    WAITSEC                      ; Wait One Sec
+            BRA    NET_DIS0
+
+NET_DIS1    LDA    #MomntOut
+            JSR    PRTEXT
+
+NET_DIS2    STA    ANU_OFF                      ; Set Annun For Our Use
+            LDRA   #'L'-Ctrl;NET_STUF           ; Show Lock Status
+
+*-------------------------------
+* Enable Other Computer Writing
+*-------------------------------
+
+NET_EN      STA    ANU_ON                       ; Give Up Use
+            LDA    #'U'-Ctrl                    ; Show Unlock Status
+NET_STUF    STA    TOPRIGHT                     ; In Right Corner
+            RTS
+
+*===============================
+* Name: EDIT - Edit Command
+*===============================
+
+EDIT        LDA    (PRGPTR)                     ; Get The Next Byte
+
+            TSTMI  IMMDEF;EDIT1                 ; Was It An Assignment?
+            CPEQ   #Size;GO_EDIT
+
+            LD16   #EDBUF
+            JMP    MATH_16
+
+EDIT1       CPEQ   #Equal;SETNAME
+
+            LDX    #1                           ; Filter On
+            CPEQ   #On;SETFILT
+
+            DEX                                 ; Filter Off
+            CPEQ   #Off;SETFILT
+            CPNE   #Clear;GO_EDIT
+
+            JSR    ED_CLR
+            BRA    EDEAT
+
+SETFILT     STX    FILTFLAG                     ; Set The Flag
+EDEAT       JMP    GETBYT
+
+SETNAME     JSR    GOBEQU                       ; Must Be A =
+            JSR    MOVNAME                      ; Get The Filename
+            IFGEY  FLNAME;#15;FNERR             ; Must Be End Name
+
+ED_MVNAM    MOV    FLNAME,Y;EDNAME,Y            ; Move The Name
+            DBPL   Y;ED_MVNAM
+
+            RTS
+
+FNERR       JMP    BADNAME
+
+GO_EDIT     PHA                                 ; Save Call Number
+            LDA    #Editid                      ; Load In An Editor Only
+            JSR    TST_OVR
+            BREQW  OVERBUF+3;EDVEROK            ; if version=0, do always
+            IFNE   OVERBUF+3;VERSION;EDBADVER   ; check compiler version
+            IFEQ   OVERBUF+4;VERSION+1;EDVEROK
+
+EDBADVER    PLA                                 ; Restore Call Number
+            LDA    #Badver                      ; Do Error
+            JMP    BADERR
+
+EDVEROK     PLA                                 ; Restore Call Number
+            JMP    OVERBUF
+
+*===============================
+* Name: CONVERT - Set emulation conversion flag
+* Name: FLASH - Set GS screen color change
+*===============================
+
+CONVERT     LDA    #CONVFLAG-NODENUM
+            SKIP2
+FLASH       LDA    #FLASHING-NODENUM
+            PHA
+            JSR    GETBYT                       ; Get flash mode
+            LDY    #0
+            CPEQ   #Off;SETFL                   ; Turning off?
+            DEY
+            CPNE   #On;FL_SYN                   ; Turning on?
+SETFL       TYA
+            PLX
+            STA    NODENUM,X                    ; save mode
+            RTS
+
+FL_SYN      PLX
+            JMP    SYNTAX
+
+*===============================
+* Name: ANSI - Set ANSI mode
+*===============================
+
+ANSI        BCC    GETAFLG                      ; Do read, not set
+
+            JSR    GETBYT                       ; Get ANSI mode
+            CPEQ   #On;SETANSI                  ; Turning on?
+            CPNE   #Off;FL_SYN                  ; Turning off?
+
+CLRANSI     TSTPL  ANSIFLAG;ANSISET             ; ANSI alreary off?
+
+            STZ    ANSIFLAG
+            STZ    SETRAM1                      ; Switch In Subs
+            JSR    RstEMUL
+            BRA    DRAM6
+
+SETANSI     TSTMI  ANSIFLAG;ANSISET             ; ANSI already on?
+
+            MOV    #-1;ANSIFLAG
+            STZ    SETRAM1                      ; Switch In Subs
+            JSR    SetANSI
+DRAM6       STZ    SETRAM2                      ; Switch Out Subs
+ANSISET     RTS
+
+GETAFLG     LDA    ANSIFLAG                     ; get the flag
+            JMP    SVDATA                       ; and return it
+
+*===============================
+* Name: MODE - Read Or Set Backspace Mode
+*===============================
+
+MODE        BCS    MODE1
+
+            LDA    NONBS                        ; Get Mode
+            ROL    A
+            ROL    A
+            ROL    A
+            JMP    SVDATA
+
+MODE1       MOV    #%01000000;NONBS             ; Non Destruct Bs Mode
+            JSR    EQUNUM8                      ; Get Mode
+            CPEQX  #1;MODE2                     ; It Was Non Destruct
+
+            ASL    NONBS                        ; Set To Destruct
+            CPEQX  #2;MODE2                     ; Set, So Exit
+
+            ASL    NONBS                        ; Unknown Backspace
+MODE2       RTS
+
+DEBUG       =      *
+            DO     DEMOPGM
+            ELSE
+            BRK
+            BRK
+            FIN
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/MSG.S b/SOURCE/LLUCE/MSG.S
new file mode 100644
index 0000000..72b0f10
--- /dev/null
+++ b/SOURCE/LLUCE/MSG.S
@@ -0,0 +1,791 @@
+            LST    RTN
+            TTL    'LLUCE - Message File Handlers'
+            PAG
+*===============================
+* Contents:
+*
+* CRUNCH  - Compact A Message File
+* KILL2   - Delete A Message
+* MAKEMSG - Create A Message File
+* MSG     - Get Message Info/Number Of Messages
+* RDMAIL  - Read from mail file
+* RDMSG   - Read from message file
+* READY   - Ready A Message File
+* REWIND  - Point To Previous Message Start
+* WRMSG   - Write to message file
+*===============================
+
+*===============================
+*   Name: MAKEMSG - Create A Message File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+MAKEMSG     JSR    GETBYT                           ; Eat The Msg Token
+            JSR    COMNUM16                         ; Get Message File Size
+            TAY                                     ; Round Up To Next 128
+            TXA
+            AND    #%01111111
+            BEQ    MM_OK                            ; (X Mod 128)=0
+
+            TXA
+            AND    #%10000000                       ; Clear Off Low
+            CLC
+            ADC    #$80                             ; Add In Added 128
+            TAX
+            BCC    MM_OK                            ; Carry To Hi Byte?
+
+            INY                                     ; Yes
+MM_OK       STY    TEMP2                            ; Save For Later
+            TXA                                     ; Temp2=# Of 128 Messages
+            ASL    A
+            ROL    TEMP2
+
+            LDEQ   MSGREF;NOTOPEN                   ; Is A File Open?
+
+            STA    REFNUM                           ; Close The Message File
+            JSR    PD_CLOSE
+            STZ    DEVUSE+7                         ; Flag Not Used
+            STZ    DEVUSE+8
+NOTOPEN     LDY    #^messages                       ; Create The New File
+            LD16   #messages
+            JSR    PD_MAKE
+            BCS    MM_ERR
+
+            LDY    #ioFile3                         ; Open It
+            LDA    #%00110011                       ; Request All, Deny All
+            JSR    PD_BOPEN                         ; Open The File
+            BCS    MM_ERR                           ; Not There
+
+            STA    MSGREF                           ; Save Reference
+            LDX    #31                              ; Clear Header
+CLRHEAD     STZ    MSGINFO,X
+            DBPL   X;CLRHEAD
+
+            LDA    TEMP2                            ; 8 Bit Blocks Per 128 Msgs
+            ASL    A
+            ASL    A
+            ASL    A
+            STA    BITSIZE                          ; Save Bitmap Size
+            ASL    A                                ; 16 Dir Blocks Per 128 Msgs
+            STA    DIRSIZE
+            JSR    FINISH                           ; Write Out Header
+            STZ    BITSEG                           ; Start At 0
+            STZ    DIRSEG
+            LDX    #32
+            LDA    BITSIZE                          ; number of bit blocks
+            LSR    A
+            STA    TEMP
+            LDA    DIRSIZE                          ; number of dir blocks
+            LSR    A
+            CLC
+            ADC    TEMP                             ; now have total bytes in X,A
+            JSR    PD_SMARK                         ; this also sets the EOF
+            JMP    PD_CLOSE                         ; Close The File
+
+MM_ERR      LDA    #Badwrite
+            JMP    BADERR                           ; File Exists
+
+*===============================
+*   Name: KILL2 - Delete A Message
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+KILL2       JSR    GETDEV                           ; Get Msg Number
+            LD16   MSGNUM
+            JSR    GET_MSG                          ; Point To Message Data
+            LDY    #1                               ; Get First Block Into A & X
+            PUSHA  (TEMP)
+            PUSHA  (TEMP),Y
+            LDY    #15
+            LDA    #0                               ; Zero Pointers
+KILL3       STA    (TEMP),Y
+            DBPL   Y;KILL3
+
+            JSR    WRTDIR                           ; Write Dir Back To Disk
+            PLXY                                    ; Get High, low
+            TYA
+KILL4       ST16   MSGNUM                           ; Save Block Number
+            ORA    MSGNUM                           ; Done?
+            BEQ    KILL5                            ; Yep
+
+            LDA    MSGNUM+1
+            JSR    DEALLOC                          ; De-Alloc Block
+            LD16   MSGNUM                           ; Get Block Number
+            JSR    SETBLK                           ; Position To Block
+            LD16   #LNBUF                           ; Read In Block
+            LDY    #1
+            JSR    PD_RDBLK
+            LD16   LNBUF+126                        ; Get Next Block Number
+            BRA    KILL4                            ; And Repeat
+
+KILL5       JSR    WRTBIT                           ; Update Bitmap
+            BRA    FINISH                           ; Write Out Dir Info
+
+*===============================
+*   Name: READY - Ready A Message File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+READY       IFNE   (PRGPTR);#'#'+Hibit;DO_RDY0      ; ready a message?
+            JMP    GETDEV                           ; Fix Message
+
+DO_RDY0     MOV    MSGREF;REFNUM                    ; Get Back Old Refnum
+            BEQ    DO_RDY1                          ; File Is Closed
+
+            JSR    PD_CLOSE                         ; Close Old Msgfile
+DO_RDY1     JSR    MOVNAME                          ; Get Msg-File Name
+            LDEQ   FLNAME;DO_RDY3                   ; They Are Done With It
+
+            LDY    #ioFile3                         ; Use Msgfile Buffer
+            LDA    #%00110011                       ; Request All, Deny All
+            JSR    PD_BOPEN                         ; Open File
+            BCS    DO_RDY4                          ; Hmmm, Thats Bad!
+
+            MOV    REFNUM;MSGREF                    ; Save Refnum
+            LDY    #0
+DO_RDY2     JSR    PD_RDBYT                         ; Read In Info
+            STA    MSGINFO,Y
+            INY
+            CPNEY  #32;DO_RDY2
+
+            MOV    #-1;DIRSEG                       ; No Dir Or Bit Seg Loaded
+            STA    BITSEG
+            STA    DEVUSE+7
+            STA    DEVUSE+8
+DO_RDY3     RTS
+
+DO_RDY4     LDA    #Msgnf                           ; Message File Not Found
+            JMP    BADERR
+
+*===============================
+* Write Out File Data
+*===============================
+
+FINISH      MOV    MSGREF;REFNUM                    ; Get Refnum
+            LDX    #0
+            TXA                                     ; Goto First Byte
+            JSR    PD_SMARK
+            LDY    #0
+FINISH2     LDA    MSGINFO,Y                        ; Write The Info
+            JSR    PD_WRBYT
+            INY
+            CPNEY  #32;FINISH2
+
+            RTS
+
+*===============================
+*   Name: MSG - Get Message Info/Number Of Messages
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+MSG         IFEQ   (PRGPTR);#Free;MSGFREE
+            CPNE   #Size;DO_MSG
+
+*-------------------------------
+* Get Message Board Capacity
+*-------------------------------
+
+            JSR    GETBYT
+            STZ    TEMP                             ; Zero Temp
+            LDA    DIRSIZE                          ; Multiple By 16
+            ASL    A
+            ROL    TEMP
+            ASL    A
+            ROL    TEMP
+            ASL    A
+            ROL    TEMP
+            ASL    A
+            ROL    TEMP
+            TAX
+            LDA    TEMP
+            JMP    MATH_16                          ; Return # Of Entries
+
+*-------------------------------
+* Get Number Of Message Blocks Free
+*-------------------------------
+
+MSGFREE     JSR    GETBYT
+            LDA    BITSIZE
+            ASL    A
+            ASL    A
+            STA    TEMP                             ; Save Total # Of Bit Blocks
+            SEC
+            LDA    #0
+            SBC    USEDBLKS                         ; Subtract To Get Remainder
+            TAX
+            LDA    TEMP
+            SBC    USEDBLKS+1
+            JMP    MATH_16                          ; Return Results
+
+DO_MSG      JSR    INPNARG6                         ; Which Message?
+
+            PHAX                                    ; Save Message Number
+            IFNE   (PRGPTR);#','+Hibit;DO_MSG0      ; second argument?
+
+            JSR    INPNARG8                         ; Get Second Argument
+            TXA
+            CPLT   #4;DO_MSG1                       ; Too Large?
+
+DO_MSG0     LDA    #0                               ; Make It 0
+DO_MSG1     STA    WMSGNUM                          ; Only 0-3 Allowed
+            ASL    A                                ; Multiply By 3
+            CLC
+            ADA    WMSGNUM;WMSGNUM
+            PLAX                                    ; Restore Message Number
+            TSTMI  IMMDEF;DO_MSG4                   ; Is This An Assignment?
+            CPNEX  NUMFILES;DO_MSG2                 ; Is It The Last Message?
+            CPNE   NUMFILES+1;DO_MSG2
+
+            LDX    WMSGNUM                          ; Dont Need To Load Dir
+            PUSHA  HIMSGNUM,X                       ; Get Low Byte
+            LDA    HIMSGNUM+1,X                     ; Get Mid Byte
+            LDY    HIMSGNUM+2,X                     ; Get High Byte
+            PLX                                     ; Restore Low Byte
+            JMP    DO_MATH
+
+DO_MSG2     ORA    NUMB                             ; Number Of Files?
+            BNE    DO_MSG3                          ; Nope
+
+            LD16   NUMFILES                         ; Get Number Of Files
+            JMP    MATH_16
+
+DO_MSG3     JSR    GETNUMB                          ; Get Message Number
+            JSR    GET_MSG                          ; Get Info
+            LDY    WMSGNUM                          ; Get Pointer To Number
+            INY                                     ; Skip Block Pointer
+            INY
+            LDA    (TEMP),Y                         ; New Message # -> X, A & Y
+            TAX
+            INY
+            PUSHA  (TEMP),Y
+            INY
+            LDA    (TEMP),Y
+            TAY
+            PLA
+            JMP    DO_MATH
+
+DO_MSG4     PHAX                                    ; Save Msg Number
+            JSR    EQUNUM                           ; Get Number
+            PLAX                                    ; Get Back Msg Number
+            LDNEY  NUMFILES;DO_MSG5                 ; Any Messages Yet?
+            LDEQY  NUMFILES+1;DO_MSG6
+
+DO_MSG5     CPNEX  NUMFILES;DO_MSG7                 ; Is This Last Message?
+            CPNE   NUMFILES+1;DO_MSG7               ; Check High
+
+DO_MSG6     PHAX
+            LDX    WMSGNUM
+            MOV    NUMB;HIMSGNUM,X                  ; Update Highest New Message
+            MOV    NUMB+1;HIMSGNUM+1,X
+            MOV    NUMB+2;HIMSGNUM+2,X
+            JSR    FINISH                           ; Write Info To Disk
+            PLAX                                    ; Restore A And X
+DO_MSG7     JSR    GET_MSG                          ; Position To Info
+            LDY    WMSGNUM                          ; Get Message Number Offset
+            INY                                     ; Skip Block Pointer
+            INY
+            MOV    NUMB;(TEMP),Y                    ; Save New Message Number
+            INY
+            MOV    NUMB+1;(TEMP),Y
+            INY
+            MOV    NUMB+2;(TEMP),Y
+            JMP    WRTDIR                           ; Write Dir Back To Disk
+
+*===============================
+* Position And Load Directory For Needed Segment
+* And Setup Pointers For Needed Entry
+*===============================
+
+GET_MSG     DEX                                     ; Msg = Msg - 1
+            CPNEX  #-1;GET_MSG1
+
+            DEC    A
+GET_MSG1    STX    TEMP                             ; Save Msg Number
+            STX    TEMP2
+            ASL    TEMP2                            ; Compute Dir Section Number
+            ROL    A                                ; 32 Bytes Each
+            ASL    TEMP2
+            ROL    A
+            ASL    TEMP2
+            ROL    A
+            ASL    A
+            ASL    A                                ; A=Actual Block Number
+            CPEQ   DIRSEG;GET_MSG2
+
+            STA    DIRSEG                           ; Save Loaded Dir Seg Number
+            CLC
+            ADC    BITSIZE                          ; Add In Dir Offset
+            TAX
+            LDA    #0                               ; We Have Starting Block
+            JSR    POSMSG                           ; Position For Read
+            LD16   #DIRBUF                          ; point to buffer
+            LDY    #4                               ; Read 4 Blocks
+            JSR    PD_RDBLK
+GET_MSG2    LDA    TEMP                             ; Get Msg Number
+            ASL    A
+            ASL    A                                ; A = A * 4
+            ASL    A
+            ASL    A
+            STA    TEMP
+            LDA    #0                               ; Put Last Bit Into A
+            ROL    A
+            CLC
+            ADA    #>DIRBUF;TEMP+1                  ; Add In Location Of Buffer
+            RTS                                     ; All Is Set Up
+
+*===============================
+* Read A Mail File
+*===============================
+
+RDMAIL      TSTMI  DEVCLR;RDMAIL2                   ; Is This Start?
+
+            STX    BUF_X                            ; Save X
+            LDX    #2
+RDMAIL1     MOV    MSGPTR,X;RWDPTR,X                ; Copy All 5 Bytes
+            DBPL   X;RDMAIL1                        ; Loop
+
+            LDX    BUF_X
+            DEC    DEVCLR                           ; Clear Change
+RDMAIL2     BRA    RDMSG
+
+*===============================
+*   Name: REWIND - Point To Previous Message Start
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+REWIND      LD16   RWDBLK                           ; Get Old Block Number
+            CPNEX  RMXBLK;DO_RWD1                   ; Check Low
+            CPEQ   RMXBLK+1;DO_RWD2                 ; Check High
+
+DO_RWD1     ST16   RMXBLK                           ; Update
+            JSR    SETBLK                           ; Point To Block
+            LD16   #BLKBUF                          ; read block back in
+            LDY    #1
+            JSR    PD_RDBLK
+DO_RWD2     MOV    RWDPTR;MSGPTR                    ; Move Pointers
+            RTS
+
+*===============================
+* Setup Message For Read
+*===============================
+
+SETMSG      MOV    #-1;MSGINIT                      ; Init Message Base
+            LD16   MSGNUM                           ; Get Message Number
+            JSR    GET_MSG                          ; Locate Message
+            LDY    #1                               ; Get Starting Block Number
+            LDA    (TEMP)
+            TAX
+            ORA    (TEMP),Y                         ; Check For No Data...
+            BEQ    SETMSG2
+            LDA    (TEMP),Y
+SETMSG1     ST16   RMXBLK                           ; Save Current Block Number
+            JSR    SETBLK                           ; Position And Translate
+            STZ    RDEND                            ; Reset End Pointer
+            STZ    BLKBUF
+            LD16   #BLKBUF
+            LDY    #1                               ; And Read Data
+            JSR    PD_RDBLK
+            STZ    MSGPTR                           ; Reset Pointer
+            LDX    MSG_X                            ; Get Back X And Y
+            LDY    MSG_Y
+
+*-------------------------------
+* ... Fall Through And Read A Byte ...
+*-------------------------------
+* Read A Byte Of Message
+*-------------------------------
+
+RDMSG       STX    MSG_X                            ; Save Both X And Y
+            STY    MSG_Y
+            TSTPL  MSGINIT;SETMSG                   ; Is Read In Progress?
+            TSTMI  RDEND;SETMSG2                    ; At End Of Data?
+            IFEQY  MSGPTR;#126;RDMSG3               ; Need More Data?
+            LDEQ   BLKBUF,Y;RDMSG4                  ; Get Byte, end of data
+            IBRA   MSGPTR;SETMSG3                   ; Inc Pointer
+
+RDMSG3      LDA    BLKBUF+126
+            TAX
+            ORA    BLKBUF+127                       ; Is Next Block 0?
+            BEQ    RDMSG4                           ; Yep
+
+            LDRA   BLKBUF+127;SETMSG1               ; Read Next Block
+
+RDMSG4      DEC    RDEND                            ; At End Of Data
+SETMSG2     LDA    #0                               ; Opps, No Data
+SETMSG3     LDX    MSG_X                            ; Get Back Data
+            LDY    MSG_Y
+            RTS
+
+*===============================
+* Setup Message For Write
+*===============================
+
+WRTMSG      LD16   MSGNUM                           ; Get Msg Number
+            CPEQ   NUMFILES+1;WRTMSG0               ; Is Message File This Big?
+            BLT    WRTMSG1
+            BRA    WRTMSG5
+
+WRTMSG0     CPLTX  NUMFILES;WRTMSG1
+
+WRTMSG5     ST16   NUMFILES                         ; Update Message Count
+WRTMSG1     JSR    GET_MSG                          ; Locate Message
+            LDY    #1
+            LDA    (TEMP)
+            ORA    (TEMP),Y
+            BNE    WRTMSG2
+
+            JSR    ALLOC                            ; Allocate New Block
+            ST16   WRKBLK                           ; Update Block Number
+            LDY    #1
+            STA    (TEMP),Y
+            TXA
+            STA    (TEMP)
+            JSR    WRTDIR                           ; Write Dir Back To Disk
+            LDX    MSG_X
+            DEC    MSGINIT                          ; Init Msg
+            STZ    MSGPTR2                          ; Init Message Pointer
+            BRA    WRTMSG4
+
+WRTMSG2     IFNE   BITSEG;#-1;WRTMS2A               ; bitmap loaded?
+
+            LDY    #1                               ; Read In Bitmap
+            LDA    (TEMP)
+            TAX
+            LDA    (TEMP),Y
+            JSR    GETBITS
+WRTMS2A     JSR    SWPBLK                           ; Swap Pointers
+            LDX    MSG_X                            ; Restore X And Y
+            LDY    MSG_Y
+WRTMSG3     JSR    RDMSG                            ; Do Append To Current Data
+            CPNE   #0;WRTMSG3
+
+            JSR    SWPBLK                           ; Swap Back
+WRTMSG4     STZ    WRTEND                           ; Let Them Write Data
+WRTMSG6     LDX    MSG_X                            ; Get Back Parms
+            LDY    MSG_Y
+            PLA
+
+*-------------------------------
+* ... Fall Through And Write Byte ...
+*-------------------------------
+* Write A Byte To A Message
+*-------------------------------
+
+WRMSG       PHA
+            STX    MSG_X                            ; Save X And Y
+            STY    MSG_Y
+            TSTPL  MSGINIT;WRTMSG                   ; Have We Started?
+            TSTMI  WRTEND;WRMSG1B                   ; end written?, no more
+            IFEQY  MSGPTR2;#126;WRMSG1              ; Allocate New Block?
+            STA    BLKBUF2,Y                        ; Save Data And Continue
+            INC    MSGPTR2
+            CPNE   #0;WRMSG4
+
+            LDX    MSGPTR2                          ; Zero Rest Of Block & Links
+WRMSG0A     STZ    BLKBUF2,X
+            IBPL   X;WRMSG0A
+            BRA    WRMSG1A                          ; Skip Around Link Setup
+
+WRMSG1      JSR    ALLOC                            ; Allocate New Block
+            ST16   BLKBUF2+126
+
+WRMSG1A     LD16   WRKBLK                           ; Translate/Position Block
+            JSR    SETBLK
+            LD16   #BLKBUF2                         ; Write The Block
+            LDY    #1
+            JSR    PD_WRBLK
+
+            STZ    MSGPTR2                          ; Reset Pointer
+            MOVD   BLKBUF2+126;WRKBLK               ; Save New Block Number
+            ORA    WRKBLK                           ; Is There Another Block?
+            BNE    WRTMSG6                          ; Yep
+
+            JSR    WRTBIT                           ; Write Out Bitmap
+            JSR    FINISH                           ; Write Out Info
+            DEC    WRTEND                           ; End Has Been Written
+WRMSG4      LDX    MSG_X
+            LDY    MSG_Y
+WRMSG1B     PLA
+            RTS
+
+*===============================
+* Allocate A Block For Data
+*===============================
+
+ALLOC       IFEQ   BITSEG;#-1;ALLOC4                ; fresh start?
+
+            LDY    #0                               ; Start Count
+ALLOC2      LDX    #0
+ALLOC3      LDA    BITBUF,Y                         ; Search For Free Block
+            AND    BITVAL,X
+            BEQ    ALLOC5                           ; Found One
+
+            INX                                     ; Done With Byte?
+            CPNEX  #8;ALLOC3
+            IBPL   Y;ALLOC2                         ; Done With Buffer?
+
+            JSR    WRTBIT                           ; Write Bit Map Back To Disk
+ALLOC4      INC    BITSEG                           ; Is There More Space?
+            JSR    RDBIT                            ; Read In Bit Map Segment
+            BRA    ALLOC                            ; Start (Keep) Looking
+
+ALLOC5      LDA    BITBUF,Y
+            ORA    BITVAL,X                         ; Mark Byte
+            STA    BITBUF,Y
+            STY    TEMP2                            ; Shift Y Into 16 Bits
+            LDA    #0                               ; Bit16 = Y * 8
+            ASL    TEMP2
+            ROL    A
+            ASL    TEMP2
+            ROL    A
+            ASL    TEMP2
+            ROL    A
+            STA    TEMP2+1
+
+            TXA                                     ; Add In X
+            SEC                                     ; Special (+1)
+            ADC    TEMP2                            ; Bit16 = Bit16 + X + 1
+            TAX
+            BCC    ALLOC6
+            INC    TEMP2+1
+ALLOC6      LDA    BITSEG                           ; Add In Segment
+            ASL    A
+            ASL    A                                ; A = A * 4
+            CLC
+            ADC    TEMP2+1                          ; Bit16 = Bit16 + A
+            INCD   USEDBLKS                         ; Add 1 To Used Blocks
+            RTS
+
+*===============================
+* De-Alloc
+*===============================
+
+DEALLOC     JSR    GETBITS
+            LDA    TEMP                             ; Shift Down 3 Bits Into A
+            LSR    TEMP+1
+            ROR    A
+            LSR    TEMP+1
+            ROR    A
+            LSR    A
+            TAY
+            LDX    TEMP2                            ; Get Bit Offset
+            LDA    BITVAL,X
+            EOR    #%11111111
+            AND    BITBUF,Y                         ; Clear Bit
+            STA    BITBUF,Y                         ; And Save
+
+            DECD   USEDBLKS                         ; Used blocks = Used blocks-1
+            RTS
+
+*===============================
+* Get Bitmap For Current Msg Location
+*===============================
+
+GETBITS     SEC
+            PHA
+            TXA
+            SBA    #1;TEMP
+            AND    #%00000111
+            STA    TEMP2                            ; Save Offset (In Bits)
+            PLA
+            SBA    #0;TEMP+1                        ; Temp = (AX)-1
+            LSR    A
+            LSR    A                                ; A = A / 4
+            CPEQ   BITSEG;DEALL2                    ; Are We In Position?
+
+            PHA
+            IFEQ   BITSEG;#-1;DEALL1                ; first access?
+
+            JSR    WRTBIT                           ; Write Out Current Bitmap
+DEALL1      PULL   BITSEG                           ; Update Segment
+            JSR    RDBIT                            ; Read Bit Map
+DEALL2      RTS
+
+*===============================
+* Read or write Bit Map
+*===============================
+
+RDBIT       CLC
+            SKIPCS
+WRTBIT      SEC
+            PHP
+            LDX    BITSEG
+            LDA    #0
+            JSR    POSMSG                           ; Position To Block
+            LD16   #BITBUF                          ; read in block
+            LDY    #1
+            PLP
+            BCS    WRTBIT2
+
+            JMP    PD_RDBLK
+
+WRTBIT2     JMP    PD_WRBLK
+
+*===============================
+* Position To False Block Number
+*===============================
+
+SETBLK      ST16   POSBLK                           ; Save Block Number
+            CLC
+            LDA    BITSIZE                          ; A = Msginfo + Msginfo(1)
+            ADC    DIRSIZE
+            DEC    A                                ; A = A - 1
+            CLC
+            ADC    POSBLK                           ; Blk = Blk + A
+            TAX
+            LDA    POSBLK+1
+            ADC    #0
+            JMP    POSMSG
+
+*===============================
+* Write The Current Directory Segment Back To Disk
+*===============================
+
+WRTDIR      CLC
+            LDA    DIRSEG                           ; Position To Dir Segment
+            ADC    BITSIZE
+            TAX
+            LDA    #0
+            JSR    POSMSG
+            SEC
+            LDA    DIRSIZE                          ; Get # Of Dir Blocks
+            SBC    DIRSEG                           ; Subtract Current Pointer
+            CPLT   #4;WRTDIR1                       ; Less Than 4 Blocks Left?
+            LDA    #4                               ; More, Only Write 4
+WRTDIR1     TAY                                     ; # Of Blocks To Write
+            LD16   #DIRBUF                          ; Write It
+            JMP    PD_WRBLK
+
+*===============================
+* Switch Block Buffers
+*===============================
+
+SWPBLK      STZ    SETRAM1
+            JSR    SWPBLK0
+            STZ    SETRAM2
+            RTS
+
+*===============================
+*   Name: CRUNCH - Compact A Message File
+*
+*  Input: Program Pointer
+*
+* Output: None
+*===============================
+
+CRUNCH      MOVX   #-1;DIRSEG
+            STX    DIRSEG+1                         ; Load In First Dir Block
+            STZ    NUMFILES                         ; Reset Number Of Msgs
+            STZ    NUMFILES+1
+            LDX    #$80
+            LDY    #$80
+CRUNCH2     CPEQX  #$80;CRUNCH3                     ; At End Of Block?
+
+            IFEQ   DIRSEG;DIRSIZE;CRUNCH7           ; more data?
+
+            LDA    DIRBUF,X                         ; Is There Any Entry?
+            ORA    DIRBUF+1,X
+            BNE    CRUNCH4                          ; Yep
+
+            CLC                                     ; X = X + 16
+            TXA
+            ADC    #$10
+            TAX
+            BPL    CRUNCH2                          ; Keep Going Until 128 Done
+
+CRUNCH3     INC    DIRSEG
+            LDX    #0
+            IFEQ   DIRSEG;DIRSIZE;CRUNCH2           ; done?
+
+            PHY                                     ; Save Y
+            CLC
+            ADC    BITSIZE                          ; Add In Bitmap Offset
+            TAX
+            LDA    #0
+            JSR    POSMSG                           ; Position
+            LD16   #DIRBUF                          ; Read Next Dir Block
+            LDY    #1
+            JSR    PD_RDBLK
+            PLY                                     ; Restore Y
+            LDEQX  #0;CRUNCH2                       ; Keep Going   CHANGE TO BRA
+
+CRUNCH7     MOVX   #0;DIRBUF                        ; Use 0 Offset
+            STX    DIRBUF+1
+            STX    DIRBUF+2                         ; Zero Pointers
+            STX    DIRBUF+3
+CRUNCH4     CPEQY  #$80;CRUNCH6                     ; At End Of Block?
+
+CRUNCH5     IFEQ   DIRSEG;DIRSIZE;CRUNCH5A          ; at end?
+
+            INCD   NUMFILES                         ; Add One To Message Count
+CRUNCH5A    STZ    POSBLK
+CRUNCH5B    LDA    DIRBUF,X                         ; Copy All Bytes
+            PHX
+            LDX    POSBLK
+            STA    HIMSGNUM-2,X
+            PLX
+            STA    DIRBUF+128,Y
+            INX
+            INY
+            INC    POSBLK
+            IFNE   POSBLK;#16;CRUNCH5B              ; Moving 16 Bytes
+
+            JMP    CRUNCH2
+
+CRUNCH6     IFEQ   DIRSEG+1;#-1;CRUNCH8             ; Do We Want To Write This?
+
+            PHX                                     ; Save X
+            CLC
+            ADC    BITSIZE                          ; Add In Bitmap
+            TAX
+            LDA    #0
+            JSR    POSMSG                           ; Position
+            LD16   #DIRBUF+128                      ; Write Out Dir Segment
+            LDY    #1
+            JSR    PD_WRBLK
+            PLX                                     ; Restore X
+            LDY    #$80
+CRUNCH8     LDA    #0                               ; Fill Buffer With 0s
+CRUNCH9     STA    DIRBUF+127,Y
+            DBNE   Y;CRUNCH9
+
+            INC    DIRSEG+1                         ; Use Next Segment
+            TAY
+            IFNE   DIRSEG+1;DIRSIZE;CRUNCH5         ; Are We At End?
+
+            JSR    FINISH                           ; Write Out 16 Byte Header
+            MOV    #-1;DIRSEG                       ; Reset Dir Segment
+            RTS
+
+*===============================
+* Position File
+*===============================
+
+POSMSG      MOVY   MSGREF;REFNUM                    ; Save Refnum
+            LSR    A                                ; Setup Y,A,X W/Exact Byte
+            TAY
+            TXA
+            ROR    A
+            PHA
+            LDA    #%01000000                       ; For 32 Byte Header
+            ROR    A
+            TAX
+            PLA
+            JMP    PD_SPOS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/PROG.SUBS.S b/SOURCE/LLUCE/PROG.SUBS.S
new file mode 100644
index 0000000..79e5403
--- /dev/null
+++ b/SOURCE/LLUCE/PROG.SUBS.S
@@ -0,0 +1,826 @@
+            LST    RTN
+            TTL    'LLUCE - Program Subroutines'
+            PAG
+*===============================
+* Contents:
+*
+* ADDCRC   - Add Byte To CRC
+* BINDEC8  - Binary To Decimal
+* BLKEND   - end a block of code
+* CHKDCD   - Check For Modem Carrier
+* CHKTIME  - Check Time Limit
+* CONV     - Convert To Upper Case
+* COUNTUP  - inc temp2, dec temp3
+* DECOUT   - 24 Bit Signed Integer To Decimal
+* DECOUT0  - 24 Bit Unsigned Integer To Decimal
+* END      - end of program
+* EX_TOK   - Execute A Token
+* GETBYT   - Get Program Byte W/List
+* GETRAW   - Get A Program Byte
+* GOBBLE   - Check For Character
+* GOBCOM   - Check For Comma
+* GOBEQU   - Check For Equal Token
+* INCPRN   - Increment Print Pointer
+* INCTEMP3 - Increment Temporary 3
+* INCVARST - Increment String Pointer
+* INPTYP   - Get Next Byte Type
+* IVSET    - set input vector by X
+* LIST     - List Running Program
+* NIL      - do nothing (but inc random)
+* NUM2TMP  - put 16 bit number in TEMP
+* NUM2TMP2 - put 16 bit number in TEMP2
+* NUM2TMP3 - put 16 bit number in TEMP3
+* NUMIN    - Get Number From Program
+* OVSET    - set output vector by X
+* PAUSE    - Check For Pause
+* RAMIN    - Get Byte From RAM Drive
+* RAMOUT   - Send Byte To RAM Drive
+* RUN      - run line or block
+* RUNBLOCK - start a block of code
+* RUNEOL   - run code to end of line
+* RUNMAIN  - run code
+* RUNMOD2  - execute code section
+* RWPTRS   - put numbers in TEMP2 and TEMP3
+* SETIVEC  - Set Input Vector
+* SETOVEC  - Set Output Vector
+* SYNTAX   - Generate a syntax error
+* TMP3DWN  - count down TEMP3
+* TST_ALF  - Check For Letter
+* TST_NUM  - Check For Number
+* WAIT     - Delay
+* XNUMIN   - Decimal To Binary
+* ZNUMIN   - Get Number From Pointer
+*===============================
+
+*===============================
+*   Name: GETRAW - Get A Program Byte
+*
+*  Input: None
+*
+* Output: A - Program Byte
+*===============================
+
+GETRAW      LDA    (PRGPTR)                       ; Get A Program Byte
+            PHP
+            INCD   PRGPTR
+            PLP
+            RTS
+
+*===============================
+*   Name: GETBYT - Get Program Byte W/List
+*
+*  Input: None
+*
+* Output: A - Program Byte
+*===============================
+
+GETBYT      JSR    GETRAW                         ; Get Raw Data
+            CPNE   #'"'+Hibit;GETBYT3             ; Is It Text?
+
+            PHA
+            EOR    LSTTXT                         ; Toggle Text Mode
+            STA    LSTTXT
+            PLA
+GETBYT3     TSTPL  SHWTRC;GETBYT4                 ; Show Trace?
+
+            JSR    LIST                           ; Show Trace
+GETBYT4     CMP    #0
+            RTS
+
+NIL         STZ    LSTTXT                         ; Clear Text Flag
+            INCD   RNDNUM
+            RTS
+
+*===============================
+*   Name: GOBEQU - Check For Equal Token
+*         GOBCOM - Check For Comma
+*         GOBBLE - Check For Character
+*
+*  Input: Character To Check For
+*
+* Output: None
+*===============================
+
+GOBEQU      LDX    #Equal
+            SKIP2                                 ; Skip Next Two Bytes
+GOBCOM      LDX    #','+Hibit
+GOBBLE      STX    GOBBYT                         ; Save Byte
+            JSR    GETBYT                         ; Get Data
+            CPEQ   GOBBYT;GOBBLE2                 ; All Is Well
+
+            JMP    SYNTAX                         ; Syntax Error
+
+*===============================
+*   Name: INCPRN - Increment Print Pointer
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+INCPRN      INCD   PRN                            ; Increment Print Pointer
+GOBBLE2     RTS
+
+*===============================
+*   Name: INCVARST - Increment String Pointer
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+INCVARST    INCD   VARSTR                         ; Increment String Pointer
+            RTS
+
+*===============================
+*   Name: INCTEMP3 - Increment Temporary 3
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+INCTEMP3    INCD   TEMP3
+            RTS
+
+*===============================
+*   Name: CHKDCD - Check For Modem Carrier
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CHKDCD      SEC
+            DO     DEMOPGM
+            RTS
+            ELSE
+            TSTPL  NOCDVEC;CHKDCD2                ; Bother To Check?
+            TSTPL  REMOTE;CHKDCD2                 ; Are We Remote?
+
+            JSR    MDMDCD                         ; Is There Carrier?
+            BCS    CHKDCD2                        ; Yep
+
+            JSR    MDM1_2                         ; Hang Up User
+            FIN
+
+ZAPCALL     MOV    #-1;LOGOFF                     ; Signal Logoff Needed
+            CLC                                   ; No Carrier!
+CHKDCD2     RTS
+
+*===============================
+*   Name: CHKTIME - Check Time Limit
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CHKTIME     TSTPL  NOCDFLG;CHKTM5                 ; Bother To Check?
+            TSTMI  LOGOFF;CHKTM4                  ; In Logoff Mode Already?
+            BREQW  TIMEON;CHKTM5                  ; Is There A Limit?
+
+            JSR    SECON                          ; Get Time On
+            CPEQ   TIMEON+1;CHKTM2                ; Check Low Byte
+            BGE    CHKTM3                         ; Opps, Time Out
+            BRA    CHKTM5                         ; All Is Well
+
+CHKTM2      CPLTX  TIMEON;CHKTM5                  ; Check Low
+
+CHKTM3      LDA    #TimedOut
+            JSR    PRTEXT
+            JMP    ZAPCALL
+
+CHKTM4      CLC                                   ; No Carrier / Timeout
+            RTS
+
+CHKTM5      SEC                                   ; All Is Well
+            RTS
+
+*===============================
+*   Name: TST_ALF - Check For Letter
+*
+*  Input: A - Character To Check
+*
+* Output: C = 0, Is Letter
+*         C = 1, Not Letter
+*===============================
+
+TST_ALF     PHA
+            JSR    CONV                           ; Change To Uppercase
+            CPLT   #'A';TST_AL2
+            CPLT   #'Z'+1;TST_AL3
+TST_AL2     SEC
+TST_AL3     PLA
+            RTS
+
+*===============================
+*   Name: TST_NUM - Check For Number
+*
+*  Input: A - Character To Check
+*
+* Output: C = 0, Is Number
+*         C = 1, Not Number
+*===============================
+
+TST_NUM     PHA
+            AND    #Clrhi                         ; Strip High Bit
+            CPLT   #'0';TST_NM2
+            CPLT   #'9'+1;TST_NM3
+TST_NM2     SEC
+TST_NM3     PLA
+            RTS
+
+*===============================
+*   Name: CONV - Convert To Upper Case
+*
+*  Input: A - Character To Convert
+*
+* Output: A - Converted Character
+*===============================
+
+CONV        AND    #Clrhi                         ; Strip High Bit
+            CPLT   #'a';CONV2
+            CPGE   #'z'+1;CONV2
+            SBC    #$1F                           ; Since Carry Is Clear, -$20
+CONV2       RTS
+
+*===============================
+* Name: RUNMAIN - start a block of code
+*===============================
+
+RUNMAIN     JSR    RUNMOD2
+            BRA    RUNMAIN
+
+*===============================
+* Name: RUNBLOCK - start a block of code
+*===============================
+
+RUN         IFNE   (PRGPTR);#CompStrt;RUNEOL
+            JSR    GETBYT                         ; skip the {
+RUNBLOCK    JSR    RUNMAIN
+            RTS
+
+*===============================
+* Name: RUNEOL - start a block of code
+*===============================
+
+RUNEOL      JSR    RUNMOD2
+            IFNE   (PRGPTR);#Chain2;RUNEOL
+            RTS
+
+*===============================
+* Name: RUNMOD2 - execute code section
+*===============================
+
+RUNMOD2     IFLT   (PRGPTR);#String+1;RUNMOD3     ; Is It A let?
+
+            JSR    GETBYT                         ; Gobble
+            CPMI   #0;SYNTAX                      ; Quick Check
+
+RUNMOD3     STA    CMD                            ; Save Cmd
+            SEC                                   ; Execed As A Command
+            JSR    EX_TOK                         ; Exec It
+            TSTPL  LOGOFF;RUNMOD4                 ; Log Off User?
+
+            JSR    DO_CL3                         ; Close All Open Files
+
+            STZ    LOGOFF                         ; Say we arent logging off
+
+            LDEQ   NOCDFLG;KILLUSR                ; Any NOCAR handler?
+
+            MOVD   NOCDVEC;PRGPTR                 ; Point To No Cd Routine
+            STZ    NOCDFLG                        ; Reset Vector
+RUNMOD4     RTS
+
+SYNTAX      LDA    #Syntax                        ; Syntax Error
+            SKIP2
+KILLUSR     LDA    #SysTerm
+            PLY                                   ; pop one level from stk
+            PLY
+            PLY
+            PLY
+            JMP    BADERR2
+
+*===============================
+* Name: BLKEND - end a block of code
+*===============================
+
+END         =      *
+BLKEND      PLY
+            PLY
+            PLY
+            PLY
+            LSR    A                              ; restore token
+            RTS
+
+*===============================
+*   Name: EX_TOK - Execute A Token
+*
+*  Input: Token
+*
+* Output: None
+*===============================
+
+EX_TOK      PHP
+            ROR    IMMDEF                         ; Save Execution Status
+            ASL    A                              ; A = A * 2
+            BCS    EX_TOK2                        ; Opps, Not A Token!
+
+            TAX                                   ; Use As Index
+            PLP                                   ; Restore Run State
+            JMP    (SYMADR,X)                     ; Exec Command
+
+DO_TOK2     PHP                                   ; Save Status
+            JSR    GETBYT                         ; Get Actual Command
+            ASL    A                              ; Check High Bit
+            BCS    EX_TOK2                        ; Invalid If Set
+
+            TAX                                   ; Move To Index
+            PLP                                   ; Restore Status
+            JMP    (SYMADR2,X)                    ; Go
+
+EX_TOK2     PLP                                   ; Remove From Stack
+            JMP    SYNTAX                         ; Syntax Error
+
+*===============================
+*   Name: DECOUT0 - 24 Bit Unsigned Integer To Decimal
+*                   (0-16777216)
+*
+*  Input: X, A, Y - Number To Convert
+*
+* Output: None
+*===============================
+
+DECOUT0     JSR    PUTNUM                         ; Save Number
+            BRA    DECOUT1                        ; Do Normal Output
+
+*===============================
+*   Name: DECOUT - 24 Bit Signed Integer To Decimal
+*                  (-8388608/8388607)
+*
+*  Input: X, A, Y - Number To Convert
+*
+* Output: None
+*===============================
+
+DECOUT      PHY                                   ; Save Status
+            JSR    DO_ABS1                        ; Make Positive
+            JSR    PUTNUM
+            PLA
+            BPL    DECOUT1                        ; Display Negative Sign?
+
+            LDX    NUM+9                          ; Put - In String
+            MOV    #'-';TXTNUM+1,X                ; Show It Is Negative
+            INC    NUM+9
+            JSR    DO_OUT                         ; Show The -
+DECOUT1     LDX    #3
+DEC1        STZ    NUM,X
+            INX
+            CPNEX  #9;DEC1
+            SED                                   ; Making It Decimal
+            LDY    #24                            ; Doing 24 Bits
+DEC2        ASL    NUM                            ; Shift Bits
+            ROL    NUM+1
+            ROL    NUM+2
+            PHY
+            LDY    #3                             ; Add In With Carry
+            LDX    #3
+DECADD      AD     NUM,X;NUM,X;NUM,X
+            INX
+            DBPL   Y;DECADD
+
+            PLY
+            ROL    NUM+7
+            DBNE   Y;DEC2                         ; Do Next Bit
+
+            CLD                                   ; Back To Normal Mode
+            LDY    #8                             ; Possible 8 Characters
+DEC3        LDA    NUM+7                          ; Get First Character
+            AND    #LoNibble                      ; Only Low Nibble
+            BNE    DEC_GNUM                       ; Not Zero, Do It
+
+            TSTPL  NUM+8;DEC_SKIP                 ; First Character?
+
+DEC_GNUM    DEC    NUM+8                          ; Flag Non Zero Number
+            ORA    #'0'                           ; Make It Ascii
+            LDX    NUM+9                          ; Save Character
+            STA    TXTNUM+1,X
+            JSR    DO_OUT                         ; Print It
+            INC    NUM+9                          ; Increment Pointer
+DEC_SKIP    LDX    #3                             ; Shift 4 Bits
+DEC4        ASL    NUM+1                          ; For Next Character
+            ROL    NUM+2
+            ROL    NUM+3
+            ROL    NUM+4
+            ROL    NUM+5
+            ROL    NUM+6
+            ROL    NUM+7
+            DBPL   X;DEC4
+            DBMI   Y;DEC_DONE                     ; count down chars
+            BNE    DEC3                           ; More Than 1 To Follow
+
+            STX    NUM+8                          ; Last One, Gotta Show It
+            BRA    DEC3
+
+DEC_DONE    MOV    NUM+9;TXTNUM                   ; Set Up Length
+            RTS
+
+*===============================
+*   Name: NUMIN - Get Number From Program
+*
+*  Input: None
+*
+* Output: X, A, Y - Number Read
+*===============================
+
+NUMIN       JSR    ZERONUM                        ; Zero Info
+            IFNE   (PRGPTR);#Minus;NUMIN2A        ; is this negative?
+
+            DEC    NEGFLG                         ; Flag As Neg
+            JSR    GETBYT                         ; Skip The -
+NUMIN2A     LDPL   (PRGPTR);NUMIN4
+
+            JSR    TST_NUM                        ; Is It A Number?
+            BCS    NUMIN4                         ; Nope, Done
+
+            JSR    GETBYT                         ; Get It Again
+            JSR    XNUMIN                         ; Add It In
+            BRA    NUMIN2A
+
+*===============================
+*   Name: ZNUMIN - Get Number From Pointer
+*
+*  Input: None
+*
+* Output: X, A, Y - Number Read
+*===============================
+
+ZNUMIN      JSR    ZERONUM                        ; Zero Info
+            IFNE   (TEMP3);#'-';ZNUMIN2           ; is this negative?
+
+            DEC    NEGFLG                         ; Flag As Neg
+            INCD   TEMP3                          ; skip the -
+ZNUMIN2     LDA    (TEMP3)                        ; Get Char
+            JSR    TST_NUM                        ; Is It A Number?
+            BCS    NUMIN4                         ; Nope, Were Done
+
+            INCD   TEMP3
+
+            JSR    XNUMIN                         ; Process Digit
+            BRA    ZNUMIN2                        ; Loop
+
+NUMIN4      LD24   NUM                            ; Return Value
+            TSTPL  NEGFLG;NUMIN5                  ; Was It Negative?
+            JSR    NEGAXY                         ; Make It Negative
+NUMIN5      RTS
+
+*===============================
+*   Name: XNUMIN - Decimal To Binary
+*
+*  Input: A - Digit To Add In
+*
+* Output: None
+*===============================
+
+XNUMIN      AND    #LoNibble                      ; Clear Extra Bits Off
+            STA    NUM+3                          ; Save It
+            STZ    NUM+4                          ; Zero Rest Of Number
+            STZ    NUM+5
+            LDX    #10                            ; Multiply By 10 With New
+NUMIN3      ADD    NUM;NUM+3;NUM+3                ; Number
+            AD     NUM+2;NUM+5;NUM+5
+            DBNE   X;NUMIN3
+            MOV24  NUM+3;NUM                      ; Save The New Number
+            RTS
+
+*===============================
+*   Name: LIST - List Running Program
+*
+*  Input: Token/Character
+*
+* Output: None
+*===============================
+
+LIST        SVXAY                                 ; Save A, X, Y
+            TSTPL  LST2ND;LIST1                   ; Showing Secondary Token?
+
+            STZ    LST2ND                         ; Clear Secondary Flag
+            TAY
+            PUSHA  #0
+            LD16   #SYMTXT2                       ; Point To Second Table
+            BRA    LIST8                          ; print it
+
+LIST1       LDEQY  LSTVAR;LIST1A                  ; Are We Showing A Variable?
+            JMP    LISTF                          ; Yes
+
+LIST1A      LDNEX  LSTTXT;LIST5                   ; Are We In Text Mode?
+
+LIST2       LDX    #'#'+Hibit
+            CPEQ   #Number;LIST3                  ; Is It A Number?
+            INX
+            CPNE   #String;LIST4                  ; Is It A String?
+
+LIST3       MOVY   #-1;LSTVAR                     ; Setup To Show Next 4 variable bytes
+            TXA
+            BRA    LIST5
+
+LIST3A      DBRA   LST2ND;LIST6                   ; Flag Secondary
+
+LIST4       CPEQ   #Hitoken;LIST3A                ; Secondary Tokens?
+            CPEQ   #Chain2;LISTD                  ; Is It A Statement Link?
+            CPPL   #0;LIST7                       ; Is It A Token?
+
+LIST5       ORA    #Hibit                         ; Display Text
+            CPGE   #' '+Hibit;LIST5B              ; control char?
+            AND    #Clrhi                         ; make it inverse
+            CPEQ   #bs;LIST5A
+            CPEQ   #lf;LIST5A
+            CPEQ   #vt;LIST5A
+            CPNE   #cr;LIST5B
+LIST5A      ADC    #$3F                           ; make it mousetext
+LIST5B      JSR    VIDBAN
+            JSR    PAUSE
+LIST6       RSTXAY                                ; Restore X, A, Y
+            RTS
+
+LIST7       CPLT   #ThreeByte+1;LISTH
+            PHA                                   ; Point To First Table
+            TAY
+            LD16   #SYMTXT
+LIST8       ST16   LSTPTR
+            STZ    SETRAM1
+            DEY                                   ; Count Down First
+LIST9       LDA    (LSTPTR)                       ; Get A Character
+            INCD   LSTPTR                         ; Point To Next Character
+            ASL    A                              ; We Done?
+            BCC    LIST9                          ; Nope
+            DBPL   Y;LIST9                        ; count down token
+
+LISTB       LDA    (LSTPTR)                       ; Get Data
+            PHP
+            ORA    #Hibit                         ; Display It
+            STZ    SETRAM2
+            JSR    VIDBAN
+            STZ    SETRAM1
+            INCD   LSTPTR
+            PLP
+            BPL    LISTB
+
+            STZ    SETRAM2
+            PLA                                   ; Check For A Labeld Token
+            CPEQ   #Goto;LISTD
+            CPEQ   #Gosub;LISTD
+            CPNE   #Push;LISTE
+
+LISTD       LDA    #':'+Hibit                     ; Also Do Chain Statement
+            JSR    VIDBAN
+LISTE       LDRA   #' '+Hibit;LIST5
+
+LISTF       TAX                                   ; get status back
+            BPL    LISTG                          ; high bit clear is not var
+            JSR    TST_ALF
+LISTF2      BCC    LIST5
+            JSR    TST_NUM
+            BCC    LISTF2                         ; go show it
+
+LISTG       STZ    LSTVAR                         ; Count Down Display Time
+            JMP    LIST2                          ; treat as standard list
+
+LISTH       TAX
+            LDY    #1
+            PUSHA  (PRGPTR)
+            PUSHA  (PRGPTR),Y
+            INY
+            LDA    (PRGPTR),Y
+            TAY
+            PLA
+            CPEQX  #TwoByte;LISTI
+            PLX
+            BCS    LISTJ
+            LDY    #0
+            TYA
+            BEQ    LISTJ
+
+LISTI       PLX
+            LDY    #0
+LISTJ       JSR    SAVENUMB
+            PUSHW  VECTOR                         ; Save Current Vector Value
+            MOVD   #NIL;VECTOR                    ; Suppress Output
+            JSR    GETNUMB                        ; Print Number To Memory
+            JSR    DECOUT
+            PULLW  VECTOR                         ; Restore Vector
+            LDX    #1
+LISTK       LDA    TXTNUM,X                       ; Copy Byte
+            ORA    #Hibit
+            JSR    VIDBAN
+            INX
+            DBNE   TXTNUM;LISTK                   ; count the digits
+
+            BRA    LISTE
+
+*===============================
+*   Name: PAUSE - Check For Pause
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+PAUSE       LDA    KYBD                           ; Check Local Keyboard
+            ORA    #Hibit
+            CPNE   #'Z'-Ctrl+Hibit;PAUSE2
+
+            STA    KBDSTRB
+PAUSE1      JSR    CHKKEY                         ; Wait For A Keypress
+            BEQ    PAUSE1
+
+PAUSE2      RTS
+
+*===============================
+*   Name: WAIT - Delay
+*
+*  Input: A - Delay Factor
+*
+* Output: None
+*===============================
+
+WAIT        SEC                                   ; GS Style Delay Routine
+WAITLUP1    PHA
+            BIT    LOWSPEED
+WAITLUP2    SBC    #1
+            BNE    WAITLUP2
+
+            PLA
+            SBC    #1
+            BNE    WAITLUP1
+
+            RTS
+
+*===============================
+*   Name: SETIVEC - Set Input Vector
+*
+*  Input: Y - Channel Number
+*
+* Output: X - Channel Index
+*===============================
+
+DEVIVSET    JSR    GETDEV
+            BRA    IVSET
+
+SETIVEC     TYA                                   ; Make Into Index
+            ASL    A
+            TAX
+IVSET       MOV    INPVEC,X;VECTOR2               ; Set Vector
+            MOV    INPVEC+1,X;VECTOR2+1
+            RTS
+
+*===============================
+*   Name: SETOVEC - Set Output Vector
+*
+*  Input: Y - Channel Number
+*
+* Output: X - Channel Index
+*===============================
+
+DEVOVSET    JSR    GETDEV
+            BRA    OVSET
+
+SETOVEC     TYA                                   ; Make Into Index
+            STA    CURODEV
+            ASL    A
+            TAX
+OVSET       MOV    OUTVEC,X;VECTOR                ; Set Vector
+            MOV    OUTVEC+1,X;VECTOR+1            ; Set Vector
+            RTS
+
+*-------------------------------
+* Count Up Pointer, Counter Down
+*-------------------------------
+
+COUNTUP     INCD   TEMP2                          ; Increment
+TMP3DWN     DECD   TEMP3                          ; Decrement Counter
+            DEC    A                              ; Done?
+            ORA    TEMP3+1
+            RTS
+
+NUM2TMP     JSR    INPNUM16
+            ST16   TEMP
+            RTS
+
+NUM2TMP2    JSR    INPNUM16
+            ST16   TEMP2
+            RTS
+
+RWPTRS      JSR    NUM2TMP2                       ; Point To Data
+            JSR    GOBCOM                         ; Gobble Comma
+; Get Length Of Read
+
+NUM2TMP3    JSR    INPNUM16
+            ST16   TEMP3
+            RTS
+
+*===============================
+*   Name: INPTYP - Get Next Byte Type
+*
+*  Input: None
+*
+* Output: A = 0: Line/Command Link
+*         A = 1: Expression
+*         A = 2: Literal String
+*         A = 3: Literal Number
+*         A = 4: Token Or Unknown
+*         A = 5: String Variable
+*         A = 6: Numeric Variable
+*===============================
+
+INPTYP      STZ    SETRAM1                        ; Switch In Subs
+            JSR    INPTYP2
+            BRA    DRAM2
+
+*===============================
+*   Name: BINDEC8 - Binary To Decimal
+*
+*  Input: Byte To Convert
+*
+* Output: X,A Decimal Number As Text
+*===============================
+
+BINDEC8     STZ    SETRAM1                        ; Switch In Subs
+            JSR    BINDEC82
+            BRA    DRAM2
+
+*===============================
+*   Name: ADDCRC - Add Byte To CRC
+*
+*  Input: A - Byte To Add To CRC
+*
+* Output: None
+*===============================
+
+ADDCRC      STZ    SETRAM1                        ; Switch In Subs
+            JSR    ADDCRC2
+            BRA    DRAM2
+
+*===============================
+*   Name: RAMIN - Get Byte From RAM Drive
+*
+*  Input: None
+*
+* Output: A - Byte From Ramdrive
+*===============================
+
+RAMIN       STZ    SETRAM1                        ; Switch In Subs
+            JSR    RAMIN2
+            BRA    DRAM2
+
+*===============================
+*   Name: RAMOUT - Send Byte To RAM Drive
+*
+*  Input: A - Byte To Put In Ramdrive
+*
+* Output: None
+*===============================
+
+RAMOUT      STZ    SETRAM1                        ; Switch In Subs
+            JSR    RAMOUT2
+DRAM2       STZ    SETRAM2                        ; Switch Out Subs
+            RTS
+
+*===============================
+*   Name: TOFLN - Move name in
+*
+*  Input: A,X - From location
+*
+* Output: N - 1 = No name
+*===============================
+
+TOFLN       ST16   PRN
+            LDA    (PRN)
+            BEQ    TOFLZERO
+            TAY
+TOFLMOVE    MOV    (PRN),Y;FLNAME,Y
+            DBPL   Y;TOFLMOVE
+TOFLZERO    RTS
+
+*===============================
+*   Name: FRMFLN - Move name out
+*
+*  Input: A,X - To location
+*
+* Output: N - 1 = No name
+*===============================
+
+FRMFLN      ST16   FMFLSTA+1
+            LDX    FLNAME
+            BEQ    FMFLZERO
+FMFLMOVE    LDA    FLNAME,X
+FMFLSTA     STA    -1,X
+            DBPL   X;FMFLMOVE
+FMFLZERO    RTS
+
+SWITCH2     STZ    SETRAM2
+            STZ    SETRAM2
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/RAMCARD.S b/SOURCE/LLUCE/RAMCARD.S
new file mode 100644
index 0000000..b76a249
--- /dev/null
+++ b/SOURCE/LLUCE/RAMCARD.S
@@ -0,0 +1,271 @@
+            LST    RTN
+            PAG
+*===============================
+* Misc Path/File Names
+*===============================
+
+SEGSAVE     DS     $40
+
+EDNAME      STR    'EDITOR'                       ; System Editor's Name
+            DS     $10-*+EDNAME,' '               ; DON'T TOUCH
+
+COMPNAME    STR    'COMPILER'                     ; System Compiler's Name
+            DS     $10-*+COMPNAME,' '             ; DON'T TOUCH
+
+SYSNAME     STR    'SYSTEM'                       ; Name Of System Sub-Dir
+            DS     $10-*+SYSNAME,' '              ; DON'T TOUCH
+
+*===============================
+* Fake Serial Number For Peepers
+*===============================
+
+FAKESN      ASC    'GP140001'
+
+            TTL    'LLUCE - Date Text'
+
+*===============================
+* Day Of Week For Extended Date
+*===============================
+
+DAYS        ASC    'Sun.'
+            ASC    'Mon.'
+            ASC    'Tue.'
+            ASC    'Wed.'
+            ASC    'Thu.'
+            ASC    'Fri.'
+            ASC    'Sat.'
+
+*===============================
+* Months Text
+*===============================
+
+MONTHS      ASC    'Jan '
+            ASC    'Feb '
+            ASC    'Mar '
+            ASC    'Apr '
+            ASC    'May '
+            ASC    'Jun '
+            ASC    'Jul '
+            ASC    'Aug '
+            ASC    'Sep '
+            ASC    'Oct '
+            ASC    'Nov '
+            ASC    'Dec '
+
+DATETXT     ASC    '03/23/89'
+
+DOWSTR      DB     0
+            ASC    'Thu. Mar 23, 1989'
+
+MTKNS       DB     0,3,3,6,1,4,6,2,5,0,3,5
+
+            TTL    'LLUCE - Vectors'
+
+*===============================
+* String Compare Vectors
+*===============================
+
+JSTRCP      DW     ST_NOT                         ; 6B <>
+            DW     ST_LTEQ                        ; 6D <=
+            DW     ST_GTEQ                        ; 6D =>
+            DW     ST_EQ                          ; 6E =
+            DW     ST_LT                          ; 6F <
+            DW     ST_GT                          ; 70 >
+
+*===============================
+* Addresses
+*===============================
+* Input Channel Vectors
+*===============================
+
+INPVEC      DW     KEYIN                          ; 0  Console Keyboard
+            DW     DISKIN1                        ; 1  Disk Channel 1
+            DW     DISKIN2                        ; 2  Disk Channel 2
+            DW     DISKIN3                        ; 3  Disk Channel 3
+            DW     NO_INP                         ; 4  Console Input
+            DO     DEMOPGM
+            DW     NO_INP
+            ELSE
+            DW     MDMIN                          ; 5  Modem Input
+            FIN
+            DW     NO_INP                         ; 6  Line Printer
+            DW     RDMSG                          ; 7  Msg Input
+            DW     RDMAIL                         ; 8  Read Mail
+            DW     EDIN                           ; 9  Editor Input
+            DW     RAMIN                          ; 10 Ram Drive Input
+
+*===============================
+* Output Channel Vectors
+*===============================
+
+OUTVEC      DW     COUT                           ; 0  Console Output
+            DW     DSKOUT1                        ; 1  Disk Channel 1
+            DW     DSKOUT2                        ; 2  Disk Channel 2
+            DW     DSKOUT3                        ; 3  Disk Channel 3
+            DW     VIDCOUT                        ; 4  Local Console
+            DO     DEMOPGM
+            DW     NO_OUT
+            ELSE
+            DW     ZMDMOUT                        ; 5  Modem Output
+            FIN
+            DW     LPROUT                         ; 6  Line Printer
+            DW     WRMSG                          ; 7  Msg Output
+            DW     NO_OUT                         ; 8  Read Mail [None]
+            DW     EDOUT                          ; 9  Editor Output
+            DW     RAMOUT                         ; 10 Ram Drive Output
+
+*===============================
+* Device In Use Defaults
+*===============================
+
+DEVTBL      DB     -1,0,0,0,-1,-1,-1,0,0,-1,-1
+            TTL    'LLUCE - Misc Tables'
+
+*===============================
+* Input Mode Bytes
+*===============================
+
+MODEBYT     DB     %10000011                      ; Default, Get 1 Byte Only
+            DB     %11000001                      ; Upper/No Blanks/No Comma
+            DB     %10100000                      ; Upper And Return
+            DB     %00100000                      ; Accept All And Return
+            DB     %01100000                      ; No Blanks/No Comma/Return
+
+*===============================
+* Bit Position Masks
+*===============================
+
+BITVAL      DB     1,2,4,8,16,32
+SEV         DB     64,128
+
+*===============================
+* Misc Variables
+*===============================
+
+REFTAB      DS     3                              ; Reference Numbers
+BUFADR      DB     >FBUF1,>FBUF2,>FBUF3,>MSGBUF
+OFFSNUM     DB     0                              ; Goto XY offset & order
+
+*===============================
+* Some message system stuff
+*===============================
+
+            TTL    'LLUCE - Message File Data'
+
+MSGINFO     =      *
+BITSIZE     DB     0                              1
+DIRSIZE     DB     0                              1
+USEDBLKS    DW     0                              2
+NUMFILES    ADRL   0                              4
+HIMSGNUM    ADRL   0                              4
+            DS     $14                            20
+
+MSGPTR      DB     0                              1
+RMXBLK      DW     0                              2
+RDEND       DB     0                              1
+
+MSGINIT     DB     0                              1
+
+MSGPTR2     DB     0                              1
+WRKBLK      DW     0                              2
+WRTEND      DB     0                              1
+
+RWDPTR      DB     0                              1
+RWDBLK      DW     0                              2
+
+DIRSEG      DW     0                              2
+BITSEG      DB     0                              1
+WMSGNUM     DB     0                              1
+
+MSGNUM      DW     0                              2
+POSBLK      DW     0                              2
+
+            TTL    'LLUCE - Editor I/O Routines'
+
+*===============================
+* ----- Editor I/O Routines ----
+*===============================
+* Get A Character From Editor Buffer
+*===============================
+
+EDIN        ASL    RDRAMRD                        ; Get Memory Reading From
+            PHP
+            TSTMI  DEVCLR;EDIN1                   ; Reset?
+
+            JSR    SET_EPTR
+
+            DEC    DEVCLR                         ; Clear Flag
+
+EDIN1       STZ    MAINREAD
+
+            MOVD   EDPTR;EDIN2+1
+
+            TSTPL  EDMEMORY;EDIN2                 ; Where Is Editor Buffer?
+
+            STZ    AUXREAD                        ; In Aux Memory
+
+EDIN2       LDEQ   -1;EDIN3                       ; Get Data
+
+            INCD   EDPTR                          ; Point To Next Byte
+
+EDIN3       STZ    MAINREAD
+            PLP                                   ; Where From?
+            BCC    EDIN4                          ; Main Memory
+            STZ    AUXREAD                        ; Aux Memory
+EDIN4       RTS
+
+*===============================
+* Put A Character In The Editor Buffer
+*===============================
+
+EDOUT       ASL    RDRAMWRT                       ; Save Memory Write
+            PHP
+            STA    PRN                            ; Save Char
+
+            IFNE   EDPTR;EDITLEN;EDOUT1           ; at end?
+            IFEQ   EDPTR+1;EDITLEN+1;ED_CLR3
+
+EDOUT1      STZ    MAINWRT                        ; Set Write To Main
+            TSTPL  EDMEMORY;EDOUT2                ; Where Is Editor Buffer?
+
+            STZ    AUXWRT                         ; In Aux Memory
+
+EDOUT2      MOVD   EDPTR;EDOUT3+1
+
+            LDA    PRN                            ; Get Char Back
+EDOUT3      STA    -1                             ; Save Byte
+
+            INCD   EDPTR                          ; Inc Pointers To Next Byte
+            BRA    ED_CLR1
+
+*===============================
+* Clear The Editor, Preserve Memory
+*===============================
+
+ED_CLR      STZ    EDLINE                         ; Zero Line Counter
+            STZ    EDLINE+1
+
+            JSR    SET_EPTR
+
+            STZ    PRN
+            ASL    RDRAMWRT
+            PHP
+            STZ    MAINWRT
+            TSTPL  EDMEMORY;ED_CLR1
+            STZ    AUXWRT
+
+ED_CLR1     MOVD   EDPTR;ED_CLR2+1
+
+ED_CLR2     STZ    -1
+ED_CLR3     STZ    MAINWRT
+            PLP                                   ; Where From?
+            BCC    ED_CLR4                        ; Main Memory
+            STZ    AUXWRT                         ; Aux Memory
+ED_CLR4     LDA    PRN                            ; Get Char Back
+            RTS
+
+SET_EPTR    MOVD   EDLOC;EDPTR                    ; reset data pointer
+            RTS
+            DS     \
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/START.S b/SOURCE/LLUCE/START.S
new file mode 100644
index 0000000..3630ff5
--- /dev/null
+++ b/SOURCE/LLUCE/START.S
@@ -0,0 +1,233 @@
+            LST    RTN
+            TTL    'LLUCE - Start'
+            PAG
+*-------------------------------
+* Start LLUCE From Scratch
+*-------------------------------
+
+LLUCE       JSR    SWITCH2                   ; Select Ram Card
+            STZ    SETALTZP
+            PHP                              ; Save Current Status
+            PULL   SYSSTAT
+
+            JSR    DO_CL3                    ; Close All Open Files
+            JSR    LOGSYS                    ; Log To System Prefix
+
+*-------------------------------
+* Move In Starting File Name
+*-------------------------------
+
+            JSR    PD_GPFX                   ; Get Current Prefix
+            LD16   #SEGSAVE                  ; Save segment prefix
+            JSR    FRMFLN                    ; for later reload
+
+            LD16   #SEG_NAME                 ; Coyp default filename
+            JSR    TOFLN
+            BEQ    LL_NOMOD
+
+            JSR    SAVESEG
+
+*-------------------------------
+* Load In Starting Module
+*-------------------------------
+
+            JSR    LD_MOD                    ; Load Module
+            BCC    LL_CLR
+
+*-------------------------------
+* Error Occurred, Module Not Found
+*-------------------------------
+
+LL_NOMOD    LDA    #SMnotFnd
+            JSR    PRTEXT
+            JMP    RESTART1
+
+*-------------------------------
+* Clear Everything
+*-------------------------------
+
+LL_CLR      JSR    CLRSMT                    ; Clear Everything
+            MOV    #1;FILTFLAG               ; Make Sure Filter Is On
+
+*-------------------------------
+* Start At Beginning Of Segment
+*-------------------------------
+
+RUNMOD1     MOVD   MODULE;PRGPTR             ; Point At Program
+            LDA    RESETVEC+1                ; Set Power-Up Byte
+            EOR    #%10100101
+            STA    SOFTEV
+
+*-------------------------------
+* Showing Input Or Tracing?
+*-------------------------------
+
+            TSTMI  SHWTXT;LL_BTM             ; Showing User Input?
+            TSTPL  SHWTRC;ERRENT             ; Tracing The Program?
+
+LL_BTM      IFNE   WNDBTM;#vidHeight;ERRENT  ; bottom line protected?
+
+            DEC    WNDBTM                    ; Shorten Screen
+            DEC    WNDBTM
+
+ERRENT      JSR    SWITCH2                   ; Select Ram Card
+            STZ    SETALTZP
+
+            LDX    #-1
+            TXS
+
+            JSR    RUNMAIN
+
+*-------------------------------
+* Enter Error Dispatch Routines
+*-------------------------------
+
+DO_END      LDA    #Prgend                   ; End Of Program
+            SKIP2
+NOLABEL     LDA    #Undeflbl                 ; Undefined Label
+BADERR2     STZ    ONERRFLG                  ; Force A Program Halt
+            SKIP2                            ; Skip Next Two Bytes
+MISSMTCH    LDA    #Typemiss                 ; Type Mismatch Error
+            SKIP2
+BADDEV      LDA    #Baddev                   ; Bad Device Number
+            SKIP2
+BADNAME     LDA    #Badfn                    ; Bad Filename
+            SKIP2
+BADWRITE    LDA    #Badwrite                 ; Bad Disk Write
+            SKIP2
+BADEXT      LDA    #Badxtrn                  ; Bad External
+
+*-------------------------------
+* All Critical Errors Enter Here
+*-------------------------------
+
+BADERR      JSR    SWITCH2                   ; Select Ram Card
+            STZ    SETALTZP
+            MOVY   PRGPTR;FROMERR            ; Save Where Error Occurred
+            MOVY   PRGPTR+1;FROMERR+1
+            STA    ERRNO
+
+            TSTPL  ONERRFLG;PUT_ERR          ; Is There A Error Vector?
+
+            MOVD   ONERRVEC;PRGPTR
+            STZ    ONERRFLG                  ; reset the onerr flag
+            BRA    ERRENT
+
+PUT_ERR     LDX    #-1
+            TXS
+
+            PHA                              ; Save error code
+            LDY    #0                        ; Set output to screen
+            JSR    SETOVEC
+            PLA                              ; Restore code
+            JSR    SHOW_ERR                  ; Show Error
+            BRA    RESTART1
+
+*-------------------------------
+* Enter Here If Reset Pressed
+*-------------------------------
+
+RESET       PUSHA  SYSSTAT                   ; restore status for AT
+            PLP                              ; Operational
+            JSR    SWITCH2                   ; Select Ram Card
+            STZ    SETALTZP
+            INC    SOFTEV                    ; Next Reset Must Do Reboot
+            STZ    SHWTRC                    ; Reset Trace Mode
+            STZ    AUTORST                   ; Disable Auto-Reset
+            STZ    ONERRFLG                  ; Clear Onerr
+
+*-------------------------------
+* Do Program Restart
+*-------------------------------
+
+RESTART1    JSR    PRGINIT
+            JSR    MDM1_2                    ; Hang Up Modem
+            JSR    PR
+            ASC    "*** RESTART: S,M,Q ?"00
+            STZ    TEMP                      ; Start Restart Timeout
+            STZ    TEMP+1
+            MOV    #-10;TEMP2
+
+*-------------------------------
+* Wait For Restart Command
+*-------------------------------
+
+REST2       LDEQ   AUTORST;REST2A            ; Auto-Restart?
+
+            IBNE   TEMP;REST2A               ; do low counter
+            IBNE   TEMP+1;REST2A
+            IBNE   TEMP2;REST2A              ; Not Done Yet
+            DEC    AUTORST
+            BRA    REST3A                    ; count down start
+
+REST2A      JSR    CHKKEY                    ; Get Input
+            JSR    CONV                      ; Convert
+            CPEQ   #'S';REST3                ; Restart System?
+            CPEQ   #'M';REST4                ; Restart Module?
+            CPEQ   #'*';GOMONITR             ; Goto Monitor?
+            CPNE   #'Q';REST2                ; Quit?
+
+            MOV    #-1;INVFLG                ; Reset Inverse Flag
+            DO     DEMOPGM
+            ELSE
+            JSR    MDMQUIT
+            FIN
+            JMP    PD_QUIT
+
+REST3       MOV    #3;AUTORST                ; Reset Auto-Restart Byte
+REST3A      JMP    LLUCE                     ; Cold Start
+
+REST4       MOV    #3;AUTORST                ; Reset Autostart Count
+            JMP    RUNMOD1                   ; Warm Start
+
+*-------------------------------
+* Drop Into The Monitor
+*-------------------------------
+
+GOMONITR    MOV    #-1;INVFLG
+            MOV    SETROM;SETSTDZP           ; Enable Rom
+            JMP    ENTRMON                   ; Monitor
+
+*-------------------------------
+* Initialize Program Variables
+*-------------------------------
+
+PRGINIT     STZ    REMOTE                    ; Turn Off Chat
+            STZ    MSGREF
+            STZ    BLINK                     ; No Last Character
+            STZ    V_MODE                    ; Nothing Special Happens
+            STZ    AUTOLOG                   ; Clear auto logon flag
+            STZ    CO_XY                     ; Clear COUT X,Y counter
+            STZ    CO_RPT                    ; Clear COUT repeat counter
+            MOV    #vidWidth;V_OLDCV         ; 80 Columns Wide
+            STA    VIDLEN
+            STA    WNDWDTH
+            MOV    #vidHeight;WNDBTM         ; 24 Lines
+            MOV    #$60;USERVEC              ; Put RTS For User-Routine
+            LDA    LORES                     ; ** It Makes Things Work !!
+            LDA    ANU_ON                    ; Annunc_On
+            MOV    KBDSTRB;DISP80            ; Switch To 80 Column Mode
+            STA    STORE80                   ; Enable Page Select
+            STA    ALTCHRS                   ; Mousetext Available
+            STZ    LEVEL                     ; Close All Open Files
+            STZ    REFNUM
+            JSR    PD_CLOSE
+            LDX    #10
+ZDEVUSE     MOV    DEVTBL,X;DEVUSE,X         ; Reset Device Table
+            DBPL   X;ZDEVUSE
+
+            STX    VIDECHO                   ; Make Sure Characters
+            RTS                              ; Get Seen
+
+*-------------------------------
+* Handle An Incoming IRQ (And Fix It)
+*-------------------------------
+
+            DO     DEMOPGM
+IRQ_FIX     CLC
+            ELSE
+IRQ_FIX     JSR    MDMINT
+            FIN
+            RTI
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/STRING.S b/SOURCE/LLUCE/STRING.S
new file mode 100644
index 0000000..095400e
--- /dev/null
+++ b/SOURCE/LLUCE/STRING.S
@@ -0,0 +1,268 @@
+            LST    RTN
+            TTL    'LLUCE - String Commands'
+            PAG
+*===============================
+* Contents:
+*
+* ASC      - Get Ascii Value Of A String
+* CHRSTR   - Handle The Chr$() Function
+* INSTR    - Get The Instr()
+* LEFTSTR  - Get The Left$
+* LEFTTRIM - Trim Leading Spaces
+* LEN      - Get The Length Of A String
+* LOWERSTR - Convert String To Lower Case
+* MIDSTR   - Get the mid$ or insert string into string
+* MIXEDSTR - Convert String To Mixed Case
+* RGTTRIM  - Trim Trailing Spaces
+* RIGHTSTR - Get The Right$
+* STRSTR   - Get A Number In String Form
+* UPPERSTR - Convert String To Upper Case
+* VAL      - Get The Value From A String
+*===============================
+
+*===============================
+* Name: INSTR - Get The Instr()
+*===============================
+
+INSTR       JSR    INPSARG
+            PUSHA  STRLEN                       ; Save String Info
+            PUSHA  STRLOC
+            PUSHA  STRLOC+1
+            JSR    INPSARG                      ; Get Other String
+            STZ    TEMP3+1
+            IFNE   (PRGPTR);#','+Hibit;DO_NSR0  ; start specified?
+
+            JSR    INPNARG8                     ; get the number
+            DEX
+            STX    TEMP3+1
+
+DO_NSR0     PLX
+            PLY
+            PLA
+            STZ    SETRAM1
+            JSR    DO_NSR00
+            BRA    DTRM
+
+*===============================
+* Name: UPPERSTR - Convert String To Upper Case
+*       LOWERSTR - Convert String To Lower Case
+*       MIXEDSTR - Convert String To Mixed Case
+*===============================
+
+UPPERSTR    LDA    #%00000000                   ; Hi Bit Clear
+            SKIP2
+LOWERSTR    LDA    #%10000000                   ; Hi Bit Set
+            SKIP2
+MIXEDSTR    PUSHA  #%01000000                   ; V Flag Set
+            JSR    INPSARG                      ; Get String Info
+            PLA
+            STZ    SETRAM1
+            JSR    STRCASE
+            BRA    DTRM
+
+*===============================
+* Name: RGTTRIM - Trim Trailing Spaces
+*===============================
+
+RGTTRIM     JSR    CKMSARG                      ; Get The String Info
+            BCS    XTRM
+            STZ    SETRAM1
+            JSR    RGTTRIM0
+            BRA    DTRM
+
+*===============================
+* Name: LEFTTRIM - Trim Leading Spaces
+*===============================
+
+LEFTTRIM    JSR    CKMSARG                      ; Get The String Info
+            BCS    XTRM
+            STZ    SETRAM1
+            JSR    LFTTRIM0
+DTRM        STZ    SETRAM2
+XTRM        RTS
+
+*===============================
+* Name: LEN - Get The Length Of A String
+*===============================
+
+LEN         BCS    LEN_ERR
+            JSR    INPSARG                      ; Point To String
+            LDA    STRLEN                       ; Get Length
+            JMP    SVDATA
+
+LEN_ERR     JMP    SYNTAX
+
+*===============================
+* Name: LEFTSTR - Get The Left$
+*===============================
+
+LEFTSTR     BCS    LEN_ERR
+            PHP
+            JSR    DO_ISTR                      ; Get String And Length
+            BRA    DO_XSTR                      ; Were Done
+
+*===============================
+* Name: RIGHTSTR - Get The Right$
+*===============================
+
+RIGHTSTR    BCS    LEN_ERR
+            PHP
+            JSR    DO_ISTR
+            LDA    TEMP2+1
+            SEC
+            SBC    TEMP2                        ; Find Out How Much Used
+            BEQ    DO_XSTR
+
+            CLC
+            ADA    TEMP;TEMP                    ; Get Start Of String
+            BCC    DO_XSTR
+            IBRA   TEMP+1;DO_XSTR               ; Finish Up
+
+*===============================
+* Name: MIDSTR - Get The Mid$
+*===============================
+
+MIDSTR      PHP
+            JSR    DO_ISTR                      ; Point To String
+            DEC    TEMP2
+            CLC
+            AD     TEMP2;TEMP;TEMP              ; Get Start Of String
+            BCC    DO_MID2
+            INC    TEMP+1
+DO_MID2     LDA    (PRGPTR)
+            LDX    #-1
+            CPNE   #','+Hibit;DO_MID3           ; Is There A Length Arg
+
+            JSR    COMNUM8                      ; Get It
+            JSR    GETBYT                       ; Gobble )
+DO_MID3     SEC
+            SB     TEMP2+1;TEMP2;TEMP2          ; Compute Maximum Length
+            STX    TEMP2+1
+            CPLT   TEMP2+1;DO_MID4              ; Find Out Which To Use
+
+            TXA
+DO_MID4     STA    TEMP2
+DO_XSTR     LD16   TEMP                         ; return string loc & length
+            LDY    TEMP2
+            PLP
+            BCS    INS_STR
+            JMP    SVSTR
+
+INS_STR     SVXAY                               ; save size and location
+            JSR    EQUSTR                       ; get the insertion string
+            PULL   TEMP2+1                      ; restore size and location
+            PULL   TEMP+1
+            PULL   TEMP
+            LDX    STRLEN                       ; make the length legal
+            JSR    DO_IST1
+
+            LDY    #0                           ; move the string data
+INS_LUP     MOV    (STRLOC),Y;(TEMP),Y
+            INY
+            DBNE   TEMP2;INS_LUP
+            RTS
+
+DO_ISTR     JSR    INPARG                       ; Get The String
+            MOVD   STRLOC;TEMP                  ; Save String Info
+            MOV    STRLEN;TEMP2+1
+            JSR    INPNARG8
+DO_IST1     STX    TEMP2                        ; Get The Number
+            CPLTX  TEMP2+1;DO_IST2              ; Make Length Legal
+
+            LDX    TEMP2+1
+DO_IST2     STX    TEMP2
+            RTS
+
+*===============================
+* Name: CHRSTR - Handle The Chr$() Function
+*===============================
+
+CHRSTR      JSR    INPNARG8                     ; Get Char Number
+            PHX
+            LDA    (PRGPTR)
+            LDX    #1                           ; Check For More Data
+            CPNE   #','+Hibit;DO_CHR2
+
+            JSR    INPNARG8
+DO_CHR2     STX    DATA+3                       ; Get Number Of Chars
+            MOVD   VARSTR;DATA+1
+            PLA
+CHR_ADD     STA    (VARSTR)                     ; Create String
+            JSR    INCVARST
+            DBNE   X;CHR_ADD
+
+            LDY    #0
+            MOV    #2;DATA                      ; Data Type 2
+            RTS
+
+*===============================
+* Name: VAL - Get The Value From A String
+*===============================
+
+VAL         JSR    GETBYT                       ; Gobble (
+            JSR    INSTR2                       ; Do Use Any Space
+            LDY    STRLEN
+            LDA    #0
+            STA    LNBUF,Y                      ; Terminate String
+DO_VAL2     DBMI   Y;DO_VAL3
+
+            MOV    (STRLOC),Y;LNBUF,Y           ; copy string
+            BRA    DO_VAL2
+
+DO_VAL3     MOVD   #LNBUF;TEMP3                 ; Point To String
+            JSR    ZNUMIN                       ; Get Number
+            ST24   DATA+1
+            JSR    GETBYT                       ; Gobble )
+            MOV    #1;DATA                      ; Data Type 1
+            RTS
+
+*===============================
+* Name: STRSTR - Get A Number In String Form
+*===============================
+
+STRSTR      JSR    INPNARG                      ; Get Arg
+            PUSHW  VECTOR                       ; Save Current Vector Value
+            MOVD   #NIL;VECTOR                  ; Suppress Output
+            JSR    GETNUMB                      ; Print Number To Memory
+            JSR    DECOUT
+            PULLW  VECTOR                       ; Restore Vector
+            MOVD   VARSTR;DATA+1                ; Point To String
+            MOV    TXTNUM;DATA+3                ; Save Length
+            LDX    #1
+SS_COPY     MOV    TXTNUM,X;(VARSTR)            ; Copy Byte
+            INX
+            JSR    INCVARST                     ; Inc String Space
+            DBNE   TXTNUM;SS_COPY               ; Count The Digits
+
+            MOV    #2;DATA                      ; Were Done
+            RTS
+
+*===============================
+* Name: ASC - Get Ascii Value Of A String
+*===============================
+
+ASC         JSR    INPSARG                      ; Read String
+            LDEQX  STRLEN;ASC2                  ; Any String There?
+
+            LDA    (STRLOC)
+            JMP    SVDATA                       ; Return Byte
+
+ASC2        LDA    #-1                          ; return -1
+            TAX
+            TAY
+            JSR    SAVEDATA
+            LDX    #1                           ; SHOULD BE LDA #1
+            STA    DATA
+            RTS
+
+CKMSARG     JSR    INPSARG
+CHKMEM      LDA    STRLOC+1
+CHKMEM2     CPLT   #>NODENUM;CHKMEM3            ; In scratch memory?
+            CPLT   #>OVERBUF;CHKMEM4            ; In ramcard area?
+CHKMEM3     SEC
+            RTS
+
+CHKMEM4     CLC
+            RTS
+            LST    OFF
+
diff --git a/SOURCE/LLUCE/TOKENS.JMP.S b/SOURCE/LLUCE/TOKENS.JMP.S
new file mode 100644
index 0000000..c38c028
--- /dev/null
+++ b/SOURCE/LLUCE/TOKENS.JMP.S
@@ -0,0 +1,362 @@
+            LST   RTN
+
+            TTL   'LLUCE - Token Jump Table'
+            PAG
+SYMADR      DW    0
+
+Number      =     *-SYMADR/2
+            DW    LET                         ; 01
+String      =     *-SYMADR/2
+            DW    LET                         ; 02
+OneByte     =     *-SYMADR/2
+            DW    SYNTAX                      ; 03
+TwoByte     =     *-SYMADR/2
+            DW    SYNTAX                      ; 04
+ThreeByte   =     *-SYMADR/2
+            DW    SYNTAX                      ; 05
+
+            DW    SYNTAX                      ; 06
+            DW    SYNTAX                      ; 07
+NoLbl       =     *-SYMADR/2
+            DW    NOLABEL                     ; 08
+
+Public      =     *-SYMADR/2
+            DW    SYNTAX                      ; 09
+CompStrt    =     *-SYMADR/2
+            DW    RUNBLOCK                    ; 0A
+CompEnd     =     *-SYMADR/2
+            DW    BLKEND                      ; 0B
+
+            DW    IF                          ; 0C
+Else        =     *-SYMADR/2
+            DW    ELSE                        ; 0D
+
+            DW    FOR                         ; 0E
+To          =     *-SYMADR/2
+            DW    SYNTAX                      ; 0F To Command
+Step        =     *-SYMADR/2
+            DW    SYNTAX                      ; 10 Step Command
+Next        =     *-SYMADR/2
+            DW    NEXT                        ; 11
+
+DoTkn       =     *-SYMADR/2
+            DW    DO_DO                       ; 12
+While       =     *-SYMADR/2
+            DW    WHILE                       ; 13
+Continue    =     *-SYMADR/2
+            DW    END                         ; 14 continue
+Break       =     *-SYMADR/2
+            DW    END                         ; 15 break
+
+Then        =     *-SYMADR/2
+Chain       =     *-SYMADR/2
+            DW    NIL                         ; 16
+Chain2      =     *-SYMADR/2
+            DW    NIL                         ; 17
+
+End         =     *-SYMADR/2
+            DW    END                         ; 18
+
+ClsTkn      =     *-SYMADR/2
+            DW    DO_CLS                      ; 19 Cls Command
+HomeTkn     =     *-SYMADR/2
+            DW    SCRN                        ; 1A Home Command
+            DW    SCRN                        ; 1B Cursor Up
+            DW    SCRN                        ; 1C Cursor Down
+            DW    SCRN                        ; 1D Cursor Left
+            DW    SCRN                        ; 1E Cursor Right
+            DW    SCRN                        ; 1F Clear to EOS
+            DW    SCRN                        ; 20 Clear to BOS
+ClsTkn2     =     *-SYMADR/2
+            DW    SCRN                        ; 21 Clear screen
+            DW    SCRN                        ; 22 Clear to EOL
+            DW    SCRN                        ; 23 Clear to BOL
+            DW    SCRN                        ; 24 Clear line
+            DW    SCRN                        ; 25 Insert line
+            DW    SCRN                        ; 26 Delete line
+            DW    SCRN                        ; 27 Insert character
+            DW    SCRN                        ; 28 Delete character
+            DW    SCRN                        ; 29 Normal characters
+            DW    SCRN                        ; 2A Inverse characters
+Gotoxy      =     *-SYMADR/2
+            DW    SCRN                        ; 2B Gotoxy Command
+            DW    SCRN                        ; 2C MouseText command
+EndEmul     =     *-SYMADR/2
+            DW    TONE                        ; 2D Tone command
+
+Goto        =     *-SYMADR/2
+            DW    GOTO                        ; 2E
+Gosub       =     *-SYMADR/2
+            DW    GOSUB                       ; 2F
+Push        =     *-SYMADR/2
+            DW    PUSH                        ; 30
+
+On          =     *-SYMADR/2
+            DW    ON                          ; 31
+Off         =     *-SYMADR/2
+            DW    SYNTAX                      ; 32
+
+            DW    PRINT                       ; 33
+            DW    INPUT                       ; 34
+Key         =     *-SYMADR/2
+            DW    KEY                         ; 35
+
+Clear       =     *-SYMADR/2
+            DW    CLEAR                       ; 36
+Free        =     *-SYMADR/2
+            DW    FREE                        ; 37
+Set         =     *-SYMADR/2
+            DW    SET                         ; 38
+
+Flag        =     *-SYMADR/2
+            DW    FLAG                        ; 39
+            DW    NIBBLE                      ; 3A
+            DW    BYTE                        ; 3B
+            DW    WORD                        ; 3C
+
+Nocar       =     *-SYMADR/2
+            DW    SYNTAX                      ; 3D
+Onerr       =     *-SYMADR/2
+            DW    SYNTAX                      ; 3E
+
+Ready       =     *-SYMADR/2
+            DW    READY                       ; 3F
+OnlineTkn   =     *-SYMADR/2
+            DW    ONLINE                      ; 40
+Msg         =     *-SYMADR/2
+            DW    MSG                         ; 41
+Lock        =     *-SYMADR/2
+            DW    LOCK                        ; 42
+Unlock      =     *-SYMADR/2
+            DW    UNLOCK                      ; 43
+
+Readtkn     =     *-SYMADR/2
+            DW    READ                        ; 44
+Writetkn    =     *-SYMADR/2
+            DW    WRITE                       ; 45
+
+            DW    EOF                         ; 46
+Size        =     *-SYMADR/2
+            DW    SIZE                        ; 47
+
+            DW    LEN                         ; 48
+            DW    VAL                         ; 49
+            DW    ASC                         ; 4A
+            DW    INSTR                       ; 4B
+
+            DW    UPPERSTR                    ; 4C
+            DW    LOWERSTR                    ; 4D
+            DW    MIXEDSTR                    ; 4E
+            DW    RGTTRIM                     ; 4F
+            DW    LEFTTRIM                    ; 50
+
+Strtyp      =     *-SYMADR/2
+Timestr     =     *-SYMADR/2
+            DW    TIMESTR                     ; 51
+            DW    TIME2STR                    ; 52
+
+            DW    DATESTR                     ; 53
+            DW    FMTDATE                     ; 54
+            DW    WHENSTR                     ; 55
+            DW    FMTWHEN                     ; 56
+
+            DW    LEFTSTR                     ; 57
+            DW    RIGHTSTR                    ; 58
+            DW    MIDSTR                      ; 59
+            DW    CHRSTR                      ; 5A
+            DW    STRSTR                      ; 5B
+            DW    RNDSTR                      ; 5C
+
+Compare     =     *-SYMADR/2
+            DW    NOTEQU                      ; 5D <> or !=
+            DW    LESSEQU                     ; 5E <=
+            DW    GREQU                       ; 5F =>
+Equal       =     *-SYMADR/2
+            DW    EQUAL                       ; 60 =
+            DW    LESS                        ; 61 <
+            DW    GREATER                     ; 62 >
+
+Logic       =     *-SYMADR/2
+            DW    AND                         ; 63 or &
+            DW    LOGICAND                    ; 64 && logical AND
+Or          =     *-SYMADR/2
+            DW    OR                          ; 65 or |
+            DW    LOGICOR                     ; 66 || logical OR
+            DW    XOR                         ; 67 or ^
+            DW    BIN_NOT                     ; 68 or ~
+            DW    LOGICNOT                    ; 69 or !
+            DW    SHFTLFT                     ; 6A << shift left
+            DW    SHFTRGT                     ; 6B >> shift right
+
+Math        =     *-SYMADR/2
+            DW    ADDITION                    ; 6C +
+Minus       =     *-SYMADR/2
+            DW    SUBTRACT                    ; 6D -
+            DW    MULTIPLY                    ; 6E *
+            DW    DIVIDE                      ; 6F /
+Incremnt    =     *-SYMADR/2
+            DW    INCREMNT                    ; 70 ++ increment
+            DW    DECREMNT                    ; 71 -- decrement
+            DW    ADDITION                    ; 72 +=
+            DW    SUBTRACT                    ; 73 -=
+            DW    MULTIPLY                    ; 74 *=
+            DW    DIVIDE                      ; 75 /=
+            DW    MOD                         ; 76 %=
+            DW    AND                         ; 77 &=
+            DW    OR                          ; 78 |=
+            DW    XOR                         ; 79 ^=
+            DW    SHFTLFT                     ; 7A <<=
+            DW    SHFTRGT                     ; 7B >>=
+Mod         =     *-SYMADR/2
+            DW    MOD                         ; 7C or %
+            DW    ABS                         ; 7D
+Hitoken     =     *-SYMADR/2
+            DW    DO_TOK2                     ; 7E
+TOK_END     DW    SYNTAX                      ; 7F
+
+SYMADR2     DW    SYNTAX                      ; 7E00
+            DW    SYNTAX                      ; 7E01
+            DW    SYNTAX                      ; 7E02
+            DW    SYNTAX                      ; 7E03
+            DW    SYNTAX                      ; 7E04
+            DW    SYNTAX                      ; 7E05
+            DW    SYNTAX                      ; 7E06
+            DW    SYNTAX                      ; 7E07
+            DW    SYNTAX                      ; 7E08
+            DW    SYNTAX                      ; 7E09
+            DW    SYNTAX                      ; 7E0A
+
+            DW    BAUD                        ; 7E0B
+            DW    EXEC                        ; 7E0C
+            DW    NODE                        ; 7E0D
+            DW    MODE                        ; 7E0E
+
+            DW    PDL                         ; 7E0F
+            DW    RND                         ; 7E10
+            DW    ECHOSTR                     ; 7E11
+            DW    SETINT                      ; 7E12
+            DW    ADDINT                      ; 7E13
+            DW    ERR                         ; 7E14
+            DW    RAM                         ; 7E15
+
+            DW    RETURN                      ; 7E16
+            DW    POP                         ; 7E17
+            DW    RESUME                      ; 7E18
+            DW    GET                         ; 7E19
+
+            DW    CLOCK                       ; 7E1A
+            DW    FLASH                       ; 7E1B
+            DW    ANSI                        ; 7E1C
+            DW    TERMINAL                    ; 7E1D
+            DW    WIDTH                       ; 7E1E
+            DW    WINDOW                      ; 7E1F
+
+            DW    EDIT                        ; 7E20
+            DW    MODEM                       ; 7E21
+
+            DW    POKE                        ; 7E22
+            DW    PEEK                        ; 7E23
+            DW    CALL                        ; 7E24
+            DW    MOVE                        ; 7E25
+            DW    FILL                        ; 7E26
+
+            DW    COPY                        ; 7E27
+            DW    TYPE                        ; 7E28
+
+            DW    STORE                       ; 7E29
+            DW    RECALL                      ; 7E2A
+
+            DW    CHAIN                       ; 7E2B
+            DW    PREFIX                      ; 7E2C
+            DW    OVERLAY                     ; 7E2D
+            DW    NET                         ; 7E2E
+
+            DW    REWIND                      ; 7E2F
+            DW    CRUNCH                      ; 7E30
+
+            DW    CREATE                      ; 7E31
+            DW    KILL                        ; 7E32
+            DW    NAME                        ; 7E33
+            DW    OPEN                        ; 7E34
+            DW    CLOSE                       ; 7E35
+            DW    FLUSH                       ; 7E36
+            DW    MARK                        ; 7E37
+            DW    POSITION                    ; 7E38
+            DW    APPEND                      ; 7E39
+            DW    EXIST                       ; 7E3A
+            DW    EXIT                        ; 7E3B
+
+Offset      =     *-SYMADR/2
+            DW    DO_OFFSET                   ; 7E3C Offset command
+Nullcmd     =     *-SYMADR/2
+            DW    DO_NULLS                    ; 7E3D Null Command
+
+            DW    CONVERT                     ; 7E3E Convert emulation cmd
+            DW    DEBUG                       ; 7E3F
+            DW    SYNTAX                      ; 7E40
+            DW    SYNTAX                      ; 7E41
+            DW    SYNTAX                      ; 7E42
+            DW    SYNTAX                      ; 7E43
+            DW    SYNTAX                      ; 7E44
+            DW    SYNTAX                      ; 7E45
+            DW    SYNTAX                      ; 7E46
+            DW    SYNTAX                      ; 7E47
+            DW    SYNTAX                      ; 7E48
+            DW    SYNTAX                      ; 7E49
+            DW    SYNTAX                      ; 7E4A
+            DW    SYNTAX                      ; 7E4B
+            DW    SYNTAX                      ; 7E4C
+            DW    SYNTAX                      ; 7E4D
+            DW    SYNTAX                      ; 7E4E
+            DW    SYNTAX                      ; 7E4F
+            DW    SYNTAX                      ; 7E50
+            DW    SYNTAX                      ; 7E51
+            DW    SYNTAX                      ; 7E52
+            DW    SYNTAX                      ; 7E53
+            DW    SYNTAX                      ; 7E54
+            DW    SYNTAX                      ; 7E55
+            DW    SYNTAX                      ; 7E56
+            DW    SYNTAX                      ; 7E57
+            DW    SYNTAX                      ; 7E58
+            DW    SYNTAX                      ; 7E59
+            DW    SYNTAX                      ; 7E5A
+            DW    SYNTAX                      ; 7E5B
+            DW    SYNTAX                      ; 7E5C
+            DW    SYNTAX                      ; 7E5D
+            DW    SYNTAX                      ; 7E5E
+            DW    SYNTAX                      ; 7E5F
+            DW    SYNTAX                      ; 7E60
+            DW    SYNTAX                      ; 7E61
+            DW    SYNTAX                      ; 7E62
+            DW    SYNTAX                      ; 7E63
+            DW    SYNTAX                      ; 7E64
+            DW    SYNTAX                      ; 7E65
+            DW    SYNTAX                      ; 7E66
+            DW    SYNTAX                      ; 7E67
+            DW    SYNTAX                      ; 7E68
+            DW    SYNTAX                      ; 7E69
+            DW    SYNTAX                      ; 7E6A
+            DW    SYNTAX                      ; 7E6B
+            DW    SYNTAX                      ; 7E6C
+            DW    SYNTAX                      ; 7E6D
+            DW    SYNTAX                      ; 7E6E
+            DW    SYNTAX                      ; 7E6F
+            DW    SYNTAX                      ; 7E70
+            DW    SYNTAX                      ; 7E71
+            DW    SYNTAX                      ; 7E72
+            DW    SYNTAX                      ; 7E73
+            DW    SYNTAX                      ; 7E74
+            DW    SYNTAX                      ; 7E75
+            DW    SYNTAX                      ; 7E76
+            DW    SYNTAX                      ; 7E77
+            DW    SYNTAX                      ; 7E78
+            DW    SYNTAX                      ; 7E79
+            DW    SYNTAX                      ; 7E7A
+            DW    SYNTAX                      ; 7E7B
+            DW    SYNTAX                      ; 7E7C
+            DW    SYNTAX                      ; 7E7D
+            DW    SYNTAX                      ; 7E7E
+            DW    SYNTAX                      ; 7E7F
+TOK_NUM     =     256
+            LST   OFF
+
diff --git a/SOURCE/LLUCE/TOKENS.TXT.S b/SOURCE/LLUCE/TOKENS.TXT.S
new file mode 100644
index 0000000..5b9bde8
--- /dev/null
+++ b/SOURCE/LLUCE/TOKENS.TXT.S
@@ -0,0 +1,244 @@
+            LST   RTN
+            TTL   'LLUCE - Token Text'
+            PAG
+*===============================
+* ----- Actual Tokens -----
+*===============================
+
+SYMTXT      DB    -1                    ; 00 Reserved
+            DB    -1                    ; 01 Reserved
+            DB    -1                    ; 02 Reserved
+            DB    -1                    ; 03 Reserved
+            DB    -1                    ; 04 Reserved
+            DB    -1                    ; 05 Reserved
+            DB    -1                    ; 06 Reserved
+            DB    -1                    ; 07 Reserved
+            DB    -1                    ; 08 Reserved
+            DB    -1                    ; 09 Reserved
+            DCI   '{'                   ; 0A Reserved
+            DCI   '}'                   ; 0B Reserved
+
+            DCI   'IF'                  ; 0C If Statement
+            DCI   'ELSE'                ; 0D Else Statement
+
+            DCI   'FOR'                 ; 0E For Statement
+            DCI   'TO'                  ; 0F To Statement
+            DCI   'STEP'                ; 10 Step Statement
+            DCI   'NEXT'                ; 11 Next Statement
+
+            DCI   'DO'                  ; 12
+            DCI   'WHILE'               ; 13
+
+            DCI   'CONTINUE'            ; 14
+            DCI   'BREAK'               ; 15
+
+            DCI   ':'                   ; 16 Colon (Chain)
+            DB    -1                    ; 17 Reserved (Chain2)
+
+            DCI   'END'                 ; 18 End Of Module
+
+            DCI   'CLS'                 ; 19 Clear Screen Cmd
+            DCI   'HOME$'               ; 1A Cursor to home Cmd
+            DCI   'CURSORU$'            ; 1B Cursor up
+            DCI   'CURSORD$'            ; 1C Cursor down
+            DCI   'CURSORL$'            ; 1D Cursor left
+            DCI   'CURSORR$'            ; 1E Cursor right
+            DCI   'CLREOS$'             ; 1F Clear to EOS
+            DCI   'CLRBOS$'             ; 20 Clear to BOS
+            DCI   'CLRSCN$'             ; 21 Clear screen string
+            DCI   'CLREOL$'             ; 22 Clear to EOL
+            DCI   'CLRBOL$'             ; 23 Clear to BOL
+            DCI   'CLRLN$'              ; 24 Clear line
+            DCI   'LINEINS$'            ; 25 Insert line
+            DCI   'LINEDEL$'            ; 26 Delete line
+            DCI   'CHARINS$'            ; 27 Insert char
+            DCI   'CHARDEL$'            ; 28 Delete char
+            DCI   'NORMAL$'             ; 29 Normal chars
+            DCI   'INVERSE$'            ; 2A Inverse chars
+            DCI   'GOTOXY$'             ; 2B Gotoxy Cmd
+            DCI   'MOUSE$'              ; 2C Mousetext Cmd
+            DCI   'TONE'                ; 2D Tone Function
+
+            DCI   'GOTO'                ; 2E Goto Statement
+            DCI   'GOSUB'               ; 2F Gosub Statement
+            DCI   'PUSH'                ; 30 Push Statement
+
+            DCI   'ON'                  ; 31 On Statement
+            DCI   'OFF'                 ; 32 Off statement
+
+            DCI   'PRINT'               ; 33 Print Statement
+            DCI   'INPUT'               ; 34 Input A Line
+            DCI   'KEY'                 ; 35 Key Function
+
+            DCI   'CLEAR'               ; 36 Clear Statement
+            DCI   'FREE'                ; 37 Free Statement
+            DCI   'SET'                 ; 38 Set Statement
+
+            DCI   'FLAG'                ; 39 User Flags
+            DCI   'NIBBLE'              ; 3A Nibble Function
+            DCI   'BYTE'                ; 3B Byte Function
+            DCI   'WORD'                ; 3C Word Function
+
+            DCI   'NOCAR'               ; 3D On No Carrier
+            DCI   'ERROR'               ; 3E On Error
+
+            DCI   'READY'               ; 3F Ready Statement
+            DCI   'ONLINE'              ; 40 Online Cmd, R/O
+            DCI   'MSG'                 ; 41 Msg Function
+
+            DCI   'LOCK'                ; 42 Lock Command
+            DCI   'UNLOCK'              ; 43 Unlock Command
+
+            DCI   'READ'                ; 44 Read Statement
+            DCI   'WRITE'               ; 45 Write Statement
+            DCI   'EOF'                 ; 46 Eof Function
+            DCI   'SIZE'                ; 47 Size Function
+
+            DCI   'LEN'                 ; 48 String Length
+            DCI   'VAL'                 ; 49 Val Function
+            DCI   'ASC'                 ; 4A Ascii Function
+            DCI   'INSTR'               ; 4B Instr Function
+
+            DCI   'UPPER$'              ; 4C Convert To Upper
+            DCI   'LOWER$'              ; 4D Convert To Lower
+            DCI   'MIXED$'              ; 4E Convert To Mixed
+            DCI   'RTRIM$'              ; 4F Trim Trailing Spaces
+            DCI   'LTRIM$'              ; 50 Trim Leading Spaces
+
+            DCI   'TIME$'               ; 51 Time$ Statement
+            DCI   'TIME12$'             ; 52 12 Hour Time
+
+            DCI   'DATE$'               ; 53 Date Statement
+            DCI   'FMTDATE$'            ; 54 Formated Date Statement
+            DCI   'WHEN$'               ; 55 When$ Statement
+            DCI   'FMTWHEN$'            ; 56 Format When$ Statement
+
+            DCI   'LEFT$'               ; 57 Left$ Statement
+            DCI   'RIGHT$'              ; 58 Right$ Statement
+            DCI   'MID$'                ; 59 Mid$ Statement
+            DCI   'CHR$'                ; 5A Chr$ Statement
+            DCI   'STR$'                ; 5B Str$ Statement
+            DCI   'RND$'                ; 5C Rnd$ Function
+
+            DCI   '!='                  ; 5D <> or !=
+            DCI   '<='                  ; 5E <=
+            DCI   '>='                  ; 5F =>
+            DCI   '='                   ; 60 =
+            DCI   '<'                   ; 61 <
+            DCI   '>'                   ; 62 >
+
+            DCI   '&'                   ; 63 or &, And Operand
+            DCI   '&&'                  ; 64 &&, logical AND
+            DCI   '|'                   ; 65 or |, Or Operand
+            DCI   '||'                  ; 66 ||, logical OR
+            DCI   '^'                   ; 67 or EOR or ^, Eor Operand
+            DCI   '~'                   ; 68 Not Statement
+            DCI   '!'                   ; 69 logical NOT
+            DCI   '<<'                  ; 6A << shift left
+            DCI   '>>'                  ; 6B >> shift right
+
+            DCI   '+'                   ; 6C Plus
+            DCI   '-'                   ; 6D Minus
+            DCI   '*'                   ; 6E Multiplication
+            DCI   '/'                   ; 6F Division
+            DCI   '++'                  ; 70 ++ increment
+            DCI   '--'                  ; 71 -- decrement
+            DCI   '+='                  ; 72 +=
+            DCI   '-='                  ; 73 -=
+            DCI   '*='                  ; 74 *=
+            DCI   '/='                  ; 75 /=
+            DCI   '%='                  ; 76 %=
+            DCI   '&='                  ; 77 &=
+            DCI   '|='                  ; 78 |=
+            DCI   '^='                  ; 79 ^=
+            DCI   '<<='                 ; 7A <<=
+            DCI   '>>='                 ; 7B >>=
+            DCI   '%'                   ; 7C or %, Mod
+            DCI   'ABS'                 ; 7D Absolute Value
+            DB    -1                    ; 7E For Next Table
+            DB    0                     ; 7F
+
+SYMTXT2     DB    -1                    ; 7E00
+            DB    -1                    ; 7E01
+            DB    -1                    ; 7E02
+            DB    -1                    ; 7E03
+            DB    -1                    ; 7E04
+            DB    -1                    ; 7E05
+            DB    -1                    ; 7E06
+            DB    -1                    ; 7E07
+            DB    -1                    ; 7E08
+            DB    -1                    ; 7E09
+            DB    -1                    ; 7E0A
+
+            DCI   'BAUD'                ; 7E0B Baud Rate,  R/O
+            DCI   'EXEC'                ; 7E0C Exec Cmd,   R/W
+            DCI   'NODE'                ; 7E0D Node Cmd,   R/O
+            DCI   'MODE'                ; 7E0E Back Space Mode Cmd
+
+            DCI   'PDL'                 ; 7E0F Pdl Function
+            DCI   'RANDOM'              ; 7E10 Random Function
+            DCI   'ECHO'                ; 7E11 Set Video Echo
+            DCI   'SETINT'              ; 7E12 Set Interrupt Keys
+            DCI   'ADDINT'              ; 7E13 Add Interrupt Keys
+            DCI   'ERR'                 ; 7E14 Err Cmd, R/O
+            DCI   'RAM'                 ; 7E15 Ram Value
+
+            DCI   'RETURN'              ; 7E16 Return Statement
+            DCI   'POP'                 ; 7E17 Pop Statement
+            DCI   'RESUME'              ; 7E18 Resume From Error
+            DCI   'GET'                 ; 7E19 Get A Character
+
+            DCI   'CLOCK'               ; 7E1A Time Function
+            DCI   'FLASH'               ; 7E1B GS screen flashing
+            DCI   'ANSI'                ; 7E1C set ANSI mode
+            DCI   'TERMINAL'            ; 7E1D Set Terminal #
+            DCI   'WIDTH'               ; 7E1E Width Function
+            DCI   'WINDOW'              ; 7E1F Window Cmd, R/W
+
+            DCI   'EDIT'                ; 7E20 Edit Statement
+            DCI   'MODEM'               ; 7E21 Modem Statement
+
+            DCI   'POKE'                ; 7E22 Poke Statement
+            DCI   'PEEK'                ; 7E23 Peek Function
+            DCI   'CALL'                ; 7E24 Call Statement
+            DCI   'MOVE'                ; 7E25 Move Statement
+            DCI   'FILL'                ; 7E26 Fill Statement
+
+            DCI   'COPY'                ; 7E27 Copy A File
+            DCI   'TYPE'                ; 7E28 Type Disk File Cmd
+
+            DCI   'STORE'               ; 7E29 Store Statement
+            DCI   'RECALL'              ; 7E2A Recall Statement
+
+            DCI   'CHAIN'               ; 7E2B Chain Command
+            DCI   'PREFIX'              ; 7E2C Get Or Set Prefix
+            DCI   'OVERLAY'             ; 7E2D Overlay Command
+            DCI   'DISK'                ; 7E2E Network Lock/Unlock
+
+            DCI   'REWIND'              ; 7E2F Rewind Statement
+            DCI   'CRUNCH'              ; 7E30 Crunch Statement
+
+            DCI   'CREATE'              ; 7E31 Create Statement
+            DCI   'KILL'                ; 7E32 Kill Statement
+            DCI   'NAME'                ; 7E33 Rename Command
+
+            DCI   'OPEN'                ; 7E34 Open A File
+            DCI   'CLOSE'               ; 7E35 Close A File
+            DCI   'FLUSH'               ; 7E36 Update Statement
+
+            DCI   'MARK'                ; 7E37 Get/Set Function
+            DCI   'POSITION'            ; 7E38 Position Statement
+            DCI   'APPEND'              ; 7E39 Append Statement
+
+            DCI   'EXIST'               ; 7E3A Check For File
+
+            DCI   'EXIT'                ; 7E3B Exit LLUCE
+
+            DCI   'OFFSET'              ; 7E3C GotoXY offset
+            DCI   'NULLS'               ; 7E3D Nulls, Cmd R/W
+
+            DCI   'CONVERT'             ; 7E3E Convert emulation cmd
+            DCI   'DEBUG'               ; 7E3F Debug
+            DB    0
+            LST   OFF
+
diff --git a/SOURCE/LLUCE/VAR.S b/SOURCE/LLUCE/VAR.S
new file mode 100644
index 0000000..00dbbf5
--- /dev/null
+++ b/SOURCE/LLUCE/VAR.S
@@ -0,0 +1,694 @@
+            LST     RTN
+            TTL     'LLUCE - Variable Handler'
+            PAG
+*===============================
+* Contents:
+*
+* ARGTYP   - Get Argument Type
+* CHKFRE   - Check Free Memory
+* FREE     - Clean Up String Space
+* GETDATA  - get 24 bit number from DATA
+* GETNUMB  - get 24 bit number from NUMB
+* INPARG   - Get An Argument
+* INPMATH  - Get 24 Bit Number Or Expression For Math Op
+* INPNARG  - Get 24 Bit Numeric Argument
+* INPNARG6 - Get 16 Bit Argument
+* INPNARG8 - Get 8 Bit Argument
+* INPNUM   - Get 24 Bit Number Or Expression
+* INPNUM0  - Get A 24 Bit Number
+* INPNUM8  - Get 8 Bit Number
+* INPNUM16 - Get 16 Bit Number
+* INPPAR   - Get Number In Parentheses
+* INPSARG  - Get String Argument
+* INPSTR   - Get A String
+* INPSTR0  - Get A String
+* INSTR2   - Get String, Save Memory
+* NUMBADD1 - add 1 to NUMB
+* NUMBSUB1 - subtract 1 from NUMB
+* NUMBZERO - check if NUMB is zero
+* PUTNUM   - put 24 bit number in NUM
+* SAVEDATA - save 24 bit number in DATA
+* SAVENUMB - save 24 bit number in NUMB
+* STRCMP   - Compare Strings
+* STRCOPY  - Copy A String To String Space
+* SVDATA   - save numeric data
+* SVSTR    - save string data
+* VARSET   - Set Pointers To Variable
+* ZERONUM  - zero NUM
+* Also contains all string compare routines
+*===============================
+
+*===============================
+*   Name: VARSET - Set Pointers To Variable
+*
+*  Input: Program Pointer
+*
+* Output: VARNAM And VARPNT
+*===============================
+
+VARSET      JSR     GETBYT                       ; Get String/Number Token
+            PHA
+            LDX     #0
+VARSET0     LDPL    (PRGPTR);VARSET0C            ; get pgm byte, + is not var name
+            JSR     TST_ALF                      ; if alpha, is part of name
+            BCC     VARSET0B
+            JSR     TST_NUM                      ; if number, part of name
+            BCS     VARSET0C
+
+VARSET0B    JSR     GETBYT                       ; gotta increment the pointer
+            AND     #Clrhi                       ; clear the high bit
+            STA     VNAME,X                      ; and save it
+            INX
+            CPNEX   #4;VARSET0                   ; 4 chars max
+
+VARSET0C    CPEQX   #4;VARSET0D                  ; zero the rest of it
+            STZ     VNAME,X
+            IBNE    X;VARSET0C
+
+VARSET0D    PLA
+            CPEQ    #Number;VARSET2              ; Handle Number
+            CPEQ    #String;VARSET1              ; Handle String
+            JMP     SYNTAX                       ; Syntax Error!
+
+VARSET1     LDA     VNAME                        ; Show Its A String
+            ORA     #Hibit
+            STA     VNAME
+
+VARSET2     PUSHW   TEMP2                        ; Save TEMP2
+
+            MOVD    HIMEM;TEMP                   ; point to top of variable space
+            STA     TEMP2+1
+
+VARSET3     SEC                                  ; Temp = Temp - 8
+            SB      TEMP;#vRecSize;TEMP
+            STA     TEMP2
+            BCS     VARSET4
+            DEC     TEMP+1
+            DEC     TEMP2+1
+
+VARSET4     LDEQ    (TEMP);VARSET6               ; Check Byte 1, create new
+            CPNE    VNAME;VARSET3
+
+            LDY     #3
+VARSET4A    IFNE    (TEMP),Y;VNAME,Y;VARSET3     ; check bytes
+            DBNE    Y;VARSET4A
+
+VARSET5     CLC                                  ; Vptr = Temp + 4
+            AD      TEMP;#valOffs;VPTR
+            TAX                                  ; A & X Points At Var
+            AD      TEMP+1;#0;VPTR+1
+
+            PULLW   TEMP2                        ; Restore TEMP2
+            RTS
+
+VARSET6     SEC
+            LDA     TEMP+1
+            SBC     LOMEM+1                      ; +(Himem-Lomem)/2
+            LSR     A
+            CLC
+            ADA     LOMEM+1;MIDMEM+1             ; Compute Midmem Value
+            STZ     MIDMEM
+            SEC
+            SB      TEMP2;#vRecSize;TEMP2
+            BCS     VARSET7
+            DEC     TEMP2+1
+
+VARSET7     LDX     #vRecSize*2-1
+            LDA     #0                           ; Fill rest with 0s
+VARSET8     STA     (TEMP2)
+            INCD    TEMP2
+            DBPL    X;VARSET8
+
+            LDY     #3
+VARSET8A    MOV     VNAME,Y;(TEMP),Y             ; Save the var name
+            DBPL    Y;VARSET8A
+            BRA     VARSET5                      ; Set Up Pointers
+
+FIX_MID     SEC
+            LDA     HIMEM+1                      ; Midmem=Lomem
+FIX_MID2    SBC     LOMEM+1                      ; +(Himem-Lomem)/2
+            LSR     A
+            CLC
+            ADA     LOMEM+1;MIDMEM+1             ; Compute Midmem Value
+            STZ     MIDMEM
+            RTS
+
+*===============================
+*   Name: INPNARG8 - Get 8 Bit Argument
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPNARG8    JSR     INPNARG                      ; Get The Argument
+            BRA     TEST8                        ; Test For 8 Bits
+
+*===============================
+*   Name: INPNARG6 - Get 16 Bit Argument
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPNARG6    JSR     INPNARG                      ; Get The Argument
+            BRA     TEST16                       ; Test For 8 Bits
+
+*===============================
+*   Name: INPNUM16 - Get 16 Bit Number
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+EQUNUM16    JSR     GOBEQU
+            BRA     INPNUM16
+
+COMNUM16    JSR     GOBCOM
+INPNUM16    JSR     INPNUM                       ; Get The Number
+            BRA     TEST16                       ; Test For 16 Bits
+
+*===============================
+*   Name: INPNUM8 - Get 8 Bit Number
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+EQUNUM8     JSR     GOBEQU
+            BRA     INPNUM8
+
+COMNUM8     JSR     GOBCOM
+            BRA     INPNUM8
+
+BYTNUM8     JSR     GETBYT
+INPNUM8     JSR     INPNUM                       ; Get The Number
+TEST8       CPPLY   #0;TEST8A                    ; Test for 8 bit number
+            CPNEY   #-1;NUMERR
+            CPEQ    #-1;TEST8B
+
+TEST8A      BNE     NUMERR                       ; Test For 8 Bit Number
+            CPNE    #0;NUMERR
+TEST8B      RTS
+
+TEST16      CPPLY   #0;TEST16A                   ; Test For 16 Bit Number
+            CPY     #-1
+TEST16A     BNE     NUMERR                       ; Yes, Error
+            RTS
+
+NUMERR      LDA     #Numtobig                    ; Execute Error
+            JMP     BADERR
+
+*===============================
+*   Name: INPNUM - Get 24 Bit Number Or Expression
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+EQUNUM      JSR     GOBEQU
+INPNUM      PUSHW   TEMP                         ; Save Temp Vars
+            PUSHW   TEMP2
+            JSR     INPNUM0                      ; Get Initial Number
+INPNUMA     LDMI    (PRGPTR);INPNUMB
+            CPEQ    #Hitoken;INPNUMB             ; High Order Token?
+            CPGE    #Compare;INPNUMC             ; Dont Do Compare Operands
+
+INPNUMB     PULLW   TEMP2                        ; Restore Temporaries
+            PULLW   TEMP
+            BRA     GETNUMB
+
+INPNUMC     CLV
+            JSR     INPNUM2                      ; Exec Token
+            BRA     INPNUMA
+
+*===============================
+*   Name: INPMATH - Get 24 Bit Number Or Expression
+*                   For Math Operations
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPMATH     JSR     INPNUM0                      ; Get Initial Number
+INPMTH1     LDMI    (PRGPTR);GETNUMB
+            CPLT    #Math;GETNUMB                ; Check For Math Operand
+            CPGE    #Hitoken;GETNUMB
+
+            CLV
+            JSR     INPNUM2
+            BRA     INPMTH1
+
+*===============================
+*   Name: INPPAR - Get Number In Parentheses
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPPAR      JSR     GETBYT                       ; Get The Byte
+            JSR     INPNUM
+            JSR     SAVENUMB                     ; Save Number
+            JSR     GETBYT
+            CPNE    #')'+Hibit;SYN1              ; Was Close There?
+
+GETNUMB     LD24    NUMB                         ; Save The Number
+            RTS
+
+SYN1        JMP     SYNTAX                       ; Give Error
+
+*===============================
+*   Name: INPNUM0 - Get A 24 Bit Number
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPNUM0     ZERO24  NUMB                         ; Init Number
+            LDA     (PRGPTR)                     ; Get Next Token
+            CPEQ    #Chain;INPNUM0D              ; End Of Statement?
+            CPEQ    #Chain2;INPNUM0D             ; End Of Line?
+            CPEQ    #Number;INPNUM0A             ; Is It A Number?
+            CPEQ    #String;INPNUM0B             ; Is It A String?
+            CPLT    #ThreeByte+1;INPBYTES        ; is it a constant #?
+            CPEQ    #'"'+Hibit;INPNUM0B          ; Is It A Literal
+            CPEQ    #'('+Hibit;INPPAR            ; If An Expression
+            CMP     #Strtyp                      ; Check If Other Token
+            CLV
+            BLT     INPNUM2
+
+            CPLT    #Compare;INPNUM0B            ; Is It A String?
+            CPPL    #0;INPNUM2X                  ; Is It A Token?
+
+            JSR     TST_NUM                      ; Is It A Number?
+            BCS     SYN1                         ; No, Error
+            BRA     INPNUM0C
+
+INPNUM0A    JSR     VARSET                       ; Set Up The Variable
+INPNUM0X    LDA     (VPTR)                       ; Get Value Of Variable
+            TAX                                  ; Low Byte Goes In X
+            STX     NUMB
+            LDY     #1
+            PUSHA   (VPTR),Y                     ; middle byte in A (later)
+            STA     NUMB+1
+            INY
+            LDA     (VPTR),Y
+            TAY                                  ; High Byte In Y
+            STY     NUMB+2
+            PLA                                  ; Middle Byte
+            RTS
+
+INPNUM0B    JSR     STRCMP                       ; Get Value Of Expression
+            STX     NUMB
+INPNUM0Z    STZ     NUMB+1
+            STZ     NUMB+2
+            RTS
+
+INPBYTES    STZ     NUMB                         ; zero out NUMB
+            JSR     INPNUM0Z
+            JSR     GETBYT                       ; get byte type
+            TAX
+            DEX                                  ; make into count
+            DEX
+            LDY     #0                           ; set NUMB index
+INPBLUP     JSR     GETRAW                       ; get a byte (no check or list)
+            STA     NUMB,Y                       ; save it
+            INY
+            DBNE    X;INPBLUP
+            RTS
+
+INPNUM0C    JSR     NUMIN                        ; Get The Number
+            JSR     SAVENUMB                     ; Save Number
+            CPPLY   #0;INPNUMX
+
+            LDA     #Misssym
+            SKIP2
+INPNUM0D    LDA     #Missdata
+            JMP     BADERR
+
+INPNUM0E    JMP     MISSMTCH
+
+INPNUM2X    BIT     SEV
+INPNUM2     STZ     DATA                         ; Reset Data
+            PHP
+            JSR     GETBYT
+            PLP
+            CLC                                  ; Call From Somewhere Else
+            JSR     EX_TOK                       ; Exec The Token
+            LDA     DATA
+            AND     #%00000001                   ; Did We Get Valid Data?
+            BEQ     INPNUM0E                     ; Nope
+
+            JSR     GETDATA                      ; Transfer Data
+SAVENUMB    ST24    NUMB                         ; Save Number
+INPNUMX     RTS
+
+*===============================
+*   Name: INPNARG - Get 24 Bit Numeric Argument
+*
+*  Input: Program Pointer
+*
+* Output: A, X, Y Number Gotten
+*===============================
+
+INPNARG     JSR     INPARG                       ; Do Input
+            AND     #%00000001
+            BNE     INPNUM0E                     ; If String, Error
+
+            JMP     GETNUMB                      ; Return Values
+
+*===============================
+*   Name: INPSARG - Get String Argument
+*
+*  Input: Program Pointer
+*
+* Output: A, X = Pointer, Y = Length
+*===============================
+
+INPSARG     JSR     INPARG                       ; Do Input
+            AND     #%00000001
+            BEQ     INPNUM0E                     ; If Number, Error
+
+            RTS
+
+*===============================
+*   Name: INPARG - Get An Argument
+*
+*  Input: Program Pointer
+*
+* Output: Pointer For Arguments
+*         String Or Number
+*===============================
+
+INPARG      JSR     GETBYT                       ; Get Data
+            CPEQ    #'('+Hibit;INPARG2           ; Check For Start/Continue
+            CPNE    #','+Hibit;INPNUM0D          ; Of An Argument
+
+INPARG2     JSR     ARGTYP                       ; Get Type (Number/String)
+            PHP
+            BCS     INPARG3
+
+            JSR     INPNUM
+            BRA     INPARG4
+
+INPARG3     JSR     INPSTR
+INPARG4     LDA     (PRGPTR)                     ; Check Next Byte
+            LDX     #1
+            CPEQ    #','+Hibit;INPARG5           ; Is There More?
+
+            JSR     GETBYT                       ; Get The Rest
+            LDX     #0
+            CPNE    #')'+Hibit;INPNUM0D          ; Of Arg
+
+INPARG5     TXA                                  ; Bit 0: Clear = Number
+            PLP                                  ;          Set = String
+            ROL     A                            ; Bit 1: Clear = Done
+            CMP     #0                           ;          Set = More Args
+            RTS
+
+*===============================
+*   Name: INSTR2 - Get String, Save Memory
+*
+*  Input: Program Pointer
+*
+* Output: String Pointer
+*===============================
+
+INSTR2      PUSHW   VARSTR                       ; Save String Pointer
+            JSR     INPSTR                       ; Get The String
+            PULLW   VARSTR                       ; Restore Old Pointer
+            RTS
+
+*===============================
+*   Name: INPSTR - Get A String
+*
+*  Input: Program Pointer
+*
+* Output: String Pointer
+*===============================
+
+EQUSTR      JSR     GOBEQU
+INPSTR      JSR     INPSTR0
+            ST16    STRLOC                       ; Save Length And Location
+            STY     STRLEN
+            IFNE    (PRGPTR);#Math;INPSTRD       ; A Quick Exit Point
+
+            PUSHW   VARSTR                       ; Save The New Pointer
+            PHY
+            JSR     GETBYT                       ; Save String Space Start
+            JSR     STRCOPY
+INPSTRB     PUSHW   VARSTR                       ; Save Current Pointer
+            JSR     INPSTR0                      ; Get New String
+            ST16    STRLOC
+            STY     STRLEN
+            PULLW   VARSTR                       ; Restore Var Pointers
+            PULL    TTLLEN                       ; Update Length
+            JSR     STRCOPY                      ; Copy The New String
+            PUSHA   TTLLEN
+            IFNE    (PRGPTR);#Math;INPSTRC       ; If There More, Do It
+
+            JSR     GETBYT                       ; Gobble And Continue
+            BRA     INPSTRB
+
+INPSTRC     PULL    STRLEN                       ; Put Back Data
+            PULLW   STRLOC
+INPSTRD     LD16    STRLOC                       ; Get Back Stuff
+            LDY     STRLEN
+            RTS
+
+*===============================
+*   Name: INPSTR0 - Get A String
+*
+*  Input: Program Pointer
+*
+* Output: String Pointer
+*===============================
+
+INPSTR0     IFEQ    (PRGPTR);#'"'+Hibit;INPSTR1  ; If Text
+            CPNE    #String;INPSTR5              ; Handle Token
+
+            JSR     VARSET                       ; Point To Var
+GETVINFO    LDY     #1
+            PUSHA   (VPTR),Y                     ; Get High-Byte Of Pointer
+            LDA     (VPTR)                       ; Get Low-Byte Of Pointer
+            TAX
+            INY
+            LDA     (VPTR),Y                     ; Get The Length
+            TAY
+            PLA
+            RTS
+
+INPSTR1     JSR     GETBYT                       ; And Gobble First Quote
+            LD16    PRGPTR                       ; Save String Location
+            PHA
+            LDY     #0
+INPSTR2     JSR     GETBYT                       ; Calc String Length
+            CPEQ    #'"'+Hibit;INPSTR4           ; Check For End
+            IBNE    Y;INPSTR2
+
+            PLA                                  ; Just To Be Sure
+            LDA     #Strtobig                    ; String Overflow Error
+            JMP     BADERR
+
+INPSTR4     PLA                                  ; A,X,Y Now Have String Data
+            RTS
+
+INPSTR5     STA     DATA                         ; Reset Data Type
+            JSR     GETBYT
+            CLC                                  ; Called From Somewhere Else
+            CLV
+            JSR     EX_TOK                       ; Exec Token
+            LDA     DATA
+            AND     #%00000010
+            BNE     GETDATA                      ; Type Mismatch
+
+            JMP     MISSMTCH
+
+GETDATA     LD24    DATA+1
+            RTS
+
+*===============================
+*   Name: STRCMP - Compare Strings
+*
+*  Input: Program Pointer
+*
+* Output: X = 0: False
+*         X = 1: True
+*===============================
+
+STRCMP      PUSHW   VARSTR                       ; Dont Gobble Any Space
+            JSR     INPSTR                       ; Get String 1
+            MOVD    STRLOC;TEMP3                 ; Save Pointers To Data
+            MOV     STRLEN;TEMP2                 ; Save Length Of Data
+            IFLT    (PRGPTR);#Compare;STRCMP8    ; Is There A Compare
+            CPGE    #Logic;STRCMP8
+
+            JSR     GETBYT                       ; Gobble Token
+            SEC
+            SBC     #Compare
+            ASL     A
+            PHA
+            JSR     INPSTR                       ; Get Second String
+            PLA
+            TAX
+            JMP     (JSTRCP,X)
+
+STRCMP8     LDX     #0                           ; Length = 0, Not Valid
+            LDEQ    TEMP2;STRCMP9                ; Length > 0, Return Valid
+            LDX     #1
+STRCMP9     PULLW   VARSTR                       ; Restore Stuff
+            LDA     #0
+            RTS
+
+ST_EQ       JSR     STREQ                        ; Check If Equal
+            BRA     STRCMP9
+
+ST_NOT      JSR     STREQ                        ; Check If Equal
+            JSR     INVERT                       ; Invert The Result
+            BRA     STRCMP9
+
+ST_LT       JSR     STRLT                        ; Check If Less Than
+            BRA     STRCMP9
+
+ST_GT       JSR     STRGT                        ; Check If Greater Than
+            BRA     STRCMP9
+
+ST_LTEQ     JSR     STRGT                        ; Check It Greater Than
+            JSR     INVERT                       ; Invert Result
+            BRA     STRCMP9
+
+ST_GTEQ     JSR     STRLT                        ; Check If Less Than
+            JSR     INVERT                       ; Invert Result
+            BRA     STRCMP9
+
+*===============================
+* Compare Algorithms
+*===============================
+
+STREQ       IFNEX   TEMP2;STRLEN;RTNNUM0         ; check string length
+
+            LDY     #-1
+STREQ2      INY
+            CPEQY   STRLEN;RTNNUM1               ; Are We Done?
+            IFEQ    (TEMP3),Y;(STRLOC),Y;STREQ2  ; Do Check
+
+RTNNUM0     LDX     #0                           ; No Match
+            RTS
+
+STRLT       IFGEX   TEMP2;STRLEN;STRLT2          ; save smaller length
+            MOVX    STRLEN;TEMP2
+STRLT2      LDY     #-1
+STRLT3      INY
+            CPEQY   TEMP2;RTNNUM0
+            IFEQ    (TEMP3),Y;(STRLOC),Y;STRLT3
+            BGE     RTNNUM0
+
+RTNNUM1     LDX     #1
+            RTS
+
+STRGT       IFGEX   STRLEN;TEMP2;STRGT2          ; save smaller length
+            MOVX    TEMP2;STRLEN
+STRGT2      LDY     #-1
+STRGT3      INY
+            CPEQY   STRLEN;RTNNUM0
+            IFEQ    (STRLOC),Y;(TEMP3),Y;STRGT3
+            BGE     RTNNUM0
+            BLT     RTNNUM1
+
+*===============================
+*   Name: CHKFRE - Check Free Memory
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+CHKFRE      LDX     VARSTR+1                     ; High Of Current Pointer
+            INX
+            CPGEX   MIDMEM+1;FREE                ; Are We Ok?
+            RTS
+
+*===============================
+*   Name: ARGTYP - Get Argument Type
+*
+*  Input: Program Pointer
+*
+* Output: C = 1: String
+*         C = 0: Number
+*===============================
+
+ARGTYP      STZ     SETRAM1
+            JSR     ARGTYP0
+            BRA     DRAM3
+
+*===============================
+*   Name: STRCOPY - Copy A String To String Space
+*
+*  Input: String Parameters
+*
+* Output: None
+*===============================
+
+STRCOPY     STZ     SETRAM1
+            JSR     STRCOPY0
+            BRA     DRAM3
+
+*===============================
+*   Name: FRE - Clean Up String Space
+*
+*  Input: None
+*
+* Output: None
+*===============================
+
+FREE        STZ     SETRAM1                      ; Switch In Subs
+            JSR     DO_FRE2
+DRAM3       STZ     SETRAM2                      ; Switch Out Subs
+            RTS
+
+PUTNUM      ST24    NUM                          ; Save Number
+            STZ     NUM+9
+            RTS
+
+ZERONUM     ZERO24  NUM                          ; Zero Number
+            STZ     NEGFLG
+            RTS
+
+SAVEDATA    ST24    DATA+1                       ; Save String Data
+            RTS
+
+SVSTR       JSR     SAVEDATA                     ; Save String Data
+            MOV     #2;DATA
+            RTS
+
+SVDATA      STA     DATA+1                       ; Save 8 Bit Number Data
+            STZ     DATA+2
+            STZ     DATA+3
+            MOVX    #1;DATA
+            RTS
+
+NUMBSUB1    LDNE    NUMB;NUMBSUBL
+            LDNE    NUMB+1;NUMBSUBM
+            DEC     NUMB+2
+NUMBSUBM    DEC     NUMB+1
+NUMBSUBL    DEC     NUMB
+            RTS
+
+NUMBADD1    IBNE    NUMB;NUMBADDX
+            INCD    NUMB+1
+NUMBADDX    RTS
+
+NUMBZERO    LDA     NUMB
+            ORA     NUMB+1
+            ORA     NUMB+2
+            RTS
+
+            LST     OFF
+
diff --git a/SOURCE/MAKE.DRIVER.S b/SOURCE/MAKE.DRIVER.S
new file mode 100644
index 0000000..fa0e3de
--- /dev/null
+++ b/SOURCE/MAKE.DRIVER.S
@@ -0,0 +1,72 @@
+********************************
+*                              *
+*      LLUCE Version 1.0       *
+*                              *
+********************************
+* Copyright 1986-1990 By L&L Productions
+*-------------------------------
+* Version 1.0
+*-------------------------------
+* This Follows Apple's Version Types.
+* First Byte Is Main Version #.
+* Second Byte Contains 2 Nibbles
+* The First Nibble Is The Sub Version
+* The Second Is A Description Character:
+*
+* 0 - Release Version
+* A - Alpha Version
+* B - Beta Version
+* E - Experimental Version
+*
+* A And E Should Not Be Released At All
+* B Only To Beta Testers
+*-------------------------------
+Version     =     $01F4
+            LST   OFF
+            XC
+            TR
+            TR    ADR
+            EXP   ONLY
+Y           =     1
+y           =     1
+N           =     0
+n           =     0
+NOLIST      =     Y
+            DO    NOLIST
+LISTOBJ     =     N
+LISTSYM     =     N
+            ELSE
+LISTOBJ     KBD   'List This Source? (Y/N)'
+LISTSYM     KBD   'List Symbol Table? (Y/N)'
+            FIN
+            DO    LISTOBJ
+            LST
+            FIN
+            LST   OFF
+            PUT   EQUATES/EQUATES
+            PUT   EQUATES/OS.EQUATES
+            PUT   EQUATES/PORTEQU
+
+]TYPE       =     ^drivers                     ; set file type
+]AUX        =     drivers                      ; and aux type
+            ORG   ]AUX                         ; must be this way
+            TYP   ]TYPE
+
+            DSK   /MAIN/LLUCE/LLUCE.DRIVERS
+
+            DO    LISTOBJ
+            LST
+            FIN
+            TTL   'LLUCE - Make LLUCE.DRIVER'
+            ORG   DRIVERS
+            PUT   EQUATES/GLOBALS              ; Defaults
+            PUT   PRINTERS/NOPRINT
+            PUT   CLOCKS/GS                    ; Clock Driver
+            PUT   MODEMS/GSPORT
+            PUT   EQUATES/FILTER               ; Profanity Filter
+            DS    \
+
+            DO    LISTSYM
+            LST
+            FIN
+
diff --git a/SOURCE/MODEMS/CAT103.S b/SOURCE/MODEMS/CAT103.S
new file mode 100644
index 0000000..841dcad
--- /dev/null
+++ b/SOURCE/MODEMS/CAT103.S
@@ -0,0 +1,256 @@
+            LST   RTN
+            TTL   'LLUCE - AppleCat 103 Driver'
+            PAG
+*-------------------------------
+* Internal - Apple Cat 103
+*-------------------------------
+* Date 3/18/88 - AEN
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                       ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                              ; Initialize Speed
+CALLSPD     DB    0                              ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSWER
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   M_IRQ                          ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Modem Card
+*-------------------------------
+
+INIT        PHP
+            SEI
+            LDX   SLOT                           ; Get Slot Offset
+            LDY   #0
+:INIT       LDA   INITBYT,Y                      ; Init All 16 Bytes
+            STA   SWBYT,X
+            INX
+            INY
+            CPY   #$10
+            BNE   :INIT
+
+            PLP
+            RTS
+
+* Setup For The Call
+*-------------------------------
+
+RINGSET     LDA   #0                             ; Reset Time-On
+            STZ   BYTCNT
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            STZ   CARWAIT                        ; Reset Wait Flag
+            TAY                                  ; Set 300 Baud
+            JMP   SETSPD
+
+* Scan For The Ring And Handle It
+*-------------------------------
+
+RING        LDX   SLOT                           ; Get Offset
+            BIT   CARWAIT                        ; Do They Want Manual-Answer?
+            BMI   :RING2A                        ; Yep
+
+            LDA   ACBYTE,X
+            AND   #CATRING
+            BEQ   :RING4                         ; Nothing
+
+:RING2      LDA   ACBYTE,X                       ; Wait For Ring To Clear
+            AND   #CATRING
+            BNE   :RING2
+
+:RING2A     LDA   #SH                            ; Pick Up Phone
+            STA   SHBYT,X
+            LDA   #80                            ; Setup Carrier Wait Time
+            STA   CARWAIT
+            LDA   #60                            ; Wait For Things To Settle
+            JSR   WAIT
+:RING3      LDA   #0                             ; Do Big Wait...
+            JSR   WAIT
+            LDA   SWBYT,X                        ; Do We Have Carrier?
+            AND   #CD103
+            BNE   :RING5                         ; Yep
+
+            DEC   CARWAIT                        ; Loop Until Count Is Done
+            BNE   :RING3
+
+            JSR   HANGUP
+:RING4      CLC                                  ; Nothing Happened
+            RTS
+
+:RING5      SEC                                  ; Reset Carrier Timing
+ANSWER      LDA   #-1                            ; Signal We Want Manual-Answer
+            STA   CARWAIT
+            RTS
+
+* Hangup Phone
+*-------------------------------
+
+HANGUP      LDX   SLOT                           ; Get Offset
+            STZ   SHBYT,X                        ; Hang Up Phone
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                  ; Save X
+            LDX   SLOT                           ; Get Offset
+            LDA   STATUS1,X                      ; Get Status
+            AND   #CAT_RXF
+            CLC
+            BEQ   :INP2                          ; No Data
+
+            LDA   #RNGIRQEN                      ; Reset Char Ready Byte
+            STA   XMTBYT,X
+            LDA   INDATA,X                       ; Get Data
+            SEC
+:INP2       PLX                                  ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                  ; Save X
+            PHA
+            DEC   TIMECNT                        ; Count Down Bytes Per Second
+            BNE   :OUT1                          ; Not A Seconds Worth Yet
+
+            LDA   CALLSPD                        ; Reset Counter
+            ASL   A
+            ASL   A
+            ASL   A                              ; Time Count = Base.Rate * 32
+            ASL   A
+            ASL   A
+            STA   TIMECNT
+            INC   BYTCNT                         ; Seconds - At 64 Yet?
+            BIT   BYTCNT
+            BVC   :OUT1                          ; Nope
+
+            LDX   #0                             ; Reset Seconds
+            STX   BYTCNT
+            INC   BYTCNT+1                       ; Minutes - At 64 Yet?
+            BIT   BYTCNT+1
+            BVC   :OUT1                          ; Nope
+
+            LDX   #0                             ; Reset Minutes
+            STX   BYTCNT+1
+            INC   BYTCNT+2                       ; Inc Hours
+:OUT1       LDX   SLOT
+:OUT2       LDA   STATUS1,X                      ; Check Status
+            AND   #CAT_TXE
+            BEQ   :OUT2                          ; Loop Until Ready
+
+            PLA
+            STA   OUTDAT,X                       ; Output Byte
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                  ; Don't Kill Any Reg's
+            PHA
+            LDA   CARWAIT                        ; Do We Have Carrier?
+            BEQ   :CHKDCD3                       ; Nope
+
+            LDX   SLOT
+            LDA   SWBYT,X                        ; Check Carrier
+            AND   #CD103
+            BEQ   :CHKDCD2                       ; No Carrier
+
+            LDA   #-1                            ; Buffer Carrier Detect
+            STA   CARWAIT
+            SEC
+            BCS   :CHKDCD4                       ; Use Return Routine
+
+:CHKDCD2    DEC   CARWAIT                        ; Count Down
+:CHKDCD3    CLC
+:CHKDCD4    PLA                                  ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs232 Speed
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                           ; Get Offset
+            LDA   SPEED,Y                        ; Get Speed
+            STA   SPDBYT,X                       ; Set Speed
+            LDA   #1                             ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                             ; At 300?
+            BEQ   :SETSPD3                       ; Yep
+
+            ASL   CALLSPD                        ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                        ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                       ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                  ; Restore & Return
+            RTS
+
+* Handle Interrupt
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+WAIT        SEC                                  ; From Apple [+ Ref Man - Pg 147]
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Variables
+*-------------------------------
+
+SPEED       DB    TXBR300+RXBR300                ; Handle 300
+            DB    TXBR1200+RXBR1200              ; Handle 1200
+
+TIMECNT     DB    0
+CARWAIT     DB    0
+
+INITBYT     DB    $00                            ; DACBYT
+            DB    DIS212+MSQ                     ; SQUBYT
+            DB    $00                            ; SHBYT
+            DB    IRQ29DIS+BSR120DIS             ; BSRBYT
+            DB    $00
+            DB    $80
+            DB    $00
+            DB    $06
+            DB    $00
+            DB    RA103                          ; 103 answer
+            DB    STOP1_5+DATBITS8
+            DB    TXBR300+RXBR300
+            DB    TXON+RXON
+            DB    RNGIRQEN+TA103
+            DB    $00
+            DB    TXMDM+RXMDM
+
+            ASC   'Cat103'
+            DS    $400-*+MODEMDVR
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/CAT212.S b/SOURCE/MODEMS/CAT212.S
new file mode 100644
index 0000000..26e64ab
--- /dev/null
+++ b/SOURCE/MODEMS/CAT212.S
@@ -0,0 +1,306 @@
+            LST   RTN
+            TTL   'LLUCE - AppleCat 212 Driver'
+            PAG
+*-------------------------------
+* Internal - Apple Cat 212
+*-------------------------------
+* Date 12/09/86
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                       ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                              ; Initialize Speed
+CALLSPD     DB    0                              ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSWER
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   M_IRQ                          ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Modem Card
+*-------------------------------
+
+INIT        PHP
+            SEI
+            LDX   SLOT                           ; Get Slot Offset
+            LDY   #0
+:INIT       LDA   INITBYT,Y                      ; Init All 16 Bytes
+            STA   DACBYT,X
+            INX
+            INY
+            CPY   #$10
+            BNE   :INIT
+
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     LDA   #0                             ; Reset Time-On
+            STZ   BYTCNT
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            STZ   CARWAIT                        ; Reset Wait Flag
+            TAY                                  ; Set 300 Baud
+            JMP   SETSPD
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        LDX   SLOT                           ; Get Offset
+            BIT   CARWAIT                        ; Do They Want Manual-Answer?
+            BMI   :RING2A                        ; Yep
+
+            LDA   ACBYTE,X
+            AND   #CATRING
+            BEQ   :RING4                         ; Nothing
+
+:RING2      LDA   ACBYTE,X                       ; Wait For Ring To Clear
+            AND   #CATRING
+            BNE   :RING2
+
+:RING2A     LDA   #SH                            ; Pick Up Phone
+            STA   SHBYT,X
+            LDA   #80                            ; Setup Carrier Wait Time
+            STA   CARWAIT
+            LDA   #DIS212+MSQ                    ; Disable 212 Mode
+            STA   SQUBYT,X
+            LDA   #128                           ; Wait
+            JSR   WAIT
+            LDA   #EN212+MSQ                     ; Enable 212 Mode
+            STA   SQUBYT,X
+            LDA   #60                            ; Wait For Things To Settle
+            JSR   WAIT
+:RING3      LDA   #0                             ; Do Big Wait...
+            JSR   WAIT
+            LDA   SWBYT,X                        ; Do We Have Carrier?
+            AND   #CD103
+            BNE   :RING5                         ; Yep
+
+            LDA   ACBYTE,X                       ; Do We Have 212 Carrier
+            AND   #CD212
+            BNE   :RING6                         ; Yep
+
+            DEC   CARWAIT                        ; Loop Until Count Is Done
+            BNE   :RING3
+
+            JSR   HANGUP
+:RING4      CLC                                  ; Nothing Happened
+            RTS
+
+:RING5      LDA   #RNGIRQEN+TA103                ; Reset Xmtbyt
+            STA   XMTBYT,X
+            STA   XMTDATA
+            LDA   #DIS212+MSQ                    ; Disable 212 Card
+            STA   SQUBYT,X
+            LDA   #TXMDM+RXMDM                   ; Send Uart To 103 Board
+            STA   DEVBYT,X
+            BEQ   :RING7                         ; Finish Connect
+
+:RING6      LDA   #B212_10+RESET212              ; Reset 212 Card
+            STA   BYT212,X
+            LDA   #EN212+MSQ                     ; Re-Enable 212 Card
+            STA   SQUBYT,X
+            LDA   #TX212+RX212                   ; Send Uart To 212 Card
+            STA   DEVBYT,X
+            LDA   #RNGIRQEN+TXDISABLE+REVCHAN    ; Reset Xmtbyt
+            STA   XMTBYT,X
+            STA   XMTDATA
+            LDY   #1                             ; Set Speed To 1200
+            JSR   SETSPD
+:RING7      LDA   #-1                            ; Reset Carrier Timing
+            STA   CARWAIT
+            SEC
+            LDA   #0                             ; Do Delay Last
+            JMP   WAIT
+
+* Send Ata
+*-------------------------------
+
+ANSWER      LDA   #-1                            ; Signal We Want Manual-Answer
+            STA   CARWAIT
+            RTS
+
+* Hangup Phone
+*-------------------------------
+
+HANGUP      LDX   SLOT                           ; Get Offset
+            LDA   #RNGIRQEN+TXDISABLE+REVCHAN
+            STA   XMTBYT,X                       ; Turn Off 103 Carrier
+            LDA   #DIS212+MSQ
+            STA   SQUBYT,X                       ; Turn Off 212 Carrier
+            STZ   SHBYT,X                        ; Hang Up Phone
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                  ; Save X
+            LDX   SLOT                           ; Get Offset
+            LDA   STATUS1,X                      ; Get Status
+            AND   #CAT_RXF
+            CLC
+            BEQ   :INP2                          ; No Data
+
+            LDA   XMTDATA                        ; Reset Char Ready Byte
+            STA   XMTBYT,X
+            LDA   INDATA,X                       ; Get Data
+            SEC
+:INP2       PLX                                  ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                  ; Save X
+            PHA
+            DEC   TIMECNT                        ; Count Down Bytes Per Second
+            BNE   :OUT1                          ; Not A Seconds Worth Yet
+
+            LDA   CALLSPD                        ; Reset Counter
+            ASL
+            ASL
+            ASL                                  ; Time Count = Base.Rate * 32
+            ASL
+            ASL
+            STA   TIMECNT
+            INC   BYTCNT                         ; Seconds - At 64 Yet?
+            BIT   BYTCNT
+            BVC   :OUT1                          ; Nope
+
+            LDX   #0                             ; Reset Seconds
+            STX   BYTCNT
+            INC   BYTCNT+1                       ; Minutes - At 64 Yet?
+            BIT   BYTCNT+1
+            BVC   :OUT1                          ; Nope
+
+            LDX   #0                             ; Reset Minutes
+            STX   BYTCNT+1
+            INC   BYTCNT+2                       ; Inc Hours
+:OUT1       LDX   SLOT
+:OUT2       LDA   STATUS1,X                      ; Check Status
+            AND   #CAT_TXE
+            BEQ   :OUT2                          ; Loop Until Ready
+
+            PLA
+            STA   OUTDAT,X                       ; Output Byte
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                  ; Don't Kill Any Reg's
+            PHA
+            LDA   CARWAIT                        ; Do We Have Carrier?
+            BEQ   :CHKDCD3                       ; Nope
+
+            LDX   SLOT
+            LDA   CALLSPD                        ; Check Calling Speed
+            CMP   #4                             ; At 1200 Baud?
+            BEQ   :DCD212                        ; Yep
+
+            LDA   SWBYT,X                        ; Check Carrier
+            AND   #CD103
+            BEQ   :CHKDCD2                       ; No Carrier
+
+:CHKDCD1    LDA   #-1                            ; Buffer Carrier Detect
+            STA   CARWAIT
+            SEC
+            BCS   :CHKDCD4                       ; Use Return Routine
+
+:DCD212     LDA   ACBYTE,X                       ; Check 212 Carrier
+            AND   #CD212
+            BNE   :CHKDCD1                       ; All Is Well
+
+:CHKDCD2    DEC   CARWAIT                        ; Count Down
+:CHKDCD3    CLC
+:CHKDCD4    PLA                                  ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs232 Speed
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                           ; Get Offset
+            LDA   SPEED,Y                        ; Get Speed
+            STA   SPDBYT,X                       ; Set Speed
+            LDA   #1                             ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                             ; At 300?
+            BEQ   :SETSPD3                       ; Yep
+
+            ASL   CALLSPD                        ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                        ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                       ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                  ; Restore & Return
+            RTS
+
+* Handle Interrupt
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+WAIT        SEC                                  ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+*-------------------------------
+
+SPEED       DB    TXBR300+RXBR300                ; Handle 300
+            DB    TXBR1200+RXBR1200              ; Handle 1200
+
+TIMECNT     DB    0
+CARWAIT     DB    0
+XMTDATA     DB    0
+
+INITBYT     DB    $04
+            DB    DIS212+MSQ
+            DB    $00
+            DB    IRQ29DIS+BSR120DIS
+            DB    $04
+            DB    $80
+            DB    $00
+            DB    $06
+            DB    $00
+            DB    RA103
+            DB    STOP1_5+DATBITS8
+            DB    TXBR300+RXBR300
+            DB    TXON+RXON
+            DB    RNGIRQEN+REVCHAN+TXDISABLE
+            DB    $00
+            DB    TXMDM+RXMDM
+
+            ASC   'Cat212'
+            DS    $400-*+MODEMDVR
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/EPIC.DVR.S b/SOURCE/MODEMS/EPIC.DVR.S
new file mode 100644
index 0000000..bf05552
--- /dev/null
+++ b/SOURCE/MODEMS/EPIC.DVR.S
@@ -0,0 +1,303 @@
+            LST   RTN
+            TTL   'LLUCE - Epic Driver'
+            PAG
+*-------------------------------
+* USRobotics 2400 Driver Written By Andy Nicholas
+* January 19, 1988
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                    ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                           ; Initialize Speed
+CALLSPD     DB    0                           ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSWER
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   M_IRQ                       ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                   ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                          ; Let Modem Reset
+            JSR   WAIT
+            JSR   WAIT
+            JSR   RAISEDTR
+            LDY   #2                          ; Set Init Speed (2400)
+            JSR   SETSPD
+            LDA   DATA,X                      ; Clear Data Strobe
+            LDA   #0                          ; Slight Delay (Let Modem Do Init)
+            JSR   WAIT
+            LDX   #0
+:RSET2      LDA   #$80
+            JSR   WAIT
+            LDA   INITSTR,X                   ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                         ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'K'                        ; Check For "OK"
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                      ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                               ; Return
+
+JRING       JMP   RINGSET                     ; Extend Branch To Ringset
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                         ; Check For A Char
+            BCC   :RING5                      Nope...
+
+            AND   #Clrhi                      ; Strip High
+            CMP   #'E'
+            CLC
+            BNE   :RING5                      ; Keep Checking
+
+:RING2      JSR   INP                         ; Check For Char
+            BCC   :RING2
+
+            LDY   #0                          ; Def = 300 Baud
+            AND   #Clrhi                      ; Strip High
+            CMP   #'R'                        ; Oops, "No Carrier" Message
+            BEQ   JRING
+
+            CMP   #Cr                         ; Connect 300
+            BEQ   :RING3
+
+            CMP   #'3'                        ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                        ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                        ; Connect 2400
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                        ; Connect 4800
+            BEQ   :RING3
+
+            INY
+            CMP   #'9'                        ; Connect 9600
+            BNE   :RING2
+
+:RING3      JSR   SETSPD                      ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                          ; Let Carrier's Settle
+            JSR   WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                               ; We Have A Connection!
+:RING5      RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDX   #0
+:ANSWER2    LDA   ANSSTR,X                    ; Get Text
+            BEQ   :ANSWER3                    ; We Are Done
+
+            JSR   OUT                         ; Send It
+            LDA   #$80
+            JSR   WAIT
+            INX
+            BNE   :ANSWER2                    ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                               ; Save X
+            LDX   SLOT                        ; Get Offset
+            LDA   STATUS,X                    ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                       ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                               ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                               ; Save X
+            DEC   TIMECNT                     ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                      ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                      ; Reset Seconds
+            INC   BYTCNT+1                    ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                    ; Reset Minutes
+            INC   BYTCNT+2                    ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                    ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                       ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                        ; Output Byte
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                               ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                        ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                      ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                               ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs-232 Speed/Speed In Y Reg
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                        ; Get Offset
+            LDA   SPEED,Y                     ; Get Speed
+            STA   CONTROL,X                   ; Set Speed
+            LDA   #1                          ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                          ; At 300?
+            BEQ   :SETSPD3                    ; Yep
+
+            ASL   CALLSPD                     ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                     ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                    ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                               ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCTXON+SSCRXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                      ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+WAIT        SEC
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+TIMECNT     DB    0                           ; 1-Second Counter
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+
+            DS    $3B0-*+MODEMDVR
+
+CDBYTE      DB    SSCDSR                      ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2'0D00
+            DS    $30-*+INITSTR               ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/GS.U.S b/SOURCE/MODEMS/GS.U.S
new file mode 100644
index 0000000..7791d0e
--- /dev/null
+++ b/SOURCE/MODEMS/GS.U.S
@@ -0,0 +1,677 @@
+             TTL   'Hayes Ultra - GS port driver'
+             PAG
+             LST   OFF
+*-------------------------------
+* GS Port Driver Bios
+* written by Andy Nicholas on July 26, 1987
+* Updated for Ultra 144 - 1/17/92 - LTW
+* Fixed for buffering/interrupts 12/10/92 - AMW
+*-------------------------------
+
+             XC
+             XC                                    ; uses 65816 code
+BIGBUFF      =     0
+
+* Equates
+*-------------------------------
+
+*VIDCOUT =     $906
+PTR          =     $A
+
+RETURN       =     13
+PRTSPDL      =     12
+PRTSPDH      =     13
+*ESCAPE  =     43
+
+* Jump Table
+*-------------------------------
+             ORG   $B00
+MODEMDVR     =     *
+SLOT         DB    MSLOT*16                        ; Serial Card Slot
+MDMSPEED     =     *
+INITSPD      DB    6                               ; initialize speed
+CALLSPD      DB    0                               ; speed of call
+
+BYTCNT       DB    0,0,0
+
+MDMINIT      BRL   M_INIT
+MDMRSET      BRL   RESET
+MDMRING      BRL   RING
+MDMANS       BRL   ANSRING
+MDMHANG      BRL   HANGUP
+MDMIN        BRL   INP
+MDMOUT       BRL   OUT
+MDMDCD       BRL   M_CHKDCD
+MDMSSPD      BRL   SETSPD
+MDMINT       BRL   M_IRQ
+MDMDTR       BRL   RAISEDTR                        ; raise dtr
+MDMCBUF      BRL   CLEAR_BUF
+MDMQUIT      BRL   QUIT
+
+* init the serial port pascal locations
+*-------------------------------
+
+M_INIT       LDA   MSLOT*256+$C00D                 ; Get Init Address
+             STA   DOINIT+1
+             LDA   MSLOT*256+$C00E                 ; Get Read Address
+             STA   DOREAD+1
+             LDA   MSLOT*256+$C00F                 ; Get Write Address
+             STA   DOWRITE+1
+             LDA   MSLOT*256+$C010                 ; Get Status Address
+             STA   DOSTATUS+1
+             LDA   MSLOT*256+$C012
+             STA   DOEXT+1
+
+             LDX   #MSLOT+$C0                      ; setup modem port
+             LDY   #MSLOT*16
+             JSR   DOINIT
+
+             LDA   #<PORTINIT                      ; point to port init string
+             LDX   #>PORTINIT
+             LDY   #0
+             JSR   XMITSTR                         ; send it!
+
+             DO    BIGBUFF
+             LDA   #GetInBuffer                    ; getting IO buffer
+             STA   IGETSET
+
+             LDA   #<INBUFFER                      ; get current buffer
+             LDX   #>INBUFFER
+             LDY   #0
+             JSR   DOEXT
+
+             CLC
+             XCE
+             REP   #$30
+             MX    %00
+
+             PHA
+             PEA   $1000                           ; type 1, application, auxID
+             LDX   #$2003
+             JSL   $E10000
+*        _GetNewID
+             PLA
+             STA   M_MEM_ID
+
+             PHA
+             PHA
+             PEA   0
+             PEA   $4000                           ; we want 16k
+             PHA
+             PEA   $C018                           ; locked, fixed, no special
+             PEA   0
+             PEA   0
+             LDX   #$902
+             JSL   $E10000
+*        _NewHandle
+             BCC   MINIT_OK
+
+             PLA
+             PLA
+             LDA   #$EAEA                          ; Put no-ops over the input buffer
+             STA   PATCHIN                         ; JSR if we could not get any memory
+             STA   PATCHIN+1
+             STZ   M_MEM_ID                        ; mark no memory found
+             BRA   MINIT_DN
+
+MINIT_OK     PLA
+             STA   0                               ; get the handle
+             STA   M_HANDLE
+             PLA
+             STA   0+2
+             STA   M_HANDLE+2
+
+             LDY   #2                              ; get memory pointer
+             LDA   [0]
+             STA   M_BUFADR
+             LDA   [0],Y
+             STA   M_BUFADR+2
+
+             LDA   #$4000                          ; set length to 16K
+             STA   M_BUFLEN
+
+             SEC
+             XCE
+             MX    %11
+             LDA   #<IN_BUF                        ; set up buffer
+             LDX   #>IN_BUF
+             LDY   #0
+             JSR   DOEXT
+             FIN
+
+             LDA   #GetIntInfo                     ; get interrupt info
+             STA   INTCODE
+
+             LDA   #<INTLIST                       ; tell it, no interrupts
+             LDX   #>INTLIST
+             LDY   #0
+             JSR   DOEXT
+
+             LDA   #SetIntInfo                     ; set interrupt info
+             STA   INTCODE
+
+             STZ   INTFLAGS                        ; tell it no interrupts
+             STZ   INTFLAGS+1
+
+             LDA   #<INTLIST
+             LDX   #>INTLIST
+             LDY   #0
+             JSR   DOEXT
+
+MINIT_DN     SEC
+             XCE
+             RTS
+
+PATCHIN      DS    3
+CLEAR_BUF    RTS
+
+* Reset modem before quitting ACOS
+*-------------------------------
+QUIT         JSR   RAISEDTR                        ; raise DTR
+
+             LDY   INITSPD                         ; set init speed
+             JSR   SETSPD
+
+             LDA   #<QUITSTR
+             LDX   #>QUITSTR
+             LDY   #$80
+             JSR   XMITSTR
+
+             DO    BIGBUFF
+             LDA   M_MEM_ID                        ; any buffer?
+             ORA   M_MEM_ID+1
+             BEQ   HANGUP
+
+             LDA   #SetInBuffer                    ; setting IO buffer
+             STA   IGETSET
+
+             LDA   #<INBUFFER                      ; reset buffer back
+             LDX   #>INBUFFER
+             LDY   #0
+             JSR   DOEXT
+
+             CLC
+             XCE
+             REP   #$30
+             MX    %00
+             LDA   M_HANDLE+2                      ; get rid of memory
+             PHA
+             LDA   M_HANDLE
+             PHA
+             LDX   #$1002
+             JSL   $E10000
+*        _DisposeHandle
+             SEC
+             XCE
+             MX    %11
+             FIN
+
+* Hang up the modem if needed
+*-------------------------------
+HANGUP       LDA   #$80
+             HEX   2C
+RAISEDTR     LDA   #0
+             STA   DTRFLAG
+             LDA   #<DTRLIST
+             LDX   #>DTRLIST
+             LDY   #0
+             BRL   DOEXT
+
+* clear the input buffer
+*-------------------------------
+
+CLRBUFF      LDA   #<FLUSHINQ
+             LDX   #>FLUSHINQ
+             LDY   #0
+             BRL   DOEXT
+
+* input data
+*-------------------------------
+INP          PHX                                   ; save x
+             PHY
+
+             LDX   #MSLOT+$C0
+             LDY   #MSLOT*16
+             LDA   #RXREADY
+             JSR   DOSTATUS
+             LDA   #0
+             BCC   M_INP1
+
+             LDX   #MSLOT+$C0
+             LDY   #MSLOT*16
+             JSR   DOREAD
+
+             SEC
+M_INP1       PLY                                   ; restore & return
+             PLX
+             RTS
+
+* output data
+*-------------------------------
+
+OUT          PHX                                   ; save x
+             PHY                                   ; save y
+             PHA                                   ; save a
+
+M_OUT1       LDX   #MSLOT+$C0                      ; ready for send?
+             LDY   #MSLOT*16
+             LDA   #TXREADY
+             JSR   DOSTATUS
+             BCC   M_OUT1                          ; nope
+
+             PLA                                   ; get a
+             LDX   #MSLOT+$C0
+             LDY   #MSLOT*16
+             JSR   DOWRITE                         ; send it
+
+             PLY                                   ; get y
+             PLX                                   ; get x
+             RTS
+
+* init modem for ring
+*-------------------------------
+
+RESET        JSR   HANGUP
+
+             STZ   CARRIER                         ; clear previous stuff
+             STZ   M_PROTOCOL
+             STZ   COMPRESSION
+             STZ   CONNECT
+
+             LDA   #0                              ; let modem reset
+             JSR   M_WAIT
+             JSR   M_WAIT
+
+             JSR   RAISEDTR                        ; raise DTR
+
+             LDY   INITSPD                         ; set init speed
+             JSR   SETSPD
+
+             LDA   #<INITSTR                       ; point to init string
+             LDX   #>INITSTR
+             LDY   #$80
+             JSR   XMITSTR                         ; transmit init string
+
+             LDA   #6
+             STA   COUNTLO
+             STA   COUNTHI
+
+M_RSET4      LDY   #-1
+M_RSET5      DEY
+             BNE   M_RSET6
+
+             DEC   COUNTLO
+             BNE   M_RSET4
+             DEC   COUNTHI
+             BNE   M_RSET4
+             BEQ   RESET
+
+M_RSET6      JSR   GETNUMBER
+             BCC   M_RSET5
+             BNE   M_RSET5
+
+             STZ   BYTCNT                          ; reset byte counter
+             STZ   BYTCNT+1
+             STZ   BYTCNT+2
+
+             JSR   CLRBUFF
+
+M_IRQ        CLC
+             RTS                                   ; return
+
+* test for a ring and handle it
+*-------------------------------
+RING         JSR   GETNUMBER                       ; check for a char
+             BCC   M_NODATA                        ; nope...
+
+             CMP   #SM_OK                          ; is it a 'OK'? (numeric)
+             BEQ   M_NODATA
+             CMP   #SM_RING                        ; is it a 'ring'? (numeric)
+             BEQ   M_NODATA
+             CMP   #SM_NOCAR                       ; is it a 'no carrier'? (numeric)
+             BNE   M_ISCNCT                        ; nope, check for connect messages
+             BRA   M_NODATA                        ; yes, ignore it!
+
+RING_RES     JSR   GETNUMBER
+             BVS   M_ISCNCT
+             BCC   RING_RES
+             BCS   M_DROPIT
+
+*-------------------------------
+M_ISCNCT     JSR   RINGHUNG
+             CMP   #PROT_NONE
+             BCC   TST_COMP                        ; it's not 70 or greater
+             STA   M_PROTOCOL                      ; save it so we can look at it in acos
+             BCS   RING_RES
+
+TST_COMP     CMP   #COMP_MNP5
+             BCC   TST_CARR                        ; is not 66 or greater
+             STA   COMPRESSION                     ; save it so we can look at it in ACOS
+             BCS   RING_RES
+
+TST_CARR     CMP   #SM_CAR03                       ; Carrier message?
+             BCC   TST_CONN                        ; No, test for connect message
+             STA   CARRIER
+             BCS   RING_RES
+
+TST_CONN     LDY   TBL_CONN
+TST_CON1     DEY
+             BMI   RING_RES                        ; no more to check, so go back and wait
+             CMP   TBL_CONN,Y                      ; is it a valid code?
+             BNE   TST_CON1                        ; nope, keep checking
+
+             STA   CONNECT                         ; save it so we can look at it in ACOS
+             DEY                                   ; reduce it one for setbaud
+
+             JSR   SETSPD                          ; set the correct speed
+
+             LDY   #5
+RING4        LDA   #0                              ; let carrier's settle
+             JSR   M_WAIT
+             DEY
+             BNE   RING4
+
+             JSR   CLRBUFF
+             SEC                                   ; we have a connection!
+             RTS
+
+M_DROPIT     JSR   RESET
+M_NODATA     CLC
+             RTS
+
+* wait routine
+*-------------------------------
+
+M_WAIT       SEC                                   ; from apple ][+ ref man - pg 147
+M_WAIT2      PHA
+M_WAIT3      SBC   #1
+             BNE   M_WAIT3
+             PLA
+             SBC   #1
+             BNE   M_WAIT2
+             RTS
+
+* Check for carrier using Get_Port_Stat routine
+*-------------------------------
+M_CHKDCD     PHX
+             PHY
+
+             LDA   #<CARRLIST
+             LDX   #>CARRLIST
+             LDY   #0
+             JSR   DOEXT
+
+             CLC
+             LDA   CARRBITS
+             AND   CDBYTE
+             BEQ   NO_CARR
+             SEC
+NO_CARR      PLY
+             PLX
+             RTS
+
+* send ata to phone
+*-------------------------------
+ANSRING      JSR   ANSWER                          ; the phone rang so send answer string
+             CLC
+             RTS
+
+* set the rs-232 speed [speed offset in Y]
+*
+* 0 =   300 baud
+* 1 =  1200 baud
+* 2 =  2400 baud
+* 3 =  4800 baud
+* 4 =  9600 baud
+* 5 = 19200 baud
+* 6 = 38400 baud
+*-------------------------------
+
+SETSPD       PHX
+             PHY
+
+             LDY   #0
+             LDA   CARRIER
+             BEQ   DO_BAUD
+SETSPD1      CMP   ACOS_SPD,Y
+             BEQ   SETSPD2
+             INY
+             INY
+             BRA   SETSPD1
+
+SETSPD2      INY
+             LDX   ACOS_SPD,Y
+             STX   CALLSPD
+
+DO_BAUD      PLA                                   ; get desired speed off stack
+             ASL                                   ; shift in one for index
+             TAY                                   ; transfer for Y for indexing
+             LDA   #PRTSPDL
+             STA   SCCREG
+             LDA   PRTSPD,Y
+             STA   SCCREG
+             INY
+             LDA   #PRTSPDH
+             STA   SCCREG
+             LDA   PRTSPD,Y
+             STA   SCCREG
+
+             PLX
+             RTS
+
+ANSWER       LDA   #<ANSSTR                        ; point to init string
+             LDX   #>ANSSTR
+             LDY   #$80
+
+* Send string to modem
+*
+* A&X point to string
+* Y is time for wait loop
+*-------------------------------
+XMITSTR      STA   PTR
+             STX   PTR+1
+
+             TYA
+             JSR   M_WAIT
+
+             LDY   #-1
+M_XMIT2      INY
+             LDA   (PTR),Y                         ; get text
+             BEQ   M_XMIT3                         ; we are done
+
+             JSR   OUT                             ; send it
+             BRA   M_XMIT2
+
+             CLC
+M_XMIT3      RTS
+
+
+* Get the two digit result code in one byte (Hex Format)
+*-------------------------------
+GETNUMBER    LDA   #-1
+             STA   DECBYTE
+M_GET1ST     JSR   M_GETBYT                        ; get the first byte
+             BVC   GNM_EXIT
+             BCS   M_GET1ST
+             STA   DECBYTE                         ; and incase the next byte is a CR
+
+M_GET2ND     JSR   M_GETBYT                        ; get the second byte
+             BVC   M_GET2ND
+             BCS   GNM_EXIT
+
+             LDY   #10
+M_DEC8A      CLC
+             ADC   DECBYTE                         ; add the 10's digit, 10 times
+             DEY
+             BNE   M_DEC8A
+             STA   DECBYTE
+
+M_GETCR      JSR   INP                             ; GetData
+             BCC   M_GETCR
+
+GNM_EXIT     LDA   DECBYTE
+             PHP
+             CMP   #SM_NOCAR
+             BNE   GETDAOK
+             STZ   M_PROTOCOL
+             LDA   #SM_CAR03
+             STA   CARRIER
+             LDA   #SM_CON03
+
+GETDAOK      PLP
+             RTS
+
+* Flags on Exit:
+* Overflow Carry  Condidtion
+* -------- -----  ----------
+*  Clear   Clear  No data recieved
+*   Set    Clear  Number recieved
+*   Set     Set   <CR> recieved
+*
+M_GETBYT     JSR   INP                             ; GetData
+             CLV
+             BCC   DAT_DONE
+             AND   #$7F
+             CMP   #RETURN
+             BEQ   DAT_EXIT
+             CMP   #' '
+             BCC   M_GETBYT
+             CMP   #'0'
+             BCC   M_GETBYT
+             CMP   #'9'+1
+             BCS   M_GETBYT
+             EOR   #'0'
+             CLC
+DAT_EXIT     BIT   DAT_DONE
+DAT_DONE     RTS
+
+*GETDATA JSR   INP
+*        BCC   GD_EXIT
+*        PHP
+*        BIT   GD_DEBUG
+*        BPL   GD_DONE
+*
+*        PHA
+*        PHX
+*        PHY
+*        CMP   #RETURN
+*        BNE   GETSHOW
+*        LDA   #' '
+*GETSHOW JSR   VIDCOUT
+*        PLY
+*        PLX
+*        PLA
+*GD_DONE PLP
+*GD_EXIT RTS
+
+RINGHUNG     RTS
+
+* Table of Speeds and other important stuff
+*-------------------------------
+DOINIT       JMP   MSLOT*256+$C000
+DOREAD       JMP   MSLOT*256+$C000
+DOWRITE      JMP   MSLOT*256+$C000
+DOSTATUS     JMP   MSLOT*256+$C000
+DOEXT        JMP   MSLOT*256+$C000
+*-------------------------------
+PRTSPD       DB    126,1,94,0,46,0,22,0,10,0,4,0,1,0  ; speeds 300-38400
+*-------------------------------
+M_MEM_ID     DS    2
+M_HANDLE     DS    4
+COUNTHI      DB    0
+COUNTLO      DB    0
+*-------------------------------
+PORTINIT     DB    1
+             ASC   '0D'                            ; 8 bits
+             DB    1
+             ASC   '2P'                            ; no parity
+             DB    1
+             ASC   'AD'                            ; auto-tabbing
+             DB    1
+             ASC   'XD'                            ; no xoff recognition
+             DB    1
+             ASC   'FD'                            ; no find keyboard
+             DB    1
+             ASC   'CD'                            ; no column overflow
+             DB    1
+             ASC   'ED'                            ; echo disabled
+             DB    1
+             ASC   'MD'                            ; no lf masking
+             DB    1
+             ASC   'BE'                            ; buffering enabled
+             DB    1
+             ASC   'Z'
+             DB    0                               ; no more control characters
+*-------------------------------
+CARRLIST     DB    3                               ; GetPortStat
+             DB    GetPortStat                     ; detecting carrier drop
+             DA    0                               ; result
+CARRBITS     DA    0                               ; carrier status here
+*-------------------------------
+DTRLIST      DB    3                               ; parameter list for
+             DB    SetDTR                          ; setting DTR
+             DA    0                               ; result
+DTRFLAG      DA    0                               ; bit 7 affects DTR
+*-------------------------------
+FLUSHINQ     DB    2                               ; parameter list for flushing input queue
+             DB    FlushInQueue
+             DA    0                               ; result
+*-------------------------------
+INBUFFER     DB    4                               ; parameter count
+IGETSET      DB    GetInBuffer                     ; Set/GetInBuffer
+             DW    0                               ; result code
+             DS    4                               ; buffer address
+             DW    0                               ; buffer length
+*-------------------------------
+IN_BUF       DB    4                               ; count
+             DB    SetInBuffer
+             DA    0                               ; result
+M_BUFADR     ADRL  0                               ; buffer address
+M_BUFLEN     DW    $4000                           ; buffer length
+*-------------------------------
+INTLIST      DB    3                               ; count
+INTCODE      DB    GetIntInfo                      ; Get/SetIntInfo
+             DW    0                               ; result
+INTFLAGS     DW    0                               ; we dont want interrupts
+INTPROC      DS    4                               ; no handler
+*-------------------------------
+TBL_CONN     DB    9
+             DB    SM_CON03
+             DB    SM_CON12
+             DB    SM_CON24
+             DB    SM_CON48
+             DB    SM_CON96
+             DB    SM_CON19
+             DB    SM_CON38
+
+ACOS_SPD     DB    SM_CAR03,1
+             DB    SM_CAR12,4
+             DB    SM_CAR24,8
+             DB    SM_CAR48,16
+             DB    SM_CAR96,32
+             DB    SM_CAR14,48
+             DB    SM_CON38,128
+DECBYTE      DB    0
+
+             ASC   'GS/Ultra'
+
+             DS    $3B0-*+MODEMDVR
+
+             DS    11
+CARRIER      DS    1
+M_PROTOCOL   DS    1
+COMPRESSION  DS    1
+CONNECT      DS    1
+
+CDBYTE       DB    DSRSTATE                        ; mask DCD only (0=connected)
+*CDBYTE DB DCDSTATE ; mask DCD only (0=connected)
+
+ANSSTR       ASC   'ATA'0D00
+             DS    $8-*+ANSSTR                     ; DON'T TOUCH
+
+QUITSTR      ASC   'ATZ'0D00
+             DS    $8-*+QUITSTR                    ; DON'T TOUCH
+
+INITSTR      ASC   'ATS0=1S2=128&C1&D2&K3&S0VEM'0D00
+             DS    $30-*+INITSTR                   ; DON'T TOUCH
+
diff --git a/SOURCE/MODEMS/GSPORT.A.S b/SOURCE/MODEMS/GSPORT.A.S
new file mode 100644
index 0000000..193c6c0
--- /dev/null
+++ b/SOURCE/MODEMS/GSPORT.A.S
@@ -0,0 +1,485 @@
+            LST   RTN
+            TTL   'LLUCE - GS Port Driver'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*-------------------------------
+* Jump Table
+*-------------------------------
+            XC                              ; Uses 65816 Code
+
+            ORG   $B00
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                  ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                         ; Initialize Speed
+CALLSPD     DB    0                         ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSRING
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                  ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_IRQ
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Init The Serial Port Pascal Locations
+*-------------------------------
+
+INIT        LDA   oINIT                     ; Get Init Address
+            STA   DOINIT+1
+            LDA   oREAD                     ; Get Read Address
+            STA   DOREAD+1
+            LDA   oWRITE                    ; Get Write Address
+            STA   DOWRITE+1
+            LDA   oSTATUS                   ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   oCONTROL
+            STA   DOEXT+1
+M_IRQ       CLC
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                             ; Save X
+            PHY
+            LDX   #MSLOT+$C0                ; Are We Ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   :INP2                     ; Nope, Exit
+
+            LDX   #MSLOT+$C0                ; Yes, Read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+            SEC
+:INP1       PLY
+            PLX                             ; Restore & Return
+            RTS
+
+:INP2       LDA   #0
+            BEQ   :INP1
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                             ; Save X
+            PHY                             ; Save Y
+            PHA                             ; Save A
+:OUT2       LDX   #MSLOT+$C0                ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   :OUT2                     ; Nope
+
+            PLA                             ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                   ; Send It
+            PLY                             ; Get Y
+            PLX                             ; Get X
+            RTS
+
+* Init Modem For Ring
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                        ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDA   #0
+            JSR   GSDTR
+            LDY   INITSPD                   ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                        ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #-1
+:RSET2      INX                             ; Do Pre-Inc
+            LDA   INITSTR,X                 ; Get Modem Init String
+            BEQ   :RSET3                    ; We Are Done
+
+            JSR   OUT                       ; Output
+            BRA   :RSET2                    ; Loop (Z-Bit Set After Wait)
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                      ; Check For "0" (Numeric)
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      JSR   INP                       ; Grab The <Cr> Off The Tail End Of The "0"
+            BCC   :LEAVE
+
+            JSR   CLRBUFF
+            LDA   #0
+            STZ   BYTCNT                    ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                             ; Return
+
+* Test For A Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                       ; Check For A Char
+            BCC   :NORING                   ; Nope...
+
+            AND   #Clrhi                    ; Strip High
+            CMP   #'2'                      ; Is It A 'ring'? (Numeric)
+            BNE   :NOTRING                  ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                       ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   :GRABCR
+            BCS   ANSRING
+
+*-------------------------------
+
+:NOTRING    CMP   #'1'                      ; Is It A '1' Or '10' Or '11' Or '12' Or '14'?
+            BEQ   :GOTCODE                  ; Yes, Save It
+
+            CMP   #'5'                      ; Is It Connect 1200?
+            BNE   :NORING                   ; Nope
+
+:GOTCODE    STA   CODE
+:2NDCHAR    JSR   INP                       ; Second Character Will ALWAYS Be There
+            BCC   :2NDCHAR
+
+            AND   #Clrhi                    ; Strip High
+            CMP   #Cr                       ; But Might Be A <Cr>
+            BNE   :MULTCOD
+
+*-------------------------------
+
+            LDY   #0                        ; Connect 300?
+            LDA   CODE
+            CMP   #'1'
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                      ; Connect 1200?
+            BEQ   :RING3                    ; Nope, Unknown Code, Keep Checking
+            BNE   :NORING
+
+*-------------------------------
+
+:MULTCOD    STA   CODE+1
+            LDY   #2                        ; Def = 2400 Baud
+            LDA   CODE                      ; Get The First Code Char
+            CMP   #'1'                      ; Must Be A One
+            BNE   :NORING                   ; If Not, Then Keep Trying
+
+            LDA   CODE+1                    ; Is It 2400?
+            CMP   #'0'
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                      ; Is It 4800?
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                      ; Is It 9600
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                      ; Is It 19200?
+            BEQ   :RING3
+
+            DEY
+            CMP   #'7'                      ; Is It 9600/ARQ?
+            BEQ   :RING3
+
+            DEY                             ; No 4800/Arq
+            DEY
+            CMP   #'6'
+            BEQ   :RING3                    ; 2400/ARQ
+
+            DEY
+            CMP   #'5'                      ; 1200/ARQ
+            BEQ   :RING3
+            BNE   :NORING
+
+*-------------------------------
+
+:RING3      JSR   SETSPD                    ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                        ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            JSR   CLRBUFF
+            SEC                             ; We Have A Connection!
+            RTS
+
+:NORING     CLC
+            RTS
+
+ANSRING     JSR   ANSWER                    ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+* Clear The Input Buffer
+*-------------------------------
+
+CLRBUFF     LDA   #<FLUSHLST
+            LDX   #>FLUSHLST
+            LDY   #0
+            JMP   DOEXT
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #Hibit                    ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTRLST
+            LDX   #>DTRLST
+            LDY   #0
+            JMP   DOEXT
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                             ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLST
+            LDX   #>CARRLST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   :NOCARR
+
+            SEC
+:NOCARR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #-1
+:ANSWER2    INX
+            LDA   ANSSTR,X                  ; Get Text
+            BEQ   :ANSWER3                  ; We Are Done
+
+            JSR   OUT                       ; Send It
+            BRA   :ANSWER2
+
+:ANSWER3    RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =   300 Baud
+* 1 =  1200 Baud
+* 2 =  2400 Baud
+* 3 =  4800 Baud
+* 4 =  9600 Baud
+* 5 = 19200 Baud
+*-------------------------------
+
+SETSPD      PHX
+            PHY
+            LDA   #1                        ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                        ; At 300?
+            BEQ   :DO_BAUD                  ; Yep
+
+            ASL   CALLSPD                   ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                   ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                  ; Loop Until Correct Speed Found
+
+:DO_BAUD    PLA                             ; Get Y-Reg
+            ASL   A
+            TAY
+            LDA   BAUDS,Y
+            STA   :BAUDRD+1
+            LDA   BAUDS+1,Y
+            STA   :BAUDRD+2
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+:BAUDRD     LDA   -1,X
+            BEQ   :FINISH
+
+            JSR   OUT
+            INX
+            BRA   :BAUDRD
+
+:FINISH     LDX   #0
+:LOOP       LDA   PORTINIT,X
+            BEQ   :DONE
+
+            JSR   OUT
+            INX
+            BRA   :LOOP
+
+:DONE       LDA   #<OUT_BUF
+            LDX   #>OUT_BUF
+            LDY   #0
+            JSR   DOEXT
+            PLX
+            RTS
+
+*-------------------------------
+
+BAUDS       DA    B300
+            DA    B1200
+            DA    B2400
+            DA    B4800
+            DA    B9600
+            DA    B19200
+
+*-------------------------------
+* Raise Dtr
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Table Of Speeds And Other Important Stuff
+*-------------------------------
+
+COUNTHI     DB    0
+COUNTLO     DB    0
+
+B300        DB    1
+            ASC   '6B'00                    ; Accept 300 Baud
+B1200       DB    1
+            ASC   '8B'00                    ; Accept 1200 Baud
+B2400       DB    1
+            ASC   '10B'00                   ; Accept 2400 Baud
+B4800       DB    1
+            ASC   '12B'00                   ; Accept 4800 Baud
+B9600       DB    1
+            ASC   '14B'00                   ; Accept 9600 Baud
+B19200      DB    1
+            ASC   '15B'00                   ; Accept 19200 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                      ; 8 Bits
+            DB    1
+            ASC   '2P'                      ; No Parity
+            DB    1
+            ASC   'AD'                      ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                      ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                      ; No Find Keyboard
+            DB    1
+            ASC   'CD'                      ; No Column Overflow
+            DB    1
+            ASC   'ED'                      ; Echo Disabled
+            DB    1
+            ASC   'MD'                      ; No Lf Masking
+            DB    1
+            ASC   'BE'                      ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                         ; No More Control Characters
+
+*-------------------------------
+
+OUT_BUF     DB    4                         ; Parameters To Set The
+            DB    SetOutBuffer              ; Output Buffer
+            DA    0
+            ADRL  BUFFER                    ; Buffer It Where
+            DA    2                         ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLST     DB    3                         ; Parameter List For
+            DB    GetPortStat               ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                         ; Carrier Status Here
+
+*-------------------------------
+
+DTRLST      DB    3                         ; Parameter List For
+            DB    SetDTR                    ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                         ; Bit 7 Affects DTR
+
+*-------------------------------
+
+FLUSHLST    DB    2                         ; Parameter List For Flushing Input Queue
+            DB    FlushInQueue
+            DA    0
+
+*-------------------------------
+
+CODE        DS    2                         ; 2 Byte Code Returned By Modem
+
+            ASC   'GSPort'
+            DB    MSLOT!$30
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                  ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR              ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR             ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/GSPORT.HST.S b/SOURCE/MODEMS/GSPORT.HST.S
new file mode 100644
index 0000000..ee8d1ee
--- /dev/null
+++ b/SOURCE/MODEMS/GSPORT.HST.S
@@ -0,0 +1,370 @@
+            LST   RTN
+            TTL   'LLUCE - HST GS Port Driver'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*
+* Special Version For The USR HST & 19200 Baud
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                      ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                             ; Initialize Speed
+CALLSPD     DB    0                             ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSWER
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                      ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_IRQ
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Init The Serial Port Pascal Locations
+*-------------------------------
+
+INIT        LDA   MSLOT*256+$C00D               ; Get Init Address
+            STA   DOINIT+1
+            LDA   MSLOT*256+$C00E               ; Get Read Address
+            STA   DOREAD+1
+            LDA   MSLOT*256+$C00F               ; Get Write Address
+            STA   DOWRITE+1
+            LDA   MSLOT*256+$C010               ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   MSLOT*256+$C012
+            STA   DOEXT+1
+M_IRQ       CLC
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                            ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDA   #0
+            JSR   GSDTR
+            JSR   SETSPD
+            LDA   #0                            ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #-1
+:RSET2      INX                                 ; Do Pre-Inc
+            LDA   INITSTR,X                     ; Get Modem Init String
+            BEQ   :RSET3                        ; We Are Done
+
+            JSR   OUT                           ; Output
+            BRA   :RSET2                        ; Loop (Z-Bit Set After Wait)
+
+:RSET3      LDY   #250                          ; Check 50 Times
+:RSET4      DEY   COUNT                         ; Down
+            BEQ   RINGSET
+
+            LDA   #30                           ; Delay Slightly
+            JSR   M_WAIT
+            JSR   INP
+            BCC   :RSET4
+
+            AND   #Clrhi
+            CMP   #'K'                          ; Check For "OK"
+            BNE   :RSET4
+
+            CLC
+            RTS                                 ; Return
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                           ; Check For A Char
+            BCC   :RING5                        ; Nope...
+
+            AND   #Clrhi                        ; Strip High
+            CMP   #'E'
+            CLC
+            BNE   :RING5                        ; Keep Checking
+
+:RING2      JSR   INP                           ; Check For Char
+            BCC   :RING2
+
+            LDY   #0                            ; Def = 300 Baud
+            AND   #Clrhi                        ; Strip High
+            CMP   #'R'                          ; Oops, "No Carrier" Message
+            BEQ   RINGSET
+
+            CMP   #Cr                           ; Connect 300
+            BEQ   :RING3
+
+            CMP   #'3'                          ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                          ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                          ; Connect 2400
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                          ; Connect 4800
+            BEQ   :RING3
+
+            INY
+            CMP   #'9'                          ; Connect 9600
+            BNE   :RING2
+
+:RING3      JSR   SETBYTE                       ; Set The Correct Speed Byte
+            LDY   #5
+:RING4      LDA   #0                            ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                 ; We Have A Connection!
+:RING5      RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                 ; Save X
+            PHY
+            LDX   #MSLOT+$C0                    ; Are We Ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   :INP2                         ; Nope, Exit
+
+            LDX   #MSLOT+$C0                    ; Yes, Read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+            SEC
+:INP1       PLY
+            PLX                                 ; Restore & Return
+            RTS
+
+:INP2       LDA   #0
+            BEQ   :INP1
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                 ; Save X
+            PHY                                 ; Save Y
+            PHA                                 ; Save A
+:OUT2       LDX   #MSLOT+$C0                    ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   :OUT2                         ; Nope
+
+            PLA                                 ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                       ; Send It
+            PLY                                 ; Get Y
+            PLX                                 ; Get X
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLST
+            LDX   #>CARRLST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   :NOCARR
+
+            SEC
+:NOCARR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDX   #-1
+:ANSWER2    INX
+            LDA   ANSSTR,X                      ; Get Text
+            BEQ   :ANSWER3                      ; We Are Done
+
+            JSR   OUT                           ; Send It
+            BRA   :ANSWER2
+
+:ANSWER3    RTS
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #$80                          ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTRLST
+            LDX   #>DTRLST
+            LDY   #0
+            BRL   DOEXT
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                 ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =  300 Baud
+* 1 = 1200 Baud
+* 2 = 2400 Baud
+* 3 = 4800 Baud
+* 4 = 9600 Baud
+*-------------------------------
+
+SETBYTE     LDA   #1                            ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                            ; At 300?
+            BEQ   :DONE                         ; Yep
+
+            ASL   CALLSPD                       ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                       ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                      ; Loop Until Correct Speed Found
+
+:DONE       RTS
+
+* Reinit The Port For 19200 Baud
+*-------------------------------
+
+SETSPD      PHX
+            PHY
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+:SPD2       LDA   B19200,X
+            BEQ   :FINISH
+
+            JSR   OUT
+            INX
+            BRA   :SPD2
+
+:FINISH     LDX   #0
+:SPD3       LDA   PORTINIT,X
+            BEQ   :DONE
+
+            JSR   OUT
+            INX
+            BRA   :SPD3
+
+:DONE       LDA   #<OUTBUF
+            LDX   #>OUTBUF
+            LDY   #0
+            JSR   DOEXT
+            PLY
+            PLX
+            RTS
+
+* Raise Dtr
+*-------------------------------
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+B19200      DB    1
+            ASC   '15B'00                       ; Accept 19200 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                          ; 8 Bits
+            DB    1
+            ASC   '2P'                          ; No Parity
+            DB    1
+            ASC   'AD'                          ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                          ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                          ; No Find Keyboard
+            DB    1
+            ASC   'CD'                          ; No Column Overflow
+            DB    1
+            ASC   'ED'                          ; Echo Disabled
+            DB    1
+            ASC   'MD'                          ; No Lf Masking
+            DB    1
+            ASC   'BE'                          ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                             ; No More Control Characters
+
+*-------------------------------
+
+OUTBUF      DB    4                             ; Parameters To Set The
+            DB    SetOutBuffer                  ; Output Buffer
+            DA    0
+            ADRL  BUFFER                        ; Buffer It Where
+            DA    2                             ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLST     DB    3                             ; Parameter List For
+            DB    GetPortStat                   ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                             ; Carrier Status Here
+
+*-------------------------------
+
+DTRLST      DB    3                             ; Parameter List For
+            DB    SetDTR                        ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                             ; Bit 7 Affects DTR
+
+            ASC   'GSPort/HST'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                      ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                  ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V1'0D00
+            DS    $30-*+INITSTR                 ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/GSPORT.S b/SOURCE/MODEMS/GSPORT.S
new file mode 100644
index 0000000..7b8c463
--- /dev/null
+++ b/SOURCE/MODEMS/GSPORT.S
@@ -0,0 +1,514 @@
+            LST   RTN
+            TTL   'LLUCE - GS Port Driver'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*-------------------------------
+            XC                              ; Uses 65816 Code
+
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                  ; Serial Card Slot
+INITSPD     DB    2                         ; Initialize Speed
+MDMSPEED    =     *
+CALLSPD     DB    0                         ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSRING
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                  ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_SHUT
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Clear The Input Buffer
+*-------------------------------
+
+CLRBUFF     LDA   #<FLUSHLST
+            LDX   #>FLUSHLST
+            LDY   #0
+            BEQ   DOEXT
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #$80                      ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTRLST
+            LDX   #>DTRLST
+            LDY   #0
+            BEQ   DOEXT
+
+* init the serial port pascal locations
+*-------------------------------
+
+INIT        LDA   MSLOT*256+$C00D           ; Get Init Address
+            STA   DOINIT+1
+            LDA   MSLOT*256+$C00E           ; Get Read Address
+            STA   DOREAD+1
+            LDA   MSLOT*256+$C00F           ; Get Write Address
+            STA   DOWRITE+1
+            LDA   MSLOT*256+$C010           ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   MSLOT*256+$C012
+            STA   DOEXT+1
+
+M_IRQ       CLC
+            RTS
+
+* input data
+*-------------------------------
+
+INP         PHX                             ;Save x
+            PHY
+            LDX   #MSLOT+$C0                ;are we ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   :INP2                     ;nope, exit
+
+            LDX   #MSLOT+$C0                ;yes, read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+
+            SEC
+:INP1       PLY
+            PLX                             ; Restore & Return
+            RTS
+
+:INP2       LDA   #0
+            BRA   :INP1
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                             ; Save X
+            PHY                             ; Save Y
+            PHA                             ; Save A
+:OUT2       LDX   #MSLOT+$C0                ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   :OUT2                     ; Nope
+
+            PLA                             ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                   ; Send It
+            PLY                             ; Get Y
+            PLX                             ; Get X
+            RTS
+
+* Init Modem For Ring
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                        ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDA   #0
+            JSR   GSDTR
+            LDY   INITSPD                   ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                        ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #-1
+:RSET2      INX                             ; Do Pre-Inc
+            LDA   INITSTR,X                 ; Get Modem Init String
+            BEQ   :RSET3                    ; We Are Done
+
+            JSR   OUT                       ; Output
+            BRA   :RSET2                    ; Loop (Z-Bit Set After Wait)
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                      ; Check For "0" (Numeric)
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      JSR   INP                       ; Grab The <Cr> Off The Tail End Of The "0"
+            BCC   :LEAVE
+
+            JSR   CLRBUFF
+            LDA   #0
+            STZ   BYTCNT                    ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                             ; Return
+
+* Test For A Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                       ; Check For A Char
+            BCC   :NORING                   ; Nope...
+
+            AND   #Clrhi                    ; Strip High
+            CMP   #'2'                      ; Is It A 'ring'? (Numeric)
+            BNE   :NOTRING                  ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                       ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   :GRABCR
+            BCS   ANSRING
+
+*-------------------------------
+
+:NOTRING    CMP   #'1'                      ; Is It A '1' Or '10' Or '11' Or '12' Or '14'?
+            BEQ   :GOTCODE                  ; Yes, Save It
+
+            CMP   #'5'                      ; Is It Connect 1200?
+            BNE   :NORING                   ; Nope
+
+:GOTCODE    STA   CODE
+:2NDCHAR    JSR   INP                       ; Second Character Will ALWAYS Be There
+            BCC   :2NDCHAR
+
+            AND   #Clrhi                    ; Strip High
+            CMP   #cr                       ; But Might Be A <Cr>
+            BNE   :MULTCOD
+
+*-------------------------------
+
+            LDY   #0                        ; Connect 300?
+            LDA   CODE
+            CMP   #'1'
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                      ; Connect 1200?
+            BEQ   :RING3                    ; Nope, Unknown Code, Keep Checking
+            BNE   :NORING
+
+*-------------------------------
+
+:MULTCOD    STA   CODE+1
+            LDY   #2                        ; Def = 2400 Baud
+            LDA   CODE                      ; Get The First Code Char
+            CMP   #'1'                      ; Must Be A One
+            BNE   :NORING                   ; If Not, Then Keep Trying
+
+            LDA   CODE+1                    ; Is It 2400?
+            CMP   #'0'
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                      ; Is It 4800?
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                      ; Is It 9600
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                      ; Is It 19200?
+            BEQ   :RING3
+            BNE   :NORING
+
+*-------------------------------
+
+:RING3      JSR   SETSPD                    ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                        ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            JSR   CLRBUFF
+            SEC                             ; We Have A Connection!
+            RTS
+
+:NORING     CLC
+            RTS
+
+ANSRING     JSR   ANSWER                    ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                             ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLIST
+            LDX   #>CARRLIST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   :NOCARR
+
+            SEC
+:NOCARR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #-1
+:ANSWER2    INX
+            LDA   ANSSTR,X                  ; Get Text
+            BEQ   :ANSWER3                  ; We Are Done
+
+            JSR   OUT                       ; Send It
+            BRA   :ANSWER2
+
+:ANSWER3    RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+M_SHUT      LDA   #$80
+            JSR   M_WAIT
+            LDX   #-1
+:QUIT2      INX
+            LDA   QUITSTR,X                 ; Get Text
+            BEQ   :QUIT3                    ; We Are Done
+
+            JSR   OUT                       ; Send It
+            BRA   :QUIT2
+
+:QUIT3      RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =   300 Baud
+* 1 =  1200 Baud
+* 2 =  2400 Baud
+* 3 =  4800 Baud
+* 4 =  9600 Baud
+* 5 = 19200 Baud
+*-------------------------------
+
+SETSPD      PHX
+            PHY
+            LDA   #1                        ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                        ; At 300?
+            BEQ   :DO_BAUD                  ; Yep
+
+            ASL   CALLSPD                   ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                   ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                  ; Loop Until Correct Speed Found
+
+:DO_BAUD    PLA                             ; Get Y-Reg
+            BNE   :TRY1200
+
+            LDX   #<B300
+            LDA   #>B300
+            BRA   :SETBAUD
+
+:TRY1200    CMP   #1
+            BNE   :TRY2400
+
+            LDX   #<B1200
+            LDA   #>B1200
+            BRA   :SETBAUD
+
+:TRY2400    CMP   #2
+            BNE   :TRY4800
+
+            LDX   #<B2400
+            LDA   #>B2400
+            BRA   :SETBAUD
+
+:TRY4800    CMP   #3
+            BNE   :TRY9600
+
+            LDX   #<B4800
+            LDA   #>B4800
+            BRA   :SETBAUD
+
+:TRY9600    CMP   #4
+            BNE   :TR19200
+
+            LDX   #<B9600
+            LDA   #>B9600
+            BRA   :SETBAUD
+
+:TR19200    LDX   #<B19200
+            LDA   #>B19200
+:SETBAUD    STX   :BAUDRD+1
+            STA   :BAUDRD+2
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+:BAUDRD     LDA   -1,X
+            BEQ   :FINISH
+
+            JSR   OUT
+            INX
+            BRA   :BAUDRD
+
+:FINISH     LDX   #0
+:LOOP       LDA   PORTINIT,X
+            BEQ   :DONE
+
+            JSR   OUT
+            INX
+            BRA   :LOOP
+
+:DONE       LDA   #<OUT_BUF
+            LDX   #>OUT_BUF
+            LDY   #0
+            JSR   DOEXT
+
+            PLX
+            RTS
+
+* Raise Dtr
+*-------------------------------
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Table Of Speeds And Other Important Stuff
+*-------------------------------
+
+COUNTHI     DB    0
+COUNTLO     DB    0
+
+B300        DB    1
+            ASC   '6B'00                    ; Accept 300 Baud
+B1200       DB    1
+            ASC   '8B'00                    ; Accept 1200 Baud
+B2400       DB    1
+            ASC   '10B'00                   ; Accept 2400 Baud
+B4800       DB    1
+            ASC   '12B'00                   ; Accept 4800 Baud
+B9600       DB    1
+            ASC   '14B'00                   ; Accept 9600 Baud
+B19200      DB    1
+            ASC   '15B'00                   ; Accept 19200 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                      ; 8 Bits
+            DB    1
+            ASC   '2P'                      ; No Parity
+            DB    1
+            ASC   'AD'                      ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                      ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                      ; No Find Keyboard
+            DB    1
+            ASC   'CD'                      ; No Column Overflow
+            DB    1
+            ASC   'ED'                      ; Echo Disabled
+            DB    1
+            ASC   'MD'                      ; No Lf Masking
+            DB    1
+            ASC   'BE'                      ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                         ; No More Control Characters
+
+*-------------------------------
+
+OUT_BUF     DB    4                         ; Parameters To Set The
+            DB    SetOutBuffer              ; Output Buffer
+            DA    0
+            ADRL  BUFFER                    ; Buffer It Where
+            DA    2                         ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLIST    DB    3                         ; Parameter List For
+            DB    GetPortStat               ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                         ; Carrier Status Here
+
+*-------------------------------
+
+DTRLST      DB    3                         ; Parameter List For
+            DB    SetDTR                    ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                         ; Bit 7 Affects DTR
+
+*-------------------------------
+
+FLUSHLST    DB    2                         ; Parameter List For Flushing Input Queue
+            DB    FlushInQueue
+            DA    0
+
+*-------------------------------
+
+CODE        DS    2                         ; 2 Byte Code Returned By Modem
+
+            ASC   'GSPort'
+            DB    MSLOT!$30
+
+            DS    $3A0-*+MODEMDVR
+
+QUITSTR     ASC   'ATZ'0D00
+            DS    $10-*+QUITSTR             ; DON'T TOUCH
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                  ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR              ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR             ; DON'T TOUCH
+
diff --git a/SOURCE/MODEMS/GSPORT.VERB.S b/SOURCE/MODEMS/GSPORT.VERB.S
new file mode 100644
index 0000000..87ebe8e
--- /dev/null
+++ b/SOURCE/MODEMS/GSPORT.VERB.S
@@ -0,0 +1,421 @@
+            LST   RTN
+            TTL   'LLUCE - GS Port Driver, Verb'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                        ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                               ; Initialize Speed
+CALLSPD     DB    0                               ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSRING
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                        ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_IRQ
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Init The Serial Port Pascal Locations
+*-------------------------------
+
+INIT        LDA   MSLOT*256+$C00D                 ; Get Init Address
+            STA   DOINIT+1
+            LDA   MSLOT*256+$C00E                 ; Get Read Address
+            STA   DOREAD+1
+            LDA   MSLOT*256+$C00F                 ; Get Write Address
+            STA   DOWRITE+1
+            LDA   MSLOT*256+$C010                 ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   MSLOT*256+$C012
+            STA   DOEXT+1
+M_IRQ       CLC
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                   ; Save X
+            PHY
+            LDX   #MSLOT+$C0                      ; Are We Ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   :INP2                           ; Nope, Exit
+
+            LDX   #MSLOT+$C0                      ; Yes, Read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+            SEC
+:INP1       PLY
+            PLX                                   ; Restore & Return
+            RTS
+
+:INP2       LDA   #0
+            BEQ   :INP1
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                   ; Save X
+            PHY                                   ; Save Y
+            PHA                                   ; Save A
+:OUT2       LDX   #MSLOT+$C0                      ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   :OUT2                           ; Nope
+
+            PLA                                   ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                         ; Send It
+            PLY                                   ; Get Y
+            PLX                                   ; Get X
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                              ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDA   #0
+            JSR   GSDTR
+            LDY   INITSPD                         ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                              ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #-1
+:RSET2      INX                                   ; Do Pre-Inc
+            LDA   INITSTR,X                       ; Get Modem Init String
+            BEQ   :RSET3                          ; We Are Done
+
+            JSR   OUT                             ; Output
+            BRA   :RSET2                          ; Loop (Z-Bit Set After Wait)
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'K'                            ; Check For "OK"
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                          ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                   ; Return
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                             ; Check For A Char
+            BCC   :RING5                          ; Nope...
+
+            AND   #Clrhi                          ; Strip High
+            CMP   #'E'
+            CLC
+            BNE   :RING5                          ; Keep Checking
+
+:RING2      JSR   INP                             ; Check For Char
+            BCC   :RING2
+
+            LDY   #0                              ; Def = 300 Baud
+            AND   #Clrhi                          ; Strip High
+
+            CMP   #'R'                            ; Oops, "No Carrier" Message
+            BEQ   RINGSET
+
+            CMP   #Cr                             ; Connect 300
+            BEQ   :RING3
+
+            CMP   #'3'                            ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                            ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                            ; Connect 2400
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                            ; Connect 4800
+            BEQ   :RING3
+
+            INY
+            CMP   #'9'                            ; Connect 9600
+            BNE   :RING2
+
+:RING3      JSR   SETSPD                          ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                              ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                   ; We Have A Connection!
+:RING5      RTS
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #$80                            ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTR_LIST
+            LDX   #>DTR_LIST
+            LDY   #0
+            BRL   DOEXT
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                   ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLIST
+            LDX   #>CARRLIST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   :NOCARR
+
+            SEC
+:NOCARR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSRING     LDX   #-1
+:ANSWER2    INX
+            LDA   ANSSTR,X                        ; Get Text
+            BEQ   :ANSWER3                        ; We Are Done
+
+            JSR   OUT                             ; Send It
+            BRA   :ANSWER2
+
+:ANSWER3    RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =  300 Baud
+* 1 = 1200 Baud
+* 2 = 2400 Baud
+* 3 = 4800 Baud
+* 4 = 9600 Baud
+*-------------------------------
+
+SETSPD      PHX
+            PHY
+            LDA   #1                              ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                              ; At 300?
+            BEQ   :DO_BAUD                        ; Yep
+
+            ASL   CALLSPD                         ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                         ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                        ; Loop Until Correct Speed Found
+
+:DO_BAUD    PLA                                   ; Get Y-Reg
+            BNE   :TRY1200
+
+            LDX   #<BAUD300
+            LDA   #>BAUD300
+            BRA   :SETBAUD
+
+:TRY1200    CMP   #1
+            BNE   :TRY2400
+
+            LDX   #<BAUD1200
+            LDA   #>BAUD1200
+            BRA   :SETBAUD
+
+:TRY2400    CMP   #2
+            BNE   :TRY4800
+
+            LDX   #<BAUD2400
+            LDA   #>BAUD2400
+            BRA   :SETBAUD
+
+:TRY4800    CMP   #3
+            BNE   :TRY9600
+
+            LDX   #<BAUD4800
+            LDA   #>BAUD4800
+            BRA   :SETBAUD
+
+:TRY9600    LDX   #<BAUD9600
+            LDA   #>BAUD9600
+:SETBAUD    STX   :BAUDRD+1
+            STA   :BAUDRD+2
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+:BAUDRD     LDA   -1,X
+            BEQ   :FININIT
+
+            JSR   OUT
+            INX
+            BRA   :BAUDRD
+
+:FININIT    LDX   #0
+:LOOP       LDA   PORTINIT,X
+            BEQ   :DONE
+
+            JSR   OUT
+            INX
+            BRA   :LOOP
+
+:DONE       LDA   #<OUT_BUF
+            LDX   #>OUT_BUF
+            LDY   #0
+            JSR   DOEXT
+            PLX
+            RTS
+
+* Raise Dtr
+*-------------------------------
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Table Of Speeds And Other Important Stuff
+*-------------------------------
+
+COUNTHI     DB    0
+COUNTLO     DB    0
+
+BAUD300     DB    1
+            ASC   '6B'00                          ; Accept 300 Baud
+BAUD1200    DB    1
+            ASC   '8B'00                          ; Accept 1200 Baud
+BAUD2400    DB    1
+            ASC   '10B'00                         ; Accept 2400 Baud
+BAUD4800    DB    1
+            ASC   '12B'00                         ; Accept 4800 Baud
+BAUD9600    DB    1
+            ASC   '14B'00                         ; Accept 9600 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                            ; 8 Bits
+            DB    1
+            ASC   '2P'                            ; No Parity
+            DB    1
+            ASC   'AD'                            ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                            ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                            ; No Find Keyboard
+            DB    1
+            ASC   'CD'                            ; No Column Overflow
+            DB    1
+            ASC   'ED'                            ; Echo Disabled
+            DB    1
+            ASC   'MD'                            ; No Lf Masking
+            DB    1
+            ASC   'BE'                            ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                               ; No More Control Characters
+
+*-------------------------------
+
+OUT_BUF     DB    4                               ; Parameters To Set The
+            DB    SetOutBuffer                    ; Output Buffer
+            DA    0
+            ADRL  BUFFER                          ; Buffer It Where
+            DA    2                               ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLIST    DB    3                               ; Parameter List For
+            DB    GetPortStat                     ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                               ; Carrier Status Here
+
+*-------------------------------
+
+DTR_LIST    DB    3                               ; Parameter List For
+            DB    SetDTR                          ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                               ; Bit 7 Affects DTR
+
+            ASC   'GSPort'
+            DB    MSLOT!'0'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                        ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                    ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V1'0D00
+            DS    $30-*+INITSTR                   ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/GSPRT2.VSM.S b/SOURCE/MODEMS/GSPRT2.VSM.S
new file mode 100644
index 0000000..eadc701
--- /dev/null
+++ b/SOURCE/MODEMS/GSPRT2.VSM.S
@@ -0,0 +1,508 @@
+            LST   RTN
+            TTL   'LLUCE - VSM GS Port 2 Driver'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                        ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                               ; Initialize Speed
+CALLSPD     DB    0                               ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSRING
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                        ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_IRQ
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Init The Serial Port Pascal Locations
+*-------------------------------
+
+INIT        LDA   MSLOT*256+$C00D                 ; Get Init Address
+            STA   DOINIT+1
+            LDA   MSLOT*256+$C00E                 ; Get Read Address
+            STA   DOREAD+1
+            LDA   MSLOT*256+$C00F                 ; Get Write Address
+            STA   DOWRITE+1
+            LDA   MSLOT*256+$C010                 ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   MSLOT*256+$C012
+            STA   DOEXT+1
+M_IRQ       CLC
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                   ; Save X
+            PHY
+            LDX   #MSLOT+$C0                      ; Are We Ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   :INP2                           ; Nope, Exit
+
+            LDX   #MSLOT+$C0                      ; Yes, Read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+            SEC
+:INP1       PLY
+            PLX                                   ; Restore & Return
+            RTS
+
+:INP2       LDA   #0
+            BEQ   :INP1
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                   ; Save X
+            PHY                                   ; Save Y
+            PHA                                   ; Save A
+:OUT2       LDX   #MSLOT+$C0                      ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   :OUT2                           ; Nope
+
+            PLA                                   ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                         ; Send It
+            PLY                                   ; Get Y
+            PLX                                   ; Get X
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                              ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDA   #0
+            JSR   GSDTR
+            LDY   INITSPD                         ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                              ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #-1
+:RSET2      INX                                   ; Do Pre-Inc
+            LDA   INITSTR,X                       ; Get Modem Init String
+            BEQ   :RSET3                          ; We Are Done
+
+            JSR   OUT                             ; Output
+            BRA   :RSET2                          ; Loop (Z-Bit Set After Wait)
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                            ; Check For "0" Result
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      JSR   INP                             ; Grab The <Cr> Off The Tail End Of The "0"
+            BCC   :LEAVE
+
+            JSR   CLRBUFR
+            LDA   #0
+            STZ   BYTCNT                          ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+NORING      CLC
+            RTS                                   ; Return
+
+* Test For A Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                             ; Check For A Char
+            BCC   NORING                          ; Nope...
+
+            AND   #Clrhi                          ; Strip High
+            CMP   #'2'                            ; Is It A 'ring'? (Numeric)
+            BNE   NOTRING                         ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                             ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   :GRABCR
+
+ANSRING     JSR   ANSWER                          ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+*-------------------------------
+
+NOTRING     CMP   #'4'                            ; Is It A '40','46','47' Or '48'?
+            BEQ   :GOTCODE
+
+            CMP   #'5'                            ; Is It A '50'?
+            BEQ   :GOTCODE                        ; Yes, Check For Carrier Speed
+            BNE   NORING
+
+:GOTCODE    STA   CODE1
+:2NDCHAR    JSR   INP                             ; Get Next Character
+            BCC   :2NDCHAR                        ; It MUST Be There
+
+            AND   #Clrhi
+            CMP   #Cr
+            BEQ   :STARTCK
+
+            STA   CODE1+1
+            BRA   :2NDCHAR
+
+:STARTCK    LDY   #32                             ; Def = 9600 Baud Carrier
+            LDX   #5
+            LDA   CODE1                           ; Get The First Code Char
+            CMP   #'5'                            ; Is It A '50'?
+            BNE   :NOT9600                        ; If Not, Then Check For Other Carrier Speeds
+
+            LDA   CODE1+1
+            CMP   #'0'
+            BEQ   SETCSPD
+
+:NOT9600    LDY   #1
+            LDX   #0
+            LDA   CODE1+1                         ; Is It A 300 Baud Carrier?
+            CMP   #'0'
+            BEQ   SETCSPD                         ; Yes
+
+            LDY   #4
+            INX
+            CMP   #'6'                            ; Is It A 1200 Baud Carrier?
+            BEQ   SETCSPD                         ; Yes
+
+            LDY   #8
+            INX
+            CMP   #'7'                            ; Is It A 2400 Baud Carrier?
+            BEQ   SETCSPD
+
+            LDY   #16
+            INX
+            CMP   #'8'                            ; Is It A 4800 Baud Carrier?
+            BEQ   SETCSPD
+
+            BRL   NORING
+
+SETCSPD     STY   CARRSPD
+            STX   PORTSPD
+            LDY   #0                              ; Check For Protocol Connections
+:SETC2      JSR   INP                             ; Get Next Character
+            BCC   :SETC2                          ; It MUST Be There
+
+            AND   #Clrhi
+            CMP   #Cr
+            BEQ   :STARTCK
+
+            STA   CODE2,Y                         ; Save It...
+            INY
+            BRA   :SETC2
+
+:STARTCK    LDA   CODE2                           ; Get First Char Of Protocol
+            CMP   #'7'                            ; Is It '70'?
+            BNE   :RING3
+
+            LDA   CODE2+1                         ; Get Last Character Of Protocol
+            CMP   #'0'                            ; Is It '70'?
+            BNE   :RING3
+
+            LDX   #5
+            STX   PORTSPD
+
+*-------------------------------
+
+:RING3      LDY   PORTSPD                         ; Get The Speed To Open Port At
+            JSR   SETSPD                          ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                              ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            JSR   CLRBUFR                         ; Remove Any Garbage
+            SEC                                   ; We Have A Connection!
+            RTS
+
+* Clear The Input Buffer
+*-------------------------------
+
+CLRBUFR     LDA   #<FLUSH_LIST
+            LDX   #>FLUSH_LIST
+            LDY   #0
+            BRL   DOEXT
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #$80                            ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTR_LIST
+            LDX   #>DTR_LIST
+            LDY   #0
+            BRL   DOEXT
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                   ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLIST
+            LDX   #>CARRLIST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   :NOCARR
+
+            SEC
+:NOCARR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #-1
+:ANSWER2    INX
+            LDA   ANSSTR,X                        ; Get Text
+            BEQ   :ANSWER3                        ; We Are Done
+
+            JSR   OUT                             ; Send It
+            BRA   :ANSWER2
+
+:ANSWER3    RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =   300 Baud
+* 1 =  1200 Baud
+* 2 =  2400 Baud
+* 3 =  4800 Baud
+* 4 =  9600 Baud
+* 5 = 19200 Baud
+*-------------------------------
+
+SETSPD      PHX
+            LDX   CARRSPD                         ; Find Caller Speed (X300)
+            STX   CALLSPD
+            TYA                                   ; Get Y-Reg Into A-Reg
+            BNE   :TRY1200
+
+            LDX   #<BAUD300
+            LDA   #>BAUD300
+            BRA   :SETBAUD
+
+:TRY1200    CMP   #1
+            BNE   :TRY2400
+
+            LDX   #<BAUD1200
+            LDA   #>BAUD1200
+            BRA   :SETBAUD
+
+:TRY2400    CMP   #2
+            BNE   :TRY4800
+
+            LDX   #<BAUD2400
+            LDA   #>BAUD2400
+            BRA   :SETBAUD
+
+:TRY4800    CMP   #3
+            BNE   :TRY9600
+
+            LDX   #<BAUD4800
+            LDA   #>BAUD4800
+            BRA   :SETBAUD
+
+:TRY9600    CMP   #4
+            BNE   :TRY192K
+
+            LDX   #<BAUD9600
+            LDA   #>BAUD9600
+            BRA   :SETBAUD
+
+:TRY192K    LDX   #<BAUD192K
+            LDA   #>BAUD192K
+
+:SETBAUD    STX   :BAUDRD+1
+            STA   :BAUDRD+2
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+:BAUDRD     LDA   -1,X
+            BEQ   :FININIT
+
+            JSR   OUT
+            INX
+            BRA   :BAUDRD
+
+:FININIT    LDX   #0
+:LOOP       LDA   PORTINIT,X
+            BEQ   :DONE
+
+            JSR   OUT
+            INX
+            BRA   :LOOP
+
+:DONE       LDA   #<OUT_BUF
+            LDX   #>OUT_BUF
+            LDY   #0
+            JSR   DOEXT
+            PLX
+            RTS
+
+* Raise Dtr
+*-------------------------------
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Globals
+*-------------------------------
+
+COUNTHI     DB    0
+COUNTLO     DB    0
+
+BAUD300     DB    1
+            ASC   '6B'00                          ; Accept 300 Baud
+BAUD1200    DB    1
+            ASC   '8B'00                          ; Accept 1200 Baud
+BAUD2400    DB    1
+            ASC   '10B'00                         ; Accept 2400 Baud
+BAUD4800    DB    1
+            ASC   '12B'00                         ; Accept 4800 Baud
+BAUD9600    DB    1
+            ASC   '14B'00                         ; Accept 9600 Baud
+BAUD192K    DB    1
+            ASC   '15B'00                         ; Accept 19200 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                            ; 8 Bits
+            DB    1
+            ASC   '2P'                            ; No Parity
+            DB    1
+            ASC   'AD'                            ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                            ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                            ; No Find Keyboard
+            DB    1
+            ASC   'CD'                            ; No Column Overflow
+            DB    1
+            ASC   'ED'                            ; Echo Disabled
+            DB    1
+            ASC   'MD'                            ; No Lf Masking
+            DB    1
+            ASC   'BE'                            ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                               ; No More Control Characters
+
+*-------------------------------
+
+OUT_BUF     DB    4                               ; Parameters To Set The
+            DB    SetOutBuffer                    ; Output Buffer
+            DA    0
+            ADRL  BUFFER                          ; Buffer It Where
+            DA    2                               ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLIST    DB    3                               ; Parameter List For
+            DB    GetPortStat                     ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                               ; Carrier Status Here
+
+*-------------------------------
+
+DTR_LIST    DB    3                               ; Parameter List For
+            DB    SetDTR                          ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                               ; Bit 7 Affects DTR
+
+*-------------------------------
+
+FLUSH_LIST  DB    2                               ; Parameter List For Flushing Input Queue
+            DB    FlushInQueue
+            DA    0
+
+*-------------------------------
+
+CODE1       DS    2                               ; 2 Byte Code Returned By Modem
+CODE2       DS    2
+PORTSPD     DS    1
+CARRSPD     DS    1
+
+            ASC   'GSPort2 Hayes VSM'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                        ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                    ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR                   ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/HAYES.VSM.GS.S b/SOURCE/MODEMS/HAYES.VSM.GS.S
new file mode 100644
index 0000000..7f51996
--- /dev/null
+++ b/SOURCE/MODEMS/HAYES.VSM.GS.S
@@ -0,0 +1,515 @@
+            LST   RTN
+            TTL   'LLUCE - VSM GS Port Driver'
+            PAG
+*-------------------------------
+* GS Port Driver Bios
+* Written By Andy Nicholas On July 26, 1987
+*-------------------------------
+* Jump Table
+*-------------------------------
+            XC                                  ; Uses 65816 Codes
+
+MODEMDVR    =     *
+PROTOCOL    =     *
+SLOT        DB    MSLOT*16                      ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    3                             ; Initialize Speed
+CALLSPD     DB    0                             ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     BRL   INIT
+MDMRSET     BRL   RINGSET
+MDMRING     BRL   RING
+MDMANS      BRL   ANSRING
+MDMHANG     BRL   HANGUP
+MDMIN       BRL   INP
+MDMOUT      BRL   OUT
+MDMDCD      BRL   M_CHKDCD
+MDMSSPD     BRL   SETSPD
+MDMINT      BRL   M_IRQ
+MDMDTR      BRL   RAISEDTR                      ; Raise Dtr
+MDMCBUF     BRL   M_IRQ
+MDMQUIT     BRL   M_IRQ
+
+DOINIT      JMP   MSLOT*256+$C000
+DOREAD      JMP   MSLOT*256+$C000
+DOWRITE     JMP   MSLOT*256+$C000
+DOSTATUS    JMP   MSLOT*256+$C000
+DOEXT       JMP   MSLOT*256+$C000
+
+* Clear The Input Buffer
+*-------------------------------
+
+CLRBUFF     LDA   #<FLUSHLST
+            LDX   #>FLUSHLST
+            LDY   #0
+            BEQ   DOEXT
+
+* Set DTR On GS Serial Port, And Hangup If Needed
+*-------------------------------
+
+HANGUP      LDA   #$80                          ; Blow 'em Off (Hangup)
+GSDTR       STA   DTRFLAG
+            LDA   #<DTRLST
+            LDX   #>DTRLST
+            LDY   #0
+            BEQ   DOEXT
+
+* Init The Serial Port Pascal Locations
+*-------------------------------
+
+INIT        LDA   MSLOT*256+$C00D               ; Get Init Address
+            STA   DOINIT+1
+            LDA   MSLOT*256+$C00E               ; Get Read Address
+            STA   DOREAD+1
+            LDA   MSLOT*256+$C00F               ; Get Write Address
+            STA   DOWRITE+1
+            LDA   MSLOT*256+$C010               ; Get Status Address
+            STA   DOSTATUS+1
+            LDA   MSLOT*256+$C012
+            STA   DOEXT+1
+            CLC
+            RTS
+
+M_IRQ       SEC
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                 ; Save X
+            PHY
+            LDX   #MSLOT+$C0                    ; Is There Input Ready?
+            LDY   #MSLOT*16
+            LDA   #RXREADY
+            JSR   DOSTATUS
+            BCC   M_INP2                        ; Yes, Read Character
+
+            LDX   #MSLOT+$C0                    ; Yes, Read
+            LDY   #MSLOT*16
+            JSR   DOREAD
+            SEC
+M_INP3      PLY
+            PLX                                 ; Restore & Return
+            RTS
+
+M_INP2      LDA   #0
+            BCC   M_INP3
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                 ; Save X
+            PHY                                 ; Save Y
+            PHA                                 ; Save A
+M_OUT2      LDX   #MSLOT+$C0                    ; Ready For Send?
+            LDY   #MSLOT*16
+            LDA   #TXREADY
+            JSR   DOSTATUS
+            BCC   M_OUT2                        ; Nope
+
+            PLA                                 ; Get A
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOWRITE                       ; Send It
+            PLY                                 ; Get Y
+            PLX                                 ; Get X
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                            ; Let Modem Reset
+            JSR   MDMWAIT
+            JSR   MDMWAIT
+            LDA   #0
+            JSR   GSDTR
+            LDY   INITSPD                       ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                            ; Slight Delay (Let Modem Do Init)
+            JSR   MDMWAIT
+            LDX   #-1
+M_RSET2     INX                                 ; Do Pre-Inc
+            LDA   INITSTR,X                     ; Get Modem Init String
+            BEQ   M_RSET3                       ; We Are Done
+
+            JSR   OUT                           ; Output
+            BRA   M_RSET2                       ; Loop (Z-Bit Set After Wait)
+
+M_RSET3     LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+M_RSET4     LDY   #-1
+M_RSET5     DEY
+            BEQ   DECOUNT
+
+            JSR   INP
+            BCC   M_RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                          ; Check For "0" Result
+            BEQ   M_LEAVE
+            BNE   M_RSET5
+
+DECOUNT     DEC   COUNTLO
+            BNE   M_RSET4
+
+            DEC   COUNTHI
+            BNE   M_RSET4
+            BEQ   RINGSET
+
+M_LEAVE     JSR   INP                           ; Grab The <Cr> Off The Tail End Of The "0"
+            BCC   M_LEAVE
+
+            JSR   CLRBUFF
+            LDA   #0
+            STZ   BYTCNT                        ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                 ; Return
+
+* Test For A Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                           ; Check For A Char
+            BCC   GNORING                       ; Nope...
+
+            AND   #Clrhi                        ; Strip High
+            CMP   #'2'                          ; Is It A 'ring'? (Numeric)
+            BNE   NOTRING                       ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+M_GRABCR    JSR   INP                           ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   M_GRABCR
+            BRL   ANSRING
+
+*-------------------------------
+
+NOTRING     CMP   #'4'                          ; Is It A '40','46','47' Or '48'?
+            BEQ   GOTCODE
+
+            CMP   #'5'                          ; Is It A '50'?
+            BEQ   GOTCODE                       ; Yes, Check For Carrier Speed
+            BNE   GNORING
+
+GOTCODE     STA   CODE1
+            LDY   #1
+M_2NDCHR    JSR   INP                           ; Get Next Character
+            BCC   M_2NDCHR                      ; It MUST Be There
+
+            AND   #Clrhi
+            CMP   #cr
+            BNE   M_VALID
+
+            CPY   #5
+            BNE   M_2NDCHR
+            BRA   M_NEXT
+
+M_VALID     STA   CODE1,Y
+            INY
+            CPY   #6
+            BNE   M_2NDCHR
+
+M_NEXT      LDY   #32                           ; Def = 9600 Baud Carrier
+            LDX   #4
+            LDA   CODE1                         ; Get The First Code Char
+            CMP   #'5'                          ; Is It A '50'?
+            BNE   NOT9600                       ; If Not, Then Check For Other Carrier Speeds
+
+            LDA   CODE1+1
+            CMP   #'0'
+            BEQ   SETCSPD
+
+NOT9600     LDY   #1
+            LDX   #0
+            LDA   CODE1+1                       ; Is It A 300 Baud Carrier?
+            CMP   #'0'
+            BEQ   SETCSPD                       ; Yes
+
+            LDY   #4
+            INX
+            CMP   #'6'                          ; Is It A 1200 Baud Carrier?
+            BEQ   SETCSPD                       ; Yes
+
+            LDY   #8
+            INX
+            CMP   #'7'                          ; Is It A 2400 Baud Carrier?
+            BEQ   SETCSPD
+
+            LDY   #16
+            INX
+            CMP   #'8'                          ; Is It A 4800 Baud Carrier?
+            BEQ   SETCSPD
+GNORING     BRA   NORING
+
+SETCSPD     STY   CARRSPD
+            STX   PORTSPD
+
+* Check For Protocol Connections
+
+            LDA   CODE2                         ; Get First Char Of Protocol
+            CMP   #'7'                          ; Is It '70'?
+            BNE   M_RING3
+
+            LDA   CODE2+1                       ; Get Last Character Of Protocol
+            CMP   #'0'                          ; Is It '70'?
+            BEQ   M_RING3
+
+            LDA   #$80
+            STA   PROTOCOL                      ; Save Indicator Of A Protocol Connection
+            LDX   #5
+            STX   PORTSPD
+
+*-------------------------------
+
+M_RING3     LDY   PORTSPD                       ; Get The Speed To Open Port At
+            JSR   SETSPD                        ; Set The Correct Speed
+            LDY   #5
+M_RING4     LDA   #0                            ; Let Carrier's Settle
+            JSR   MDMWAIT
+            DEY
+            BNE   M_RING4
+
+            JSR   CLRBUFF                       ; Remove Any Garbage
+            SEC                                 ; We Have A Connection!
+            RTS
+
+NORING      CLC
+            RTS
+
+ANSRING     JSR   ANSWER                        ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+MDMWAIT     SEC                                 ; From Apple ][+ Ref Man - Pg 147
+MDMWAIT2    PHA
+MDMWAIT3    SBC   #1
+            BNE   MDMWAIT3
+
+            PLA
+            SBC   #1
+            BNE   MDMWAIT2
+
+            RTS
+
+* Check For Carrier Using Get_Port_Stat Routine
+*-------------------------------
+
+M_CHKDCD    PHX
+            PHY
+            LDA   #<CARRLST
+            LDX   #>CARRLST
+            LDY   #0
+            JSR   DOEXT
+            CLC
+            LDA   CARRBITS
+            AND   CDBYTE
+            BEQ   M_NOCAR
+
+            SEC
+M_NOCAR     PLY
+            PLX
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   MDMWAIT
+            LDX   #-1
+ANSWER2     INX
+            LDA   ANSSTR,X                      ; Get Text
+            BEQ   ANSWER3                       ; We Are Done
+
+            JSR   OUT                           ; Send It
+            BRA   ANSWER2
+
+ANSWER3     RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*
+* 0 =   300 Baud
+* 1 =  1200 Baud
+* 2 =  2400 Baud
+* 3 =  4800 Baud
+* 4 =  9600 Baud
+* 5 = 19200 Baud
+*-------------------------------
+
+SETSPD      PHX
+            LDX   CARRSPD                       ; Find Caller Speed (X300)
+            STX   CALLSPD
+            TYA                                 ; Get Y-Reg Into A-Reg
+            BNE   TRY1200
+
+            LDX   #<B300
+            LDA   #>B300
+            BRA   SETBAUD
+
+TRY1200     CMP   #1
+            BNE   TRY2400
+
+            LDX   #<B1200
+            LDA   #>B1200
+            BRA   SETBAUD
+
+TRY2400     CMP   #2
+            BNE   TRY4800
+
+            LDX   #<B2400
+            LDA   #>B2400
+            BRA   SETBAUD
+
+TRY4800     CMP   #3
+            BNE   TRY9600
+
+            LDX   #<B4800
+            LDA   #>B4800
+            BRA   SETBAUD
+
+TRY9600     CMP   #4
+            BNE   TR19200
+
+            LDX   #<B9600
+            LDA   #>B9600
+            BRA   SETBAUD
+
+TR19200     LDX   #<B19200
+            LDA   #>B19200
+SETBAUD     STX   BAUDRD+1
+            STA   BAUDRD+2
+            LDX   #MSLOT+$C0
+            LDY   #MSLOT*16
+            JSR   DOINIT
+            LDX   #0
+BAUDRD      LDA   -1,X
+            BEQ   M_FINISH
+
+            JSR   OUT
+            INX
+            BRA   BAUDRD
+
+M_FINISH    LDX   #0
+M_PILOOP    LDA   PORTINIT,X
+            BEQ   M_I_DONE
+
+            JSR   OUT
+            INX
+            BRA   M_PILOOP
+
+M_I_DONE    LDA   #<OUTBUF
+            LDX   #>OUTBUF
+            LDY   #0
+            JSR   DOEXT
+            PLX
+            RTS
+
+* Raise Dtr
+*-------------------------------
+
+RAISEDTR    PHX
+            PHY
+            LDA   #0
+            JSR   GSDTR
+            PLY
+            PLX
+            RTS
+
+* Globals
+*-------------------------------
+
+COUNTHI     DB    0
+COUNTLO     DB    0
+
+B300        DB    1
+            ASC   '6B'00                        ; Accept 300 Baud
+B1200       DB    1
+            ASC   '8B'00                        ; Accept 1200 Baud
+B2400       DB    1
+            ASC   '10B'00                       ; Accept 2400 Baud
+B4800       DB    1
+            ASC   '12B'00                       ; Accept 4800 Baud
+B9600       DB    1
+            ASC   '14B'00                       ; Accept 9600 Baud
+B19200      DB    1
+            ASC   '15B'00                       ; Accept 19200 Baud
+
+PORTINIT    DB    1
+            ASC   '0D'                          ; 8 Bits
+            DB    1
+            ASC   '2P'                          ; No Parity
+            DB    1
+            ASC   'AD'                          ; Auto-Tabbing
+            DB    1
+            ASC   'XD'                          ; No Xoff Recognition
+            DB    1
+            ASC   'FD'                          ; No Find Keyboard
+            DB    1
+            ASC   'CD'                          ; No Column Overflow
+            DB    1
+            ASC   'ED'                          ; Echo Disabled
+            DB    1
+            ASC   'MD'                          ; No Lf Masking
+            DB    1
+            ASC   'BE'                          ; Buffering Enabled
+            DB    1
+            ASC   'Z'
+            DB    0                             ; No More Control Characters
+
+*-------------------------------
+
+OUTBUF      DB    4                             ; Parameters To Set The
+            DB    SetOutBuffer                  ; Output Buffer
+            DA    0
+            ADRL  BUFFER                        ; Buffer It Where
+            DA    2                             ; Buffer 2 Bytes
+
+*-------------------------------
+
+CARRLST     DB    3                             ; Parameter List For
+            DB    GetPortStat                   ; Detecting Carrier Drop
+            DA    0
+CARRBITS    DA    0                             ; Carrier Status Here
+
+*-------------------------------
+
+DTRLST      DB    3                             ; Parameter List For
+            DB    SetDTR                        ; Setting DTR
+            DA    0
+DTRFLAG     DA    0                             ; Bit 7 Affects DTR
+
+*-------------------------------
+
+FLUSHLST    DB    2                             ; Parameter List For Flushing Input Queue
+            DB    FlushInQueue
+            DA    0
+
+*-------------------------------
+
+CODE1       DS    2                             ; 2 Byte Carrier Speed
+CODE2       DS    2                             ; 2 Byte Protocol Format
+PORTSPD     DS    1
+CARRSPD     DS    1
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    DSRSTATE                      ; Mask Dsr Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                  ; DON'T TOUCH
+
+*INITSTR ASC 'ATS0=1S2=128&S1&D2V1'0D00
+
+INITSTR     ASC   'ATX1S0=0S2=128&C1&D2&S1&K5&Q5E0V0W1M0'0D00
+            DS    $30-*+INITSTR                 ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/MM2.S b/SOURCE/MODEMS/MM2.S
new file mode 100644
index 0000000..10c6039
--- /dev/null
+++ b/SOURCE/MODEMS/MM2.S
@@ -0,0 +1,221 @@
+            LST   RTN
+            TTL   'LLUCE - MicroModem ]['
+            PAG
+*-------------------------------
+*Internal Micromodem ][ //E
+*-------------------------------
+* Date 12/09/86
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                 ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                        ; Initialize Speed
+CALLSPD     DB    0                        ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   M_IRQ
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Modem Card
+*-------------------------------
+
+INIT        PHP
+            SEI
+            LDX   SLOT                     ; Get Slot Offset
+            LDA   %00000000                ; Reset Tone/Speaker
+            STA   CR3,X
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     LDA   #0                       ; Reset Time-On
+            STZ   BYTCNT
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            STZ   CARWAIT                  ; Reset Wait Flag
+            TAY                            ; Set 300 Baud
+            JMP   SETSPD
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        LDX   SLOT                     ; Get Offset
+            BIT   CARWAIT                  ; Do They Want Manual-Answer?
+            BMI   :RING2A                  ; Yep
+
+            LDA   RINGIN,X                 ; Check For Ring
+            AND   %10000000
+            BNE   :RING4                   ; Nothing
+
+:RING2      LDA   RINGIN,X                 ; Wait For Ring To Clear
+            AND   %10000000
+            BEQ   :RING2
+
+:RING2A     LDA   %00000011                ; Reset Uart
+            STA   CR1,X
+            LDA   %00010101                ; Set For 8N1
+            STA   CR1,X
+
+            LDA   %00000000                ; Reset Modem
+            STA   CR2,X
+            LDA   %10001011                ; Pick Up Phone [Enable Carrier]
+            STA   CR2,X
+            LDA   #$50                     ; Setup Carrier Wait Time
+            STA   CARWAIT
+            LDA   #60                      ; Wait For Things To Settle
+            JSR   M_WAIT
+:RING3      LDA   #0                       ; Do Big Wait...
+            JSR   M_WAIT
+            LDA   MMDATA,X
+            LDA   MMSTATUS,X               ; Reset Carrier Flag
+            LDA   MMSTATUS,X               ; Do We Have Carrier?
+            AND   %00000100
+            BEQ   :RING5                   ; Yep
+
+            DEC   CARWAIT                  ; Loop Until Count Is Done
+            BNE   :RING3
+
+            JSR   HANGUP
+:RING4      CLC                            ; Nothing Happened
+            RTS
+
+:RING5      SEC                            ; Reset Carrier Timing
+ANSRING     LDA   #-1                      ; Signal We Want Manual-Answer
+            STA   CARWAIT
+            RTS
+
+* Hangup Phone
+*-------------------------------
+
+HANGUP      LDX   SLOT                     ; Get Offset
+            LDA   %00000001
+            STA   CR2,X                    ; Hang Up Phone
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         STX   SAVE_X                   ; Save X
+            LDX   SLOT                     ; Get Offset
+            LDA   MMSTATUS,X               ; Get Status
+            AND   %00000001
+            CLC
+            BEQ   :INP2                    ; No Data
+
+            LDA   MMDATA,X                 ; Get Data
+            SEC
+:INP2       LDX   SAVE_X                   ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         STX   SAVE_X                   ; Save X
+            DEC   TIMECNT                  ; Count Down Bytes Per Second
+            BNE   :OUT1                    ; Not A Seconds Worth Yet
+
+            PHA
+            LDA   CALLSPD                  ; Reset Counter
+            ASL
+            ASL
+            ASL                            ; Time Count = Base.Rate * 32
+            ASL
+            ASL
+            STA   TIMECNT
+            PLA
+            INC   BYTCNT                   ; Seconds - At 64 Yet?
+            BIT   BYTCNT
+            BVC   :OUT1                    ; Nope
+
+            STZ   BYTCNT                   ; Reset Seconds
+            INC   BYTCNT+1                 ; Minutes - At 64 Yet?
+            BIT   BYTCNT+1
+            BVC   :OUT1                    ; Nope
+
+            STZ   BYTCNT+1                 ; Reset Minutes
+            INC   BYTCNT+2                 ; Inc Hours
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   MMSTATUS,X               ; Check Status
+            AND   %00000110
+            BEQ   :OUT2                    ; Loop Until Ready
+
+            PLA
+            STA   MMDATA,X                 ; Output Byte
+            LDX   SAVE_X
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    STX   SAVE_X                   ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT
+            LDA   MMSTATUS,X               ; Reset Carrier Flag
+            LDA   MMSTATUS,X               ; Check Carrier
+            AND   %00000100
+            CLC
+            BNE   :CHKDCD2                 ; Opps, No Carrier
+
+            SEC                            ; Sec = We Have Carrier
+:CHKDCD2    PLA                            ; Restore & Return
+            LDX   SAVE_X
+            RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*-------------------------------
+
+SETSPD      LDA   #1                       ; Find Caller Speed (X300)
+            STA   CALLSPD
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                            ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Available Speeds
+*-------------------------------
+
+SAVE_X      DB    0
+
+TIMECNT     DB    0
+CARWAIT     DB    0
+
+            ASC   'MM2'
+
+            DS    $400-*+MODEM
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/MULTISPD.S b/SOURCE/MODEMS/MULTISPD.S
new file mode 100644
index 0000000..95068f3
--- /dev/null
+++ b/SOURCE/MODEMS/MULTISPD.S
@@ -0,0 +1,325 @@
+            LST   RTN
+            TTL   'LLUCE - Multispeed SSC Driver'
+            PAG
+*-------------------------------
+* Multiple Speed Modem Driver
+*-------------------------------
+* 3/18/88 AEN
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   #0                                 ; Long Delay
+            JSR   M_WAIT
+            JSR   M_WAIT
+            LDX   #-1                                ; Start At -1
+:RSET2      INX                                      ; Do Pre-Inc
+            LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3                             ; We Are Done
+
+            JSR   OUT                                ; Output
+            LDA   #$80
+            JSR   M_WAIT
+            BRA   :RSET2                             ; Loop
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'K'                               ; Check For "OK"
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+
+            JMP   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+JRING       JMP   RINGSET                            ; 128 Byte Branches!!
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        LDX   SLOT
+            LDA   STATUS,X                           ; Do We Have Carrier?
+            AND   CDBYTE
+            CLC
+            BNE   :RING3                             ; Nope
+
+            LDA   DATA,X                             ; Gobble Byte(S)
+            LDA   DATA,X
+            LDA   #0                                 ; Reset Speed Byte
+            STA   SPDATA
+            LDY   #0                                 ; Set Default To 300
+:RING1      JSR   SETSPD
+:RING2      LDA   STATUS,X                           ; We Still Get Carrier
+            AND   CDBYTE
+            BNE   JRING                              ; Nope
+
+            LDA   STATUS,X                           ; Have A Char Waiting?
+            AND   #SSCRXF
+            BEQ   :RING2                             ; Nope, Check Carrier
+
+            LDA   STATUS,X                           ; Check Framing
+            AND   #SSCFE
+            BNE   :RING4                             ; Oops, Framing Error
+
+            LDA   DATA,X                             ; Get Byte (No Framing Error)
+            STA   SPDATA                             ; Save Speed Data
+            AND   #Clrhi
+            CMP   #Cr                                ; Is It A Return?
+            BEQ   :RING2A                            ; Yep, We Have The Speed
+
+            AND   #%01110000                         ; Check For Higher Speed
+            CMP   #%01110000
+            BEQ   :RING5                             ; Go To Up A Notch
+            BNE   :RING2                             ; Loop Back
+
+:RING2A     SEC                                      ; All Is Well, Connect
+:RING3      RTS
+
+:RING4      LDA   DATA,X                             ; Empty Uart
+            LDA   DATA,X
+            LDA   SPDATA                             ; Get Last "Legal" Byte
+            AND   #%11100000                         ; Check For 300 Baud Overrun
+            CMP   #%11100000
+            BEQ   :RING5                             ; Looks Like A Higher Speed
+
+            LDY   CURSPD                             ; What Speed
+            BEQ   :RING2                             ; Hmm, Cant Go Below 300
+
+            DEY
+            BRA   :RING1                             ; Set New Speed, Check Again
+
+:RING5      LDY   CURSPD                             ; We At 2400?
+            CPY   INITSPD                            ; As High As We Can Go?
+            BEQ   :RING2                             ; Yep, Cant Go Any Higher
+
+            INY
+            BRA   :RING1                             ; Set New Speed, Up 1 Notch
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSRING     LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            LDA   #$80
+            JSR   M_WAIT
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         STX   SAVE_X                             ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       LDX   SAVE_X                             ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Output Byte
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                      ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                                      ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*-------------------------------
+
+SETSPD      STY   CURSPD                             ; Save Current Speed
+            PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Setup Interrupt Routine
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCRXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                      ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Available Speeds
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+COUNTLO     DB    0
+COUNTHI     DB    0
+CURSPD      DB    0                                  ; Current Speed
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+SPDATA      DB    0                                  ; Speed Data
+SAVE_X      DB    0
+
+            ASC   'MultiSpd'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V1'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/NOCAR.S b/SOURCE/MODEMS/NOCAR.S
new file mode 100644
index 0000000..a385de5
--- /dev/null
+++ b/SOURCE/MODEMS/NOCAR.S
@@ -0,0 +1,347 @@
+            LST   RTN
+            TTL   'LLUCE - No Carrier SSC Driver'
+            PAG
+*-------------------------------
+* No Carrier Driver
+*-------------------------------
+* 3/18/88 AEN
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+:RSET1      LDA   #0                                 ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   CHKOK                              ; Is Modem Out There And Ready?
+            BCS   :RSET2                             ; Yep
+
+            LDX   #INITSTR-ANSSTR                    ; Print Modem Init String
+            JSR   PRSTR
+            BRA   :RSET1
+
+:RSET2      LDA   #0
+            STA   BYTCNT                             ; Reset Byte Counter
+            STA   BYTCNT+1
+            STA   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+RSET5       JMP   RINGSET                            ; Extend A Branch
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        LDA   #5                                 ; Make Sure Timer Never Triggers
+            STA   CDCOUNT+2
+            JSR   INP                                ; Check For A Char
+            BCC   :RING5                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'3'
+            BEQ   RSET5                              ; No Carrier
+
+            LDY   #0
+            CMP   #'1'                               ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                               ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'6'                               ; Connect 2400
+            BEQ   :RING3
+
+            CMP   #'2'                               ; Check For Ring
+            CLC
+            BNE   :RING5                             ; Nope, Nothing
+
+            LDA   #0
+            JSR   M_WAIT                             ; Slight Delay
+            JSR   M_WAIT
+            BEQ   ANSRING
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            JSR   INP                                ; Gobble Extra Stuff Coming In
+            JSR   INP
+            LDA   #-1                                ; Set Cd Status To Connected
+            STA   CDSTAT
+            SEC                                      ; We Have A Connection!
+:RING5      RTS
+
+ANSRING     LDX   #0
+            JSR   PRSTR                              ; Answer The Phone
+            CLC
+            RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            INC   CDCOUNT
+            BNE   :INP2
+
+            INC   CDCOUNT+1                          ; Count Up Tries
+            BNE   :INP2                              ; All Is Still Ok
+
+            DEC   CDCOUNT+2                          ; Count Big Stuff
+            BNE   :INP2
+
+            LDA   #5                                 ; Reset Counter
+            STA   CDCOUNT+2
+            JSR   CHKOK                              ; Is Modem Out There?
+            BCC   :INP2                              ; Nope, It Isn't, Must Be User
+
+            STZ   CDSTAT                             ; We Have Lost CD
+:INP2       LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP3                              ; No Data
+
+            LDA   #-1
+            STA   CDSTAT                             ; Reset Status & Counter
+            STZ   CDCOUNT
+            STZ   CDCOUNT+1
+            LDA   #5
+            STA   CDCOUNT+2
+            LDA   DATA,X                             ; Get Data
+            CMP   #28                                ; Kill Connection?
+            SEC
+            BNE   :INP3                              ; Nope
+
+            LDX   #1
+            STX   CDCOUNT+2                          ; Reset Counter
+:INP3       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            PHA
+            AND   #SSCOE
+            BEQ   :OUT3                              ; No Error, All Is Well
+
+            LDA   DATA,X
+            CMP   #28                                ; Was Is Loss Of Carrier?
+            BNE   :OUT3                              ; Nope
+
+            LDA   #1                                 ; Set Count Down For CD Loss
+            STA   CDCOUNT+2
+:OUT3       PLA
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Output Byte
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    LDA   CDSTAT
+            PHA
+            ASL   A
+            PLA
+            EOR   #-1
+PRSTR2      RTS
+
+* Print Control String To Modem
+*-------------------------------
+
+PRSTR       LDA   ANSSTR,X                           ; Get Data Byte
+            BEQ   PRSTR2                             ; Did It Work?
+
+            INX
+            JSR   OUT                                ; Output Byte
+            CMP   #Cr
+            BNE   PRSTR
+
+            LDA   #0                                 ; Slight Pause
+            JSR   M_WAIT
+            BEQ   PRSTR                              ; Loop (Z-Bit Always Set)
+
+* Check For OK From Question
+*-------------------------------
+
+CHKOK       LDX   #INITSTR-ANSSTR                    ; Send An AT
+            JSR   PRSTR
+            LDY   #250                               ; Check 250 Times
+:CHKOK2     DEY                                      ; Count Down
+            CLC
+            BEQ   :CHKOK3                            ; No OK Gotten
+
+            LDA   #40                                ; Delay Slightly
+            JSR   M_WAIT
+            JSR   INP
+            BCC   :CHKOK2
+
+            CMP   #'0'                               ; Check For "0" For OK
+            BNE   :CHKOK2
+
+            LDA   #80
+            JSR   M_WAIT
+            JSR   INP                                ; Gobble EOL Char
+            SEC                                      ; We Have Confirmation
+:CHKOK3     RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            STZ   CDSTAT
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSXRXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            CLC
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                      ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Available Speeds
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+ATSTR       ASC   'AT'0808
+            ASC   '  '08082800
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+CDSTAT      DB    0                                  ; Carrier Status
+CDCOUNT     DB    0,0,0                              ; Loss Of Cd Counter
+SAVE_X      DB    0
+SAVE_Y      DB    0
+
+            ASC   'Nocarrier'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/NULLMDM.S b/SOURCE/MODEMS/NULLMDM.S
new file mode 100644
index 0000000..abb922d
--- /dev/null
+++ b/SOURCE/MODEMS/NULLMDM.S
@@ -0,0 +1,57 @@
+            LST   RTN
+            TTL   'LLUCE - Null Modem Driver'
+            PAG
+*-------------------------------
+* Date 01/06/87
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                     ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                            ; Initialize Speed
+CALLSPD     DB    0                            ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   MDMDTR
+MDMRSET     JMP   MDMDTR
+MDMRING     JMP   RING
+MDMANS      JMP   MDMDTR
+MDMHANG     JMP   MDMDTR
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   MDMDTR
+MDMINT      JMP   RING
+MDMDTR      JMP   RING
+MDMCBUF     JMP   RING
+MDMQUIT     JMP   RING
+
+* Init The Serial Card
+*-------------------------------
+
+RING        CLC                                ; Scan For Ring And Handle It
+            RTS
+
+INP         LDA   #0                           ; Input Data
+            CLC
+            RTS
+
+OUT         INC   BYTCNT                       ; Output Data
+            BNE   :OUT1                        ; Do Byte-Counting
+
+            INC   BYTCNT+1
+            BNE   :OUT1
+
+            INC   BYTCNT+2
+:OUT1       RTS
+
+M_CHKDCD    CLC                                ; Check For Carrier
+            RTS
+
+            ASC   'NullModem'
+            DS    $400-*+MODEMDVR
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/SINGLESPD.S b/SOURCE/MODEMS/SINGLESPD.S
new file mode 100644
index 0000000..aa4f4eb
--- /dev/null
+++ b/SOURCE/MODEMS/SINGLESPD.S
@@ -0,0 +1,251 @@
+                          LST   RTN
+                          TTL   'LLUCE - Single Speed SSC Driver'
+                          PAG
+*-------------------------------
+* Single Speed External
+*-------------------------------
+* 3/19/88 Andrew E. Nicholas
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMSPD                  =     *
+SLOT                      DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED                  =     *
+INITSPD                   DB    0                                  ; Initialize Speed
+CALLSPD                   DB    0                                  ; Speed Of Call
+
+BYTCNT                    DB    0,0,0
+
+MDMINIT                   JMP   INIT
+MDMRSET                   JMP   RINGSET
+MDMRING                   JMP   RING
+MDMANS                    JMP   ANSRING
+MDMHANG                   JMP   HANGUP
+MDMIN                     JMP   INP
+MDMOUT                    JMP   OUT
+MDMDCD                    JMP   M_CHKDCD
+MDMSSPD                   JMP   SETSPD
+MDMINT                    JMP   M_IRQ
+MDMDTR                    JMP   RAISEDTR
+MDMCBUF                   JMP   M_IRQ
+MDMQUIT                   JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT                      JSR   HANGUP
+                          CLC
+                          TXA
+                          ADC   #<DATA
+                          STA   DATALOC+1                          ; Make Into Absolute Save
+                          PLP
+                          RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET                   JSR   HANGUP
+                          LDA   #0
+                          JSR   M_WAIT
+                          JSR   M_WAIT
+                          JSR   RAISEDTR
+                          LDY   INITSPD                            ; Set Init Speed
+                          JSR   SETSPD
+                          LDA   DATA,X                             ; Clear Data Strobe
+                          LDA   #0                                 ; Long Delay
+                          JSR   M_WAIT
+                          JSR   M_WAIT
+                          LDX   #-1
+
+
+------------------------
+
+RING                      LDX   SLOT                               ; Get Offset
+                          LDA   STATUS,X
+                          AND   CDBYTE                             ; Strip Out CD Byte
+                          CLC
+                          BNE   :RING3                             ; Nothing
+
+                          SEC                                      ; We Have A Connection
+                          LDX   #5
+:RING2                    LDA   #0                                 ; Delay Before Going Online
+                          JSR   M_WAIT
+                          DEX
+                          BNE   :RING2
+
+                          JSR   INP                                ; Gobble Extra
+                          SEC
+:RING3                    RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSRING                   LDX   #0
+:ANSWER2                  LDA   ANSSTR,X                           ; Get Text
+                          BEQ   :ANSWER3                           ; We Are Done
+
+                          JSR   OUT                                ; Send It
+                          LDA   #$80                               ; Delay A Little
+                          JSR   M_WAIT
+                          INX
+                          BNE   :ANSWER2                           ; Loop
+
+:ANSWER3                  RTS
+
+* Input Data
+*-------------------------------
+
+INP                       STX   SAVE_X                             ; Save X
+                          LDX   SLOT                               ; Get Offset
+                          LDA   STATUS,X                           ; Get Status
+                          AND   #SSCRXF
+                          CLC
+                          BEQ   :INP2                              ; No Data
+
+                          LDA   DATA,X
+                          SEC
+:INP2                     LDX   SAVE_X                             ; Restore & Return
+                          RTS
+
+* Output Data
+*-------------------------------
+
+OUT                       STX   SAVE_X                             ; Save X
+                          DEC   TIMECNT                            ; Count Down Bytes Per Second
+                          BNE   :OUT1                              ; Not A Seconds Worth Yet
+
+                          PHA
+                          LDA   CALLSPD                            ; Reset Counter
+                          ASL   A
+                          ASL   A
+                          ASL   A                                  ; Time Count = Base.Rate * 32
+                          ASL   A
+                          ASL   A
+                          STA   TIMECNT
+                          PLA
+                          INC   BYTCNT                             ; Seconds - At 64 Yet?
+                          BIT   BYTCNT
+                          BVC   :OUT1                              ; Nope
+
+                          LDX   #0                                 ; Reset Seconds
+                          STX   BYTCNT
+                          INC   BYTCNT+1                           ; Minutes - At 64 Yet?
+                          BIT   BYTCNT+1
+                          BVC   :OUT1                              ; Nope
+
+                          LDX   #0                                 ; Reset Minutes
+                          STX   BYTCNT+1
+                          INC   BYTCNT+2                           ; Inc Hours
+:OUT1                     LDX   SLOT
+                          PHA
+:OUT2                     LDA   STATUS,X                           ; Check Status
+                          AND   #SSCTXE
+                          BEQ   :OUT2                              ; Loop Until Ready
+
+                          PLA
+DATALOC                   STA   DATA                               ; Self-Modified
+                          LDX   SAVE_X
+                          RTS
+
+* Check For Carrier Sec = We Have Carrier
+*-------------------------------
+
+M_CHKDCD                  PHX                                      ; Don't Kill Any Reg's
+                          PHA
+                          LDX   SLOT                               ; Get Offset
+                          LDA   STATUS,X
+                          AND   CDBYTE                             ; Check Carrier
+                          CLC
+                          BNE   :CHKDCD2
+
+                          SEC
+:CHKDCD2                  PLA                                      ; Restore All & Return
+                          PLX
+                          RTS
+
+* Set The Rs-232 Speed [Speed Offset In Y]
+*-------------------------------
+
+SETSPD                    PHX
+                          LDX   SLOT                               ; Get Offset
+                          LDA   SPEED,Y                            ; Get Speed
+                          STA   CONTROL,X                          ; Set Speed
+                          LDA   #1                                 ; Find Caller Speed (X300)
+                          STA   CALLSPD
+                          CPY   #0                                 ; At 300?
+                          BEQ   :SETSPD3                           ; Yep
+
+                          ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2                  ASL   CALLSPD                            ; Speed = Speed * 2
+                          DEY
+                          BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3                  PLX                                      ; Restore & Return
+                          RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ                     CLC
+                          RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP                    LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+                          HEX   2C
+RAISEDTR                  LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+                          PHP
+                          SEI
+                          LDX   SLOT
+                          STA   COMMAND,X
+                          LDA   DATA,X                             ; Clear Data Strobe
+                          LDA   STATUS,X
+                          PLP
+                          RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT                    SEC                                      ; From Apple ][+ Ref Man - Pg 147
+:WAIT2                    PHA
+:WAIT3                    SBC   #1
+                          BNE   :WAIT3
+
+                          PLA
+                          SBC   #1
+                          BNE   :WAIT2
+
+                          RTS
+
+* Available Speeds
+*-------------------------------
+
+SPEED                     DB    SSCCLK+SSC300
+                          DB    SSCCLK+SSC1200
+                          DB    SSCCLK+SSC2400
+                          DB    SSCCLK+SSC4800
+                          DB    SSCCLK+SSC9600
+                          DB    SSCCLK+SSC19200
+
+COUNTLO                   DB    0
+COUNTHI                   DB    0
+SAVE_X                    DB    0
+TIMECNT                   DB    0
+
+                          ASC   'SingleSpd'
+
+                          DS    $3B0-*+MODEMDVR
+
+BUFFER                    DS    15
+
+CDBYTE                    DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR                    ASC   'ATA'0D00
+                          DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR                   ASC   'ATS0=1S2=128&S1&D2V'0D00
+                          DS    $30-*+INITSTR                      ; DON'T TOUCH
+                          LST   OFF
+
diff --git a/SOURCE/MODEMS/SSC.A.S b/SOURCE/MODEMS/SSC.A.S
new file mode 100644
index 0000000..bb42730
--- /dev/null
+++ b/SOURCE/MODEMS/SSC.A.S
@@ -0,0 +1,363 @@
+            LST   RTN
+            TTL   'LLUCE - SSC Numeric Driver'
+            PAG
+*-------------------------------
+* Numeric SSC Driver Rewritten By Andy Nicholas
+* October 27, 1988
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   #0                                 ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #0
+:RSET2      LDA   #$80
+            JSR   M_WAIT
+            LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                                ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                               ; Check For "OK" (Numeric)
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+
+            JMP   RINGSET
+
+:LEAVE      JSR   INP                                ; Grab The <Cr> Off The Tail End Of The "0"
+            BCC   :LEAVE
+
+            LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                                ; Check For A Char
+            BCC   NORING                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'2'                               ; Is It A 'ring'? (Numeric)
+            BNE   NOTRING                            ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                                ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   :GRABCR
+
+ANSRING     JSR   ANSWER                             ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+*-------------------------------
+
+NOTRING     CMP   #'1'                               ; Is It A '1' Or '10' Or '11' Or '12' Or '14'?
+            BEQ   GOTCODE                            ; Yes, Save It
+
+            CMP   #'5'                               ; Is It Connect 1200?
+            BNE   NORING                             ; Nope
+
+GOTCODE     STA   CODE
+:2NDCHR     JSR   INP                                ; Second Character Will ALWAYS Be There
+            BCC   :2NDCHR
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #Cr                                ; But Might Be A <Cr>
+            BNE   :MULTI
+
+*-------------------------------
+
+            LDY   #0                                 ; Connect 300?
+            LDA   CODE
+            CMP   #'1'
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                               ; Connect 1200?
+            BEQ   :RING3                             ; Nope, Unknown Code, Keep Checking
+
+            JMP   NORING
+
+*-------------------------------
+
+:MULTI      STA   CODE+1
+            LDY   #2                                 ; Def = 2400 Baud
+            LDA   CODE                               ; Get The First Code Char
+            CMP   #'1'                               ; Must Be A One
+            BNE   NORING                             ; If Not, Then Keep Trying
+
+            LDA   CODE+1                             ; Is It 2400?
+            CMP   #'0'
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                               ; Is It 4800?
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                               ; Is It 9600
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                               ; Is It 19200?
+            BEQ   :RING3
+
+            DEY
+            CMP   #'7'                               ; Is It 9600/ARQ?
+            BEQ   :RING3
+
+            DEY                                      ; No 4800/Arq
+            DEY
+            CMP   #'6'
+            BEQ   :RING3                             ; 2400/ARQ
+
+            DEY
+            CMP   #'5'                               ; 1200/ARQ
+            BEQ   :RING3
+
+            JMP   NORING
+
+*-------------------------------
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                      ; We Have A Connection!
+            RTS
+
+NORING      CLC
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            LDA   #$80
+            JSR   M_WAIT
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Self Modified
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                      ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                                      ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs-232 Speed/Speed In Y Reg
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+SAVE_X      DB    0
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+CODE        DS    2                                  ; The Code We Got From The Modem
+            ASC   'SSC/Numeric'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/SSC.HST.S b/SOURCE/MODEMS/SSC.HST.S
new file mode 100644
index 0000000..d590c57
--- /dev/null
+++ b/SOURCE/MODEMS/SSC.HST.S
@@ -0,0 +1,300 @@
+            LST   RTN
+            TTL   'LLUCE - SSC HST Driver'
+            PAG
+*-------------------------------
+* USRobotics HST 19200 Super Serial Driver For LLUCE
+* Written By Andy Nicholas On One Cold January Night
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   #0                                 ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #0
+:RSET2      LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                                ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'K'                               ; Check For "OK"
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+JRING       JMP   RINGSET                            ; Extend Branch To Ringset
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                                ; Check For A Char
+            BCC   :RING5                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'E'
+            CLC
+            BNE   :RING5                             ; Keep Checking
+
+:RING2      JSR   INP                                ; Check For Char
+            BCC   :RING2
+
+            LDY   #0                                 ; Def = 300 Baud
+            AND   #Clrhi                             ; Strip High
+
+            CMP   #'R'                               ; Oops, "No Carrier" Message
+            BEQ   JRING
+
+            CMP   #Cr                                ; Connect 300
+            BEQ   :RING3
+
+            CMP   #'3'                               ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                               ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                               ; Connect 2400
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                               ; Connect 4800
+            BEQ   :RING3
+
+            INY
+            CMP   #'9'                               ; Connect 9600
+            BNE   :RING2
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                      ; We Have A Connection!
+:RING5      RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSRING     LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Self Modified
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                      ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                                      ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs232 Speed/19200 Always
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED                              ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC                                      ; From Apple ][+ Ref Man - Pg 147
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC19200                    ; 19200B All We Have To Worry About
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+SAVE_X      DB    0
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+
+            ASC   'SSC/HST'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V1'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/SSC.NUMERIC.S b/SOURCE/MODEMS/SSC.NUMERIC.S
new file mode 100644
index 0000000..15c91b1
--- /dev/null
+++ b/SOURCE/MODEMS/SSC.NUMERIC.S
@@ -0,0 +1,343 @@
+            LST   RTN
+            TTL   'LLUCE - SSC Numeric Driver'
+            PAG
+*-------------------------------
+* Numeric SSC Driver Rewritten By Andy Nicholas
+* October 27, 1988
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   #0                                 ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #0
+:RSET2      LDA   #$80
+            JSR   M_WAIT
+            LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                                ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                               ; Check For "OK" (Numeric)
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+            BEQ   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                                ; Check For A Char
+            BCC   NORING                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'2'                               ; Is It A 'ring'? (Numeric)
+            BNE   NOTRING                            ; Nope, Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                                ; Grab The <Cr> Off The Tail End Of The "2"
+            BCC   :GRABCR
+
+ANSRING     JSR   ANSWER                             ; The Phone Rang, So Send 'ATA'
+            CLC
+            RTS
+
+*-------------------------------
+
+NOTRING     CMP   #'1'                               ; Is It A '1' Or '10' Or '11' Or '12' Or '14'?
+            BEQ   :GOTCODE                           ; Yes, Save It
+
+            CMP   #'5'                               ; Is It Connect 1200?
+            BNE   NORING                             ; Nope
+
+:GOTCODE    STA   CODE
+:2NDCHAR    JSR   INP                                ; Second Character Will ALWAYS Be There
+            BCC   :2NDCHAR
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #Cr                                ; But Might Be A <Cr>
+            BNE   :MULTI
+
+*-------------------------------
+
+            LDY   #0                                 ; Connect 300?
+            LDA   CODE
+            CMP   #'1'
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                               ; Connect 1200?
+            BEQ   :RING3                             ; Nope, Unknown Code, Keep Checking
+            BNE   NORING
+
+*-------------------------------
+
+:MULTI      STA   CODE+1
+            LDY   #2                                 ; Def = 2400 Baud
+            LDA   CODE                               ; Get The First Code Char
+            CMP   #'1'                               ; Must Be A One
+            BNE   NORING                             ; If Not, Then Keep Trying
+
+            LDA   CODE+1                             ; Is It 2400?
+            CMP   #'0'
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                               ; Is It 4800?
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                               ; Is It 9600
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                               ; Is It 19200?
+            BEQ   :RING3
+            BNE   NORING
+
+*-------------------------------
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                      ; We Have A Connection!
+            RTS
+
+NORING      CLC
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            LDA   #$80
+            JSR   M_WAIT
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Self Modified
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                      ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                                      ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs-232 Speed/Speed In Y Reg
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+CODE        DS    2                                  ; The Code We Got From The Modem
+            ASC   'SSC/Numeric'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/SSC.S b/SOURCE/MODEMS/SSC.S
new file mode 100644
index 0000000..cdc5c05
--- /dev/null
+++ b/SOURCE/MODEMS/SSC.S
@@ -0,0 +1,331 @@
+            LST   RTN
+            TTL   'LLUCE - SSC Numeric Driver'
+            PAG
+*-------------------------------
+* Numeric SSC Driver Rewritten By Andy Nicholas
+* October 27, 1988
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot*16
+MDMSPEED    =     *
+INITSPD     DB    2
+
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        CLC
+            LDA   SLOT
+            ADC   #<DATA
+            STA   DATALOC+1                          ; Make Into Absolute Save
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP                             ; Kill DTR, RTS
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   #0                                 ; Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #0
+:RSET2      LDA   #$80
+            JSR   M_WAIT
+            LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                                ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'0'                               ; Check For "OK" (Numeric)
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+
+            JMP   RINGSET
+
+:LEAVE      JSR   INP                                ; Grab The Cr
+            BCC   :LEAVE
+
+            LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                                ; Check For A Char
+            BCC   NORING                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'2'                               ; Is It A 'ring'? (Numeric)
+            BNE   NOTRING                            ; Check For Connect Messages
+
+*-------------------------------
+
+:GRABCR     JSR   INP                                ; Grab The Cr
+            BCC   :GRABCR
+
+ANSRING     JSR   ANSWER                             ; So Send 'ATA'
+            CLC
+            RTS
+
+*-------------------------------
+
+NOTRING     CMP   #'1'                               ; Begins With '1'?
+            BEQ   GOTCODE                            ; Yes, Save It
+
+            CMP   #'5'                               ; Is It Connect 1200?
+            BNE   NORING                             ; Nope
+
+GOTCODE     STA   CODE
+:2NDCHR     JSR   INP                                ; Get Second Character
+            BCC   :2NDCHR
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #Cr                                ; But Might Be A <Cr>
+            BNE   :MULTI
+
+*-------------------------------
+
+            LDY   #0                                 ; Connect 300?
+            LDA   CODE
+            CMP   #'1'
+            BEQ   :RING3
+
+            INY
+            CMP   #'5'                               ; Connect 1200?
+            BEQ   :RING3                             ; Unknown Code
+
+            JMP   NORING
+
+:MULTI      STA   CODE+1
+            LDY   #2                                 ; Def = 2400 Baud
+            LDA   CODE                               ; Get The First Code Char
+            CMP   #'1'                               ; Must Be A One
+            BNE   NORING                             ; If Not, Then Keep Trying
+
+            LDA   CODE+1                             ; Is It 2400?
+            CMP   #'0'
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                               ; Is It 4800?
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                               ; Is It 9600
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                               ; Is It 19200?
+            BEQ   :RING3
+
+            JMP   NORING
+
+*-------------------------------
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                      ; We Have A Connection!
+            RTS
+
+NORING      CLC
+            RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSWER      LDA   #$80
+            JSR   M_WAIT
+            LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            LDA   #$80
+            JSR   M_WAIT
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Self Modified
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHA                                      ; Don't Kill Any Reg's
+            PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLX                                      ; Restore All & Return
+            PLA
+            RTS
+
+* Set The Rs-232 Speed/Speed In Y Reg
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Speed Found
+
+:SETSPD3    PLX
+            RTS
+
+* Handle Interrupt Routine
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+CODE        DS    2                                  ; Code From The Modem
+            ASC   'SSC/Numeric'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/MODEMS/SSC.VERB.S b/SOURCE/MODEMS/SSC.VERB.S
new file mode 100644
index 0000000..553b64f
--- /dev/null
+++ b/SOURCE/MODEMS/SSC.VERB.S
@@ -0,0 +1,308 @@
+            LST   RTN
+            TTL   'LLUCE - SSC USR 2400 Driver'
+            PAG
+*-------------------------------
+* USRobotics 2400 Driver Written By Andy Nicholas
+* January 19, 1988
+*-------------------------------
+* Jump Table
+*-------------------------------
+
+MODEMDVR    =     *
+SLOT        DB    MSLOT*16                           ; Serial Card Slot
+MDMSPEED    =     *
+INITSPD     DB    0                                  ; Initialize Speed
+CALLSPD     DB    0                                  ; Speed Of Call
+
+BYTCNT      DB    0,0,0
+
+MDMINIT     JMP   INIT
+MDMRSET     JMP   RINGSET
+MDMRING     JMP   RING
+MDMANS      JMP   ANSRING
+MDMHANG     JMP   HANGUP
+MDMIN       JMP   INP
+MDMOUT      JMP   OUT
+MDMDCD      JMP   M_CHKDCD
+MDMSSPD     JMP   SETSPD
+MDMINT      JMP   M_IRQ
+MDMDTR      JMP   RAISEDTR                           ; Raise Dtr
+MDMCBUF     JMP   M_IRQ
+MDMQUIT     JMP   M_IRQ
+
+* Init The Serial Card
+*-------------------------------
+
+INIT        JSR   HANGUP
+            CLC
+            TXA
+            ADC   #<DATA
+            STA   DATALOC+1                          Make
+            PLP
+            RTS
+
+* Setup For Call
+*-------------------------------
+
+RINGSET     JSR   HANGUP
+            LDA   #0                                 ; Let Modem Reset
+            JSR   M_WAIT
+            JSR   M_WAIT
+            JSR   RAISEDTR
+            LDY   INITSPD                            ; Set Init Speed
+            JSR   SETSPD
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   #0                                 ; Slight Delay (Let Modem Do Init)
+            JSR   M_WAIT
+            LDX   #0
+:RSET2      LDA   #$80
+            JSR   M_WAIT
+            LDA   INITSTR,X                          ; Get Modem Init String
+            BEQ   :RSET3
+
+            JSR   OUT                                ; Output
+            INX
+            BNE   :RSET2
+
+:RSET3      LDA   #6
+            STA   COUNTLO
+            STA   COUNTHI
+:RSET4      LDY   #-1
+:RSET5      DEY
+            BEQ   :DECOUNT
+
+            JSR   INP
+            BCC   :RSET5
+
+            AND   #Clrhi
+            CMP   #'K'                               ; Check For "OK"
+            BEQ   :LEAVE
+            BNE   :RSET5
+
+:DECOUNT    DEC   COUNTLO
+            BNE   :RSET4
+
+            DEC   COUNTHI
+            BNE   :RSET4
+
+            JMP   RINGSET
+
+:LEAVE      LDA   #0
+            STZ   BYTCNT                             ; Reset Byte Counter
+            STZ   BYTCNT+1
+            STZ   BYTCNT+2
+            CLC
+            RTS                                      ; Return
+
+JRING       JMP   RINGSET                            ; Extend Branch To Ringset
+
+* Scan For Ring And Handle It
+*-------------------------------
+
+RING        JSR   INP                                ; Check For A Char
+            BCC   :RING5                             ; Nope...
+
+            AND   #Clrhi                             ; Strip High
+            CMP   #'E'
+            CLC
+            BNE   :RING5                             ; Keep Checking
+
+:RING2      JSR   INP                                ; Check For Char
+            BCC   :RING2
+
+            LDY   #0                                 ; Def = 300 Baud
+            AND   #Clrhi                             ; Strip High
+            CMP   #'R'                               ; Oops, "No Carrier" Message
+            BEQ   JRING
+
+            CMP   #Cr                                ; Connect 300
+            BEQ   :RING3
+
+            CMP   #'3'                               ; Connect 300
+            BEQ   :RING3
+
+            INY
+            CMP   #'1'                               ; Connect 1200
+            BEQ   :RING3
+
+            INY
+            CMP   #'2'                               ; Connect 2400
+            BEQ   :RING3
+
+            INY
+            CMP   #'4'                               ; Connect 4800
+            BEQ   :RING3
+
+            INY
+            CMP   #'9'                               ; Connect 9600
+            BNE   :RING2
+
+:RING3      JSR   SETSPD                             ; Set The Correct Speed
+            LDY   #5
+:RING4      LDA   #0                                 ; Let Carrier's Settle
+            JSR   M_WAIT
+            DEY
+            BNE   :RING4
+
+            SEC                                      ; We Have A Connection!
+:RING5      RTS
+
+* Send Ata To Phone
+*-------------------------------
+
+ANSRING     LDX   #0
+:ANSWER2    LDA   ANSSTR,X                           ; Get Text
+            BEQ   :ANSWER3                           ; We Are Done
+
+            JSR   OUT                                ; Send It
+            LDA   #$80
+            JSR   M_WAIT
+            INX
+            BNE   :ANSWER2                           ; Loop
+
+:ANSWER3    RTS
+
+* Input Data
+*-------------------------------
+
+INP         PHX                                      ; Save X
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X                           ; Get Status
+            AND   #SSCRXF
+            CLC
+            BEQ   :INP2                              ; No Data
+
+            LDA   DATA,X
+            SEC
+:INP2       PLX                                      ; Restore & Return
+            RTS
+
+* Output Data
+*-------------------------------
+
+OUT         PHX                                      ; Save X
+            DEC   TIMECNT                            ; Count Down 1 Section
+            BNE   :OUT1
+
+            INC   BYTCNT                             ; 1 Second Gone By
+            BIT   BYTCNT
+            BVC   :OUT1
+
+            STZ   BYTCNT                             ; Reset Seconds
+            INC   BYTCNT+1                           ; 1 Minute Gone By
+            BIT   BYTCNT+1
+            BVC   :OUT1
+
+            STZ   BYTCNT+1                           ; Reset Minutes
+            INC   BYTCNT+2                           ; 1 Hour Gone By
+:OUT1       LDX   SLOT
+            PHA
+:OUT2       LDA   STATUS,X                           ; Check Status
+            AND   #SSCTXE
+            BEQ   :OUT2                              ; Loop Until Ready
+
+            PLA
+DATALOC     STA   DATA                               ; Self Modified
+            PLX
+            RTS
+
+* Check For Carrier
+*-------------------------------
+
+M_CHKDCD    PHX                                      ; Don't Kill Any Reg's
+            PHA
+            LDX   SLOT                               ; Get Offset
+            LDA   STATUS,X
+            AND   CDBYTE                             ; Check Carrier
+            CLC
+            BNE   :CHKDCD2
+
+            SEC
+:CHKDCD2    PLA                                      ; Restore All & Return
+            PLX
+            RTS
+
+* Set The Rs-232 Speed/Speed In Y Reg
+*-------------------------------
+
+SETSPD      PHX
+            LDX   SLOT                               ; Get Offset
+            LDA   SPEED,Y                            ; Get Speed
+            STA   CONTROL,X                          ; Set Speed
+            LDA   #1                                 ; Find Caller Speed (X300)
+            STA   CALLSPD
+            CPY   #0                                 ; At 300?
+            BEQ   :SETSPD3                           ; Yep
+
+            ASL   CALLSPD                            ; Speed = Speed * 2
+:SETSPD2    ASL   CALLSPD                            ; Speed = Speed * 2
+            DEY
+            BNE   :SETSPD2                           ; Loop Until Correct Speed Found
+
+:SETSPD3    PLX                                      ; Restore & Return
+            RTS
+
+* Handle Interrupts
+*-------------------------------
+
+M_IRQ       CLC
+            RTS
+
+* Turn On Dtr/Rts
+*-------------------------------
+
+HANGUP      LDA   #SSCNOP+SSCTXOFF+SSCRXIRQX         ; Kill DTR, RTS
+            HEX   2C
+RAISEDTR    LDA   #SSCNOP+SSCTXON+SSCTXIRQX+SSCRXON  ; Turn On DTR, RTS
+            PHP
+            SEI
+            LDX   SLOT
+            STA   COMMAND,X
+            LDA   DATA,X                             ; Clear Data Strobe
+            LDA   STATUS,X
+            PLP
+            RTS
+
+* Wait Routine
+*-------------------------------
+
+M_WAIT      SEC
+:WAIT2      PHA
+:WAIT3      SBC   #1
+            BNE   :WAIT3
+
+            PLA
+            SBC   #1
+            BNE   :WAIT2
+
+            RTS
+
+* Global Data Area
+*-------------------------------
+
+SPEED       DB    SSCCLK+SSC300
+            DB    SSCCLK+SSC1200
+            DB    SSCCLK+SSC2400
+            DB    SSCCLK+SSC4800
+            DB    SSCCLK+SSC9600
+            DB    SSCCLK+SSC19200
+
+TIMECNT     DB    0                                  ; 1-Second Counter
+COUNTLO     DB    -1
+COUNTHI     DB    -1
+
+            ASC   'SSC'
+
+            DS    $3B0-*+MODEMDVR
+
+BUFFER      DS    15
+
+CDBYTE      DB    SSCDCD                             ; Mask DCD Only (0=Connected)
+
+ANSSTR      ASC   'ATA'0D00
+            DS    $10-*+ANSSTR                       ; DON'T TOUCH
+
+INITSTR     ASC   'ATS0=1S2=128&S1&D2V1'0D00
+            DS    $30-*+INITSTR                      ; DON'T TOUCH
+            LST   OFF
+
diff --git a/SOURCE/OVERLAY.CRC.S b/SOURCE/OVERLAY.CRC.S
new file mode 100644
index 0000000..efc2eaf
--- /dev/null
+++ b/SOURCE/OVERLAY.CRC.S
@@ -0,0 +1,346 @@
+            TTL    'Overlay CRC Calculator'
+********************************
+*                              *
+*  Overlay CRC Calculator      *
+*                              *
+********************************
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+
+]TYPE       =      ^sysfile                    ; set file type
+]AUX        =      sysfile                     ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /RAM5/OVERLAY.CRC
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            LST    RTN
+
+FLNAME      =      LNBUF+$80
+
+            JSR    MONSNORM
+            JSR    MONINIT
+            JSR    MONSVID
+            JSR    MONSKBD
+            STZ    DISP40                      ; Set 40 Columns
+            STZ    ALTCHRS
+            LDA    #'>'+128
+            STA    MONPROMPT
+            JSR    STARTCRC                    ; Set Up CRC Tables
+
+RESTART     JSR    MONCLS                      ; Control L (Clear Screen)
+            STZ    CRC                         ; Zero CRC Count
+            STZ    CRC+1
+            JSR    MONCROUT
+            JSR    PRINT
+            DCI    'Filename -> '
+            JSR    MONINPLN
+            CPX    #0                          ; Null File Name?
+            BNE    MVNAME                      ; Nope
+
+            JMP    EXIT
+
+MVNAME      STX    FLNAME                      ; Save Length Of Name
+NAMELUP     LDA    LNBUF,X                     ; Move Name
+            AND    #$7F                        ; Clear Hi Bit
+            STA    FLNAME+1,X                  ; Save It
+            DEX                                ; Next Byte
+            CPX    #-1
+            BNE    NAMELUP
+
+            JSR    MLI                         ; Open The File
+            DB     Open
+            DA     OPENLST
+            BCC    OPENOK
+
+            JMP    OPENERR
+
+OPENOK      LDA    OPENREF                     ; Move Reference Numbers
+            STA    READREF
+            STA    WRITEREF
+            STA    CLOSEREF
+            STA    MARKREF
+            LDX    #0                          ; Read First 8 Bytes
+ID          JSR    RDBYTE
+            STA    IDBYTES,X
+            INX
+            CPX    #8
+            BLT    ID
+
+            JSR    MONCROUT
+            JSR    PRINT                       ; Print ID Byte
+            DCI    'ID  Byte : '
+            LDA    IDBYTES
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            JSR    PRINT                       ; Print Auxiliary Type
+            DCI    'Aux Type : '
+            LDA    IDBYTES+2
+            JSR    MONPRBYTE
+            LDA    IDBYTES+1
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            JSR    PRINT                       ; Print Checksum Of ID
+            DCI    'Checksum : '
+            LDA    IDBYTES+3
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            JSR    PRINT                       ; Print Size Of Code
+            DCI    'Code Size: '
+            LDA    IDBYTES+5
+            JSR    MONPRBYTE
+            LDA    IDBYTES+4
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            LDA    #0                          ; Checksum Overlay ID
+            LDX    #0
+IDCSUM      EOR    IDBYTES,X
+            INX
+            CPX    #4
+            BLT    IDCSUM
+
+            EOR    #$A5                        ; ID Ok?
+            BEQ    IDOK
+
+            JMP    IDERR                       ; Nope
+
+IDOK        LDA    IDBYTES+4                   ; Move Code Size
+            STA    TEMP
+            LDA    IDBYTES+5
+            STA    TEMP+1
+CRCLUP      JSR    RDBYTE                      ; Read Overlay Byte
+            JSR    ADDCRC                      ; Add To Crc
+            LDA    TEMP                        ; Bump Size Pointer
+            BNE    DWNSIZE
+
+            DEC    TEMP+1
+DWNSIZE     DEC    TEMP
+            LDA    TEMP                        ; Done?
+            BNE    CRCLUP                      ; Nope
+
+            LDA    TEMP+1
+            BNE    CRCLUP
+
+            JSR    PRINT
+            DCI    'Code CRC : '
+            LDA    CRC                         ; Move CRC To Program
+            STA    IDBYTES+6
+            LDA    CRC+1
+            STA    IDBYTES+7
+            JSR    MONPRBYTE
+            TXA
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            JSR    MLI                         ; Set Mark Back To 0
+            DB     Setmark
+            DA     MARKLST
+            LDX    #0                          ; Re-Write First 8 Bytes
+WRID        LDA    IDBYTES,X
+            STA    BYTE
+            JSR    MLI
+            DB     Write
+            DA     WRITELST
+            INX
+            CPX    #8
+            BLT    WRID
+
+ANOTHER     JSR    MLI                         ; Close The File
+            DB     Close
+            DA     CLOSELST
+            JSR    PRINT
+            DB     cr
+            ASC    'Do Another File? -> _'2088
+K_WAIT      LDA    KYBD                        ; Wait For A Keypress
+            BPL    K_WAIT
+
+            BIT    KBDSTRB                     ; Clear Strobe
+            CMP    #'N'+Hibit                  ; How About A No?
+            BEQ    QUIT
+
+            CMP    #'n'+Hibit                  ; How About A No?
+            BEQ    QUIT
+
+            CMP    #'Y'+Hibit                  ; Is It A Yes?
+            BEQ    AGAIN
+
+            CMP    #'y'+Hibit
+            BNE    K_WAIT
+
+AGAIN       JSR    MONCOUT                     ; Print Input
+            JMP    RESTART                     ; Start Again
+
+QUIT        JSR    MONCOUT                     ; Print Input
+EXIT        JSR    MLI                         ; Try To Quit
+            DB     Quit
+            DA     QUITLST
+
+*-------------------------------
+* Should Never Get Here
+*-------------------------------
+
+            INC    SOFTEV                      ; Force Cold Start
+            JMP    (MONRESET)
+
+OPENERR     JSR    PRINT
+            DB     cr
+            ASC    'Error Opening File'8D
+            BRA    ANOTHER
+
+IDERR       JSR    PRINT
+            DB     cr
+            ASC    'Invalid Overlay ID'0D0D
+            ASC    'Probably Not An Overlay'8D
+            JMP    ANOTHER
+
+RDERR       JSR    PRINT
+            DB     cr
+            ASC    'Error Reading File'8D
+            PLA
+            PLA
+            JMP    ANOTHER
+
+RDBYTE      JSR    MLI
+            DB     Read
+            DA     READLST
+            BCS    RDERR
+
+            LDA    BYTE                        ; Get Byte Read
+            RTS
+
+*-------------------------------
+* Standard In-Line Print Routine
+*-------------------------------
+
+PRINT       PLA
+            STA    PRN
+            PLA
+            STA    PRN+1
+            BRA    PR2
+
+PR1         LDA    (PRN)
+            PHP
+            ORA    #Hibit
+            JSR    MONCOUT
+            PLP
+            BMI    PR3
+
+PR2         INC    PRN
+            BNE    PR1
+
+            INC    PRN+1
+            BRA    PR1
+
+PR3         LDA    PRN+1
+            PHA
+            LDA    PRN
+            PHA
+            RTS
+
+QUITLST     DB     4
+            DS     8
+
+OPENLST     DB     3
+            DA     FLNAME
+            DA     IOBUF
+OPENREF     DB     0
+
+READLST     DB     4
+READREF     DB     0
+            DA     BYTE
+            DA     1                           ; Reading 1 Byte
+            DA     0
+
+WRITELST    DB     4
+WRITEREF    DB     0
+            DA     BYTE
+            DA     1                           ; Writing 1 Byte
+            DA     0
+
+CLOSELST    DB     1
+CLOSEREF    DB     0
+
+MARKLST     DB     2
+MARKREF     DB     0
+            DB     0,0,0
+
+BYTE        DB     0
+
+IDBYTES     DS     8
+
+*===============================
+* Calculate CRC
+*===============================
+
+STARTCRC    LDX    #0                          ; Zero Crc Pages
+CLRCRC      STZ    CRCBUFLO,X
+            STZ    CRCBUFHI,X
+            INX
+            BNE    CLRCRC
+
+FETCH       TXA                                ; Set Up CRC Table
+            EOR    CRCBUFHI,X
+            STA    CRCBUFHI,X
+            LDY    #8
+MKCRC       ASL    CRCBUFLO,X
+            ROL    CRCBUFHI,X
+            BCC    LOOP1
+
+            LDA    CRCBUFHI,X
+            EOR    #>$1021
+            STA    CRCBUFHI,X
+            LDA    CRCBUFLO,X
+            EOR    #<$1021
+            STA    CRCBUFLO,X
+LOOP1       DEY
+            BNE    MKCRC
+
+            INX
+            BNE    FETCH
+
+            RTS
+
+ADDCRC      EOR    CRC+1                       ; Add It To Crc
+            TAX
+            LDA    CRC
+            EOR    CRCBUFHI,X
+            STA    CRC+1
+            LDA    CRCBUFLO,X
+            STA    CRC
+            RTS
+
+CRC         DA     0
+
+            DUM    CRC+2
+
+            DS     \                           ; Set To Page Boundary
+CRCBUFLO    DS     $100
+CRCBUFHI    DS     $100
+IOBUF       DS     $400
+            DEND
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+
diff --git a/SOURCE/OVERLAYS/COMP.MAIN.S b/SOURCE/OVERLAYS/COMP.MAIN.S
new file mode 100644
index 0000000..57e8c00
--- /dev/null
+++ b/SOURCE/OVERLAYS/COMP.MAIN.S
@@ -0,0 +1,654 @@
+ LST RTN
+ TTL 'LLUCE - Compiler Main Line'
+ PAG
+********************************
+*                              *
+*          Compiler            *
+*                              *
+********************************
+ DATE
+*-------------------------------
+
+COMPILER JMP COMP_A ; Skip Version Number
+ DW Version
+
+COMP_A LDX #MLI_END-MLICODE
+MOVMLI MOV MLICODE,X;INFOLST,X
+ DBPL X;MOVMLI
+
+ LDX FLNAME ; Change Name Back To Source
+ MOV #'S';FLNAME,X ; '.S' For Source
+ PDOS Getinfo;INFOLST
+ BCS COMP_A2
+ JSR PD_OPEN ; Open Source File
+ BCC COMP_B ; Opps, Problem
+
+COMP_A2 RTS
+
+COMP_B JSR PD_NEWLN ; Setup For Rdline
+ MOVD MODULE;TEMP ; Point To Module Space
+ STZ LBLNUM
+ STZ SYMNUM ; Zero Sym/Lbl Counters
+ STZ ONFLAG
+ STZ PUBCNT
+ STZ ERRFLG
+ STZ LINENUM
+ STZ LINENUM+1
+ JSR SHOWSTR
+ DCI 'One Moment, Compiling Segment.'
+ TSTPL SHWTXT;PASS1
+
+ PUSHA #23
+ MOV CH;OLDCH ; Save Old Values
+ MOV CV;OLDCV
+
+ STZ CH ; Position To 0,[Inparg]
+ PULL CV
+
+ JSR PR ; Print Message
+ ASC 'CMP:'00
+ PHXY ; Save Both X & Y
+ LDX OLDCH ; Position
+ LDY OLDCV
+ JSR VIDPOS
+ PLXY
+
+*===============================
+* ----- Pass 1 ------
+*===============================
+
+PASS1 STZ LNCNT ; reset line pointer
+ JSR COMPSHOW ; get line of input
+ BCC CHECKLBL
+ JMP PASS2
+
+CHECKLBL IFEQ LNBUF2;#cr;PASS1 ; is it a space?
+ CPEQ #' ';COMMANDS ; is it a space?
+ CPEQ #tab;COMMANDS ; or a TAB?
+ CPNE #'/';CHKLBL2 ; Start of comment?
+ IFNE LNBUF2+1;#'*';LINEERR ; is it a comment?
+ JMP DO_COMM
+
+CHKLBL2 CPEQ #'_';CHKLBL3
+
+ JSR TST_ALF
+ BCS LINEERR
+
+CHKLBL3 JSR ADD_SYM ; Add To Symbol Table
+ BCC PASS1
+
+ LDA #SymFull
+ JSR CHECKERR
+ BRA PASS1
+
+LINEERR LDA #InvalChr
+ JSR CHECKERR
+ BRA PASS1
+
+COMMANDS INC LNCNT ; Advance Pointer
+CONTINUE LDY LNCNT
+ IFNE LNBUF2,Y;#cr;CHECKSPC ; If End Of Line
+
+ENDLINE IFEQ LSTTOK;#Public;JPASS1 ; last tkn public, no chain
+
+ MOV #Chain2;(TEMP) ; Insert A Chain Command
+ INCD TEMP ; Increment Temp By 1
+JPASS1 JMP PASS1
+
+CHECKSPC CPEQ #tab;COMMANDS
+ CPEQ #' ';COMMANDS ; Go Until A Legal Character Of Some Sort
+ BLT LINEERR
+
+ CPEQ #'\';JPASS1 ; line continuation?
+ CPEQ #'$';DO_NUM ; is it a hex number?
+ CPEQ #'"';DOBLOCK ; Check For Text Mode
+ CPEQ #''';DOBLOCK ; check for block text
+ CPNE #'/';CHKTOKEN ; Start of comment?
+ IFEQ LNBUF2+1,Y;#'/';ENDLINE ; end of line comment
+ CPNE #'*';NOT_COMM ; make sure its comment
+ JMP DO_COMM ; it is a comment
+
+DOBLOCK JMP BLOCK
+
+NOT_COMM LDA #'/'
+CHKTOKEN JSR TST_ALF ; is it a letter?
+ BCC FINDTKN
+
+CHKNUM JSR TST_NUM
+ BCS FINDTKN
+
+DO_NUM JSR NUMBER ; handle the number
+ BRA CONTINUE ; continue line
+
+FINDTKN JSR TOKEN ; Get Token Type
+ BCC HNDLTKN
+ JSR TST_ALF ; was it a letter?
+ BCS NORMTKN ; nope, can't be variable
+ JMP CHKVAR ; Check For Variable
+
+HNDLTKN CPPL #0;NORMTKN
+
+ PHA
+ LDY #1 ; save token
+ AND #Clrhi
+ STA (TEMP),Y
+ MOV #Hitoken;(TEMP) ; and hi flag
+ CLC ; gotta add 2 here..
+ AD TEMP;#2;TEMP
+ BCC DONEHITK
+ INC TEMP+1
+DONEHITK PLA
+ STA LSTTOK
+ JMP CONTINUE
+
+NORMTKN CPNE #Public;PUTTKN ; Is It Public?
+ INC PUBCNT
+ IFGE PUBCNT;#9;PUBERR
+
+ STA LSTTOK
+ JSR ADD_LBL ; Add Label To Table
+ JMP CONTINUE
+
+PUBERR LDA #PubFull
+ JSR CHECKERR
+ JMP PASS1
+
+PUTTKN STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+ CPEQ #Push;LABELTOK ; Check To See If Label Follows
+ CPEQ #Goto;LABELTOK
+ CPNE #Gosub;CHKON
+ IFEQY LSTTOK;#Clear;CHKON ; Skip Lbl Chk If clear gosub
+
+LABELTOK JMP DOLABEL
+
+CHKON LDY LSTTOK
+ STA LSTTOK
+ CPEQ #On;SETUPON ; Is It An ON Command?
+ CPEQ #Nocar;CLEARON ; Is This An NOCAR Command?
+ CPNE #Onerr;TOKDONE ; How About ERROR?
+CLEARON STZ ONFLAG ; Clear ON Flag
+ JMP CONTINUE
+
+SETUPON CPEQY #AnsiTkn;TOKDONE
+ CPEQY #Edit;TOKDONE
+ CPEQY #Flash;TOKDONE
+ CPEQY #Convert;TOKDONE
+ DEC ONFLAG ; Flag It
+ STZ ONCOUNT ; Zero The Count
+TOKDONE JMP CONTINUE
+
+*===============================
+* ----- Handle Variables -----
+*===============================
+
+CHKVAR ORA #Hibit
+ STA LSTVNAM ; Save First Char Of Name
+ STZ LSTVNAM+1 ; Clear rest of name
+ STZ LSTVNAM+2
+ STZ LSTVNAM+3
+ LDY #1
+GETNAME LDX LNCNT
+ LDA LNBUF2,X ; See If There Is Another
+ JSR TST_ALF
+ BCC NAMESAVE
+ JSR TST_NUM
+ BCS SKIPXTRA
+
+NAMESAVE JSR CONV
+ ORA #Hibit
+ STA LSTVNAM,Y ; Save next char of name
+ INY
+ INC LNCNT
+ CPNEY #4;GETNAME
+
+SKIPXTRA DEC LNCNT
+ LDX LNCNT
+GOBBLEX INX
+ LDA LNBUF2,X ; Gobble Rest Of Name
+ JSR TST_ALF
+ BCC GOBBLEX
+ JSR TST_NUM
+ BCC GOBBLEX
+
+SETVAR STX LNCNT
+ LDX #Number
+ CPNE #'$';PUTVTYPE ; check if its number or string
+ INC LNCNT
+ LDX #String
+PUTVTYPE TXA  ; Save variable type
+ STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+ MOV LSTVNAM;(TEMP) ; Move to code space
+ INCD TEMP ; Increment Temp By 1
+ LDEQ LSTVNAM+1;VARDONE
+ STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+ LDEQ LSTVNAM+2;VARDONE
+ STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+ LDEQ LSTVNAM+3;VARDONE
+ STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+VARDONE JMP CONTINUE
+
+*===============================
+* ----- Handle Labels -----
+*===============================
+
+DOLABEL TSTPL ONFLAG;FLAGLBL ; Doing An ON Statement?
+ MOVD TEMP;TEMP3 ; Save Position for ON count
+ INCD TEMP ; skip count location
+FLAGLBL MOV #Label;(TEMP) ; Flag As Label
+ INCD TEMP ; Increment Temp By 1
+ JSR ADD_LBL ; Add Label To Table 2
+ BCC PUTLBLN
+ JMP ENDLINE ; Restart With State 0
+
+PUTLBLN STA (TEMP) ; save label number
+ INCD TEMP ; Increment Temp By 1
+ TSTPL ONFLAG;LBLDONE ; Doing An ON Command?
+ INC ONCOUNT ; Increment Count
+ LDY LNCNT ; Get Next Character
+ LDA LNBUF2,Y
+ INC LNCNT ; Bump Counter In Case
+ CPNE #',';SETONCNT ; More Labels?
+ INY
+ IFNE LNBUF2,Y;#'\';FLAGLBL ; line link?
+
+NXTLBLIN STZ LNCNT ; Reset Line Pointer
+ JSR COMPSHOW ; Get Line Of Input
+ BCC GETLBCHR
+ JMP PASS2
+
+NXTLBCHR INC LNCNT
+GETLBCHR LDY LNCNT ; Check Character In Line
+ IFEQ LNBUF2,Y;#'\';NXTLBLIN ; Line Link, Get Another
+ CPEQ #tab;NXTLBCHR
+ CPEQ #' ';NXTLBCHR ; Invalid Character?
+ BGE FLAGLBL ; get next label
+ JMP LINEERR ; bad char, show it
+
+SETONCNT DEC LNCNT ; Back Down Count
+ MOV ONCOUNT;(TEMP3) ; Insert Count
+ STZ ONFLAG
+LBLDONE JMP CONTINUE ; Continue Compile
+
+*===============================
+* Do Text/Block Mode Processing
+*===============================
+
+BLOCK STA TEMP2 ; Save Delimiter Char For Text/Block Mode
+ LDRA #'"'+Hibit;CHKBLKCH
+
+NXTBLKCH LDY LNCNT
+ IFEQ LNBUF2,Y;TEMP2;BLKDONE ; Check For Delimiter
+
+CHKBLKCH CPNE #'\';CHKBLKCR ; is it an escape?
+ IFEQ LNBUF2+1,Y;#cr;GETBLKLN ; continue line?
+ JSR TEXTESC ; handle it
+ BRA NXTBLKCH ; do next
+
+CHKBLKCR CPNE #cr;PUTBLKCH ; End Of Line?
+
+ IFEQ TEMP2;#'"';TEXTDONE ; Text, Do Finish Up
+
+ LDA #cr ; Stick In cr If In Block
+PUTBLKCH STA (TEMP)
+ INCD TEMP ; Increment Temp By 1
+ INC LNCNT
+ CPNE #cr;NXTBLKCH ; Check Byte
+
+ STZ LNCNT ; Reset Line Counter
+ MOV #-1;BLOCKFLG ; Flag reading a block
+
+GETBLKLN JSR COMPSHOW ; Read New Line
+ STZ BLOCKFLG
+ BCC NXTBLKCH ; Keep Checking
+
+ LDA #NoQuote
+ JSR CHECKERR ; Print In Text Warning
+ JMP PASS2 ; Were done
+
+BLKDONE INC LNCNT ; Bump Pointer
+TEXTDONE MOV #'"'+Hibit;(TEMP)
+ INCD TEMP ; Increment Temp By 1
+CONTCOMP JMP CONTINUE
+
+*===============================
+* Handle comments
+*===============================
+
+NXT_COMM JSR COMPSHOW ; Read New Line
+ STZ LNCNT ; Reset Line Counter
+ BRA COMM_LUP
+
+DO_COMM INC LNCNT ; Bypass the /*
+ MOV #-1;BLOCKFLG ; Check all lines
+COMM_LUP INC LNCNT
+ LDY LNCNT
+ IFEQ LNBUF2,Y;#cr;NXT_COMM
+ CPNE #'*';COMM_LUP ; check for */
+ IFNE LNBUF2+1,Y;#'/';COMM_LUP
+ STZ BLOCKFLG
+ INC LNCNT
+ IBRA LNCNT;CONTCOMP
+
+*===============================
+* ----- Pass 2 -----
+*===============================
+
+PASS2 JSR SHOWSTR
+ DCI '..'
+ STZ LINENUM
+ STZ LINENUM+1
+ MOV #End;(TEMP) ; Make Sure Segment Ends
+ INCD TEMP ; Increment Temp By 1
+ MOV #Labelend;(TEMP) ; Save End Pointer
+ INCD TEMP ; Increment Temp By 1
+ JSR PD_CLOSE
+ LDX #$80 ; Zero Out The Input Buffer
+ZEROPUB STZ LNBUF,X
+ IBNE X;ZEROPUB
+
+ LDX SYMNUM ; Mark End Of Tables
+ STZ SYMTAB,X
+ LDX LBLNUM
+ STZ LBLTAB,X
+
+ MOV TEMP;LOMEM ; Setup Pointers To Variable Space
+ STA LNBUF+142
+ MOV TEMP+1;LNBUF+143 ; Save For Compiled Segments
+ STA LOMEM+1
+
+*-------------------------------
+* Copy First 8 Labels (For Public)
+*-------------------------------
+
+ LDEQ PUBCNT;VFYLABS ; Any labels??
+
+ LDX #$80 ; Start Counters
+ LDY #0
+COPYPUB PHX
+ MOV #>LBLTAB;COPYPUB2+2
+COPYPUB2 LDA LBLTAB,Y ; *** Self-Modified
+ INC COPYPUB2+2 ; Changes Code
+ STA LNBUF,X ; Save Data
+ ASL A ; This makes it so only
+ BCS COPYPUB3 ; the actual label is copied
+ INX
+ TXA
+ AND #%00001000 ; Have We Done 8 Yet?
+ BEQ COPYPUB2 ; Nope
+
+COPYPUB3 INY ; Ready For Next
+ CPEQY PUBCNT;COPYPUB4 ; Any more labels?
+ BLT COPYPUB4
+ PLA
+ BRA COPYPUB5 ; nope
+
+COPYPUB4 PLA
+ CLC
+ ADC #$10 ; Add It Up.
+ TAX
+ BCC COPYPUB ; Keep Going
+
+COPYPUB5 MOV #>LBLTAB;COPYPUB2+2 ; Reset Byte For CRC
+
+VFYLABS LDX #-1 ; Start At Beginning Of Table
+VERLBLS INX
+ LDNE LBLTAB,X;LBLSRCH
+ JMP PASS3 ; Are We Done?
+
+LBLSRCH LDY #-1
+NXTLBL INY
+ LDNE SYMTAB,Y;VERLBLSE ; keep checking
+
+ PHX
+ LDNE ERRFLG;LBNFERR ; has an error happened before?
+
+ JSR CROUT
+
+LBNFERR MOV #1;ERRFLG ; makes sure it doesn't pass 0
+ JSR SHOWSTR
+ DB inv
+ DCI 'A Label Was Not Found [' ; 5 NoLabel
+ PLX ; Get Back Label Number
+ MOV #>LBLTAB;SHOWLBL+2 ; start at first char
+SHOWLBL LDA LBLTAB,X
+ PHP
+ AND #Clrhi
+ JSR COUT ; Print Char
+ INC SHOWLBL+2 ; Get Ready For Next
+ PLP
+ BPL SHOWLBL ; Loop Until Finished
+
+ MOV #>LBLTAB;SHOWLBL+2 ; Reset Byte For CRC
+
+ JSR SHOWSTR
+ DB ']',norm,cr+Hibit
+ MOV #<NOLABEL;LBLTAB+L0,X ; Put Bad Branch Error Routine
+ MOV #>NOLABEL;LBLTAB+L1,X
+ TSTMI REMOTE;VERLBLS
+ JSR PAUSEIT
+ BRA VERLBLS
+
+BRNXTLBL BRA NXTLBL ; Extension From Branches
+
+VERLBLSE IFNE LBLTAB+L0,X;SYMTAB+L0,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD ; High Bit Means Were Done
+ IFNE LBLTAB+L1,X;SYMTAB+L1,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L2,X;SYMTAB+L2,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L3,X;SYMTAB+L3,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L4,X;SYMTAB+L4,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L5,X;SYMTAB+L5,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L6,X;SYMTAB+L6,Y;BRNXTLBL
+ ASL A
+ BCS CPYLBLAD
+ IFNE LBLTAB+L7,X;SYMTAB+L7,Y;BRNXTLBL
+CPYLBLAD MOV SYMTAB+L8,Y;LBLTAB+L0,X ; Copy Label Address
+ MOV SYMTAB+L9,Y;LBLTAB+L1,X
+ JMP VERLBLS
+
+*===============================
+* ----- Pass 3 -----
+*===============================
+
+PASS3 LDEQ PUBCNT;ADDPTRS ; Any labels??
+
+ LDX #$80 ; Start Counters
+ LDY #0
+CPYPUBAD MOV LBLTAB+L0,Y;LNBUF+8,X ; Move First Address
+ MOV LBLTAB+L1,Y;LNBUF+9,X
+
+ INY ; Inc address #
+ CPEQY PUBCNT;CPYPUBA2 ; Any more labels?
+ BGE ADDPTRS ; nope
+CPYPUBA2 TXA
+ CLC
+ ADC #$10 ; Move Dest Pointer
+ TAX
+ BCC CPYPUBAD ; More Data, Keep Going
+
+ADDPTRS MOVD MODULE;TEMP ; Point At Module
+ STZ TEMP2 ; flag no text
+ STZ TEMP2+1
+ LDY #1 ; Offset Was 0 Or 1 Only
+SCAN LDA TEMP2+1
+ STA LSTTOK
+SCAN2 LDA (TEMP)
+ CPNE #Labelend;SCANTEST
+ JMP SAVESEG
+
+SCANTEST CPNE #'"'+Hibit;NOTTXT ; is it text?
+
+ PHA ; set mode flag
+ EOR TEMP2
+ STA TEMP2
+ PLA
+SCAN3 INCD TEMP
+ BRA SCAN2
+
+NOTTXT TSTMI TEMP2;SCAN3 ; if in text mode, just skip
+
+ CPNE #Hitoken;NOT_HIGH ; high order token?
+ INCD TEMP ; get next token
+ LDA (TEMP)
+ ORA #Hibit ; make it high
+NOT_HIGH STA TEMP2+1
+ CPEQ #Number;SCANVAR ; If number or string
+ CPNE #String;CHKCONST ; skip all used bytes
+
+SCANVAR INCD TEMP ; Increment Temp By 1
+ LDPL (TEMP);SCAN ; if positive, not var name
+ JSR TST_ALF
+ BCC SCANVAR
+ JSR TST_NUM
+ BCC SCANVAR
+G_SCAN BRA SCAN
+
+CHKCONST CPEQ #ThreeByte;SCANCON4 ; 3 byte number?
+ CPEQ #TwoByte;SCANCON3 ; 2 byte number?
+ CPEQ #OneByte;SCANCON2 ; 1 byte number?
+ CPEQ #On;SKIPON
+ CPEQ #Hitoken;SCANCON2 ; is it a high token?
+ CPNE #Label;SCANSKIP ; is it a label?
+
+ LDA (TEMP),Y ; Get Label Address
+ TAX ; And Insert Into Code
+ MOV LBLTAB+L1,X;(TEMP),Y
+ MOV LBLTAB+L0,X;(TEMP)
+SCANCON2 LDA #2
+ SKIP2
+SCANCON4 LDA #4
+ SKIP2
+SCANCON3 LDA #3
+ SKIP2
+SCANSKIP LDA #1
+ CLC
+ ADA TEMP;TEMP
+ BCC G_SCAN
+ INC TEMP+1
+ BRA G_SCAN
+
+SKIPON IFEQX LSTTOK;#AnsiTkn;SCANSKIP
+ CPEQX #Convert;SCANSKIP
+ CPEQX #Flash;SCANSKIP
+ CPEQX #Edit;SCANSKIP
+ INCD TEMP ; point to next token
+ IFEQ (TEMP);#Onerr;G_SCAN
+ CPEQ #Nocar;G_SCAN
+ CPEQ #Goto;SCANCON2 ; is it a goto?
+ CPEQ #Gosub;SCANCON2 ; or gosub
+ CPEQ #Push;SCANSKIP ; or push
+ BRA SKIPON
+
+*===============================
+* ----- Save segment -----
+*===============================
+
+SAVESEG LDX FLNAME ; Add '.C' Back On
+ MOV #'C';FLNAME,X
+ MOV #7;INFOLST
+ LDY #^compiled ; LLUCE Compiled File
+ LD16 #compiled ; aux type ($8003)
+ JSR PD_MAKE
+ JSR PD_OPEN
+ BCS SAVEERR ; If Problem
+
+ PUSHA MSGREF ; Save Msg Refnum
+ MOV REFNUM;MSGREF ; And Replace With Current
+
+ MOVD MODULE;LNBUF+138 ; Put Seg Start In
+
+ MOV #'L';LNBUF+140 ; Save I/D Bytes
+ MOV #'P';LNBUF+141
+
+ MOVD VERSION;LNBUF+254 ; Save Version Bytes
+
+ LD16 #LNBUF+$80 ; Write Out Header (With Label Info)
+ LDY #1
+ JSR PD_WRBLK
+
+ SEC
+ LDA LOMEM+1
+ SBC MODULE+1 ; Find # Of Pages In Module
+ ASL A ; Multiply By 2 Into Blocks
+ TAY
+ INY ; Add In Extra Page Just In Case
+ INY
+ LD16 MODULE ; Write Rest Of Data
+ JSR PD_WRBLK
+
+ JSR PD_CLOSE ; Finish Up
+
+ MOV #^compiled;I_FTYPE ; LLUCE Compiled File
+ MOVD #compiled;I_ATYPE ; aux type ($8003)
+ INC I_MODT ; Make the file newer
+ PDOS Setinfo;INFOLST ; than the source
+ PULL MSGREF ; And Restore
+
+SAVEERR BCC SAVENERR
+ LDA #WriteErr
+ JSR CHECKERR
+
+SAVENERR TSTPL SHWTXT;TSTWIPE
+
+ PUSHA #23
+ MOV CH;OLDCH ; Save Old Values
+ MOV CV;OLDCV
+
+ STZ CH ; Position To 0,[Inparg]
+ PULL CV
+
+ JSR PR
+ ASC 'INP:'00
+ PHXY ; Save Both X & Y
+ LDX OLDCH ; Position
+ LDY OLDCV
+ JSR VIDPOS
+ PLXY
+
+TSTWIPE LDNE ERRFLG;EXITCOMP ; Any Error While Compiling?
+
+ JSR SHOWSTR
+ DS 32,bs
+ DS 32,' '
+ DS 31,bs
+ DB bs+Hibit
+ LDA KYBD ; Check Local Keyboard
+ ORA #Hibit
+ CPNE #'Z'-Ctrl+Hibit;EXITCOMP
+
+PAUSEIT STA KBDSTRB
+ JSR RDKEY ; Wait For A Keypress
+EXITCOMP CLC
+ RTS
+
+MLICODE ORG FREESPACE
+
+INFOLST DB 10
+I_PATH DA FLNAME
+I_ACC DB 0
+I_FTYPE DB 0
+I_ATYPE DW 0
+I_STYPE DB 0
+I_BLKS DW 0
+I_MODD DW 0
+I_MODT DW 0
+I_CRTD DW 0
+I_CRTT DW 0
+ ORG
+MLI_END = *
+ LST OFF
diff --git a/SOURCE/OVERLAYS/COMP.SUBS.S b/SOURCE/OVERLAYS/COMP.SUBS.S
new file mode 100644
index 0000000..786a9a0
--- /dev/null
+++ b/SOURCE/OVERLAYS/COMP.SUBS.S
@@ -0,0 +1,731 @@
+            LST     RTN
+            TTL     'LLUCE - Compiler Subroutines'
+            PAG
+*===============================
+* -- Add To Symbol Table --
+*===============================
+
+ADD_SYM     LDY     #-1
+ADD_SYM2    INY                                     ; Find Last Char Of Label
+            LDA     LNBUF2,Y
+            JSR     CONV
+            STA     LNBUF2,Y
+            CPLT    #' '+1;ADD_SYM3
+            CPEQ    #':';ADD_SYM3
+            CPNE    #',';ADD_SYM2
+
+ADD_SYM3    DEY
+            LDA     LNBUF2,Y                        ; Set High-Bit Of Last Char
+            ORA     #Hibit
+            STA     LNBUF2,Y
+
+            LDA     LNBUF2+7                        ; Mark Last Char Just In Case
+            ORA     #Hibit
+            STA     LNBUF2+7
+
+            IFEQX   SYMNUM;#$FF;ADD_SYM6            ; check for overflow
+
+            MOV     #>SYMTAB;ADD_SYM5+2             ; Set Up Table
+            LDY     #-1
+ADD_SYM4    INY
+            LDA     LNBUF2,Y
+            PHP
+ADD_SYM5    STA     SYMTAB,X                        ; *** Self-Modified ***
+            INC     ADD_SYM5+2
+            PLP
+            BPL     ADD_SYM4                        ; Loop Until Done
+
+            MOV     TEMP;SYMTAB+L8,X                ; Save Label Location
+            MOV     TEMP+1;SYMTAB+L9,X
+            INC     SYMNUM                          ; Add To Table
+            MOV     #>SYMTAB;ADD_SYM5+2             ; Reset Byte For CRC
+            CLC
+            RTS
+
+ADD_SYM6    SEC                                     ; Symbol Table Overflow
+            RTS
+
+*===============================
+* --- Add To Label Table ---
+*===============================
+
+ADD_LB13    LDA     #NoSymbol
+            JMP     CHECKERR
+
+ADD_LBL     LDY     LNCNT
+            DEY
+ADD_LB1     INY
+            IFEQ    LNBUF2,Y;#cr;ADD_LB13           ; Eol?
+            CPEQ    #'_';ADD_LB0
+
+            JSR     TST_ALF                         ; gobble until legal char
+            BCS     ADD_LB1
+ADD_LB0     STY     LNCNT                           ; Save New Location
+            DEY
+            LDX     #8
+ADD_LB2     INY                                     ; Find Last Char Of Label
+            IFLT    LNBUF2,Y;#' '+1;ADD_LB4
+            CPEQ    #':';ADD_LB4
+            CPEQ    #',';ADD_LB4
+
+            JSR     CONV                            ; Convert To Upper
+            DBNE    X;ADD_LB3
+
+            ORA     #Hibit                          ; Always Fix 8Th Char
+ADD_LB3     STA     LNBUF2,Y
+            BRA     ADD_LB2
+
+ADD_LB4     STY     LNCNT2                          ; Save New Line Count
+            DEY
+            LDA     LNBUF2,Y                        ; Set High-Bit Of Last Char
+            ORA     #Hibit
+            STA     LNBUF2,Y
+
+            IFEQX   LBLNUM;#$FF;ADD_LB12            ; check for overflow
+
+            LDX     #-1                             ; Go Through And Add To Table
+ADD_LB5     INX
+            CPEQX   LBLNUM;ADD_LB8                  ; Add New Label
+
+            MOV     #>LBLTAB;ADD_LB7+2              ; Set Up Table
+            LDY     LNCNT
+ADD_LB6     LDA     LNBUF2,Y
+ADD_LB7     CMP     LBLTAB+L0,X                     ; *** Self-Modified ***
+            PHP
+            INC     ADD_LB7+2
+            INY
+            PLP
+            BNE     ADD_LB5
+
+            ASL     A                               ; Put High-Bit Into Carry
+            BCC     ADD_LB6                         ; Loop Until Done
+            BRA     ADD_LB11                        ; We Already Have Label In Table
+
+ADD_LB8     LDY     LNCNT
+ADD_LB9     LDA     LNBUF2,Y
+            PHP
+ADD_LB10    STA     LBLTAB,X
+            INC     ADD_LB10+2
+            INY
+            PLP
+            BPL     ADD_LB9
+
+            INC     LBLNUM                          ; Increment Count
+ADD_LB11    MOVY    LNCNT2;LNCNT
+            MOV     #>LBLTAB;ADD_LB10+2             ; Reset Byte For CRC
+            TXA                                     ; Return Label Number
+            CLC
+            RTS
+
+ADD_LB12    LDA     #SymFull                        ; Symbol table overflow
+            JMP     CHECKERR
+
+*===============================
+* ----- Get A Token -----
+*===============================
+
+TOKEN       LDX     LNCNT                           ; Get First Character
+            LDA     LNBUF2,X
+
+            JSR     CONV
+            JSR     TST_ALF
+            BCC     TOKEN1
+
+            LDA     #'@'                            ; This Makes It Use 1st List
+TOKEN1      SEC                                     ; Make Into Index For
+            SBC     #'@'                            ; Table Addresses
+            ASL     A
+            TAX
+            MOV     WHERES,X;TEMP2                  ; Get Table Location
+            MOV     WHERES+1,X;TEMP2+1
+
+            LDEQY   #0;TOKEN4                       ; Start Token Count
+
+TOKEN2      LDA     (TEMP2),Y                       ; Try Next Token
+            IBNE    Y;TOKEN3
+
+            INC     TEMP2+1
+TOKEN3      ASL     A                               ; Put Into Carry
+            BCC     TOKEN2                          ; Was High Bit Set?
+
+            IBNE    Y;TOKEN4                        ; skip token number
+            INC     TEMP2+1
+
+TOKEN4      LDX     LNCNT                           ; Get Line Offset
+TOKEN5      LDEQ    (TEMP2),Y;TOKEN7                ; were done, no match
+
+            STA     PRN
+            LDA     LNBUF2,X                        ; Check It
+            JSR     CONV
+            EOR     PRN                             ; Match Bits
+            ASL     A                               ; Move Bit 7
+            BNE     TOKEN2                          ; No Match
+
+            INX                                     ; Increment Pointers
+            IBNE    Y;TOKEN6
+            INC     TEMP2+1
+
+TOKEN6      BCC     TOKEN5                          ; Keep Checking
+
+            LDA     (TEMP2),Y
+            STX     LNCNT                           ; Save New Text Pointer
+            CLC
+            RTS
+
+TOKEN7      LDA     LNBUF2,X                        ; Get Char
+            JSR     CONV                            ; Make Uppercase
+            INC     LNCNT
+            ORA     #Hibit
+            SEC
+            RTS
+
+*===============================
+* Read in a line and show it if needed
+*===============================
+
+COMPSHOW    STZ     LNCNT2
+CSHOW1      JSR     PD_RDLN                         ; Read A Line From Disk
+            BCC     CSHOW1A                         ; Skip Print If Bad Read
+            STZ     LNCNT
+            RTS
+
+CSHOW1A     INCD    LINENUM
+            TSTMI   BLOCKFLG;CSHOW2                 ; doing a text or comment block?
+
+            LDA     LNBUF
+            AND     #Clrhi
+
+            CPEQ    #';';CSHOW1                     ; is it a comment line?
+            CPEQ    #cr;CSHOW1                      ; blank line?
+
+CSHOW2      JSR     STRIPHI
+            STZ     LNCNT                           ; start at beginning
+CSHOW3      LDX     LNCNT
+            LDA     LNBUF,X
+            TSTMI   BLOCKFLG;CSHOW4                 ; text?, no comment test
+            CPNE    #'/';CSHOW4                     ; start of comment?
+            LDA     LNBUF+1,X
+            CPEQ    #'*';HNDLCOMM
+            LDA     LNBUF,X
+
+CSHOW4      LDX     LNCNT2                          ; save the char
+            STA     LNBUF2,X
+            INC     LNCNT2                          ; bump pointer
+            CPEQ    #cr;CSHOW7                      ; end of line?
+            IBNE    LNCNT;CSHOW3                    ; do next
+
+CSHOW7      DEX                                     ; trim white spaces
+            IFEQ    LNBUF2,X;#' ';CSHOW8
+            CPNE    #tab;CSHOW9
+CSHOW8      MOV     #cr;LNBUF2,X
+            BRA     CSHOW7
+
+CSHOW9      TSTPL   SHWTXT;CSHOW13
+
+            LDX     #0
+CSHOW10     LDA     LNBUF,X
+            ORA     #Hibit
+            PHA
+            CPGE    #' '+Hibit;CSHOW11              ; Control Character?
+            LDA     #'^'+Hibit
+            JSR     VIDBAN                          ; Print The '^' For The Control Char
+            PLA
+            PHA
+CSHOW11     JSR     VIDBAN                          ; Print The Character
+            LDA     KYBD                            ; Check Local Keyboard
+            ORA     #Hibit
+            CPNE    #'Z'-Ctrl+Hibit;CSHOW12
+
+            STA     KBDSTRB
+            JSR     RDKEY                           ; Wait For A Keypress
+CSHOW12     INX
+            PLA
+            CPNE    #cr+Hibit;CSHOW10               ; End Of Line?
+
+CSHOW13     CLC
+CSHOW14     STZ     LNCNT
+            RTS
+
+HNDLCOMM    PHX
+STR_LUP     LDX     LNCNT2                          ; strip any white space
+            IFEQ    LNBUF2-1,X;#' ';STRIPW
+            CPNE    #tab;STRW_DN
+STRIPW      DEC     LNCNT2
+            IFNE    LNCNT2;#-1;STR_LUP
+
+STRW_DN     PLX
+            INX                                     ; skip /*
+HCOMM_1     IBEQ    X;DO_CCR
+HCOMM_2     LDA     LNBUF,X                         ; check for */
+            CPNE    #'*';COMM_CR
+            LDA     LNBUF+1,X
+            CPEQ    #'/';COMM_DN
+
+COMM_CR     CPNE    #cr;HCOMM_1                     ; end of line?, no, keep going
+DO_CCR      JSR     PD_RDLN                         ; Read A Line From Disk
+            BCS     CSHOW14                         ; Skip Print If Bad Read
+            INCD    LINENUM
+            JSR     STRIPHI
+            LDRAX   #0;HCOMM_2
+
+COMM_DN     INX
+STRIPW2     INX                                     ; strip any white spaces
+            IFEQ    LNBUF,X;#' ';STRIPW2
+            CPEQ    #tab;STRIPW2
+            STX     LNCNT
+            JMP     CSHOW3                          ; point to past */
+
+STRIPHI     LDX     #0
+STRIP_0     LDA     LNBUF,X
+            AND     #Clrhi
+            STA     LNBUF,X
+            IBNE    X;STRIP_0
+            RTS
+
+*===============================
+* Convert Lower To Upper And Clear High Bit
+*===============================
+
+CONV        CPLT    #'a';CONV2
+            CPGE    #'z'+1;CONV2
+            SBC     #$1F                            ; Since Carry Is Clear, -$20
+CONV2       RTS
+
+*===============================
+* Is Byte A Letter? Clc=Yep, Sec=Nope
+*===============================
+
+TST_ALF     PHA
+            AND     #Clrhi
+            JSR     CONV                            ; Change To Uppercase
+            CPLT    #'A';TST_AL2
+            CPLT    #'Z'+1;TST_AL3
+TST_AL2     SEC
+TST_AL3     PLA
+            RTS
+
+*===============================
+* Is Byte A Number? Clc=Yep, Sec=Nope
+*===============================
+
+TST_NUM     PHA
+            AND     #Clrhi                          ; Strip High Bit
+            CPLT    #'0';TST_NM2
+            CPLT    #'9'+1;TST_NM3
+TST_NM2     SEC
+TST_NM3     PLA
+            RTS
+
+*===============================
+* Jsr Pr ;  Data ;  0 -- Quick Print Routine
+*===============================
+
+PR          PULL    PRN                             ; Save Calling Address
+            PULL    PRN+1
+            PHY                                     ; Save Y
+
+PR1         INCD    PRN
+
+            LDEQ    (PRN);PR4                       ; Get Byte
+
+            JSR     VIDCOUT                         ; Otherwise Use Normal
+            LDA     KYBD                            ; Check Local Keyboard
+            ORA     #Hibit
+            CPNE    #'Z'-Ctrl+Hibit;PR1
+            STA     KBDSTRB
+PR3         JSR     GETCHR                          ; Wait For A Keypress
+            BEQ     PR3
+            BRA     PR1
+
+PR4         PLY                                     ; Restore Y
+            PUSHA   PRN+1
+            PUSHA   PRN
+            RTS
+
+*===============================
+* check if number.  If so, convert it
+*===============================
+
+NUMBER      JSR     INPNUMB
+            STY     LNCNT
+            LDX     #ThreeByte                      ; default to 3 numbers
+            LDNE    NUM+2;NUMBER4
+            DEX                                     ; unless there's 2
+            LDNE    NUM+1;NUMBER4
+            DEX                                     ; or one
+NUMBER4     TXA
+            STA     (TEMP)                          ; save type
+            INCD    TEMP                            ; Increment Temp By 1
+            MOV     NUM;(TEMP)                      ; save first byte
+            INCD    TEMP                            ; Increment Temp By 1
+            DEX                                     ; count down
+            DEX
+            DBEQ    X;NUMBER5
+            MOV     NUM+1;(TEMP)                    ; save next byte
+            INCD    TEMP                            ; Increment Temp By 1
+            DBEQ    X;NUMBER5
+            MOV     NUM+2;(TEMP)                    ; save high byte
+            INCD    TEMP                            ; Increment Temp By 1
+            CLC                                     ; it was a number!
+NUMBER5     RTS
+
+HEX_NUM     INY
+            LDA     LNBUF2,Y
+            JSR     TST_NUM
+            BCC     IS_HEX
+            JSR     TST_ALF
+            BCS     NUMBER5
+            JSR     CONV
+            CPLT    #'A';NUMBER5                    ; is it hex?
+            CPGE    #'F'+1;NUMBER5
+            SBC     #6                              ; make it binary
+IS_HEX      AND     #LoNibble                       ; Clear Extra Bits Off
+            LDX     #3                              ; shift over 4 bits
+SHIFTIN     ASL     NUM
+            ROL     NUM+1
+            ROL     NUM+2
+            DBPL    X;SHIFTIN
+            ORA     NUM                             ; add in the new value
+            STA     NUM
+            BRA     HEX_NUM
+
+INPNUMB     ZERO24  NUM                             ; Zero Info
+
+            CPEQ    #'$';HEX_NUM                    ; is it hex ($)?
+            CPNE    #'0';NUMBER2                    ; is it hex (0x)?
+            IFNE    LNBUF2+1,Y;#'x';NUMBER2         ; x not here, do decimal
+            IBRA    Y;HEX_NUM
+
+NUMBER2     IFLT    LNBUF2,Y;#'0';NUMBER5           ; is it a number?
+            CPGE    #'9'+1;NUMBER5
+            INY
+            JSR     XNUMIN                          ; Process Digit
+            BRA     NUMBER2                         ; Loop
+
+*===============================
+*   Name: XNUMIN - Decimal To Binary
+*
+*  Input: A - Digit To Add In
+*
+* Output: None
+*===============================
+
+XNUMIN      AND     #LoNibble                       ; Clear Extra Bits Off
+            STA     NUM+3                           ; Save It
+            STZ     NUM+4                           ; Zero Rest Of Number
+            STZ     NUM+5
+            LDX     #10                             ; Multiply By 10 With New
+XNUMIN2     ADD     NUM;NUM+3;NUM+3                 ; Number
+            AD      NUM+2;NUM+5;NUM+5
+            DBNE    X;XNUMIN2
+
+            MOV24   NUM+3;NUM                       ; Save The New Number
+            RTS
+
+*===============================
+* TEXTESC - Handle text escape sequence
+*===============================
+
+TEXTESC     INC     LNCNT
+            LDY     LNCNT                           ; get next char (skip \)
+            IFEQ    LNBUF2,Y;#'x';TEXT_HEX          ; hex escape?
+            CPEQ    #'$';TEXT_HEX                   ; hex escape?
+            CPGE    #'8';ESC_SRCH                   ; in octal range?
+            CPEQ    #'0';DO_ZERO                    ; null?
+            BGE     TEXT_OCT                        ; is octal!
+
+ESC_SRCH    LDX     #ESCCONV-ESCCHARS
+ESC_LUP     CPEQ    ESCCHARS,X;ESC_CNV
+            DBPL    X;ESC_LUP
+            BRA     SV_ESC
+
+ESC_CNV     LDA     ESCCONV,X
+            SKIP2
+DO_ZERO     LDA     #0
+SV_ESC      STA     (TEMP)
+            INCD    TEMP                            ; Increment Temp By 1
+            INC     LNCNT
+            CPGEX   #2;ESC_EXIT
+            JMP     ESC_ARGS
+
+ESC_EXIT    RTS
+
+TEXT_HEX    STZ     PRN
+            LDX     #0
+
+HEX_LUP     INC     LNCNT
+            LDY     LNCNT                           ; get next char
+            LDA     LNBUF2,Y
+            JSR     TST_NUM
+            BCC     T_IS_HEX
+            JSR     TST_ALF
+            BCS     THEXDONE
+            JSR     CONV
+            CPLT    #'A';THEXDONE                   ; is it hex?
+            CPGE    #'F'+1;THEXDONE
+            SBC     #6                              ; make it binary
+T_IS_HEX    AND     #LoNibble                       ; Clear Extra Bits Off
+            CPPLX   #0;ST_HBYTE                     ; first half of byte?
+            ASL     PRN                             ; move bits over
+            ASL     PRN
+            ASL     PRN
+            ASL     PRN
+            ORA     PRN                             ; add in new nibble
+            INX                                     ; flag as first
+            STA     (TEMP)                          ; save byte
+            INCD    TEMP                            ; Increment temp by 1
+            BRA     HEX_LUP                         ; go back for another
+
+ST_HBYTE    STA     PRN                             ; save for now
+            DBRA    X;HEX_LUP                       ; flag first nibble done
+
+THEXDONE    CPEQX   #0;HEX_EXIT
+            MOV     PRN;(TEMP)
+            INCD    TEMP                            ; Increment temp by 1
+HEX_EXIT    RTS
+
+TEXT_OCT    AND     #7                              ; clear high bits
+            STA     PRN                             ; save it for later
+            INY                                     ; get next char
+            IFLT    LNBUF2,Y;#'0';OCT_DN            ; octal digit?
+            CPGE    #'7'+1;OCT_DN
+            AND     #7                              ; clear high bits
+            ASL     PRN                             ; shift over
+            ASL     PRN
+            ASL     PRN
+            ORA     PRN                             ; add in
+            STA     PRN                             ; save
+            INY                                     ; get next char
+            IFLT    LNBUF2,Y;#'0';OCT_DN            ; octal digit?
+            CPGE    #'7'+1;OCT_DN
+            AND     #7                              ; clear high bits
+            ASL     PRN                             ; shift over
+            ASL     PRN
+            ASL     PRN
+            ORA     PRN                             ; add in
+            STA     PRN                             ; save
+            INY
+OCT_DN      STY     LNCNT                           ; save line pointer
+            MOV     PRN;(TEMP)                      ; get byte
+            INCD    TEMP                            ; Increment temp by 1
+            RTS
+
+ESC_ARGS    LDY     LNCNT                           ; get char
+            LDA     LNBUF2,Y
+            CPNEX   #0;ARGS_2
+            JSR     INPNUMB                         ; make it a number
+            LDNE    NUM+1;ARGS_3                    ; too big?
+            LDNE    NUM+2;ARGS_3
+            LDA     NUM                             ; get value
+            CLC                                     ; add in the offset
+            ADC     #$20
+            STA     (TEMP)                          ; save value
+            INCD    TEMP                            ; point to next
+            IFEQ    LNBUF2,Y;#',';ARGS_1            ; any more?
+            STY     LNCNT                           ; fix line count
+            LDA     #BadXYPrm
+            JMP     CHECKERR
+
+ARGS_1      INY
+            LDA     LNBUF2,Y
+            JSR     INPNUMB                         ; make it a number
+            LDNE    NUM+1;ARGS_3                    ; too big?
+            LDNE    NUM+2;ARGS_3
+            LDA     NUM                             ; get value
+            CLC                                     ; add in the offset
+            ADC     #$20
+            STA     (TEMP)                          ; save value
+            INCD    TEMP                            ; point to next
+            STY     LNCNT                           ; fix line count
+            RTS
+
+ARGS_2      JSR     INPNUMB                         ; make it a number
+            LDA     NUM+1
+ARGS_3      BNE     ARGS_6                          ; too big?
+            LDNE    NUM+2;ARGS_6
+            LDA     NUM                             ; get value
+            STA     (TEMP)                          ; save value
+            INCD    TEMP                            ; point to next
+            IFEQ    LNBUF2,Y;#',';ARGS_4            ; any more?
+            STY     LNCNT                           ; fix line count
+            LDA     #BadTone
+            JMP     CHECKERR
+
+ARGS_4      INY
+            LDA     LNBUF2,Y
+            JSR     INPNUMB                         ; make it a number
+            LDNE    NUM+1;ARGS_6                    ; too big?
+            LDNE    NUM+2;ARGS_6
+            LDA     NUM                             ; get value
+            STA     (TEMP)                          ; save value
+            INCD    TEMP                            ; point to next
+            IFNE    LNBUF2,Y;#',';ARGS_5            ; any more?
+            INY
+            LDA     LNBUF2,Y
+            JSR     INPNUMB                         ; make it a number
+            LDNE    NUM+1;ARGS_6                    ; too big?
+            LDNE    NUM+2;ARGS_6
+            LDA     NUM                             ; get value
+            STA     (TEMP)                          ; save value
+            INCD    TEMP                            ; point to next
+ARGS_5      STY     LNCNT                           ; fix line count
+            RTS
+
+ARGS_6      STY     LNCNT
+            LDA     #NumOvfl
+CHECKERR    PHA
+            LDNE    ERRFLG;STDERR                   ; has an error happened before?
+
+            JSR     CROUT
+
+STDERR      MOV     #1;ERRFLG                       ; makes sure it doesn't pass 0
+            BREQW   LINENUM;ERR_ONLY                ; any line?
+            JSR     SHOWSTR
+            DCI     'Error in line #'
+            LD16    LINENUM                         ; show the number
+            LDY     #0
+            JSR     DECOUT0
+            JSR     CROUT                           ; next line
+            LDX     #0                              ; display the line
+LINEOUT     IFEQ    LNBUF2,X;#cr;OUT_CHR
+            CPGE    #' ';OUT_CHR
+            CLC                                     ; make it inverse
+            ADC     #'@'
+            PHA
+            LDA     #inv
+            JSR     VIDCOUT
+            PLA
+            JSR     VIDCOUT
+            LDA     #norm
+OUT_CHR     JSR     VIDCOUT
+            INX
+            BEQ     LINE_X
+            CMP     #cr                             ; including the cr
+            BNE     LINEOUT
+
+LINE_X      LDX     LNCNT                           ; space over to the error
+            BEQ     NO_SPC
+            LDA     #' '
+SPACEOUT    JSR     VIDCOUT
+            DEX
+            BNE     SPACEOUT
+NO_SPC      LDA     #'^'                            ; point to it
+            JSR     VIDCOUT
+            LDA     #' '
+            JSR     VIDCOUT
+ERR_ONLY    PLA
+            JSR     PRINTMSG
+            TSTMI   REMOTE;NO_PAUSE
+            STA     KBDSTRB
+            JSR     RDKEY                           ; Wait For A Keypress
+NO_PAUSE    SEC
+            RTS
+
+PRINTMSG    ASL     A
+            TAX
+            MOV     MSGPTRS,X;PRN
+            MOV     MSGPTRS+1,X;PRN+1
+            LDA     #inv
+            JSR     COUT
+PRLOOP      LDEQ    (PRN);PRDONE
+            JSR     COUT
+            INCD    PRN
+            BRA     PRLOOP
+
+PRDONE      LDA     #norm
+            JSR     COUT
+CROUT       LDA     #cr
+            JMP     COUT
+
+MSGPTRS     DW      0
+SymFull     =       *-MSGPTRS/2
+            DA      SYMFULL
+InvalChr    =       *-MSGPTRS/2
+            DA      BADCHAR
+PubFull     =       *-MSGPTRS/2
+            DA      PUBFULL
+NoQuote     =       *-MSGPTRS/2
+            DA      NOQUOTE
+WriteErr    =       *-MSGPTRS/2
+            DA      WRITEERR
+NoSymbol    =       *-MSGPTRS/2
+            DA      NOSYMBOL
+BadXYPrm    =       *-MSGPTRS/2
+            DA      BADXYPRM
+BadTone     =       *-MSGPTRS/2
+            DA      BADTONE
+NumOvfl     =       *-MSGPTRS/2
+            DA      NUMOVFL
+
+SYMFULL     ASC     'The Symbol Table Is Full'00    ; 1
+BADCHAR     ASC     'Invalid character in line'00   ; 2
+PUBFULL     ASC     'Too many public labels'00      ;3
+NOQUOTE     ASC     'There Is A Quote Still Open At EOF'00  ;4
+WRITEERR    ASC     'Write error, segment not saved'00  ; 5
+NOSYMBOL    ASC     'A Symbol Is Missing'00         ; 6
+BADXYPRM    ASC     'Missing gotoxy parameter'00    ; 7
+BADTONE     ASC     'Missing tone parameter'00      ; 8
+NUMOVFL     ASC     'Numeric overflow in text parameter'00  ; 9
+
+ESCCHARS    ASC     'G'                             ; goto X,Y
+            ASC     'T'                             ; tone
+            ASC     'R'                             ; repeat
+            ASC     'a'                             ; alert
+            ASC     'b'                             ; backspace
+            ASC     'f'                             ; formfeed
+            ASC     'n'                             ; newline
+            ASC     'r'                             ; return
+            ASC     't'                             ; tab
+            ASC     'v'                             ; vertical tab
+            ASC     '\'                             ; \
+            ASC     '"'                             ; "
+            ASC     '?'                             ; ?
+            HEX     27                              ; '
+            ASC     'A'                             ; up
+            ASC     'B'                             ; down
+            ASC     'C'                             ; forward
+            ASC     'D'                             ; back
+            ASC     'E'                             ; escape
+            ASC     'F'                             ; clear screen
+            ASC     'H'                             ; home
+            ASC     'I'                             ; inverse
+            ASC     'M'                             ; mousetext
+            ASC     'N'                             ; normal
+            ASC     'O'                             ; insert char
+            ASC     'P'                             ; delete char
+            ASC     'V'                             ; insert line
+            ASC     'W'                             ; delete line
+            ASC     'Y'                             ; clear to eol
+            ASC     'Z'                             ; clear to eos
+ESCCONV     DB      goxy                            ; goto X,Y
+            DB      Tonecmd                         ; tone
+            DB      ptRepeat                        ; repeat
+            DB      bel                             ; alert
+            DB      bs                              ; backspace
+            DB      ff                              ; formfeed
+            DB      cr                              ; newline
+            DB      cr                              ; return
+            DB      tab                             ; tab
+            DB      vt                              ; vertical tab
+            ASC     '\'
+            ASC     '"'
+            ASC     '?'
+            HEX     27                              ; '
+            DB      csrup                           ; up
+            DB      csrdwn                          ; down
+            DB      csrfwd                          ; forward
+            DB      csrback                         ; back
+            DB      esc                             ; escape
+            DB      clrscn                          ; clear screen
+            DB      homeChar                        ; home
+            DB      inv                             ; inverse
+            DB      realmous                        ; mousetext
+            DB      norm                            ; normal
+            DB      inschar                         ; insert char
+            DB      delchar                         ; delete char
+            DB      insline                         ; insert line
+            DB      delline                         ; delete line
+            DB      clreol                          ; clear to eol
+            DB      clreos                          ; clear to eos
+            LST     OFF
+
diff --git a/SOURCE/OVERLAYS/COMP.TOKENS.S b/SOURCE/OVERLAYS/COMP.TOKENS.S
new file mode 100644
index 0000000..581bb6f
--- /dev/null
+++ b/SOURCE/OVERLAYS/COMP.TOKENS.S
@@ -0,0 +1,247 @@
+            LST   RTN
+            PAG
+WHERES      DA    T?,TA,TB,TC
+            DA    TD,TE,TF,TG
+            DA    TH,TI,TJ,TK
+            DA    TL,TM,TN,TO
+            DA    TP,TQ,TR,TS
+            DA    TT,TU,TV,TW
+            DA    TX,TY,TZ
+
+TZ          DB    0
+
+TY          DB    0
+
+TX          TKN   'XOR';Xor            ; Eor Operand
+            DB    0
+
+TW          TKN   'WRITE';Writetkn     ; Write Statement
+            TKN   'WORD';Word          ; Word Function
+            TKN   'WINDOW';Window      ; Window Cmd, R/W
+            TKN   'WIDTH';Width        ; Width Function
+            TKN   'WHILE';WhileTkn
+            TKN   'WHEN$';Whenstr      ; When$ Statement
+            DB    0
+
+TV          TKN   'VAL';Val            ; Val Function
+            DB    0
+
+TU          TKN   'UPPER$';Upper       ; Convert To Upper
+            TKN   'UNLOCK';Unlock      ; Unlock Command
+            DB    0
+
+TT          TKN   'TYPE';Type          ; Type Disk File Cmd
+            TKN   'TONE';Tone          ; Tone Function
+            TKN   'TO';ToTkn           ; To Statement
+            TKN   'TIME12$';Time12     ; 12 Hour Time
+            TKN   'TIME$';Timestr      ; Time$ Statement
+            TKN   'THEN';Then          ; Then Statement
+            TKN   'TERMINAL';Terminal  ; Set Terminal #
+            DB    0
+
+TS          TKN   'STR$';Strstr        ; Str$ Statement
+            TKN   'STORE';Store        ; Store Statement
+            TKN   'STEP';StepTkn       ; Step Statement
+            TKN   'SIZE';Size          ; Size Function
+            TKN   'SETINT';SetInt      ; Set Interrupt Keys
+            TKN   'SET';Set            ; Set Statement
+            DB    0
+
+TR          TKN   'RTRIM$';Rtrim       ; Trim Trailing Spaces
+            TKN   'RND$';Rndstr        ; Rnd$ Function
+            TKN   'RIGHT$';Rightstr    ; Right$ Statement
+            TKN   'REWIND';Rewind      ; Rewind Statement
+            TKN   'RETURN';Return      ; Return Statement
+            TKN   'RESUME';Resume      ; Resume From Error
+            TKN   'RECALL';Recall      ; Recall Statement
+            TKN   'READY';Ready        ; Ready Statement
+            TKN   'READ';Readtkn       ; Read Statement
+            TKN   'RANDOM';Rnd         ; Random Function
+            TKN   'RAM';Ram            ; Ram Value
+            DB    0
+
+TQ          DB    0
+
+TP          TKN   'PUSH';Push          ; Push Statement
+            TKN   'PUBLIC';Public      ; Public Directive
+            TKN   'PRINT';Print        ; Print Statement
+            TKN   'PREFIX';PrefixTkn   ; Get Or Set Prefix
+            TKN   'POSITION';Position  ; Position Statement
+            TKN   'POP';Pop            ; Pop Statement
+            TKN   'POKE';Poke          ; Poke Statement
+            TKN   'PEEK';Peek          ; Peek Function
+            TKN   'PDL';Pdl            ; Pdl Function
+            DB    0
+
+TO          TKN   'OVERLAY';Overlay    ; Overlay Command
+            TKN   'OR';Or              ; Or Operand
+            TKN   'OPEN';OpenTkn       ; Open A File
+            TKN   'ONLINE';OnlineTkn   ; Online Cmd, R/O
+            TKN   'ON';On              ; On Statement
+            TKN   'OFFSET';OffsTkn     ; Offset Cmd, R/W
+            TKN   'OFF';Off            ; Off statement
+            DB    0
+
+TN          TKN   'NULLS';Nullcmd      ; Nulls, Cmd R/W
+            TKN   'NOT';LogicNot       ; Not Statement
+            TKN   'NORMAL$';Normal     ; Normal Cmd
+            TKN   'NODE';Node          ; Node Cmd,   R/O
+            TKN   'NOCAR';Nocar        ; On No Carrier
+            TKN   'NIBBLE';Nibble      ; Nibble Function
+            TKN   'NEXT';Next          ; Next Statement
+            TKN   'NAME';Name          ; Rename Command
+            DB    0
+
+TM          TKN   'MSG';Msg            ; Msg Function
+            TKN   'MOVE';Move          ; Move Statement
+            TKN   'MOUSE$';Mouse       ; Mousetxt Cmd
+            TKN   'MODEM';Modem        ; Modem Statement
+            TKN   'MODE';Mode          ; Back Space Mode Cmd
+            TKN   'MOD';Mod            ; Mod
+            TKN   'MIXED$';Mixed       ; Convert To Mixed
+            TKN   'MID$';Midstr        ; Mid$ Statement
+            TKN   'MARK';Mark          ; Get/Set Function
+            DB    0
+
+TL          TKN   'LTRIM$';Ltrim       ; Trim Leading Spaces
+            TKN   'LOWER$';Lower       ; Convert To Lower
+            TKN   'LOCK';Lock          ; Lock Command
+            TKN   'LINEINS$';InsLnTkn  ; Insert line
+            TKN   'LINEDEL$';DelLnTkn  ; Delete line
+            TKN   'LEN';Len            ; String Length
+            TKN   'LEFT$';Leftstr      ; Left$ Statement
+            DB    0
+
+TK          TKN   'KILL';Kill          ; Kill Statement
+            TKN   'KEY';Key            ; Key Function
+            DB    0
+
+TJ          DB    0
+
+TI          TKN   'INVERSE$';Inverse   ; Inverse Cmd
+            TKN   'INSTR';Instr        ; Instr Function
+            TKN   'INPUT';Input        ; Input A Line
+            TKN   'IF';If              ; If Statement
+            DB    0
+
+TH          TKN   'HOME$';Home         ; Home Cmd
+            DB    0
+
+TG          TKN   'GOTOXY$';Gotoxy     ; Gotoxy Cmd
+            TKN   'GOTO';Goto          ; Goto Statement
+            TKN   'GOSUB';Gosub        ; Gosub Statement
+            TKN   'GET';Get            ; Get A Character
+            DB    0
+
+TF          TKN   'FREE';Free          ; Free Statement
+            TKN   'FOR';For            ; For Statement
+            TKN   'FMTWHEN$';Fmtwhen   ; Format When$ Statement
+            TKN   'FMTDATE$';Fmtdate   ; Formated Date Statement
+            TKN   'FLUSH';FlushTkn     ; Update Statement
+            TKN   'FLASH';Flash        ; Flash statement
+            TKN   'FLAG';Flag          ; User Flags
+            TKN   'FILL';Fill          ; Fill Statement
+            DB    0
+
+TE          TKN   'EXIT';ExitTkn       ; Exit from LLUCE
+            TKN   'EXIST';Exist        ; Check For File
+            TKN   'EXEC';Exec          ; Exec Cmd,   R/W
+            TKN   'ERROR';Onerr        ; On No Error
+            TKN   'ERR';Err            ; Err Cmd, R/O
+            TKN   'EOR';Xor            ; Eor Operand
+            TKN   'EOF';Eof            ; Eof Function
+            TKN   'END';End            ; End Of Module
+            TKN   'ELSE';ElseTkn       ; Else Statement
+            TKN   'EDIT';Edit          ; Edit Statement
+            TKN   'ECHO';Echo          ; Set Video Echo
+            DB    0
+
+TD          TKN   'DO';DoTkn
+            TKN   'DISK';Disk          ; Network Lock/Unlock
+            TKN   'DEBUG';Debug        ; Debug
+            TKN   'DATE$';Datestr      ; Date Statement
+            DB    0
+
+TC          TKN   'CURSORU$';CsrUTkn   ; Cursor up
+            TKN   'CURSORR$';CsrRTkn   ; Cursor right
+            TKN   'CURSORL$';CsrLTkn   ; Cursor left
+            TKN   'CURSORD$';CsrDTkn   ; Cursor down
+            TKN   'CRUNCH';Crunch      ; Crunch Statement
+            TKN   'CREATE';CreateTkn   ; Create Statement
+            TKN   'COPY';Copy          ; Copy A File
+            TKN   'CONVERT';Convert
+            TKN   'CONTINUE';Continue  ; continue a WHILE
+            TKN   'CLS';Cls            ; Clear Screen Cmd
+            TKN   'CLRSCN$';CscnTkn
+            TKN   'CLRLN$';ClnTkn      ; Clear line
+            TKN   'CLREOS$';CeosTkn    ; Clear to EOS
+            TKN   'CLREOL$';CeolTkn    ; Clear to EOL
+            TKN   'CLRBOS$';CbosTkn    ; Clear to BOS
+            TKN   'CLRBOL$';CbolTkn    ; Clear to BOL
+            TKN   'CLOSE';CloseTkn     ; Close A File
+            TKN   'CLOCK';Clock        ; Time Function
+            TKN   'CLEAR';Clear        ; Clear Statement
+            TKN   'CHR$';Chrstr        ; CHR$ Statement
+            TKN   'CHARINS$';InsChTkn  ; Insert char
+            TKN   'CHARDEL$';DelChTkn  ; Delete char
+            TKN   'CHAIN';ChainTkn     ; Chain Command
+            TKN   'CALL';Call          ; Call Statement
+            DB    0
+
+TB          TKN   'BYTE';Byte          ; Byte Function
+            TKN   'BREAK';Break
+            TKN   'BAUD';Baud          ; Baud Rate, R/O
+            DB    0
+
+TA          TKN   'ASC';Asc            ; Ascii Function
+            TKN   'APPEND';Append      ; Append Statement
+            TKN   'ANSI';AnsiTkn       ; ANSI command
+            TKN   'AND';And            ; And Operand
+            TKN   'ADDINT';AddInt      ; Add Interrupt Keys
+            TKN   'ABS';Abs            ; Absolute Value
+            DB    0
+
+T?          TKN   '~';Not              ; ~, bitwise NOT Statement
+            TKN   '{';CompStrt         ; Block start
+            TKN   '||';LogicOr         ; ||, logical OR
+            TKN   '|=';OrEqu           ; |=, n = n | x
+            TKN   '|';Or               ; |, bitwise OR Operand
+            TKN   '}';CompEnd          ; Block end
+            TKN   '^=';XorEqu          ; ^=, n = n ^ x
+            TKN   '^';Xor              ; ^, bitwise EOR Operand
+            TKN   '?';Print            ; alternate print statement
+            TKN   '><';Notequ          ; ><, not equal
+            TKN   '>>=';ShftREqu       ; >>=, n = n >> x
+            TKN   '>>';ShftRght        ; >>, shift right
+            TKN   '>=';Grequ           ; >=, greater or equal
+            TKN   '>';Greater          ; >, greater
+            TKN   '=<';Lessequ         ; =<, equal or less
+            TKN   '==';Equal           ; ==, equal
+            TKN   '=>';Grequ           ; =>, equals or greater
+            TKN   '=';Equal            ; =, equals
+            TKN   '<>';Notequ          ; <>, not equals
+            TKN   '<=';Lessequ         ; <=, less or equal
+            TKN   '<<=';ShftLEqu       ; <<=, n = n << x
+            TKN   '<<';ShftLeft        ; <<, shift left
+            TKN   '<';Less             ; <, less
+            TKN   ':';Chain            ; Colon (Chain)
+            TKN   '/=';DivEqu          ; /=, n = n / x
+            TKN   '/';Div              ; Division
+            TKN   '-=';MinusEqu        ; -=, n = n - x
+            TKN   '--';Decremnt        ; --, n = n - 1
+            TKN   '-';Minus            ; Minus
+            TKN   '+=';PlusEqu         ; +=, n = n + x
+            TKN   '++';Incremnt        ; ++, n = n + 1
+            TKN   '+';Plus             ; Plus
+            TKN   '*=';MultEqu         ; *=, n = n * x
+            TKN   '*';Mult             ; Multiplication
+            TKN   '&=';AndEqu          ; &=, n = n AND x
+            TKN   '&&';LogicAnd        ; logical AND
+            TKN   '&';And              ; Bitwise AND Operand
+            TKN   '%=';ModEqu          ; %=, n = n MOD x
+            TKN   '%';Mod              ; MOD
+            TKN   '!=';Notequ          ; Not equal
+            TKN   '!';LogicNot         ; logical NOT
+CODEEND     =     *
+            LST   OFF
+
diff --git a/SOURCE/OVERLAYS/EDIT.MAIN.S b/SOURCE/OVERLAYS/EDIT.MAIN.S
new file mode 100644
index 0000000..e27285e
--- /dev/null
+++ b/SOURCE/OVERLAYS/EDIT.MAIN.S
@@ -0,0 +1,966 @@
+            LST    RTN
+            TTL    'EDITOR - Main Line Code'
+            PAG
+********************************
+*                              *
+*       Editor Main            *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+EDITOR      JMP    DO_EDIT                    ; Skip Version Number
+            DW     Version
+
+DO_EDIT     STZ    EDMEMORY
+            PHA
+            MOVD   #EDBUF;EDLOC
+            MOVD   #EDBUF+EBUFEND;EDITLEN
+            PLA
+            CPEQ   #Chain;ED_STX              ; Is It End Of Statement
+            CPEQ   #Chain2;ED_STX             ; Is It End Of Line?
+
+            JSR    GETBYT
+            CPEQ   #Size;ED_SPC
+            CPEQ   #Onerr;Q_HACK
+
+            LDX    #Syntax
+            JMP    BADERR
+
+*===============================
+* Entering The Editor
+*===============================
+
+ED_STX      TSX
+            STX    EDSTACK                    ; Save Stack
+            TXA
+            SBC    #$20                       ; Move Stack 32 Levels Down
+            TAX
+            TXS
+            MOV    #0;PROMPT                  ; Turn Off Prompts
+            STA    EXE_DOT                    ; Enable Dot Commands
+            STA    INTBUF                     ; Don't Allow Int's
+            STA    INTOUT                     ; Make Sure Output Is On
+            LDY    #0                         ; Output To Console/Modem
+            JSR    SETOVEC
+            JSR    FINDEND                    ; Setup End Pointers
+            MOVD   EDLOC;PRN
+            LDY    #0
+            LDEQ   (PRN),Y;ED_LNCR            ; Check Contents Of Buffer
+            BRA    ED_CMD                     ; Handle Command Line
+
+*===============================
+* Return Bytes In Editor
+*===============================
+
+ED_SPC      JSR    GET_SPC
+DO_MATH2    LDY    #0
+            ST24   DATA+1                     ; Save Result
+            PHA
+            MOV    #1;DATA                    ; Set Data Type 1
+            PLA
+            RTS
+
+GET_SPC     JSR    FINDEND
+            SEC
+            LDA    EDPTR
+            SBC    EDLOC                      ; Length = End - Start
+            TAX
+            LDA    EDPTR+1
+            SBC    EDLOC+1
+            RTS
+
+Q_HACK      LDX    HACK_Q
+            LDRA   #0;DO_MATH2
+
+ED_LNCR     JSR    PRCRLF                     ; Add A Line Feed
+ED_LN       MOV    WWFLAG;WWRAP               ; Get Word-Wrap Status
+ED_LN0      LD16   EDPTR                      ; get a line of text
+            JSR    GETEDLN
+            ST16   EDPTR                      ; Save New End Address
+            LDNE   WWEXTRA;ED_LN1
+
+            LDA    #0                         ; Add In End Of Editor
+            TAY
+            STA    (EDPTR),Y
+            BCS    ED_CMD                     ; If They Typed 'done'
+
+ED_LN1      INCD   EDLINE                     ; Add Line To Editor
+            SEC
+            LDA    EDPTR+1                    ; Check For 3.75K
+            SBC    EDITLEN+1
+            BNE    ED_LN                      ; There Is Plenty
+
+            STZ    WWRAP                      ; Turn Off Word-Wrap
+            LDNE   WWEXTRA;ED_LN0             ; Is There Word-Wrap Data?
+
+            JSR    SHOWSTR
+            DB     cr
+            ASC    'That Is 4K Worth'8D
+ED_CMD      MOVD   #LNBUF;ARGPTR              ; Point To Line Buffer
+            JSR    SHOWSTR
+            DB     cr
+            DCI    'Editing (?=Help) -> '
+            JSR    ED_CMD2
+            BRA    ED_CMD
+
+ED_CMD2     JSR    GETCMD
+            JSR    MATCH
+            CHR    -1;ED_EX
+            CHR    '?';ED_HLP
+            CHR    'A';ED_ABT
+            CHR    'C';ED_CONT
+            CHR    'D';ED_DEL
+            CHR    'E';ED_ED
+            CHR    'H';ED_HLP2
+            CHR    'I';ED_INS
+            CHR    'L';ED_LST
+            CHR    'N';ED_NEW
+            CHR    'O';ED_OK
+            CHR    'S';ED_OK
+            CHR    'Z';ED_SIZE
+            DB     0
+            TSTPL  EXECFLG;ED_CMD3            ; Check For Sysop
+
+            JSR    MATCH                      ; Check The Rest
+            CHR    'R';ED_RD
+            CHR    'W';ED_WRT
+            DB     0
+ED_CMD3     JSR    SHOWSTR
+            DB     cr
+            ASC    'Illegal Command'8D
+            RTS
+
+ED_HLP      JSR    SHOWSTR
+            DB     cr
+            ASC    'A)bort, C)ontinue, D)elete, E)dit'0D
+            ASC    'H)elp, I)nsert, L)ist, N)ew, S)ave'0D
+            ASC    'Z) Space Used'8D
+            RTS
+
+ED_HLP2     JSR    PD_GPFX                    ; Get Current Prefix
+            LDY    FLNAME                     ; Save Prefix For Later
+ED_HLP3     MOV    FLNAME,Y;LNBUF+$C0,Y
+            DBPL   Y;ED_HLP3
+
+            JSR    LOGSYS                     ; Set To System Prefix
+            LDY    HLPFILE
+ED_HLP4     MOV    HLPFILE,Y;FLNAME,Y
+            DBPL   Y;ED_HLP4
+
+            LDA    #%00100001                 ; Request Read, Deny Write
+            JSR    IFOPEN                     ; Open Into An Unused Channel
+            BCS    ED_HLP9
+
+            JSR    DO_SED                     ; Make Spacebar Work
+ED_HLP5     JSR    PD_RDBYT                   ; Get Data
+            BCS    ED_HLP6                    ; End Of Data
+
+            AND    #Clrhi
+            JSR    COUT                       ; Show Data
+            BIT    INTOUT                     ; Did They Interrupt?
+            BPL    ED_HLP5                    ; Nope
+
+            INC    INTOUT                     ; Re-Enable Output
+ED_HLP6     INC    INTBUF
+            JSR    PD_CLOSE                   ; Close File
+
+ED_HLP7     LDY    LNBUF+$C0                  ; Reset Old Prefix
+ED_HLP8     MOV    LNBUF+$C0,Y;FLNAME,Y
+            DBPL   Y;ED_HLP8
+
+            JMP    PD_SPFX
+
+ED_HLP9     JSR    ED_HLP7
+            JSR    SHOWSTR
+            DB     cr
+            ASC    'Error: '
+            ASC    'Help File Could Not Be Opened'8D
+            RTS
+
+HLPFILE     STR    'system/Hlp.Edit'
+
+ED_ABT      JSR    SHOWSTR
+            DB     cr
+            DCI    'Abort: Are You Sure? -> '
+            JSR    GETCMD
+            CPNE   #'Y';ED_RTS1
+
+            JSR    ED_CLR                     ; Clear Editor
+            JSR    SHOWSTR
+            DB     cr
+            ASC    'Aborted'8D
+            JMP    ED_EX                      ; Return
+
+ED_CONT     SEC
+            LDA    EDPTR+1                    ; Enough Space?
+            SBC    EDITLEN+1
+            BEQ    ED_CON1                    ; Yep
+
+            JSR    CONT                       ; Continue...
+            PLA
+            PLA
+            JMP    ED_LN                      ; Get More Stuff
+
+ED_CON1     JSR    SHOWSTR
+            DB     cr
+            ASC    'That Is 4K Worth'8D
+            JMP    ED_EX                      ; Return
+
+ED_RTS1     RTS
+
+ED_DEL      JSR    SHOWSTR
+            DB     cr
+            DCI    'Delete Line (L,x-y) -> '
+            JSR    INPLN
+            JSR    CHKLIST                    ; Do List?
+            BCS    ED_DEL                     ; Yes We Did
+
+DOT_DEL     JSR    XYARG                      ; Get Arg's
+            BEQ    ED_RTS1
+            BCS    ED_ERR
+
+            LD16   X_ARG                      ; Get Line Number
+            JSR    FINDLN                     ; Find The Line
+ED_DEL2     JSR    FNDLEN                     ; Get The Length
+            TAY
+            INY                               ; Kill CR
+            LD16   TEMP
+            JSR    DEL_TXT                    ; Delete The Line
+            DECD   EDLINE                     ; Decrease Line Count
+            JSR    INCXARG
+            BCC    ED_DEL2                    ; Loop Until Done
+
+CR_RET2     RTS
+
+ED_ERR      JMP    CR_ERR                     ; Link To Error Routine
+
+ED_ED       JSR    SHOWSTR
+            DB     cr
+            DCI    'Edit Line (L,x) -> '
+            JSR    INPLN
+            JSR    CHKLIST                    ; Do A List?
+            BCS    ED_ED                      ; We Did
+
+DOT_ED      JSR    XARG                       ; Get Line Number
+            BEQ    CR_RET2                    ; Just A Return
+            BCS    ED_ERR                     ; Opps, A Problem
+
+            JSR    PRCRLF
+            LD16   X_ARG                      ; Get Line Number
+            JSR    FINDLN                     ; Get Address
+            JSR    FNDLEN                     ; Get Length
+            STA    TEMP2
+            PHA                               ; Save Orig Length
+            TAX
+            BEQ    ED_ED3
+
+            LDY    #0
+ED_ED2      MOV    (TEMP),Y;LNBUF,Y           ; Move Data To Lnbuf
+            INY
+            DBNE   X;ED_ED2
+
+ED_ED3      PUSHW  TEMP                       ; Save Address
+            MOVD   #LNBUF;TEMP                ; Point At Lnbuf
+            JSR    SHOWLN                     ; Show Line Number
+            JSR    LSTLINE                    ; Print Line
+            TSTVC  NONBS;ED_ED4               ; Check Bs Mode, print line again
+
+            JSR    ED_BEGIN                   ; Back Up
+            BEQ    ED_ED5                     ; Always
+
+ED_ED4      JSR    PRCRLF                     ; Add A Return
+            JSR    SHOWLN                     ; Show The Line Number
+            MOVY   #0;TEMP2                   ; Kill Line
+ED_ED5      INC    WWRAP                      ; Toggle Word Wrap Off
+            JSR    GETEDLN2                   ; Edit Line
+            DEC    WWRAP                      ; Put Word Wrap To Old State
+            PULLW  TEMP3                      ; Save Old Line Address
+            PLA
+            BCS    CR_RET2                    ; If They Typed 'done'
+
+            SEC
+            SBC    TEMP2                      ; Find Out Length
+            BEQ    ED_ED7                     ; Hmm, Same Length!
+            BCC    ED_ED6
+
+            TAY
+            JSR    DEL_TX2                    ; Make Room
+            BRA    ED_ED7
+
+ED_ED6      EOR    #-1                        ; Make Positive
+            TAY
+            INY
+            JSR    INS_TX2                    ; Insert
+ED_ED7      LDY    #0
+            LDX    TEMP2                      ; Get Length
+            INX
+ED_ED8      MOV    LNBUF,Y;(TEMP3),Y          ; Copy Line Back
+            INY
+            DBNE   X;ED_ED8
+
+            JMP    PRCRIF                     ; Add Extra Lf (Maybe)
+
+CR_ERR      JSR    SHOWSTR
+            DB     cr
+            ASC    'Illegal Line Number'8D
+            JMP    PRCRIF                     ; Add Extra Lf (Maybe)
+
+ED_INS      JSR    SHOWSTR
+            DB     cr
+            DCI    'Insert Line (L,x) -> '
+            JSR    INPLN
+            JSR    CHKLIST                    ; Do A List?
+            BCS    ED_INS
+
+DOT_INS     JSR    XARG
+            BEQ    CR_RET
+            BCS    CR_ERR
+
+            JSR    SHOWSTR
+            DB     cr
+            ASC    'Insert Text: '
+            ASC    'Type "DONE" When Finished'0D8D
+
+ED_INS2     LD16   #LNBUF                     ; Point To Line
+            JSR    GETEDLN                    ; Get A Line Of Stuff
+            BCS    ED_INS7
+
+            LDY    TEMP2                      ; Save Length
+            INY                               ; Add 1 For CR
+            STY    SAVE_Y
+            LD16   X_ARG
+            JSR    FINDLN                     ; Locate Line
+            LDY    SAVE_Y
+            JSR    INS_TXT                    ; Insert Text
+            LDY    #0
+ED_INS3     MOV    LNBUF,Y;(TEMP3),Y          ; Copy In New Line
+            INY
+            DBNE   SAVE_Y;ED_INS3
+
+            LDX    #0
+            CPEQX  WWEXTRA;ED_INS5            ; Word-Wrap?
+
+ED_INS4     LDA    LNBUF,Y                    ; Get Next Bit Of Data
+            INY
+            STA    LNBUF,X                    ; Move Back
+            INX
+            CPNEX  WWEXTRA;ED_INS4            ; Done?
+
+ED_INS5     INCD   X_ARG                      ; Inc Line To Insert At
+            IBNE   EDLINE;ED_INS2             ; Inc Line Count
+            IBRA   EDLINE+1;ED_INS2
+
+ED_INS7     TSTPL  EXE_DOT;CR_RET             ; Is It I Command?
+            JMP    CONT                       ; Continue
+
+CR_RET      RTS
+
+CR_ERR0     JMP    CR_ERR                     ; Goto Error Routine
+
+ED_LST      JSR    SHOWSTR
+            DB     cr
+            DCI    'List Line (x-y) -> '
+            JSR    INPLN
+
+DOT_LST     MOVY   #0;SHWLN                   ; Reset Line # Bit
+            LDA    (ARGPTR),Y
+            JSR    CONV
+            CPNE   #'Y';ED_LST1               ; Show Numbers?
+            MOV    #-1;SHWLN                  ; Show Line Numbers
+            INCD   ARGPTR                     ; Point To Next Char
+ED_LST1     JSR    XYARG
+            BCS    CR_ERR0
+            JSR    PRCRLF
+
+ED_SHLN     LD16   X_ARG                      ; Get Line Number
+            JSR    FINDLN                     ; Locate It
+
+ED_LST2     TSTPL  SHWLN;ED_LST3              ; Show Line Number?
+            JSR    SHOWLN                     ; Add The Line Number
+
+ED_LST3     JSR    FNDLEN                     ; Get The Length
+            STA    TEMP2
+            JSR    LSTLINE                    ; List The Line
+            SEC                               ; Advance Line Pointer
+            AD     TEMP;TEMP2;TEMP            ; TEMP = TEMP + TEMP2 + 1
+            BCC    ED_LST4
+            INC    TEMP+1
+ED_LST4     JSR    PRCRLF                     ; Add Cr
+            JSR    INCXARG
+            BCC    ED_LST2
+
+            RTS
+
+ED_NEW      JSR    SHOWSTR
+            DB     cr
+            DCI    'New: Erase And Start Over? -> '
+            JSR    GETCMD
+
+            CPNE   #'Y';ED_NEW2
+
+            JSR    ED_CLR                     ; Clear Editor
+            JSR    SHOWSTR                    ; Enter Message Now...
+            DB     cr
+            ASC    'Enter Message Now...'0D8D
+
+            MOV    #0;EXE_DOT                 ; Allow Dot Commands
+            JMP    ED_LN                      ; Get Message
+
+ED_NEW2     RTS
+
+ED_SIZE     JSR    PRCRLF
+            JSR    GET_SPC                    ; Get Length Of Editor
+            TAY
+            CPNEX  #0;ED_SIZE2
+            DEY
+ED_SIZE2    DEX
+            TYA
+            LDY    #0
+            JSR    DECOUT0                    ; Print Space Used
+            JSR    SHOWSTR
+            ASC    ' Bytes Used.'0D8D
+            RTS
+
+DOT_PMT     LDA    PROMPT
+            EOR    #-1                        ; Toggle Prompt Status
+            STA    PROMPT
+            BEQ    ED_NEW2                    ; Don't Show Prompts
+
+            JMP    PMTOUT                     ; Show First Prompt
+
+*-------------------------------
+* Common Read/Write
+*-------------------------------
+
+ED_RW       JSR    INPLN                      ; Input Data
+            STY    FLNAME
+ED_RW2      MOV    LNBUF,Y;FLNAME+1,Y
+            DBPL   Y;ED_RW2
+
+            RTS
+
+ED_RD       JSR    SHOWSTR
+            DB     cr
+            DCI    'Read File (Name) -> '
+            JSR    ED_RW
+
+            LDA    #%00100001                 ; Request Read, Deny Write
+            JSR    IFOPEN                     ; Try And Open
+            BCS    ED_RD4                     ; Error, No Go
+
+            MOVD   EDLOC;EDPTR                ; Point To Data
+
+ED_RD2      JSR    PD_RDBYT                   ; Read In File
+            PHP
+            JSR    EDOUT
+            PLP
+            BCC    ED_RD2
+
+ED_RD3      JSR    PD_CLOSE                   ; Finish Up
+            JMP    FINDEND                    ; Fix Pointers
+
+ED_RD4      JSR    SHOWSTR
+            DB     cr
+            ASC    'Error: Too Many Files Open'8D
+            RTS
+
+ED_RD5      JSR    ED_RD4
+            BRA    ED_RD3
+
+ED_WRT      JSR    SHOWSTR
+            DB     cr
+            DCI    'Write File (Name) -> '
+            JSR    ED_RW                      ; Setup For Work
+
+            JSR    PD_KILL                    ; Delete Existing File
+            LDY    #Txt
+            LDA    #0                         ; Aux Type Is 0
+            TAX
+            JSR    PD_MAKE                    ; Create A Text File
+            LDA    #%00110010                 ; Request Write, Deny All
+            JSR    IFOPEN
+            BCS    ED_RD5                     ; Error
+            STZ    DEVCLR                     ; Reset Device
+
+ED_WRT2     JSR    EDIN                       ; Get Data
+            CPEQ   #0;ED_RD3                  ; That's The End
+
+            JSR    PD_WRBYT                   ; Write Out Byte
+            BCC    ED_WRT2                    ; All Is Well
+
+            JSR    SHOWSTR                    ; Show Message
+            DB     cr
+            ASC    'Error Writing To File'8D
+
+            JMP    ED_RD3                     ; Finish Up
+
+DOT_OK      LDA    #0                         ; Add In Eof Char
+            TAY
+            STA    (TEMP),Y
+ED_OK       TSTPL  EXECFLG;ED_FILTR           ; Exec User Online?
+            JMP    ED_EX
+
+ED_FILTR    LDEQ   FILTER;ED_DOTX             ; Is Filter In Place?
+            LDEQ   FILTFLAG;ED_DOTX           ; Filter On?
+
+            MOVD   EDLOC;TEMP                 ; Point To Editor Buffer
+            BRA    ED_FILT7                   ; Start Routine
+
+ED_FILT2    LDA    FILTER,X                   ; Go To Next Entry
+            INX
+            ASL    A                          ; At Last Char?
+            BCC    ED_FILT2                   ; Nope
+
+ED_FILT3    LDY    #0                         ; Start At First Byte
+ED_FILT4    LDEQ   FILTER,X;ED_FILT6          ; Get Filter Char
+
+            STA    TEMP2                      ; Save It
+            LDA    (TEMP),Y                   ; Get Byte In Question
+            JSR    CONV                       ; Convert To Upper
+            EOR    TEMP2                      ; Check Against Filter
+            ASL    A                          ; Put High Into Carry
+            BNE    ED_FILT2                   ; No Match, Keep Checking
+
+            INX                               ; Inc Pointers
+            INY
+            BCC    ED_FILT4                   ; Keep Checking String
+
+            LDA    #'*'                       ; Change Text Into *'s
+ED_FILT5    DEY
+            STA    (TEMP),Y
+            CPNEY  #0;ED_FILT5
+
+ED_FILT6    INCD   TEMP
+ED_FILT7    LDEQ   (TEMP);ED_DOTX             ; Get Byte
+
+            JSR    CONV
+
+            CPLT   #'A';ED_FILT6              ; Is It Even Good Data?
+            CPGE   #'Z'+1;ED_FILT6
+
+            LDEQX  #0;ED_FILT3                ; Start Both Index's At 0 CHANGE TO BRA LATER
+
+ED_DOTX     STZ    HACK_Q
+
+            MOVD   EDLOC;TEMP                 ; Set Start-1
+            BRA    ED_DOTX3                   ; Always CHANGE TO BRA LATER
+
+ED_DOTX2    INCD   TEMP
+ED_DOTX3    LDEQ   (TEMP);ED_EX               ; Get First Char Of Line
+
+            AND    #Clrhi                     ; Strip Off High Bit
+            CPNE   #'.';ED_DOTX7              ; Is It A '.' Command?
+
+            INCD   TEMP                       ; Point To Next Char
+            LDEQ   (TEMP);ED_EX               ; Get Second Char Of Line
+
+            JSR    CONV                       ; Make It Upper Case
+            CPNE   #'X';ED_DOTX7              ; Is It A '.X' Command?
+
+            MOV    #1;HACK_Q                  ; Flag Hack Attempted
+            MOV    #'*';(TEMP)                ; '.X' Not Allowed,
+ED_DOTX5    INCD   TEMP                       ; Get Next Char
+            LDEQ   (TEMP);ED_EX               ; if end of buffer
+
+ED_DOTX7    AND    #Clrhi
+            CPNE   #cr;ED_DOTX5               ; End Of Line?
+            BRA    ED_DOTX2                   ; Yes, Check For '.X' Again
+
+ED_EX       LDX    EDSTACK
+            TXS
+            RTS
+
+*===============================
+* ----- Editor Routines -----
+*===============================
+
+GETEDLN     MOVY   #0;TEMP2                   ; line length
+            ST16   TEMP                       ; Point To Data
+            TSTPL  PROMPT;GETEDLN1            ; Are Prompts On?
+
+            JSR    PMTOUT                     ; Display Prompt
+GETEDLN1    LDEQ   WWEXTRA;GETEDLN2           ; Word-Wrap?
+
+            STY    WWEXTRA                    ; Reset Word-Wrap
+            STA    TEMP2                      ; Save Length
+            JSR    LSTLINE                    ; List The Partial Line
+            BEQ    GETED1                     ; Don't Want To Reset To 0!
+
+GETEDLN2    LDY    #0
+
+*===============================
+* Get A Character -- Non Destructable
+*===============================
+
+GETED1      JSR    RDKEY
+            JSR    GETED2
+            BRA    GETED1
+
+GETED2      JSR    MATCH
+            CHR    -1;ED_EX                   ; Carrier Loss
+            CHR    cr;EDLNCR                  ; Handle [Return]
+            CHR    tab;ED_TAB                 ; Handle [Tab]
+            CHR    bs;ED_BS                   ; Handle [Backspace, ^H]
+            CHR    del;ED_DELBK               ; Handle [Delete]
+            CHR    can;ED_CAN                 ; Handle [Cancel, ^X]
+            CHR    ctr;ED_CNTR                ; Handle [Center, ^C]
+            DB     0                          ; Finish This Set
+            TSTVC  NONBS;GETED2A              ; Do They Have Correct Bs?
+            JSR    MATCH
+            CHR    fs;ED_FWD                  ; Handle [Forward Space, ^U]
+            CHR    hak;ED_HACK                ; Handle [Truncate, ^T]
+            CHR    dc;ED_DELFW                ; Handle [Delete Char, ^D]
+            CHR    ic;ED_INSCH                ; Handle [Insert Char, ^F]
+            CHR    bol;ED_BEGIN               ; Handle [Begin Line, ^B]
+            CHR    eol;ED_END                 ; Handle [End Of Line, ^E]
+            CHR    lwd;ED_LWORD               ; Handle [Last Word, ^L]
+            CHR    nwd;ED_NWORD               ; Handle [Next Word, ^N]
+            DB     0
+
+GETED2A     CPEQ   #norm;GETED2C              ; Set Normal?
+            CPEQ   #inv;GETED2C               ; Set Inverse?
+            CPNE   #mous;GETED2B              ; Set Mouse?
+            LDNE   #realmous;GETED2C          ; Substitute Real Character CHANGE TO BRA LATER
+
+GETED2B     CPLT   #' ';GETED2E               ; Control?
+GETED2C     CPEQY  VIDLEN;GETED3
+
+            STA    (TEMP),Y                   ; Save Char
+            JSR    COUTLO                     ; Output It
+            CPNEY  TEMP2;GETED2D              ; At End Of Line?
+            INC    TEMP2                      ; Inc End Of Line Pointer
+GETED2D     INY                               ; Inc Data Pointer
+GETED2E     RTS
+
+GETED3A     TXA                               ; Restore Y
+            TAY
+GETED3B     LDA    #bel                       ; Ring Bell
+            JMP    COUT
+
+GETED3      TSTPL  WWRAP;GETED3B              ; Is Word Wrap On?
+            CPEQ   #' ';EDLNCR                ; Was It An Even Break?
+            STA    (TEMP),Y                   ; Save Char
+            TYA                               ; Save Y
+            TAX
+GETED3C     DBEQ   Y;GETED3A                  ; Count Down
+
+            IFNE   (TEMP),Y;#' ';GETED3C      ; check for space
+
+            STY    TEMP2                      ; Save New Length
+            LDY    #0
+GETED3D     INY                               ; Count Number Of Extra's
+            DEX                               ; First Char Doesn't Count
+            JSR    PRBS                       ; Backup
+            CPNEX  TEMP2;GETED3D              ; We Done?
+
+            STY    WWEXTRA                    ; Remember Extra
+
+EDLNCR      LDY    TEMP2                      ; Get Line Length
+            MOV    #cr;(TEMP),Y               ; save return at end
+            JSR    COUT                       ; Show It
+            JSR    EDLNCR6                    ; DONE Or /EX?
+            BCC    EDLNCR1                    ; Yes
+
+            JMP    EDLNCR5
+
+EDLNCR1     IFEQ   (TEMP);#'.';EDLNCR2        ; Dot Command?
+            CPNE   #'/';EDLNCR4
+
+EDLNCR2     STA    CMD_CHR
+            TSTMI  EXE_DOT;EDLNCR4            ; Dot Commands Allowed?
+
+            DEC    EXE_DOT                    ; Exec A Dot Command
+
+            CLC
+            MOV    TEMP;EDPTR                 ; Set Up Arg Pointer
+            ADA    #2;ARGPTR
+            MOV    TEMP+1;EDPTR+1
+            ADA    #0;ARGPTR+1
+
+            LDA    #0                         ; End Text
+            TAY
+            STA    (TEMP),Y
+            INY
+            LDA    (TEMP),Y                   ; Get Command
+
+            JSR    EDLNCR3
+            JSR    FINDEND                    ; Get New End Pointer
+            MOVY   #0;EXE_DOT                 ; Get A New Line
+            STY    TEMP2
+
+            MOVD   EDPTR;TEMP                 ; Point Back To Data
+            RTS
+
+EDLNCR3     JSR    CONV                       ; Make Upper
+            JSR    MATCH
+            CHR    'I';DOT_INS
+            CHR    'L';DOT_LST
+            CHR    'D';DOT_DEL
+            CHR    'E';DOT_ED
+            CHR    'A';ED_ABT
+            CHR    'H';DOT_HLP
+            CHR    'N';ED_NEW
+            CHR    'O';DOT_OK
+            CHR    'S';DOT_OK
+            CHR    'P';DOT_PMT
+            CHR    'Z';ED_SIZE
+            DB     0
+
+            PLA
+            PLA
+            STZ    EXE_DOT
+
+            MOV    CMD_CHR;(TEMP)             ; Restore The Command
+
+EDLNCR4     PLA                               ; Return From Getline
+            PLA
+
+            SEC                               ; Return With End Address
+            LDA    TEMP                       ; Of Line
+            ADC    TEMP2                      ; Address=Start+Length+1
+            TAX
+            LDA    TEMP+1
+            ADC    #0
+            CLC                               ; Return Status:
+            RTS                               ; CLC = All Is Ok
+
+EDLNCR5     PLA
+            PLA
+
+            LD16   TEMP                       ; Get Old Address
+            RTS                               ; SEC = Exit Edit Mode
+
+EDLNCR6     IFNE   TEMP2;#4;EDLNCR7           ; was length correct?
+
+            LDX    #0                         ; Was It 'DONE' ?
+            JSR    CMPSTR
+            BCS    EDLNCR9                    ; Yep
+
+EDLNCR7     IFNEY  TEMP2;#3;EDLNCR8           ; Is Length Correct?
+
+            LDX    #4                         ; Was It '/EX' ?
+            JSR    CMPSTR
+            BCS    EDLNCR9                    ; Yep
+
+EDLNCR8     CLC
+EDLNCR9     RTS
+
+*===============================
+* Handle A Tab
+*===============================
+
+ED_TAB      CPEQY  VIDLEN;ED_TAB2             ; At End Of Line?
+
+            LDA    #' '                       ; Do A Space
+            JSR    GETED2
+            TYA
+            AND    #7                         ; Are We At A 1/8 Inc?
+            BNE    ED_TAB                     ; Nope
+
+ED_TAB2     RTS
+
+*===============================
+* Go Forward 1 Space
+*===============================
+
+ED_FWD      SEC                               ; Can't Do Fs
+            CPEQY  TEMP2;ED_FWD2              ; At End Of Line?
+
+            LDA    (TEMP),Y                   ; Get Char
+            JSR    COUTLO                     ; Output It
+            INY                               ; Move Pointer
+            CLC                               ; Can Do Fs
+ED_FWD2     RTS
+
+*===============================
+* Truncate Contents Of Line
+*===============================
+
+ED_HACK     LDX    #0                         ; Kill 0 Chars
+ED_HACK2    CPEQY  TEMP2;ED_HACK3             ; Are We Done?
+
+            JSR    SPCOUT                     ; Kill Char
+            INX                               ; Count It
+            IBNE   Y;ED_HACK2
+
+ED_HACK3    CPEQX  #0;ED_HACK4                ; We Done?
+
+            JSR    BSOUT                      ; Do Bs
+            DEC    TEMP2                      ; Move Back Line Count
+            DEY                               ; Move Back Data Pointer
+            DBNE   X;ED_HACK3                 ; Not Done, Loop
+
+ED_HACK4    RTS
+
+*===============================
+* Delete Entire Line
+*===============================
+
+ED_CAN      JSR    ED_HACK                    ; Hack Line
+            LDEQ   TEMP2;ED_CAN3              ; No Data To Kill
+
+ED_CAN2     JSR    PRBS                       ; Destructive Bs
+            DEY                               ; Back Up Data Pointer
+            DBNE   TEMP2;ED_CAN2              ; Decrease Line Length
+
+ED_CAN3     RTS
+
+*===============================
+* Delete 1 Character
+*===============================
+
+ED_DELFW    CPEQY  TEMP2;ED_DELF5             ; At End Of Line?
+
+            STY    SAVE_Y
+            DEC    TEMP2                      ; Decrease Line Count
+            LDX    #1
+ED_DELF2    CPEQY  TEMP2;ED_DELF3             ; done
+
+            INY
+            LDA    (TEMP),Y                   ; Move Each Char Back
+            DEY
+            STA    (TEMP),Y
+            INY
+            INX
+            JSR    COUTLO                     ; Show Char
+            BRA    ED_DELF2
+
+ED_DELF3    JSR    SPCOUT                     ; Delete Last Char
+            LDY    SAVE_Y
+ED_DELF4    JSR    BSOUT
+            DBNE   X;ED_DELF4
+
+ED_DELF5    RTS
+
+*===============================
+* Insert 1 Character
+*===============================
+
+ED_INSCH    CPEQY  TEMP2;ED_INSC4             ; At The End Of The Line?
+
+            IFEQ   TEMP2;VIDLEN;ED_INSC4      ; at max width?
+
+            STY    SAVE_Y
+            LDX    #0                         ; Start Counter
+            LDA    #' '                       ; Show A Space First
+ED_INSC2    JSR    COUT
+            INX                               ; Inc Count
+            PHA
+            MOV    (TEMP),Y;TEMP2+1           ; Get New Char
+            PULL   (TEMP),Y                   ; Save Old Char
+            LDA    TEMP2+1                    ; Get Back New
+            INY
+            CPLTY  TEMP2;ED_INSC2             ; We Done?
+            BEQ    ED_INSC2
+
+            INC    TEMP2                      ; Add 1 To Line Count
+            LDY    SAVE_Y
+ED_INSC3    JSR    BSOUT                      ; Backup
+            DBNE   X;ED_INSC3
+
+ED_INSC4    RTS                               ; Were Done
+
+*===============================
+* Goto Beginning Of Line
+*===============================
+
+ED_BEGIN    CPEQY  #0;ED_BGN3                 ; At Beginning?
+
+ED_BGN2     JSR    BSOUT                      ; Back Up
+            DBNE   Y;ED_BGN2
+
+ED_BGN3     RTS
+
+*===============================
+* List A Line
+*===============================
+
+LSTLINE     LDY    #0                         ; Use Show To Eol
+
+*===============================
+* Goto End Of Line
+*===============================
+
+ED_END      CPEQY  TEMP2;ED_END2              ; At End Of Line?
+
+            LDA    (TEMP),Y
+            JSR    COUTLO                     ; Print Char (Move Forward)
+            IBNE   Y;ED_END                   ; keep checking
+
+ED_END2     RTS
+
+*===============================
+* Back Up To Last Word
+*===============================
+
+ED_LWORD    CPEQY  #0;ED_LWD2                 ; At Beginning?
+
+            JSR    BSOUT                      ; Back Up
+            DEY
+            IFNE   (TEMP),Y;#' ';ED_LWORD     ; back 1 word?
+
+ED_LWD2     RTS
+
+*===============================
+* Goto Next Word
+*===============================
+
+ED_NWORD    CPEQY  TEMP2;ED_NWD2              ; At End?
+
+            LDA    (TEMP),Y                   ; Move Forward
+            JSR    COUTLO
+            INY
+            IFNE   (TEMP),Y;#' ';ED_NWORD     ; At End Of Word?
+
+ED_NWD2     RTS
+
+*===============================
+* Center Line Of Text
+*===============================
+
+ED_CNTR     LDEQ   TEMP2;ED_CNTR3             ; Any Data?
+
+            JSR    ED_BEGIN                   ; Move Cursor To First Char
+            JSR    CENTER                     ; Center Text
+            BCS    ED_CNTR3                   ; Oops, A Problem
+
+            PUSHA  TEMP2
+            MOV    TEMP2+1;TEMP2              ; Save New Length
+            JSR    LSTLINE                    ; Show The Line
+            PULL   TEMP2
+            IFGE   TEMP2+1;TEMP2;ED_CNTR2     ; Is New Line Smaller?
+
+            JSR    ED_HACK                    ; Hack Rest Of Line
+ED_CNTR2    MOV    TEMP2+1;TEMP2
+ED_CNTR3    RTS
+
+*===============================
+* Back Up 1 Char
+*===============================
+
+ED_BS       CPEQY  #0;ED_RTS3                 ; At Beginning Of Line?
+
+            TSTMI  NONBS;ED_BS2               ; Check Bs Mode, destruct
+            BVC    ED_BS2                     ; Use Unknown Mode
+
+            DEY
+            JMP    BSOUT                      ; Do Bs
+
+ED_BS2      DEY
+            DEC    TEMP2
+            JMP    PRBS
+
+*===============================
+* Handle Delete Character
+*===============================
+
+ED_DELBK    CPEQY  #0;ED_RTS3                 ; At Beginning?
+
+            DEY                               ; Backup
+            JSR    BSOUT
+            JMP    ED_DELFW                   ; Delete Char
+
+ED_RTS3     RTS
+            LST    OFF
+
diff --git a/SOURCE/OVERLAYS/EDIT.SUBS.S b/SOURCE/OVERLAYS/EDIT.SUBS.S
new file mode 100644
index 0000000..8bcaea7
--- /dev/null
+++ b/SOURCE/OVERLAYS/EDIT.SUBS.S
@@ -0,0 +1,464 @@
+            LST     RTN
+            TTL     'EDITOR - Subroutines'
+            PAG
+********************************
+*                              *
+*      Editor Subroutines      *
+*                              *
+********************************
+* Easy Dispatch Routine [Must Save Y]
+*===============================
+
+MATCH       STA     SAVE_X                    ; Save Match Char
+            STY     SAVE_Y
+            PULLW   TEMP3                     ; Get Address Of Data-1
+            LDY     #1
+MATCH2      LDEQ    (TEMP3),Y;MATCH4
+            CPEQ    SAVE_X;MATCH3
+
+            INY
+            INY                               ; Y = Y + 3
+            IBNE    Y;MATCH2                  ; Loop
+
+MATCH3      INY
+            LDA     (TEMP3),Y
+            TAX
+            INY
+            LDNE    (TEMP3),Y;MATCH5          ; Do It CHANGE TO BRA LATER
+
+MATCH4      INY                               ; Increase Count
+            TYA
+            CLC
+            ADC     TEMP3                     ; Add In Offset
+            TAX
+            LDA     #0
+            ADC     TEMP3+1
+MATCH5      ST16    TEMP3                     ; Save Address
+
+            LDY     SAVE_Y
+            LDA     SAVE_X
+            JMP     (TEMP3)                   ; Return To Caller
+
+*===============================
+* Center A Line Of Text
+*===============================
+
+CENTER      LDX     #0                        ; Start Index's
+            LDY     #-1
+CENTER2     INY
+            CPEQY   TEMP2;CENTER5
+
+            IFEQ    (TEMP),Y;#' ';CENTER2     ; kill lead spaces
+
+CENTER3     MOV     (TEMP),Y;LNBUF+128,X      ; Get Data
+            INX
+            INY
+            CPEQ    #' ';CENTER4
+
+            STX     TEMP2+1                   ; Update Length
+CENTER4     CPNEY   TEMP2;CENTER3             ; Are We Done?
+
+            SEC
+            LDA     VIDLEN                    ; Find Out How Many
+            SBC     TEMP2+1                   ; Spaces To Add
+            LSR     A
+CENTER5     PHP
+            LDY     #0                        ; Go To Beginning Of Line
+            PLP
+            SEC
+            BEQ     CENTER8                   ; Opps, Don't Add Any
+
+            TAX
+            CLC
+            ADA     TEMP2+1;TEMP2+1           ; Get New Total Length
+            LDA     #' '
+CENTER6     STA     (TEMP),Y                  ; Add In Leading Spaces
+            INY
+            DBNE    X;CENTER6
+
+CENTER7     MOV     LNBUF+128,X;(TEMP),Y      ; Copy Data Back
+            INX
+            INY
+            CPNEY   TEMP2+1;CENTER7           ; Done Yet?
+
+            CLC
+CENTER8     RTS
+
+*-------------------------------
+* Print Small Help File
+*-------------------------------
+
+DOT_HLP     JSR     SHOWSTR                   ; List Dot Commands
+            DB      cr
+            ASC     'Legal (.) Dot Commands:'0D0D
+            ASC     '.A = Abort  '
+            ASC     '.H = Help  '
+            ASC     '.Dx-Y = Delete'0D
+            ASC     '.N = New    '
+            ASC     '.O = Ok    '
+            ASC     '.Ex   = Edit'0D
+            ASC     '.Z = Space  '
+            ASC     '.S = Save  '
+            ASC     '.Ix   = Insert'0D
+            ASC     '.P = Prompt            '
+            ASC     '.Lx-Y = List'0D8D
+            RTS
+
+*-------------------------------
+* Input A Command
+*-------------------------------
+
+GETCMD      MOV     #%10000000;INPMODE        ; Set Upper, No Blank Lines
+            JSR     INPLN                     ; Get Input
+            MOV     #%10100000;INPMODE        ; Upper, Blanks Are Ok
+            LDA     LNBUF
+            TSTPL   LOGOFF;GETCMD2            ; Any Problems?
+            JMP     ED_EX                     ; Quit Editor
+
+GETCMD2     RTS
+
+*-------------------------------
+* Find A Line Number
+*-------------------------------
+
+FINDLN      ST16    TEMP2                     ; Save Line Number
+            MOVD    EDLOC;TEMP                ; Point To Editor
+            LDY     #0
+FINDLN2     DECD    TEMP2                     ; Count Down Lines
+            DEC     A                         ; BUG FIX: 11/18/92
+            ORA     TEMP2+1                   ; Are We Done?
+            BNE     FINDLN4                   ; Nope
+
+            LD16    TEMP                      ; Get Address Of Line
+            RTS
+
+FINDLN4     LDA     (TEMP),Y                  ; Get Byte
+            INCD    TEMP
+            CPNE    #cr;FINDLN4               ; Done Searching?
+            BRA     FINDLN2                   ; Yep
+
+*===============================
+* Get Length Of Line
+*===============================
+
+FNDLEN      LDY     #-1
+FNDLEN2     INY
+            IFNE    (TEMP),Y;#cr;FNDLEN2      ; count line length
+
+            TYA
+            CLC                               ; No Match
+            RTS
+
+*===============================
+* Compare Data With String
+*===============================
+
+CMPSTR      LDY     #0                        ; Start At Byte 0
+CMPSTR2     LDA     (TEMP),Y
+            INY
+            JSR     CONV                      ; Make Into Upper
+            EOR     QTEXT,X                   ; Check Against Exit Text
+            INX
+            ASL     A
+            BNE     CMPSTR3                   ; Opps, No Match
+            BCC     CMPSTR2                   ; Keep Checking
+
+            SKIPCC
+CMPSTR3     CLC
+            RTS
+
+*===============================
+* Handle Single Argument
+*===============================
+
+XARG        BREQW   EDLINE;XYCLR              ; Is There Data?
+
+            JSR     CHKLAST
+            MOVD    ARGPTR;TEMP3              ; Set Up Pointers
+            JSR     NUMIN
+            ST16    X_ARG
+            JMP     CHKRNG                    ; Get Legality
+
+XYCLR       SEC
+            RTS
+
+*===============================
+* Handle Arguments
+*===============================
+
+XYARG       MOVD    #1;X_ARG                  ; Init First Pointer To 1
+            JSR     CHKLAST
+            MOVD    EDLINE;Y_ARG              ; Init Ptr 2 To Last Line
+            ORA     Y_ARG                     ; Check For No Data
+            BEQ     XYCLR                     ; Opps, Problem
+
+            MOVD    ARGPTR;TEMP3              ; Point To Data
+            LDY     #0
+            IFEQ    (TEMP3),Y;#cr;XYARG6      ; blank line?
+            CPEQ    #',';XYARG2               ; Check Separator
+            CPEQ    #'-';XYARG2
+            JSR     NUMIN                     ; Get First Number
+            ST16    X_ARG
+            ST16    Y_ARG
+            JSR     CHKRNG
+            BCS     XYARG5                    ; Opps, Out Of Range
+
+            LDY     #0
+            IFEQ    (TEMP3),Y;#',';XYARG2     ; more?
+            CPNE    #'-';XYARG4
+
+XYARG2      INCD    TEMP3                     ; Increment Temp3
+            MOVD    EDLINE;Y_ARG              ; Save Ending Editor Line
+            LDY     #0
+            IFEQ    (TEMP3),Y;#cr;XYARG4      ; x- format?
+
+            JSR     NUMIN
+            ST16    Y_ARG                     ; Save Second Number
+            JSR     CHKRNG
+            BCS     XYARG5
+
+            IFLT    X_ARG+1;Y_ARG+1;XYARG4    ; check high
+            IFGE    Y_ARG;X_ARG;XYARG4        ; if >=, ok
+
+            SEC
+            SKIPCC                            ; Skip The CLC With A BCC
+XYARG4      CLC
+XYARG5      LDA     #1                        ; Not Just A Return
+            RTS
+
+XYARG6      CLC
+            LDA     #0                        ; Just A Return
+            RTS
+
+*===============================
+* Make Sure Line Number Is In Range
+*===============================
+
+CHKRNG      STX     SAVE_X                    ; Save Data
+            STA     SAVE_Y
+            ORA     SAVE_X                    ; Is There A Number?
+            BEQ     CHKRNG2                   ; Nope, It's 0
+
+            IFLT    EDLINE+1;SAVE_Y;CHKRNG2   ; its out of range
+            IFLTX   EDLINE;SAVE_X;CHKRNG2     ; its out of range
+
+            LDA     #1                        ; Clear Return Flag
+            CLC                               ; All's Well
+            SKIPCS
+CHKRNG2     SEC                               ; Opps, Out Of Range
+            RTS
+
+*===============================
+* Check For 'last Line' Reference
+*===============================
+
+CHKLAST     TSTPL   EXE_DOT;CHKRNG2           ; Execing Dot Command?
+
+            LDY     #0
+            LDA     (ARGPTR),Y                ; Get Byte
+            JSR     CONV
+            CPNE    #'L';CHKRNG2              ; No Match, Return
+
+            PLA
+            PLA
+            LD16    EDLINE
+            ST16    X_ARG
+            ST16    Y_ARG
+            BRA     CHKRNG                    ; Make Sure Line Is Legal
+
+*===============================
+* Move Up Xarg Pointer And See If We're Done
+*===============================
+
+INCXARG     IFNE    X_ARG;Y_ARG;INCXARG2
+            IFNE    X_ARG+1;Y_ARG+1;INCXARG2
+
+            SEC                               ; We're Done
+            RTS
+
+INCXARG2    CLC
+            INCD    X_ARG                     ; Move Counter
+INCXARG3    RTS
+
+*===============================
+* Show Last 3 Lines
+*===============================
+
+SHWLAST     MOVD    EDLINE;Y_ARG              ; Point To Last Line
+            ORA     Y_ARG
+            BEQ     INCXARG3                  ; No Data
+
+            SEC
+            SB      Y_ARG;#2;X_ARG            ; Get X Line Number
+            TAX
+            SB      Y_ARG+1;#0;X_ARG+1
+            JSR     CHKRNG                    ; Is It Ok?
+            BCC     SHWLAST2                  ; Yep
+
+            MOVX    #1;X_ARG                  ; start at line 1
+            DEX
+            STX     X_ARG+1
+SHWLAST2    JMP     ED_SHLN                   ; Show Last 3 Lines...
+
+*===============================
+* Delete Y Bytes Of Text
+*===============================
+
+DEL_TXT     ST16    TEMP3                     ; save pointer
+DEL_TX2     STY     SAVE_Y                    ; Save # Chars To Kill
+            PUSHW   TEMP3                     ; save old pointer
+DEL_TX3     LDY     SAVE_Y
+            MOV     (TEMP3),Y;(TEMP3)         ; Get Char
+            INCD    TEMP3                     ; Increment Temp3
+            CPNE    #0;DEL_TX3                ; Loop Until End Of Editor
+
+            PULLW   TEMP3                     ; Restore Old Pointer
+DEL_TX5     RTS
+
+*===============================
+* Insert Y Bytes Of Text
+*===============================
+
+INS_TXT     ST16    TEMP3                     ; save pointer
+INS_TX2     STY     SAVE_Y                    ; Save # Chars To Insert
+            LDA     (TEMP3)                   ; Flag Last Char
+            ORA     #Hibit
+            STA     (TEMP3)
+INS_TX3     LDEQ    (TEMP3);INS_TX4           ; At End Of Data?
+            INCD    TEMP3
+            BRA     INS_TX3
+
+INS_TX4     PUSHA   (TEMP3)                   ; Get Byte
+            LDY     SAVE_Y
+            AND     #Clrhi
+            STA     (TEMP3),Y                 ; Move It
+            PLA
+            BMI     DEL_TX5
+
+            DECD    TEMP3
+            BRA     INS_TX4
+
+*===============================
+* Find End Of Editor
+*===============================
+
+FINDEND     MOVD    EDLOC;EDPTR               ; Point To Start Of Editor
+            MOVY    #0;EDLINE                 ; Zero Line Counter
+            STY     EDLINE+1
+FINDEND2    LDEQ    (EDPTR),Y;FINDEND4        ; We Done?
+            CPNE    #cr;FINDEND3              ; Is It End Of Line?
+            INCD    EDLINE                    ; Inc Number Of Lines
+FINDEND3    INCD    EDPTR
+            BRA     FINDEND2                  ; Search Through
+
+FINDEND4    RTS
+
+*===============================
+* Print A Backspace
+*===============================
+
+PRBS        TSTMI   NONBS;PRNONBS             ; Is It A Destructible Bs?
+            JSR     BSOUT                     ; Print Bs
+            JSR     SPCOUT
+PRNONBS     JMP     BSOUT                     ; Do Non-Destructive Bs
+
+*===============================
+* Show The Line Number
+*===============================
+
+SHOWLN      LD16    X_ARG                     ; print line number
+            LDY     #0
+            JSR     DECOUT0
+            JSR     PMTOUT                    ; Show Prompt
+            BRA     PRCRLF                    ; Add A Return
+
+*===============================
+* Check And See If They Want To List
+*===============================
+
+CHKLIST     LDA     LNBUF                     ; Get Input
+            JSR     CONV                      ; Make Upper
+            CMP     #'L'
+            CLC
+            BNE     CHKLIST2                  ; They Don't Want To List
+
+            JSR     SHOWSTR
+            DB      cr
+            DCI     'List Line (X-Y) -> '
+            JSR     INPLN                     ; Read Input
+            MOV     #-1;SHWLN                 ; Show Line Numbers
+            JSR     ED_LST1                   ; Do List
+            SEC                               ; Show We Did List
+CHKLIST2    RTS
+
+*===============================
+* Continue Message
+*===============================
+
+CONT        JSR     SHOWSTR
+            DB      cr
+            ASC     'Continue Message Now...'0D8D
+            MOV     #0;SHWLN                  ; Don't Show Line Numbers
+            JSR     SHWLAST                   ; Show Last 3 Lines
+            JMP     FINDEND                   ; Reset Pointers
+
+*-------------------------------
+* Convert Lower To Upper And Clear High Bit
+*-------------------------------
+
+CONV        AND     #Clrhi                    ; Strip High Bit
+            CPLT    #'a';CONV2
+            CPGE    #'z'+1;CONV2
+            SBC     #$1F                      ; Since Carry Is Clear, -$20
+CONV2       RTS
+
+PRCRIF      TSTPL   EXE_DOT;CHKLIST2          ; dont do it
+
+PRCRLF      LDA     #cr                       ; Print Return
+            SKIP2
+BSOUT       LDA     #bs
+            SKIP2
+SPCOUT      LDA     #' '
+            SKIP2
+PMTOUT      LDA     #'>'
+COUTLO      AND     #Clrhi
+            JMP     COUT
+
+*===============================
+* Convert Number In LNBUF To Hex
+*===============================
+
+NUMIN       ZERO24  NUM
+            LDY     #0
+NUMIN2      LDA     (TEMP3),Y
+            AND     #Clrhi
+            CPLT    #'0';NUMIN4
+            CPGE    #'9'+1;NUMIN4
+            AND     #$F
+            STA     NUM+3
+            MOV     #0;NUM+4
+            STA     NUM+5
+            LDX     #10
+NUMIN3      ADD     NUM;NUM+3;NUM+3
+            AD      NUM+2;NUM+5;NUM+5
+            DBNE    X;NUMIN3
+
+            MOV24   NUM+3;NUM
+            INCD    TEMP3                     ; CHANGE TO INCD LATER
+            BRA     NUMIN2
+
+NUMIN4      LD24    NUM
+            RTS
+
+*-------------------------------
+* End Of Message Commands
+*-------------------------------
+
+QTEXT       DCI     'DONE'
+            DCI     '/EX'
+
+CODEEND     =       *
+
+CMD_CHR     DB      0
+HACK_Q      DB      0
+
diff --git a/SOURCE/PFS.DECODE.S b/SOURCE/PFS.DECODE.S
new file mode 100644
index 0000000..01817c1
--- /dev/null
+++ b/SOURCE/PFS.DECODE.S
@@ -0,0 +1,130 @@
+********************************
+*                              *
+*           Decoder            *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      10
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+Y           =      1
+Y           =      1
+N           =      0
+N           =      0
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            PUT    EQUATES
+            PUT    ENTRY
+            ORG    Usefile
+
+            TYP    Llucefil
+            DSK    DECODE
+
+            TTL    'LLUCE - VCII Text Decoder'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                            ; CRC Goes Here
+            LST    OFF
+            ORG    $D000
+CODESTRT    =      *
+            BRA    BEGIN
+
+BUFFER      DS     30
+BUFFER2     DS     30
+
+BEGIN       JSR    CHKBYT
+            CMP    #","
+            BEQ    DOIT
+            RTS
+
+DOIT        JSR    GOBCOM
+            JSR    INPNUM
+            STX    TEMP
+            LDX    #0
+:READIT     JSR    RDBYTE
+            STA    BUFFER,X
+            STA    BUFFER2,X
+            INX
+            CPX    TEMP
+            BNE    :READIT
+            DEC    TEMP
+            STZ    TEMP+1
+            LDX    #2
+:MULT8      ASL    TEMP
+            ROL    TEMP+1
+            DEX
+            BPL    :MULT8
+            LDX    #0
+            SEC
+:DIV6       LDA    TEMP
+            SBC    #6
+            STA    TEMP
+            LDA    TEMP+1
+            SBC    #0
+            STA    TEMP+1
+            INX
+            BCS    :DIV6
+            INX
+            STZ    TEMP2
+LOOP1       CLC
+            LDA    #0
+            LDY    #6
+LOOP2
+]A          =      29
+            LUP    30
+            ROL    BUFFER2+]A
+]A          =      ]A-1
+            --^
+            ROL
+            DEY
+            BNE    LOOP2
+            CMP    #$40
+            BLT    :GOOD
+            LDA    #$3F
+:GOOD       TAY
+            LDA    XLATE,Y
+            LDY    TEMP2
+            STA    SCRATCH+256,Y
+            INC    TEMP2
+            DEX
+            BNE    LOOP1
+            LDA    #' '
+:FILL       INY
+            CPY    #64
+            BLT    :FILL2
+            RTS
+
+:FILL2      STA    SCRATCH+256,Y
+            BRA    :FILL
+
+XLATE       ASC    'ABCDEFGHIJKLM?? '
+            ASC    'NOPQRSTUVWXYZ: ('
+            ASC    '0123456789??'
+            HEX    27
+            ASC    '. )??<>+-*/=&???,??'
+CODEEND     =      *
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'Decoder - Symbol Table'
+            PAG
+
diff --git a/SOURCE/PRINTERS/NOPRINT.S b/SOURCE/PRINTERS/NOPRINT.S
new file mode 100644
index 0000000..3d84185
--- /dev/null
+++ b/SOURCE/PRINTERS/NOPRINT.S
@@ -0,0 +1,15 @@
+            LST   RTN
+            TTL   'LLUCE - No Printer'
+            PAG
+PRINTDVR    DB    0
+
+PRINIT      JMP   P_INIT
+LPROUT      JMP   P_PRINT
+PRCLEAR     JMP   P_CLEAR
+
+P_INIT      RTS                         ;Init Printer
+P_PRINT     RTS                         ;Print Character In A
+P_CLEAR     RTS                         ;Clear Print Buffer (Not Implemented)
+            DS    \
+            LST   OFF
+
diff --git a/SOURCE/PROTODOWN.S b/SOURCE/PROTODOWN.S
new file mode 100644
index 0000000..8967af5
--- /dev/null
+++ b/SOURCE/PROTODOWN.S
@@ -0,0 +1,1812 @@
+*-------------------------------------------------
+*
+* Xmodem/Ymodem downloads for LLUCE
+*
+*-------------------------------------------------
+* use "a:protocol.down",100,1,"Filename" = batch
+* use "a:protocol.down",100,0,"Filename" = single file
+*-------------------------------------------------
+                    DATE
+*-------------------------------------------------
+
+Id                  =      3
+Aux                 =      2
+
+                    LST    OFF
+                    LSTDO  OFF
+                    XC
+                    TR
+                    TR     ADR
+                    EXP    ONLY
+Y                   =      1
+y                   =      1
+N                   =      0
+n                   =      0
+NOLIST              =      Y
+                    DO     NOLIST
+LISTOBJ             =      N
+LISTSYM             =      N
+                    ELSE
+LISTOBJ             KBD    'List This Source? (Y/N)'
+LISTSYM             KBD    'List Symbol Table? (Y/N)'
+                    FIN
+                    DO     LISTOBJ
+                    LST
+                    FIN
+                    LST    OFF
+                    PUT    EQUATES/EQUATES
+                    PUT    EQUATES/OS.EQUATES
+                    PUT    EQUATES/ENTRY
+                    PUT    EQUATES/DRIVEREQU
+
+]TYPE               =      ^overlays                        ; set file type
+]AUX                =      overlays                         ; and aux type
+                    ORG    ]AUX                             ; must be this way
+                    TYP    ]TYPE
+
+                    DSK    /MAIN/LLUCE/SYSTEM/PROTOCOL.DOWN
+                    LST    RTN
+
+                    TTL    'LLUCE - Xmodem/Ymodem Uploads'
+
+HEADER              DB     Id
+                    DA     Aux
+                    DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+                    DW     CODEEND-main
+                    DW     0                                ; CRC Goes Here
+
+                    ORG    $D000
+
+*-------------------------------------------------
+* General Global equates
+
+failflag            =      PRN
+tmode               =      PRN+1
+
+blockBuffer         =      ENDMOD                           ; $9B00
+crcLo               =      ENDMOD+$1100                     ; $AC00 crc table addresses
+crcHi               =      crcLo+$100                       ; $AD00
+pdData              =      crcHi+$100                       ; $AE00
+
+*-------------------------------------------------
+* all good things start here
+
+main                JMP    dostart
+                    JMP    dostart
+*
+* rest of the code starts here
+*
+die                 LDA    #parmSyntax                      ; syntax error
+                    STA    failflag
+                    RTS
+
+dostart             LDX    #pdLen                           ; move ProDOS lists into place
+movePd              LDA    pdSource-1,X
+                    STA    pdData-1,X
+                    DEX
+                    BNE    movePd
+
+                    LDX    #parmsLen                        ; move LLUCE readable parms into place
+moveParm            LDA    parmStrt-1,X
+                    STA    FREESPACE-1,X
+                    DEX
+                    BNE    moveParm
+
+                    LDA    #r4modemP                        ; start at prodos 4modem
+                    STA    tmode                            trans
+
+                    LDA    #noErrors
+                    STA    failflag                         ; innocent until proven guilty
+                    STA    CH                               ; htab 0
+                    STA    PacketNum                        ; always packet 0
+                    STA    byteCount                        ; block = 0
+                    STA    byteCount+1
+                    STA    byteCount+2
+                    STA    TotalErr
+                    STA    TotalErr+1
+                    STA    ConsecErr
+                    STA    InnerLoop                        ; abort from outer loop, not inner
+                    STA    UseCsum                          ; don't use checksum mode
+                    STA    SendSmall                        ; don't send small packets
+                    STA    ackflag                          ; always wait for acks (no ymodem-g)
+
+                    JSR    GOBCOM
+                    JSR    INPNUM                           ; get timeout
+
+                    CMP    #>400                            ; make the timeout have a minimum
+                    BEQ    tooSmall                         ; if the high byte's equal, see if the low byte
+                    BGE    largeEnough                      ; is at least 400
+                    BLT    waySmall                         ; -- and if it's less than, it's way too small
+
+tooSmall            CPX    #<400
+                    BGE    largeEnough
+
+waySmall            LDA    #>400                            ; otherwise, default to at least 400 ticks
+                    LDX    #<400
+
+largeEnough         STX    timeOut
+                    STX    waitFOR
+                    STA    timeOut+1
+                    STA    waitFOR+1
+
+                    STA    KBDSTRB                          ; reset keyboard strobe
+
+                    JSR    GOBCOM                           ; get protocol
+                    JSR    INPNUM
+                    BNE    die
+
+                    STX    transtype
+                    CPX    #batchMd
+                    BEQ    notbatch
+
+                    JSR    CHKBYT
+                    CMP    #','+128                         ; is it a comma?
+                    BEQ    notbatch                         ; yes, don't try final stuff
+
+                    LDA    #1
+                    STA    LastPacket
+
+                    JSR    clearLastLine
+
+                    LDA    #<FinalBlock
+                    STA    TEMP
+                    LDA    #>FinalBlock
+                    STA    TEMP+1
+
+                    JSR    printPString
+
+                    JSR    maketable                        ; make the crc table
+                    JSR    clearBuf                         ; clear the block buffer
+                    JMP    send_final
+
+notbatch            JSR    GOBCOM                           ; go to eat next comma
+                    JSR    MOVNAME                          ; move filename for open call
+
+                    LDA    #<FLNAME
+                    STA    TEMP
+                    LDA    #>FLNAME
+                    STA    TEMP+1
+
+                    LDY    #0                               ; get length of filename
+                    LDA    (TEMP),Y
+                    STA    filename
+                    TAY
+fname               LDA    (TEMP),Y                         ; move filename to ours
+                    STA    filename,Y
+                    DEY
+                    BNE    fname
+
+                    JSR    MLI                              open
+                    DB     Open
+                    DA     openParms
+
+                    BCC    ok3                              ; no errors-keep goin'
+                    JMP    die2
+*
+* switch in proper memory banks
+*
+ok3                 JSR    maketable                        ; make the crc table
+                    JSR    clearBuf                         ; clear the block buffer
+
+                    JSR    MLI
+                    DB     Getinfo                          ; MLI Getinfo
+                    DA     GFIParms
+                    BCS    die2
+
+                    LDA    openParms+5                      ; get ref_num
+                    STA    GetEOFParms+1                    ; and use for eof ref number
+                    STA    CloseParms+1
+                    STA    ReadParms+1
+
+                    JSR    MLI
+                    DB     Geteof
+                    DA     GetEOFParms
+                    BCS    die2
+
+*
+* put the status line on the bottom of the screen
+*
+                    LDY    #19                              ; move all 19 parameters
+mloop               LDA    GFIParms+3,Y
+                    STA    ParmList,Y
+                    DEY
+                    BPL    mloop
+
+                    JSR    clearLastLine
+
+                    LDA    #<ScreenTxt                      ; put the screentext on the screen
+                    STA    TEMP
+                    LDA    #>ScreenTxt
+                    STA    TEMP+1
+                    JSR    printPString
+                    JSR    PrintCount                       ; show all 0's in the beginning
+                    JSR    printErr
+*
+* put the filename on the screen
+*
+                    LDA    #64
+                    STA    CH
+                    LDA    #<filename                       ; get pointer to filename/lo
+                    STA    TEMP                             ; set up indirect address
+                    LDA    #>filename                       ; get pointer to filename/hi
+                    STA    TEMP+1                           ; finish setting up
+                    JSR    printPString
+
+                    LDX    #0
+fnLoop              LDA    filename+1,X                     ; get character in filename
+                    CMP    #'A'                             ; if it's a period, or a number, then don't lowercase
+                    BLT    lower                            ; it...
+                    CMP    #'a'                             ; if it's already lowercase, don't convert it
+                    BGE    lower
+                    CLC
+                    ADC    #CaseDiff
+lower               STA    blockBuffer,X
+                    INX
+                    CPX    filename
+                    BLT    fnLoop
+
+                    LDA    transtype
+                    CMP    #batchMd
+                    BEQ    xdown                            ; is it 0? yes, intelligent
+                    CMP    #fileMd                          ; is it 1?
+                    BNE    die3                             ; nope, try ymodem
+                    JMP    Ybatch                           ; yes, batch ymode
+
+die2                STA    failflag
+die3                JMP    endit
+
+*-------------------------------------------------
+* init for ae xmodem send
+
+xdown               LDA    #tenErrors                       ; and 10
+                    STA    retry                            ; retry
+                    JSR    cin                              ; look for the starting c
+*
+* if we got this far, we got the initial packet, now check for AE Mode
+*
+                    LDA    #3
+                    STA    ctries
+TryC                DEC    ctries
+                    BEQ    Standard
+
+                    LDA    #ssoh                            ; soh with hi bit set
+                    JSR    MDMOUT                           ; send it
+                    LDA    #nul                             ; get ae filetype
+                    JSR    MDMOUT                           ; send it
+                    LDA    #-1                              ; flip the bits
+                    JSR    MDMOUT                           ; and send that
+                    JSR    ackin                            ; look for ack
+                    BCS    Standard                         ; bcs tryC
+                    JMP    prodos
+
+Standard            DEC    tmode                            ; drop into Standard mode
+prodos              LDA    tmode
+                    ASL    A
+                    TAX
+                    LDA    ProtocolTAddr,X                  ; get low byte of address
+                    STA    TEMP                             ; for text
+                    INX
+                    LDA    ProtocolTAddr,X                  ; get high byte of address for text
+                    STA    TEMP+1
+
+                    LDA    #41
+                    STA    CH                               ; htab 41
+
+                    JSR    printPString                     print
+
+                    LDA    tmode                            ; get the transfer type
+                    CMP    #r4modem
+                    BGE    x4096
+                    CMP    #r1k                             ; can we use 1k blocks?
+                    BGE    jmp1k                            ; yes, send via 1k
+jmp128              JMP    x128                             ; no, only send 128 byte packets
+jmp1k               JMP    x1024                            ; send 1k blocks
+
+*-------------------------------------------------
+* start of 4k xmodem packet sending routines....
+
+x4096               LDX    #<1024
+                    LDA    #>1024
+                    JSR    readfile                         ; read 8 xmodem blocks
+                    JSR    Send128Packets                   ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>1024
+                    BEQ    read3k96
+                    JMP    FileEOT
+
+read3k96            LDX    #<3072
+                    LDA    #>3072
+                    JSR    readfile                         ; read 8 xmodem blocks
+                    JSR    Send1kPackets                    ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>3072
+                    BEQ    readf96
+                    JMP    FileEOT
+
+readf96             LDX    #<4096
+                    LDA    #>4096
+                    JSR    readfile                         ; read 'em
+                    BCS    eof96                            ; landed on a block boundary end it
+                    CMP    #>4096                           ; did we get a big packet?
+                    BEQ    nxtBlk96
+                    JSR    Send1kPackets
+eof96               JMP    FileEOT
+
+nxtBlk96            LDA    SendSmall
+                    BNE    MoreErrs96
+
+                    LDA    #tenErrors                       ; initialize to 10 retry
+                    STA    retry                            ; store counter
+                    INC    PacketNum                        ; next xmodem block in series
+
+                    LDA    byteCount+1
+                    CLC
+                    ADC    #>4096
+                    STA    byteCount+1
+                    BCC    noroll96
+                    INC    byteCount+2
+noroll96            JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop296             JSR    initcrc
+                    JSR    Send4096
+                    BCC    readf96                          ; ok, send the next 4096 byte pack
+
+                    LDA    ConsecErr                        ; how many consecutive errors do we have?
+                    CMP    #2                               ; 2?
+                    BNE    loop296                          ; nope, then retry large block
+
+                    DEC    PacketNum                        ; decrease pack # by 1
+
+                    LDA    byteCount+1
+                    SEC
+                    SBC    #>4096
+                    STA    byteCount+1
+                    LDA    byteCount+2
+                    SBC    #0
+                    STA    byteCount+2
+
+MoreErrs96          LDA    TotalErr                         ; 2 consec errors, so find out how many
+                    STA    ErrorsBefore                     ; before we send small packets
+                    LDA    #0
+                    STA    SendSmall                        ; don't send small after this one
+
+                    LDX    ReadParms+6                      ; how much did we get?
+                    LDA    ReadParms+7
+                    JSR    Send1kPackets                    ; unless we get errors
+                    LDA    ErrorsBefore
+                    CMP    TotalErr                         ; did we get any extra errors?
+                    BEQ    readf96
+
+                    LDA    #1
+                    STA    SendSmall
+                    JMP    readf96
+
+*-------------------------------------------------
+* start of 1k xmodem packet sending routines....
+
+x1024               LDX    #<512
+                    LDA    #>512
+                    JSR    readfile                         ; read 4 xmodem blocks
+                    JSR    Send128Packets                   ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>512
+                    BEQ    readf24
+                    JMP    FileEOT
+
+readf24             LDX    #<1024
+                    LDA    #>1024
+                    JSR    readfile                         ; read 'em
+                    BCS    eof24                            ; landed on a block boundary end it
+                    CMP    #>1024                           ; did we get a big packet?
+                    BEQ    nxtBlk24
+                    JSR    Send128Packets
+eof24               JMP    FileEOT
+
+nxtBlk24            LDA    SendSmall
+                    BNE    MoreErrs24
+
+                    LDA    #tenErrors                       ; initialize to 10 retry
+                    STA    retry                            ; store counter
+                    INC    PacketNum                        ; next xmodem block in series
+
+                    LDA    byteCount+1
+                    CLC
+                    ADC    #>1024
+                    STA    byteCount+1
+                    BCC    noroll24
+                    INC    byteCount
+noroll24            JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop224             JSR    initcrc
+                    JSR    Send1024
+                    BCC    readf24                          ; ok, send the next 1024 byte pack
+
+                    LDA    ConsecErr                        ; how many consecutive errors do we have?
+                    CMP    #2                               ; 2?
+                    BNE    loop224                          ; nope, then retry large block
+
+                    DEC    PacketNum                        ; decrease pack # by 1
+
+                    LDA    byteCount+1
+                    SEC
+                    SBC    #>1024
+                    STA    byteCount+1
+                    LDA    byteCount+2
+                    SBC    #0
+                    STA    byteCount+2
+
+MoreErrs24          LDA    TotalErr                         ; 2 consec errors, so find out how many
+                    STA    ErrorsBefore                     ; before we send small packets
+                    LDA    #0
+                    STA    SendSmall                        ; don't send small after this one
+
+                    LDX    ReadParms+6                      ; how much did we get?
+                    LDA    ReadParms+7
+                    JSR    Send128Packets                   ; unless we get errors
+                    LDA    ErrorsBefore
+                    CMP    TotalErr                         ; did we get any extra errors?
+                    BEQ    readf24
+
+                    LDA    #1
+                    STA    SendSmall
+                    JMP    readf24
+
+*-------------------------------------------------
+* Start of 128 byte packet sending routines
+
+x128                LDX    #<1024
+                    LDA    #>1024
+                    JSR    readfile                         ; read 1k of file always
+                    BCS    eof128                           ; we landed on a 1k boundary, all done
+                    CMP    #>1024                           ; did we get 1k from the file?
+                    BNE    last                             ; no, must be at end, send last blocks
+                    JSR    Send128Packets                   ; else send 1k worth of blocks
+                    JMP    x128                             ; go read some more
+
+last                JSR    Send128Packets                   ; send buffer full of packets
+eof128              JMP    FileEOT                          ; all done
+
+*-------------------------------------------------
+* end of file transmission
+
+FileEOT             LDA    #tenErrors                       ; init to 10
+                    STA    retry                            ; retry
+                    LDA    #1
+                    STA    LastPacket                       ; this is the footer
+
+EOTLoop             LDA    #eot
+                    JSR    MDMOUT                           ; send it
+                    JSR    ackin                            ; look for an ack response
+                    BCS    EOTLoop
+
+                    LDA    tmode                            ; get trans mode
+                    AND    #rProDOS                         ; is it odd?
+                    BNE    Footer                           ; yes, send a footer packet
+                    JMP    endit                            ; else no footer needed, end the xfer
+
+*-------------------------------------------------
+* prodos footer
+
+Footer              LDY    #5                               ; init counter
+FtLoop              JSR    input                            ; look for input
+                    CMP    #syn                             ; is it a ctrl-y?
+                    BEQ    got_syn                          ; you bet!
+                    DEY
+                    BNE    FtLoop                           ; try again
+                    LDA    #footerErr
+                    JMP    Bad_File
+
+got_syn             LDA    #etb                             ; etb (ae prodos proto)
+                    JSR    MDMOUT                           ; send it
+                    JSR    nakin                            ; look for nak
+
+                    JSR    clearBuf                         ; Clear out the Block Buffer
+
+                    LDA    #4                               ; 4 retries
+                    STA    retry
+
+loop2Ft             LDA    #%10101010
+                    STA    PacketNum                        ; change block number to $aa for AE
+                    STA    LastPacket                       ; yep, this *IS* the last packet
+
+                    JSR    initcrc
+                    LDA    #<GFIParms
+                    STA    TEMP
+                    LDA    #>GFIParms
+                    STA    TEMP+1
+
+                    LDA    UseCsum                          ; is it in a checksum mode?
+                    BNE    FtCsum                           ; yes, send the last via csum
+
+                    JSR    Send128CRC
+                    BCS    loop2Ft                          ; error, retry
+                    JMP    endit
+
+FtCsum              JSR    Send128Csum
+                    BCS    loop2Ft                          ; error, retry
+
+*-------------------------------------------------
+* close file and end
+
+endit               JMP    closefile
+
+*-------------------------------------------------
+* start of ymodem batch sending routines
+
+Ybatch              LDA    #41
+                    STA    CH
+
+                    LDA    #<YmodemText                     ; print 'Ymodem' after "Mode:"
+                    STA    TEMP
+                    LDA    #>YmodemText
+                    STA    TEMP+1
+                    JSR    printPString
+
+                    LDA    GetEOFParms+2
+                    STA    num
+                    LDA    GetEOFParms+3
+                    STA    num+1
+                    LDA    GetEOFParms+4
+                    STA    num+2
+
+                    JSR    long2Dec
+
+                    LDY    filename                         ; if the filename is longer than
+                    CPY    #54                              ; 54 characters, it won't fit before the
+                    BGE    Ydone                            ; prodos information, so skip it
+                    INY
+                    LDX    #0
+dLoop               LDA    decimal,X                        ; move the decimal length to conform to
+                    BEQ    Ydone                            ; "true ymodem"
+                    STA    blockBuffer,Y
+                    INX
+                    INY
+                    JMP    dLoop
+
+Ydone               LDA    #']'-Ctrl                        ; ; put the ID byte there
+                    STA    blockBuffer+64
+                    LDA    #'G'                             ; put a "G" for greg (just in case)
+                    STA    blockBuffer+65
+
+                    LDX    #0                               ; move the gfi and get eof
+parm_loop           LDA    GFIParms,X                       ; results to header packet
+                    STA    blockBuffer+66,X
+                    INX
+                    CPX    #$17                             ; done all?
+                    BNE    parm_loop                        ; no, loop
+
+send_final          LDA    #tenErrors
+                    STA    retry
+                    JSR    bin                              ; wait for a 'C' or a 'G'
+
+                    LDA    gflag                            ; skip acks
+                    STA    ackflag
+
+*-------------------------------------------------
+* send the header packet with some file information in it
+
+sendhead            JSR    initcrc
+                    JSR    Send128CRC
+                    BCS    sendhead                         ; ack not received, resend header
+
+                    LDA    blockBuffer                      ; last one?
+                    BNE    proceed                          ; no, send file
+
+                    JSR    clearLastLine                    ; get rid of the "final packet" text on the last
+                    JMP    endit                            ; line
+
+*-------------------------------------------------
+* if there is an actual file to send, send it
+
+
+proceed             JSR    nakin                            ; wait for another <nak> or <C>
+;   or anything for that matter
+
+                    LDA    tmode
+                    CMP    #rCRC
+                    BNE    initsend
+                    JMP    proceed4k
+
+initsend            LDX    #<512
+                    LDA    #>512
+                    JSR    readfile                         ; read 4 xmodem blocks
+                    JSR    Send128Packets                   ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>512
+                    BEQ    readfHdr
+                    JMP    BatchEOT
+
+readfHdr            LDX    #<1024
+                    LDA    #>1024
+                    JSR    readfile                         ; read 'em
+                    BCS    eofHdr                           ; landed on a block boundary end it
+                    CMP    #>1024                           ; did we get a big packet?
+                    BEQ    nxtBlkHdr
+                    JSR    Send128Packets
+eofHdr              JMP    BatchEOT
+
+nxtBlkHdr           LDA    SendSmall
+                    BNE    MoreErrsHd
+
+                    LDA    #tenErrors                       ; initialize to 10 retry
+                    STA    retry                            ; store counter
+                    INC    PacketNum                        ; next xmodem block in series
+
+                    LDA    byteCount+1
+                    CLC
+                    ADC    #>1024
+                    STA    byteCount+1
+                    BCC    norollHd
+                    INC    byteCount+2
+norollHd            JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop2Hd             JSR    initcrc
+                    JSR    Send1024
+                    BCC    readfHdr                         ; ok, send the next 1024 byte pack
+
+                    LDA    ConsecErr                        ; how many consecutive errors do we have?
+                    CMP    #2                               ; 2?
+                    BNE    loop2Hd                          ; nope, then retry large block
+
+                    DEC    PacketNum                        ; decrease pack # by 1
+
+                    LDA    byteCount+1
+                    SEC
+                    SBC    #>1024
+                    STA    byteCount+1
+                    LDA    byteCount+2
+                    SBC    #0
+                    STA    byteCount+2
+
+MoreErrsHd          LDA    TotalErr                         ; 2 consec errors, so find out how many
+                    STA    ErrorsBefore                     ; before we send small packets
+                    LDA    #0
+                    STA    SendSmall                        ; don't send small after this one
+
+                    LDX    ReadParms+6                      ; how much did we get?
+                    LDA    ReadParms+7
+                    JSR    Send128Packets                   ; unless we get errors
+                    LDA    ErrorsBefore
+                    CMP    TotalErr                         ; did we get any extra errors?
+                    BEQ    readfHdr
+
+                    LDA    #1
+                    STA    SendSmall
+                    JMP    readfHdr
+
+*-------------------------------------------------
+* start of 4k ymodem-4k packet sending routines....
+
+proceed4k           LDX    #<1024
+                    LDA    #>1024
+                    JSR    readfile                         ; read 8 xmodem blocks
+                    JSR    Send128Packets                   ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>1024
+                    BEQ    read3k4k
+                    JMP    BatchEOT
+
+read3k4k            LDX    #<3072
+                    LDA    #>3072
+                    JSR    readfile                         ; read 8 xmodem blocks
+                    JSR    Send1kPackets                    ; hopefully send them
+                    LDA    ReadParms+7
+                    CMP    #>3072
+                    BEQ    readf4k
+                    JMP    BatchEOT
+
+readf4k             LDX    #<4096
+                    LDA    #>4096
+                    JSR    readfile                         ; read 'em
+                    BCS    eof4k                            ; landed on a block boundary end it
+                    CMP    #>4096                           ; did we get a big packet?
+                    BEQ    nxtBlk4k
+                    JSR    Send1kPackets
+eof4k               JMP    BatchEOT
+
+nxtBlk4k            LDA    SendSmall
+                    BNE    MoreErrs4k
+
+                    LDA    #tenErrors                       ; initialize to 10 retry
+                    STA    retry                            ; store counter
+                    INC    PacketNum                        ; next xmodem block in series
+
+                    LDA    byteCount+1
+                    CLC
+                    ADC    #>4096
+                    STA    byteCount+1
+                    BCC    noroll4k
+                    INC    byteCount+2
+noroll4k            JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop24k             JSR    initcrc
+                    JSR    Send4096
+                    BCC    readf4k                          ; ok, send the next 1024 byte pack
+
+                    LDA    ConsecErr                        ; how many consecutive errors do we have?
+                    CMP    #2                               ; 2?
+                    BNE    loop24k                          ; nope, then retry large block
+
+                    DEC    PacketNum                        ; decrease pack # by 1
+
+                    LDA    byteCount+1
+                    SEC
+                    SBC    #>4096
+                    STA    byteCount+1
+                    LDA    byteCount+2
+                    SBC    #0
+                    STA    byteCount+2
+
+MoreErrs4k          LDA    TotalErr                         ; 2 consec errors, so find out how many
+                    STA    ErrorsBefore                     ; before we send small packets
+                    LDA    #0
+                    STA    SendSmall                        ; don't send small after this one
+
+                    LDX    ReadParms+6                      ; how much did we get?
+                    LDA    ReadParms+7
+                    JSR    Send1kPackets                    ; unless we get errors
+                    LDA    ErrorsBefore
+                    CMP    TotalErr                         ; did we get any extra errors?
+                    BEQ    readf4k
+
+                    LDA    #1
+                    STA    SendSmall
+                    JMP    readf4k
+
+*-------------------------------------------------
+* end of transmission of one file, return to caller...
+
+BatchEOT            LDA    #1
+                    STA    LastPacket
+                    LDA    #tenErrors                       ; initialize count for last byte
+                    STA    retry
+
+EOTBLoop            LDA    #eot                             ; get an eot
+                    JSR    MDMOUT                           ; send it
+
+                    LDA    #0                               ; always wait for acks on EOT
+                    STA    ackflag
+
+                    JSR    ackin                            ; wait for an ack
+                    BCS    EOTBLoop                         ; if ok, finish up
+                    JMP    endit
+
+*-------------------------------------------------
+* print a single character on the screen to indicate error status
+
+
+printErr            PHA
+                    TXA                                     ; save ;the x-reg
+                    PHA
+
+                    LDA    #20
+                    STA    CH                               ; horizontal location
+                    LDA    TotalErr                         ; low
+                    STA    num
+                    LDA    TotalErr+1                       ; high
+                    STA    num+1
+                    LDA    #0
+                    STA    num+2
+                    JSR    long2Dec                         ; print it
+
+                    LDX    #<decimal
+                    LDY    #>decimal
+                    JSR    printCString
+
+                    LDA    #33
+                    STA    CH
+                    LDA    ConsecErr                        ; low
+                    STA    num
+                    LDA    #0                               ; high
+                    STA    num+1
+                    STA    num+2
+                    JSR    long2Dec                         ; print it
+
+                    LDX    #<decimal
+                    LDY    #>decimal
+                    JSR    printCString
+
+                    PLA
+                    TAX
+                    PLA                                     ; recover acc
+                    RTS                                     ; return
+
+*-------------------------------------------------
+* print block count
+
+PrintCount          LDA    #6
+                    STA    CH                               ; horizontal location
+
+                    LDA    byteCount
+                    STA    num
+                    LDA    byteCount+1
+                    STA    num+1
+                    LDA    byteCount+2
+                    STA    num+2
+
+                    JSR    long2Dec
+
+                    LDX    #<decimal
+                    LDY    #>decimal
+                    JMP    printCString
+
+*-------------------------------------------------
+* wait for an <ack>
+
+ackin               LDY    #10
+ackLoop             LDA    KYBD                             ; get a keystroke
+                    BPL    ackNoPr                          ; nothing there...
+                    CMP    #escKey                          ; got a keypress
+                    BEQ    err_out                          ; if it's escape, exit violently
+                    STA    KBDSTRB                          ; otherwise, reset strobe and continue
+
+ackNoPr             JSR    MDMDCD                           ; check for carrier
+                    BCC    err_out                          ; ooops seems we've lost it
+
+                    LDA    ackflag                          ; should we check for ymodem-g?
+                    BEQ    notyg                            ; nope
+                    JSR    MDMIN                            ; look for byte incoming
+                    BCC    gotit                            ; nothing found, continue transfer
+                    CMP    #can
+                    BNE    gotit                            ; if we get a single <can>, wait
+                    JSR    input                            ; for another <can>, else continue
+                    BCC    gotit
+                    CMP    #can                             ; if input = <can>, abort
+                    BEQ    err_out                          ; else continue
+                    BNE    gotit
+
+notyg               JSR    input                            ; look for input
+                    BCC    ackNf                            ; nothing found
+                    CMP    #ack                             ; is it an <ack>?
+                    BEQ    gotit                            ; yes, return
+                    CMP    #nak                             ; is it a <nak>?
+                    BEQ    badblock                         ; yes, flag as bad
+                    CMP    #'C'
+                    BEQ    badblock
+                    AND    #Clrhi                           ; strip hi bit
+                    CMP    LastChar                         ; same char as before
+                    BNE    ackNotL                          ; nope...but remember it
+                    CMP    #can                             ; double <can>?
+                    BEQ    err_out                          ; yes...end the trans.
+
+ackNotL             STA    LastChar                         ; save char for later chk
+ackNf               DEY    decrement                        ; loop count
+                    BNE    ackLoop                          ; still some left
+
+badblock            INC    TotalErr
+                    BNE    skip
+                    INC    TotalErr+1
+
+skip                DEC    retry
+                    LDA    retry
+                    CMP    #tenErrors-1
+                    BEQ    no_consec
+
+                    INC    ConsecErr
+                    LDA    ConsecErr
+                    CMP    #tenErrors
+                    BEQ    err_out
+                    JSR    printErr
+
+no_consec           LDA    #nul                             ; zero acc. we got nuthin
+                    SEC                                     ; set flag
+                    RTS                                     ; return to caller
+
+gotit               LDX    ConsecErr                        ; get current Consecutive error count
+                    LDA    #0                               ; we got a good block, say that
+                    STA    ConsecErr
+                    CPX    #0                               ; check again for what once was
+                    BEQ    gotit2                           ; if it already WAS 0, don't bother
+                    JSR    printErr                         ; else show the new Consec Err count
+gotit2              CLC
+                    RTS
+
+err_out             JMP    clrstk                           ; go clear stack, end transfer
+
+*-------------------------------------------------
+* look for <nak>
+
+nakin               LDY    #10                              ; only have to wait, say, 20 seconds or so... no rush
+nakLoop             LDA    KYBD                             ; get a keystroke
+                    BPL    nakNoPr                          ; nothing there...
+                    CMP    #escKey                          ; got a keypress
+                    BEQ    nakGone                          ; if it's escape, exit violently
+                    STA    KBDSTRB                          ; otherwise, reset strobe and continue
+
+nakNoPr             JSR    MDMDCD                           ; look for carrier
+                    BCC    nakGone                          ; seems not to be there!
+
+                    JSR    input                            ; look for input
+                    BCC    nakNf                            ; nothing found
+                    CMP    #nak                             ; is it nak?
+                    BEQ    nakClr                           ; yes, then return to caller
+                    CMP    #'C'                             ; is it a "C" for ymodem?
+                    BEQ    nakClr
+                    CMP    #'G'                             ; is it a "G" for ymodem-g?
+                    BEQ    nakClr
+                    CMP    #'4'                             ; is it a "4" for ymodem-4k?
+                    BEQ    nakClr
+
+                    AND    #Clrhi
+                    CMP    LastChar                         ; same as before
+                    BNE    nakNotL                          ; not the same as before
+                    CMP    #can                             ; double <can>?
+                    BEQ    nakGone
+
+nakNotL             STA    LastChar                         ; remember char for checking
+nakNf               DEY                                     ; decrement loop cpunt
+                    BNE    nakLoop                          ; still some loop left
+                    LDA    #1                               ; timed out waiting
+nakGone             JMP    clrstk                           ; clear stack, end trans..
+
+nakClr              CLC
+                    RTS
+
+*-------------------------------------------------
+* Wait for a 'C' to start the batch transmission
+
+bin                 LDY    #30                              ; wait 1 minute
+binLoop             LDA    KYBD                             ; get a keystroke
+                    BPL    binNoPr                          ; nothing there...
+                    CMP    #escKey                          ; got a keypress
+                    BEQ    aborted                          ; if it's escape, exit violently
+                    STA    KBDSTRB                          ; otherwise, reset strobe and continue
+
+binNoPr             JSR    MDMDCD
+                    BCC    aborted
+
+                    JSR    input                            ; get a character from the modem
+                    CMP    #'C'                             ; is it a 'c'?
+                    BEQ    ok                               ; yes, also return gracefully
+                    CMP    #'G'                             ; is it Ymodem-g?
+                    BEQ    ok_g                             ; yes!  ack!!
+                    CMP    #'4'                             ; was is ymodem-4k?
+                    BEQ    ok_4
+
+                    AND    #Clrhi
+                    CMP    LastChar                         ; same as before
+                    BNE    binMkLst                         ; not the same as before
+                    CMP    #can                             ; double <can>?
+                    BEQ    aborted                          ; yes, leave it
+
+binMkLst            STA    LastChar
+                    DEY                                     ; keep trying
+                    BNE    binLoop                          ; not done yet, try again
+                    LDA    #1                               ; timed out waiting
+aborted             JMP    clrstk
+
+ok                  LDA    #xModem
+                    STA    gflag
+                    STA    tmode
+                    RTS
+
+ok_g                LDA    #yModem                          ; was ymodem-g, flag as such
+                    STA    gflag
+                    STA    tmode
+                    RTS
+
+ok_4                LDA    #0                               ; was ymodem-4k, flag as such
+                    STA    gflag
+                    LDA    #yModem4k
+                    STA    tmode
+                    RTS
+
+*-------------------------------------------------
+* Look for a 'C' to start the transmission
+
+cin                 LDA    #2
+                    STA    ctries                           ; tries for a C are 2
+
+                    LDY    #30                              ; wait 1 minute
+cinLoop             LDA    KYBD                             ; get a keystroke
+                    BPL    cinNoPr                          ; nothing there
+                    CMP    #escKey                          ; is it esc?
+                    BEQ    clrstk                           ; yes, exit
+                    STA    KBDSTRB                          ; else, reset strobe and continue
+
+cinNoPr             JSR    MDMDCD                           ; look for carrier
+                    BCC    clrstk                           ; lost it
+
+                    JSR    input                            ; input for 2.00 secs
+                    CMP    #'C'                             ; is it a 'C'
+                    BEQ    got_C                            ; yes return to caller
+                    CMP    #nak                             ; is it a <nak>?
+                    BEQ    got_nak                          ; yes, one more try
+
+                    AND    #Clrhi
+                    CMP    LastChar                         ; same as before
+                    BNE    cinMkLst                         ; not the same as before
+                    CMP    #can                             ; double <can>?
+                    BEQ    clrstk
+
+cinMkLst            STA    LastChar
+                    DEY
+                    BNE    cinLoop
+                    LDA    #1                               ; timed out waiting
+                    JMP    clrstk
+
+got_nak             DEC    ctries
+                    BNE    cinLoop                          ; exhausted all possibilities
+                    LDA    #rXModemP                        ; yes, drop down into cksum
+                    STA    tmode
+                    STA    UseCsum                          ; change from CRC to checksum mode
+                    RTS
+
+got_C               JSR    input                            ; wait for a second for inp
+                    BCC    crc_Xmodem                       ; nothing found
+                    CMP    #'K'                             ; is it the "K" in CK?
+                    BNE    crc_Xmodem
+
+got_K               JSR    input                            ; wait for a second for inp
+                    BCC    xmodem_1k                        ; nothing found
+                    CMP    #'L'                             ; is it the "L" in CKL?
+                    BNE    xmodem_1k
+
+                    LDA    #r4modemP                        ; set 4modem mode
+                    STA    tmode
+                    RTS
+
+xmodem_1k           LDA    #r1kP
+                    STA    tmode                            ; set xmodem-1k
+                    RTS
+
+crc_Xmodem          LDA    #rCRCp                           ; set crc xmodem
+                    STA    tmode
+                    RTS
+
+*-------------------------------------------------
+* Prepare to exit to acos
+
+clrstk              TAX                                     ; save error in x reg
+                    LDA    InnerLoop                        ; are we in an InnerLoop
+                    BEQ    pull1                            ; nope, in main code, pull ackin off stack
+                    PLA                                     ; yes, pull ackin return then
+                    PLA                                     ; previous ;return
+
+pull1               PLA
+                    PLA
+                    TXA
+
+Bad_File            STA    failflag
+
+                    LDX    #6                               ; send 5 <can> characters
+canLoop             LDA    #can
+                    JSR    MDMOUT
+                    DEX
+                    BNE    canLoop
+
+                    LDX    #6                               ; followed by 5 backspaces
+bsLoop              LDA    #bs
+                    JSR    MDMOUT
+                    DEX
+                    BNE    bsLoop
+
+                    LDA    LastPacket                       ; was this the last?
+                    BEQ    notlast                          ; nope, =0 so normal fail
+                    LDA    #lastBlkAbt
+                    STA    failflag
+notlast             JMP    endit
+
+*-------------------------------------------------
+* MLI read in the data
+
+readfile            STX    ReadParms+4
+                    STA    ReadParms+5
+
+                    JSR    MLI
+                    DB     Read
+                    DA     ReadParms
+                    PHP                                     ; save state of carry flag
+
+                    LDA    ReadParms+7
+                    CMP    ReadParms+5
+                    BEQ    RfDone
+*
+* since we were not able to read all we wanted, zero out the rest
+* of the block buffer with 00's
+*
+                    LDA    ReadParms+7                      ; calculate page to start on
+                    CLC
+                    ADC    #>blockBuffer
+                    STA    TEMP+1
+
+                    LDA    #0                               ; always start even
+                    STA    TEMP
+
+                    LDY    ReadParms+6                      ; low byte offset to start on
+loop2rf             LDA    #0                               ; value to store
+rfLoop              STA    (TEMP),Y                         ; store it
+                    INY                                     ; next value
+                    BNE    rfLoop                           ; did the pages roll over?
+
+                    INC    TEMP+1                           ; y rolled over, do next page in series
+                    LDA    TEMP+1
+                    CMP    #>blockBuffer+$1000              ; did we reach $3000?
+                    BNE    loop2rf                          ; nope, get some more (y=0)
+
+RfDone              LDX    ReadParms+6
+                    LDA    ReadParms+7
+                    PLP                                     ; get state of carry flag back
+                    RTS                                     ; back to caller
+
+*-------------------------------------------------
+* Clear the 1k block buffer
+
+clearBuf            LDA    #<blockBuffer
+                    STA    TEMP
+                    LDA    #>blockBuffer
+                    STA    TEMP+1
+
+                    LDY    #128
+                    LDA    #0
+CbLoop              STA    (TEMP),Y
+                    DEY
+                    BPL    CbLoop
+                    RTS
+
+*-------------------------------------------------
+* closefile - close the file and return
+
+closefile           JSR    MLI
+                    DB     Close
+                    DA     CloseParms
+                    RTS
+
+*-------------------------------------------------
+* get input - sec=input, clc=no input
+* wait up to 1 second before timing out
+
+input               JSR    MDMIN                            ; look for byte incoming
+                    BCC    inNf                             ; nothing found, setup loop
+                    RTS                                     ; byte found! return to caller
+
+inNf                LDA    #0
+                    STA    lastVBL
+                    STA    sixty                            ; sixtieths of a second we've waited
+                    STA    sixty+1
+
+InLoop              JSR    MDMIN                            ; get byte from modem
+                    BCC    no_inp                           ; nothing there, adjust loop counters
+                    RTS
+
+no_inp              LDA    VBL                              ; has there been a change?
+                    AND    #Hibit                           ; mask all but high bit
+                    CMP    lastVBL                          ; look for a change in the value
+                    BEQ    InLoop                           ; indicating a transition
+
+                    STA    lastVBL
+
+                    INC    sixty
+                    BNE    norollIn
+                    INC    sixty+1
+
+norollIn            LDA    sixty
+                    CMP    waitFOR
+                    BNE    InLoop
+                    LDA    sixty+1
+                    CMP    waitFOR+1
+                    BNE    InLoop
+
+                    CLC                                     ; input was bad
+                    LDA    #0
+                    RTS
+
+*-------------------------------------------------
+* send soh, block number, and complemented block number
+
+SendSOH             LDA    #soh                             ; soh
+                    JSR    MDMOUT                           ; send it
+                    LDA    PacketNum                        ; get block number
+                    JSR    MDMOUT                           ; send it
+                    EOR    #-1                              ; flip the bits
+                    JSR    MDMOUT                           ; send it
+                    RTS
+
+*-------------------------------------------------
+* send <stx> (1k block), block number, and complemented block number
+
+SendSTX             LDA    #stx                             ; stx
+                    JSR    MDMOUT                           ; send it
+                    LDA    PacketNum                        ; get block number
+                    JSR    MDMOUT                           ; send it
+                    EOR    #-1                              ; flip the bits
+                    JSR    MDMOUT                           ; send it
+                    RTS
+
+*-------------------------------------------------
+* send <sstx> (4k block), block number, and complemented block number
+
+SendSSTX            LDA    #sstx                            ; sstx
+                    JSR    MDMOUT                           ; send it
+                    LDA    PacketNum                        ; get block number
+                    JSR    MDMOUT                           ; send it
+                    EOR    #-1                              ; flip the bits
+                    JSR    MDMOUT                           ; send it
+                    RTS
+
+*-------------------------------------------------
+* send CRC bytes out the modem
+
+SendCRC             LDA    crc+1                            ; get crc hi byte
+                    JSR    MDMOUT                           ; send it
+                    LDA    crc
+                    JSR    MDMOUT                           ; send it
+                    RTS
+
+*-------------------------------------------------
+* maketable -- make the crc table
+
+maketable           LDX    #0                               ; zero first page
+                    LDA    #0
+MkCLoop             STA    crcLo,X                          ; zero crc lo bytes
+                    STA    crcHi,X                          ; zero crc hi bytes
+                    INX
+                    BNE    MkCLoop
+
+*
+* the following is the normal bitwise computation
+* tweeked a little to work in the table-maker
+*
+                    LDX    #0                               ; number to do crc for
+fetch               TXA
+                    EOR    crcHi,X                          ; add byte into high
+                    STA    crcHi,X                          ; of crc
+
+                    LDY    #8                               ; do 8 bits
+MkCLoop2            ASL    crcLo,X                          ; shift current crc-16 left
+                    ROL    crcHi,X
+                    BCC    noadd
+*
+* if previous high bit wasn't set, then don't add crc
+* polynomial ($1021) into the cumulative crc.  else add it.
+*
+                    LDA    crcHi,X                          ; add hi part of crc poly into
+                    EOR    #>$1021                          ; cumulative crc hi
+                    STA    crcHi,X
+
+                    LDA    crcLo,X                          ; add lo part of crc poly into
+                    EOR    #$1021                           ; cumulative crc lo
+                    STA    crcLo,X
+noadd               DEY                                     ; do next bit
+                    BNE    MkCLoop2                         ; done? nope, loop
+
+                    INX                                     ; do next number in series (0-255)
+                    BNE    fetch                            ; didn't roll over, so fetch more
+                    RTS                                     ; done
+
+*-------------------------------------------------
+* do a crc on a single byte in A, X is preserved, A is not
+
+do_crc              STA    tempcrc
+                    TXA                                     ; save X
+                    PHA
+
+                    LDA    tempcrc
+                    EOR    crc+1                            ; add byte into crc hi byte
+                    TAX                                     ; to make offset into tables
+
+                    LDA    crc                              ; get previous lo byte back
+                    EOR    crcHi,X                          ; add it to the proper table entry
+                    STA    crc+1                            ; save it
+
+                    LDA    crcLo,X                          ; get new lo byte
+                    STA    crc                              ; save it back
+
+                    PLA
+                    TAX                                     ; restore X
+                    RTS                                     ; all done
+
+*-------------------------------------------------
+* init some pointers, etc
+
+initcrc             LDA    #<blockBuffer                    ; set up indirect address to
+                    STA    TEMP                             ; point to 1k buffer space
+                    LDA    #>blockBuffer
+                    STA    TEMP+1
+
+                    LDA    #0
+                    STA    crc
+                    STA    crc+1
+                    STA    CheckSum
+                    RTS
+
+*-------------------------------------------------
+* send a packet of 128 bytes protected by a crc
+
+Send128CRC          JSR    SendSOH                          ; send <soh> and block number
+
+                    LDY    #0                               ; zero
+loop128c            LDA    (TEMP),Y                         ; get character
+                    JSR    MDMOUT                           ; send it
+                    JSR    do_crc
+                    INY                                     ; bump offset
+                    BPL    loop128c                         ; do 128 bytes
+
+                    JSR    SendCRC                          ; send CRC bytes
+                    JMP    ackin                            ; look for ack
+
+*-------------------------------------------------
+* Send128Csum -- send a block of 128 bytes protected by a checksum
+
+Send128Csum         JSR    SendSOH
+
+                    LDY    #0                               ; zero
+loop128x            LDA    (TEMP),Y                         ; get character
+                    JSR    MDMOUT                           ; send it
+                    CLC                                     ; prepare for add
+                    ADC    CheckSum                         ; add it to CheckSum
+                    STA    CheckSum                         ; save CheckSum
+                    INY                                     ; bump offset
+                    BPL    loop128x                         ; do 128 bytes
+
+                    LDA    CheckSum                         ; get checksum
+                    JSR    MDMOUT                           ; send it
+                    JMP    ackin                            ; look for ack
+
+*-------------------------------------------------
+* Send1024 -- send a 1024 byte packet protected by a CRC
+
+Send1024            JSR    SendSTX
+
+                    LDX    #4                               ; send 4 packs of 256 bytes
+                    LDY    #0
+loop1024            LDA    (TEMP),Y                         ; get the byte
+                    JSR    MDMOUT                           ; send it
+                    JSR    do_crc                           ; compute the cumulative crc
+                    INY                                     ; next byte
+                    BNE    loop1024                         ; done 256? no, do some more
+                    INC    TEMP+1                           ; yes, next 256 bytes
+                    DEX                                     ; are we done with the 4 packs?
+                    BNE    loop1024                         ; no, go send some more
+
+                    JSR    SendCRC
+                    JMP    ackin                            ; check for an ack
+
+*-------------------------------------------------
+* Send4096 -- send a 4096 byte packet protected by a CRC
+
+Send4096            JSR    SendSSTX
+
+                    LDX    #16                              ; send 16 packs of 256 bytes
+                    LDY    #0
+loop4096            LDA    (TEMP),Y                         ; get the byte
+                    JSR    MDMOUT                           ; send it
+                    JSR    do_crc                           ; compute the cumulative crc
+                    INY                                     ; next byte
+                    BNE    loop4096                         ; done 256? no, do some more
+                    INC    TEMP+1                           ; yes, next 256 bytes
+                    DEX                                     ; are we done with the 16 packs?
+                    BNE    loop4096                         ; no, go send some more
+
+                    JSR    SendCRC
+                    JMP    ackin                            ; check for an ack
+
+*-------------------------------------------------
+* send final set of packets if not 1k available to send
+
+Send128Packets      STX    bytes                            ; # of bytes we gotta send
+                    STA    bytes+1
+                    LDA    #1
+                    STA    InnerLoop
+
+send1kEntry         LDA    bytes                            ; packs remain
+                    ASL    A                                ; shift high bit into carry
+                    LDA    bytes+1
+                    ROL    A                                ; rol it into the byte
+                    AND    #%00001111
+                    STA    packsRemain
+
+; number in packsRemain is the num of 128 byte packets remaining
+
+                    LDA    bytes                            ; if any bits are set in b128, then
+                    AND    #Clrhi
+                    BEQ    noinc                            ; there was a remainder after the divide
+                    INC    packsRemain                      ; a remainder
+
+noinc               LDA    #<blockBuffer                    ; make it initially point to the
+                    STA    TEMP                             ; beginning of the block buffer
+                    LDA    #>blockBuffer
+                    STA    TEMP+1
+
+send128PacketsLoop  =      *
+loop128P            LDA    #tenErrors                       ; 10 retries
+                    STA    retry
+
+                    INC    PacketNum                        ; next xmodem block in series
+
+                    LDA    byteCount
+                    CLC
+                    ADC    #128
+                    STA    byteCount
+                    BCC    noroll128
+                    INC    byteCount+1
+                    BNE    noroll128
+                    INC    byteCount+2
+noroll128           JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop2128            LDA    #0
+                    STA    crc
+                    STA    crc+1
+                    STA    CheckSum
+
+                    LDA    UseCsum
+                    BNE    csum128
+
+                    JSR    Send128CRC
+                    BCS    loop2128                         ; not ok, resend the last block
+                    DEC    packsRemain
+                    BNE    notdone
+                    LDA    #0
+                    STA    InnerLoop
+                    RTS
+
+csum128             JSR    Send128Csum
+                    BCS    loop2Csum                        ; not ok, resend the last block
+                    DEC    packsRemain
+                    BNE    notdone
+                    LDA    #0
+                    STA    InnerLoop
+                    RTS
+
+notdone             LDA    TEMP                             ; get [Buffer] address
+                    CLC                                     ; next block is gotten 128 bytes hence
+                    ADC    #128
+                    STA    TEMP
+                    BCC    loop128P                         ; didn't roll over
+                    INC    TEMP+1                           ; we rolled over!
+                    JMP    loop128P
+
+*-------------------------------------------------
+* send final set of packets if 4k not available to send
+
+Send1kPackets       STX    bytes
+                    STA    bytes+1
+                    LDA    #1
+                    STA    InnerLoop
+
+                    LDA    bytes+1                          ; divide bytes / 1024
+                    LSR    A
+                    LSR    A
+                    AND    #%00000111                       ; how many 1k packets we got?
+                    BNE    got1kPackets
+                    JMP    send1kEntry
+
+got1kPackets        STA    packsRemain
+
+; number in packsRemain is the num of 1k byte packets remaining
+
+                    LDA    #<blockBuffer                    ; make it initially point to the
+                    STA    TEMP                             ; beginning of the block buffer
+                    LDA    #>blockBuffer
+                    STA    TEMP+1
+
+loop1kP             LDA    #tenErrors                       ; 10 retries
+                    STA    retry
+
+                    INC    PacketNum                        ; next ymodem block in series
+
+                    LDA    byteCount+1
+                    CLC
+                    ADC    #>1024
+                    STA    byteCount+1
+                    BCC    noroll1k
+                    INC    byteCount+2
+
+noroll1k            JSR    PrintCount                       ; print # of blocks sent (again)
+
+loop2Csum           LDA    #0
+                    STA    crc
+                    STA    crc+1
+
+                    JSR    Send1024
+                    BCS    loop2Csum                        ; not ok, resend the last block
+
+                    LDA    bytes                            ; keep byte count accurate
+                    SEC
+                    SBC    #<1024
+                    STA    bytes
+                    LDA    bytes+1
+                    SBC    #>1024
+                    STA    bytes+1
+
+                    DEC    packsRemain
+                    BNE    loop1kP
+
+                    LDA    bytes
+                    BNE    send128Stuff
+                    LDA    bytes+1
+                    AND    #%00000011
+                    BNE    send128Stuff
+                    LDA    #0
+                    STA    InnerLoop
+                    RTS
+
+send128Stuff        LDA    bytes                            ; packs remain after sending all of those
+                    ASL    A
+                    LDA    bytes+1
+                    ROL    A
+                    AND    #%00001111
+                    STA    packsRemain
+
+; number in packsRemain is the num of 128 byte packets remaining
+
+                    LDA    bytes                            ; if any bits are set in b128, then
+                    AND    #Clrhi
+                    BEQ    noinc128                         ; there was a remainder after the divide
+                    INC    packsRemain                      ; a remainder
+noinc128            JMP    send128PacketsLoop
+
+*-------------------------------------------------
+* printCString -- print the cstring pointed to by X & Y
+*
+* a space will also terminate this kind of string
+
+printCString        LDA    TEMP+1
+                    PHA
+                    LDA    TEMP
+                    PHA
+
+                    STX    TEMP
+                    STY    TEMP+1
+
+                    LDY    #0
+CSloop              LDA    (TEMP),Y
+                    BEQ    CSdone
+                    AND    #Clrhi
+                    CMP    #' '
+                    BEQ    CSdone
+                    JSR    VIDCOUT
+                    INY
+                    BRA    CSloop
+
+CSdone              PLA
+                    STA    TEMP
+                    PLA
+                    STA    TEMP+1
+                    RTS
+
+*-------------------------------------------------
+* print the pascal string at (TEMP) at current cursor loc
+
+printPString        LDY    #0
+                    LDA    (TEMP),Y                         ; get filename length byte
+                    STA    length
+
+PSloop              INY
+                    LDA    (TEMP),Y                         ; get character in filename
+                    JSR    VIDCOUT
+                    CPY    length
+                    BNE    PSloop
+                    RTS
+
+*-------------------------------------------------
+* long2Dec -- convert a 3 byte long to decimal
+
+long2Dec            LDA    #0                               ; reset total - convert and display an 8 digit
+                    STA    num+3                            ; number
+                    STA    num+4
+                    STA    num+5
+                    STA    num+6
+                    STA    num+7
+                    STA    num+8
+                    STA    num+9
+                    CLC
+
+                    SED
+                    LDY    #24                              ; use decimal mode - shift out 24 bits
+DecLoop             ASL    num
+                    ROL    num+1
+                    ROL    num+2                            ; do actual 'woz' conversion
+                    LDA    num+3
+                    ADC    num+3
+                    STA    num+3
+                    LDA    num+4
+                    ADC    num+4
+                    STA    num+4
+                    LDA    num+5
+                    ADC    num+5
+                    STA    num+5
+                    LDA    num+6
+                    ADC    num+6
+                    STA    num+6
+                    ROL    num+7
+                    DEY                                     ; loop down
+                    BNE    DecLoop
+                    CLD                                     ; done with decimal
+
+                    LDA    #0
+                    STA    at
+
+                    LDY    #8                               ; print 8 digits
+nextDecDigit        LDA    num+7                            ; get digit
+                    AND    #LoNibble
+                    BNE    notZero                          ; is it zero?
+
+                    BIT    num+8                            ; but, is it a leading zero?
+                    BPL    nextDigit                        ; yep
+
+notZero             DEC    num+8
+                    CLC
+                    ADC    #'0'                             ; print digit
+                    TAX
+                    INC    num+9
+
+                    TXA
+                    LDX    at
+                    STA    decimal,X                        ; put digit or spacer, no front spaces
+                    INC    at
+
+nextDigit           LDX    #3                               ; move up next digit
+DecLoop2            ASL    num+1
+                    ROL    num+2
+                    ROL    num+3
+                    ROL    num+4
+                    ROL    num+5
+                    ROL    num+6
+                    ROL    num+7
+                    DEX
+                    BPL    DecLoop2
+
+                    DEY                                     ; count down digits
+                    BMI    Decdone
+                    BNE    nextDecDigit
+
+                    STX    num+8                            ; print last zero for sure
+                    BPL    nextDecDigit
+
+Decdone             LDX    at                               ; store trailing zero in decimal for cstr
+                    LDA    #0
+                    STA    decimal,X
+                    RTS
+
+*-------------------------------
+* clear the last line to blanks
+
+clearLastLine       LDY    #0
+                    STY    CH
+cLoop               LDA    #' '+128
+                    JSR    VIDCOUT
+                    INY
+                    CPY    #79
+                    BLT    cLoop
+                    LDY    #0
+                    STY    CH
+                    RTS
+
+*-------------------------------------------------
+* Text Strings
+
+YmodemText          STR    'Ymodem'
+
+ProtocolTAddr       DA     stdcsum
+                    DA     procsum
+                    DA     stdcrc
+                    DA     procrc
+                    DA     std1k
+                    DA     pro1k
+                    DA     std4k
+                    DA     pro4k
+
+pro4k               STR    '4modem / AE'
+std4k               STR    '4modem'
+pro1k               STR    'Xmodem-1k / AE'
+std1k               STR    'Xmodem-1k'
+procrc              STR    'CRC-Xmodem / AE'
+stdcrc              STR    'CRC-Xmodem'
+procsum             STR    'Xmodem / AE'
+stdcsum             STR    'Xmodem'
+
+ScreenTxt           STR    'Bytes:         Errs:      Consec:   Mode:                  File:'
+FinalBlock          STR    'Final Packet'
+CODEEND             =      *
+
+*-------------------------------------------------
+* Data segment
+
+timeOut             DW     0                                timeout
+ConsecErr           DB     0                                #
+crc                 DW     0                                crc
+CheckSum            DB     0                                checksum
+LastChar            DB     0                                last
+PacketNum           DB     0                                block
+retry               DB     0                                retry
+ctries              DB     0                                look
+transtype           DB     0
+length              DB     0                                length
+InnerLoop           DB     0                                are
+UseCsum             DB     0                                0=
+LastPacket          DB     0                                was
+gflag               DB     0                                ymodem-g?
+ackflag             DB     0                                1=no
+SendSmall           DB     0                                send
+ErrorsBefore        DB     0                                how
+bytes               DW     0                                #
+packsRemain         DB     0
+at                  DB     0
+num                 DS     10
+decimal             DS     10
+lastVBL             DB     0
+sixty               DW     0
+waitFOR             DW     120
+tempcrc             DW     0
+
+pdSource            ORG    pdData
+*
+* parms for open call
+*
+openParms           DB     3                                parm_count
+                    DA     filename                         filename
+                    DA     FBUF2                            buffer
+                    DB     0                                ref_num
+*
+* ReadParms -- parameters for prodos read call
+*
+ReadParms           DB     4                                #
+                    DB     0                                ref_num
+                    DA     blockBuffer                      where
+                    DW     0                                how
+                    DW     0                                how
+*
+* close parameter list
+*
+CloseParms          DB     1                                number
+                    DB     0                                ref_num
+*
+* Getinfo parameter list
+*
+GFIParms            DB     10
+                    DA     filename
+                    DB     0
+                    DB     0
+                    DW     0
+                    DB     0
+                    DW     0
+                    DW     0
+                    DW     0
+                    DW     0
+                    DW     0
+*
+* GetEOF Parameter List
+*
+GetEOFParms         DB     2                                parameter
+                    DB     0
+                    DS     3
+*
+* storage for our filename
+*
+filename            DS     64
+
+pdLen               =      *-pdData
+                    ORG
+
+parmStrt            ORG    FREESPACE
+*
+* Get/Set File info parms
+*
+ParmList            DB     destroyEnable+renameEnable+writeEnable+readEnable
+                    DB     Txt                              filetype
+                    DW     0                                auxtype
+                    DB     Seedling                         not
+                    DW     0                                blocks_used
+                    DW     0                                mod
+                    DW     0                                mod
+                    DW     0                                create
+                    DW     0                                create
+*
+* EOF Parms to set the proper end of the file
+*
+EOFParms            DB     2                                parm
+                    DB     0                                ref_number
+                    DS     3
+
+BlockCount          DW     0                                blocks
+TotalErr            DW     0                                total
+byteCount           DS     3
+parmsLen            =      *-FREESPACE
+                    ORG
+
diff --git a/SOURCE/PROTOUP.S b/SOURCE/PROTOUP.S
new file mode 100644
index 0000000..fd65596
--- /dev/null
+++ b/SOURCE/PROTOUP.S
@@ -0,0 +1,1660 @@
+*-------------------------------------------------
+* Xmodem/Ymodem uploads for LLUCE
+*-------------------------------------------------
+* use "a:protocol.up",100,1,"L10:","               " = batch
+* use "a:protocol.up",100,0,"L10:NEW.FILE" = single file
+*-------------------------------------------------
+                DATE
+*-------------------------------------------------
+
+Id              =      3
+Aux             =      1
+
+                LST    OFF
+                LSTDO  OFF
+                XC
+                TR
+                TR     ADR
+                EXP    ONLY
+Y               =      1
+y               =      1
+N               =      0
+n               =      0
+NOLIST          =      Y
+                DO     NOLIST
+LISTOBJ         =      N
+LISTSYM         =      N
+                ELSE
+LISTOBJ         KBD    'List This Source? (Y/N)'
+LISTSYM         KBD    'List Symbol Table? (Y/N)'
+                FIN
+                DO     LISTOBJ
+                LST
+                FIN
+                LST    OFF
+                PUT    EQUATES/EQUATES
+                PUT    EQUATES/OS.EQUATES
+                PUT    EQUATES/ENTRY
+                PUT    EQUATES/DRIVEREQU
+
+]TYPE           =      ^overlays                                           ; set file type
+]AUX            =      overlays                                            ; and aux type
+                ORG    ]AUX                                                ; must be this way
+                TYP    ]TYPE
+
+                DSK    /MAIN/LLUCE/SYSTEM/PROTOCOL.UP
+                LST    RTN
+
+                TTL    'LLUCE - Xmodem/Ymodem Uploads'
+
+HEADER          DB     Id
+                DA     Aux
+                DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+                DW     CODEEND-main
+                DW     0                                                   ; CRC Goes Here
+
+                ORG    $D000
+
+*-------------------------------------------------
+* General Global equates
+
+failflag        =      PRN
+tmode           =      PRN+1
+
+blockBuffer     =      ENDMOD                                              ; $9B00 need 1k space for block buffer
+crcLo           =      ENDMOD+$1100                                        ; $AC00 crc table addresses
+crcHi           =      crcLo+$100                                          ; $AD00
+pdData          =      crcHi+$100                                          ; $AE00
+
+*-------------------------------------------------
+* Program starts here...
+
+main            JMP    dostart
+                JMP    dostart
+
+*-------------------------------------------------
+* actual xmodem routines begin here
+
+dostart         LDX    #pdLen                                              ; move ProDOS lists into place
+movePd          LDA    pdSource-1,X
+                STA    pdData-1,X
+                DEX
+                BNE    movePd
+
+                LDX    #parmsLen                                           ; move LLUCE readable parms into place
+moveParm        LDA    parmStrt-1,X
+                STA    FREESPACE-1,X
+                DEX
+                BNE    moveParm
+
+                LDA    #0
+                STA    CH
+                STA    UseCsum                                             ; don't use checksum initially
+                STA    PacketNum
+                STA    packet1k
+                STA    packet4k
+                STA    failflag                                            ; innocent until proven guilty
+                STA    KBDSTRB                                             ; reset the keyboard strobe
+                STA    byteCount                                           ; zero out block count lo
+                STA    byteCount+1                                         ; zero out block count hi
+                STA    byteCount+2
+                STA    TotalErr
+                STA    TotalErr+1
+                STA    ConsecErr
+                STA    BatchMode                                           ; batchmode = false
+                STA    RenameTries                                         ; 0 rename tries
+
+                LDA    #40                                                 ; 40 retries for the first
+                STA    retry                                               ; header block.. fast ones
+
+                LDY    #ioLocal
+                JSR    SETOVEC                                             ; sysop local output vector
+
+                JSR    GOBCOM
+                JSR    INPNUM                                              ; get timeout
+
+                CMP    #>400                                               ; make the timeout have a minimum
+                BEQ    tooSmall                                            ; if the high byte's equal, see if the low byte
+                BGE    largeEnough                                         ; is at least 400
+                BLT    waySmall                                            ; -- and if it's less than, it's way too small
+
+tooSmall        CPX    #<400
+                BGE    largeEnough
+
+waySmall        LDA    #>400                                               ; otherwise, default to at least 400 ticks
+                LDX    #<400
+
+largeEnough     =      *
+                STX    timeOut
+                STX    waitFOR
+                STA    timeOut+1
+                STA    waitFOR+1
+
+                JSR    GOBCOM                                              ; get protocol
+                JSR    INPNUM
+                BNE    die
+
+                CPX    #batchMd
+                BEQ    Intelligent                                         ; is it 0? yes, intelligent
+                STX    BatchMode                                           ; batchmode = true
+                STX    tmode                                               ; 1=ymodem,2=ymodem-4k
+                JMP    Ybatch                                              ; yes, batch ymodem
+
+die             LDA    #parmSyntax                                         ; syntax error
+                STA    failflag
+
+                LDY    #ioBoth                                             ; it's ok to exit from here since we didn't yet
+                JSR    SETOVEC                                             ; trash any of main memory (we better not have)
+                RTS
+
+*-------------------------------------------------
+* start of intelligent protocol routines
+
+Intelligent     JSR    GOBCOM                                              ; search for first delimiter
+                JSR    MOVNAME                                             ; get pathname in buff
+
+                LDA    #<FLNAME
+                STA    TEMP
+                LDA    #>FLNAME
+                STA    TEMP+1
+
+                LDY    #0                                                  ; get length of filename
+                LDA    (TEMP),Y
+                STA    Filename
+                TAY
+fname           LDA    (TEMP),Y                                            ; move acos's filename to ours
+                STA    Filename,Y
+                DEY
+                BNE    fname
+
+                JSR    maketable                                           ; go make the crc table...
+
+                LDX    #<ScreenText
+                LDY    #>ScreenText
+                JSR    printPString                                        ; put the mode stuff on the screen
+
+                JSR    PrintCount                                          ; print the block count on the screen
+                JSR    PrintErr                                            ; print the # of errors on the screen
+
+                LDA    #52
+                STA    CH
+
+                LDX    #<Filename                                          ; print filename as pascal string
+                STX    DestroyParms
+                LDY    #>Filename
+                STY    DestroyParms+1
+                JSR    printPString
+
+                JSR    MLI                                                 ; create our output file
+                DB     Create
+                DA     CreateParms
+
+                JSR    MLI
+                DB     Open
+                DA     OpenParms
+                BCC    xstart
+
+                STA    failflag                                            ; store error in peek(10)
+                JMP    errout
+
+*-------------------------------------------------
+* The actual x/ymodem routines start here
+
+xstart          LDA    OpenParms+5
+                STA    CloseParms+1
+                STA    EOFParms+1                                          ; save for eof parms
+                STA    WriteParms+1                                        ; save for write parms
+
+                LDA    #destroyEnable+renameEnable+readEnable+writeEnable
+                STA    SFIParms+3                                          ; access = unlocked
+
+                JMP    aeheader
+
+*-------------------------------------------------
+* ae header error
+
+headerr         DEC    retry
+                BNE    aeheader
+                LDA    #headerErr                                          ; flag header timeout
+                JMP    errend
+
+*-------------------------------------------------
+* attempt to get the ae header and set proper protocol
+
+aeheader        LDA    #0
+aelup           STA    LastChar
+                JSR    input
+                BCC    aeclear                                             ; if channel is clear,
+
+                CMP    #can                                                ; is it a <Can>?
+                BNE    aechkSOH
+                CMP    LastChar
+                BNE    aechkSOH
+                JMP    errend
+
+aechkSOH        JSR    sohEntry                                            ; check for send of headers
+                BCC    aegotHdr                                            ; hey!  we got a header too soon
+                BCS    aelup                                               ; must have been line noise... weird
+
+aeclear         JSR    ck_out                                              ; output a nak to start trans.
+                JSR    sohchk                                              ; look for start of header
+                BCS    headerr                                             ; something wrong->start over
+
+aegotHdr        CMP    #eot                                                ; is this the EOT?
+                BEQ    headerr                                             ; if so, something's screwed...
+
+                LDA    #41
+                STA    CH
+
+                LDA    retry
+                CMP    #8
+                BCC    xcsum
+
+                LDA    #crcXmdm
+                STA    tmode                                               ; set transfer mode to crc
+
+                LDX    #<crcmsg
+                LDY    #>crcmsg
+                JSR    printPString
+                JMP    show
+
+xcsum           LDA    #yModem
+                STA    tmode                                               ; set transfer mode to checksum
+                STA    UseCsum                                             ; tell them we're using checksum mode
+
+                LDX    #<csummsg
+                LDY    #>csummsg
+                JSR    printPString
+
+show            LDA    #46
+                STA    CH
+
+                LDA    LastChar                                            ; chk last sent char for hi bit
+                CMP    #soh+Hibit
+                BNE    xset                                                ; must not be AE
+
+                JSR    input                                               ; get input
+                BCC    headErrJMP                                          ; nothing there
+                STA    LastChar                                            ; otherwise, save it
+                JSR    input                                               ; get next input
+                BCC    headErrJMP                                          ; nothing there
+                EOR    #-1                                                 ; otherwise, flip its bits
+                CMP    LastChar                                            ; and see if it's first eored
+                BNE    headErrJMP
+                JSR    ackout                                              ; send ack
+
+                LDA    #tenErrors
+                STA    retry
+
+                LDX    #<promsg
+                LDY    #>promsg
+                JSR    printPString
+
+                INC    PacketNum                                           ; receiving packet #1
+                JMP    nextblock                                           ; start crc xmodem packet receive
+
+headErrJMP      JMP    headerr
+
+*-------------------------------------------------
+* Set standard xmodem send if there was some problem with ae
+
+xset            LDX    #<standardMsg
+                LDY    #>standardMsg
+                JSR    printPString
+
+                LDA    #tenErrors
+                STA    retry
+
+                DEC    tmode
+                INC    PacketNum                                           ; receiving packet #1
+                JMP    standard
+
+*-------------------------------------------------
+* Print a character on Sysop's screen, dec err count
+
+Error           INC    TotalErr
+                BNE    ernoroll
+                INC    TotalErr+1
+ernoroll        LDA    retry
+                CMP    #tenErrors
+                BNE    ENoConsec
+
+                INC    ConsecErr
+
+ENoConsec       JSR    PrintErr
+                JSR    nakout                                              ; send <nak>, bad something
+                DEC    retry                                               ; more retries?
+                BNE    ErrEntry                                            ; yep, once more..till 10
+                LDA    #blockErr                                           ; more than 2 consecutive errors
+                JMP    errend                                              ; nope, end it all
+
+*-------------------------------------------------
+* get a block
+
+nextblock       LDA    #tenErrors
+                STA    retry
+
+ErrEntry        JSR    sohchk
+                BCS    Error
+                JSR    CheckEOT
+
+standard        LDA    LastChar                                            ; entry point for standard
+                STA    blk_type
+
+                JSR    blkchk
+                BCS    Error
+
+                LDA    blk_type
+                CMP    #soh
+                BEQ    get_128
+                CMP    #stx
+                BEQ    x1024
+
+x4096           JSR    Get4096
+                BCS    Error
+                BCC    write_it
+
+x1024           JSR    Get1024
+                BCS    Error
+                BCC    write_it
+
+get_128         LDA    UseCsum
+                BNE    csum128
+
+                JSR    Get128CRC
+                BCS    Error
+                BCC    write_it
+
+csum128         JSR    Get128Csum
+                BCS    Error
+
+write_it        JSR    WriteBuffer
+
+                JSR    ackout                                              ; send ack
+                JMP    nextblock
+
+*-------------------------------------------------
+* check for end of transfer
+
+CheckEOT        LDA    LastChar                                            ; get last char sent
+                CMP    #eot                                                ; is it a Eot flag?
+                BEQ    EOTdone                                             ; yes, end it
+                RTS                                                        ; and back to caller
+
+EOTdone         LDA    BatchMode                                           ; were we in batch mode for this?
+                BEQ    FileEOT                                             ; yes, finish as batch
+
+                JMP    BatchEOT                                            ; nope, finish as batch mode
+
+*-------------------------------------------------
+* yeah! that's all she wrote
+
+FileEOT         PLA                                                        ; get rid of return address
+                PLA
+                JSR    ackout                                              ; send ack
+                LDA    tmode                                               ; get trans mode
+
+                CMP    #yModem
+                BEQ    get_foot
+                CMP    #crcXmdm
+                BEQ    get_foot
+NoFoot          JMP    aeskip
+
+*-------------------------------------------------
+* start with ae footer packet
+
+get_foot        LDY    #6                                                  ; set prodos footer retry count
+fLoop           DEY                                                        ; decrement count
+                BEQ    NoFoot
+                LDA    #syn                                                ; $16 = syn (prodos proto)
+                JSR    MDMOUT                                              ; send it
+                JSR    input                                               ; get input
+                CMP    #etb                                                ; is it $17 (etb prodos proto)
+                BNE    fLoop                                               ; not etb, retry
+
+                LDA    #tenErrors                                          ; init to 10
+                STA    retry                                               ; retry counter
+                JMP    Footer
+
+*-------------------------------------------------
+* prodos parms error restart
+
+FootErr         INC    TotalErr
+                BNE    fenoroll
+                INC    TotalErr+1
+fenoroll        LDA    retry
+                CMP    #tenErrors
+                BNE    FNoConsec
+
+                INC    ConsecErr
+
+FNoConsec       JSR    PrintErr
+                JSR    nakout
+                DEC    retry
+                BNE    Footer
+                LDA    #footerErr                                          ; footer error
+                JMP    errend
+
+*-------------------------------------------------
+* prodos MLI info packet
+
+Footer          JSR    nakout                                              ; send a nak
+
+                LDA    #%10101010
+                STA    PacketNum
+                JSR    sohchk                                              ; look for soh
+                BCS    FootErr                                             ; wrong-retry
+
+                JSR    blkchk
+                BCS    FootErr
+
+                LDA    #<SFIParms
+                STA    TEMP
+                LDA    #>SFIParms
+                STA    TEMP+1
+
+                LDA    UseCsum
+                BNE    csumFoot
+
+                JSR    Get128CRC
+                BCS    FootErr
+                BCC    Footdone
+
+csumFoot        JSR    Get128Csum
+                BCS    FootErr
+
+Footdone        JSR    ackout
+
+*-------------------------------------------------
+* set the end of the file
+
+seteof          LDA    #2                                                  ; fill-in # of parameters
+                STA    EOFParms
+                LDA    OpenParms+5                                         ; fill-in ref_num
+                STA    EOFParms+1
+
+                JSR    MLI
+                DB     Seteof
+                DA     EOFParms
+                JSR    closefile
+
+                LDA    #7                                                  ; set info parm
+                STA    SFIParms                                            ; count
+                LDA    #<Filename                                          ; anything previous was detroyed
+                STA    SFIParms+1                                          ; so we put the correct path there
+                LDA    #>Filename                                          ; and hope it works..har
+                STA    SFIParms+2
+
+                JSR    MLI
+                DB     Setinfo                                             ; set info from what we given it
+                DA     SFIParms
+
+                LDY    #19
+mloop           LDA    SFIParms+3,Y                                        ; move all 20 bytes
+                STA    ParmList,Y
+                DEY
+                BPL    mloop
+
+aeskip          JSR    closefile                                           ; skip everything about the file
+
+                LDA    packet1k                                            ; check for 1k blocks
+                BEQ    none
+                INC    tmode
+                INC    tmode
+                LDA    packet4k                                            ; check for 4k blocks
+                BEQ    none
+                INC    tmode
+                INC    tmode
+
+none            JMP    errout                                              ; clear line and leave
+
+*-------------------------------------------------
+* Batch Ymodem starts here
+
+Ybatch          JSR    GOBCOM                                              ; gobble the comma
+                JSR    INPSTR                                              ; get the first string
+                CPY    #fnMaxLen                                           ; is it >= than 15?
+                BEQ    do_ymodem                                           ; yes, go there
+
+                LDA    #parmSyntax
+                STA    failflag
+                RTS
+
+*-------------------------------------------------
+* error routine - errors within the transfer
+
+BatchError      INC    TotalErr
+                BNE    benoroll
+                INC    TotalErr
+benoroll        JSR    PrintErr
+                JSR    nakout
+
+nonak           DEC    retry
+                BNE    do_ymodem
+                LDA    #headerErr                                          ; fatal header error
+                JMP    no_del
+
+*-------------------------------------------------
+* here begin most of the important ymodem routines
+
+do_ymodem       JSR    clrstring
+
+                LDA    #0
+                STA    CH
+
+                LDX    #<ScreenText
+                LDY    #>ScreenText
+                JSR    printPString                                        ; put the mode stuff on the screen
+                JSR    PrintCount                                          ; print the block count on the screen
+                JSR    PrintErr                                            ; print the # of errors on the screen
+
+                JSR    maketable                                           ; quick! make the crc-table!
+
+                LDA    #0
+ylup            STA    LastChar
+                JSR    input
+                BCC    yclear
+
+                CMP    #can                                                ; is it a <Can> character?
+                BNE    ychkSOH
+                CMP    LastChar
+                BNE    ychkSOH
+                JMP    errend
+
+ychkSOH         JSR    sohEntry                                            ; is is a block header?
+                BCC    ygotHdr
+                BCS    ylup                                                ; must've been line noise...
+
+yclear          LDX    tmode                                               ; using ymodem or ymodem-4k?
+                DEX                                                        ; was 1 or 2, now 0 or 1
+                LDA    startsig,X                                          ; clear channel, send the 'c'
+                JSR    MDMOUT                                              ; send it
+
+                JSR    sohchk                                              ; get header
+                BCS    nonak                                               ; something went wrong...
+
+ygotHdr         LDA    LastChar
+                CMP    #soh                                                ; must be small header packet
+                BNE    BatchError                                          ; nope, we got problems
+
+                JSR    blkchk                                              ; make sure the next 2 bytes
+                BCS    BatchError                                          ; are in sync
+
+                JSR    Get128CRC                                           ; get a small packet
+                BCS    BatchError
+
+                LDA    blockBuffer                                         ; get first byte of packet
+                BNE    proc_file                                           ; 0? nope, process file...
+
+                JSR    ackout                                              ; yeah! end of transfer
+                JMP    errout                                              ; string is already clear so end
+
+*-------------------------------------------------
+* continue with file transfer since there is a filename
+
+proc_file       LDY    #0                                                  ; calculate length of file
+len_loop        LDA    blockBuffer,Y                                       ; get a byte of the filename
+                AND    #Clrhi                                              ; strip the high bit
+                BEQ    endname
+
+                CMP    #'.'
+                BEQ    valid
+
+                CMP    #'z'+1
+                BGE    notValid
+
+                CMP    #'a'                                                ; if it's lowercase, make it uppercase
+                BLT    notLower
+                SEC
+                SBC    #CaseDiff
+                JMP    valid
+
+notLower        CMP    #'Z'+1
+                BGE    notValid
+                CMP    #'A'
+                BGE    valid
+                CMP    #':'
+                BGE    notValid
+                CMP    #'0'
+                BGE    valid
+
+notValid        LDA    #'.'
+valid           STA    Filename+1,Y                                        ; put it at the filename
+                INY
+                CPY    #fnMaxLen
+                BLT    len_loop                                            ; loop until a (0) found or we hit 15 chars
+
+                LDY    #fnMaxLen
+endname         STY    Filename                                            ; save length of file
+
+                LDA    Filename+1                                          ; make sure the first character is an alpha char
+                CMP    #'A'
+                BGE    firstIsAlpha
+                LDA    #'A'
+                STA    Filename+1
+
+firstIsAlpha    =      *
+                LDA    blockBuffer+64                                      ; is it proterm special batch?
+                CMP    #']'-Ctrl
+                BEQ    proterm                                             ; yes, flag as such
+                LDA    #fileMd                                             ; nope, must be 'standard' batch
+                STA    batchtype
+
+                LDA    #0
+                STA    EOFParms+2
+                STA    EOFParms+3
+                STA    EOFParms+4
+                JSR    prntext
+
+                LDX    #0
+bLoop           LDA    blockBuffer,X
+                BEQ    foundEnd
+                INX
+                BNE    bLoop
+                JMP    noEnd
+
+foundEnd        INX                                                        ; next character in buffer is the file length
+                LDA    blockBuffer,X
+                BEQ    noEnd
+
+                LDA    #','
+                JSR    VIDCOUT
+                LDA    #' '
+                JSR    VIDCOUT
+
+                TXA                                                        ; according to true ymodem
+                CLC
+                ADC    #<blockBuffer
+                TAX
+                LDA    #>blockBuffer
+                ADC    #0
+                TAY
+                JSR    printCString
+noEnd           JMP    CreateAgain
+
+proterm         LDA    #batchMd
+                STA    batchtype
+
+                LDY    #19
+ptmloop         LDA    blockBuffer+69,Y                                    ; move the gfi parms and
+                STA    SFIParms+3,Y                                        ; eof parms, all 20 bytes
+                STA    ParmList,Y
+                DEY
+                BPL    ptmloop
+
+                JSR    prntext
+
+                LDA    #2                                                  ; make sure the parameter
+                STA    EOFParms                                            ; count is correct
+                LDA    #7
+                STA    SFIParms
+
+                LDA    SFIParms+7                                          ; get storage type for file
+* lda #1
+                STA    CreateParms+7                                       ; store it for creation
+                LDA    #<Filename                                          ; get pathname for file
+                LDX    #>Filename
+                STA    SFIParms+1                                          ; store it for later on
+                STX    SFIParms+2                                          ; when doing the sfi call
+
+CreateAgain     =      *
+                JSR    MLI
+                DB     Create                                              ; create a file
+                DA     CreateParms                                         ; create params
+                BCC    create_ok                                           ; continue if ok
+
+*-------------------------------------------------
+* File creation was in error
+
+Pro_Err         CMP    #dupPathname                                        ; is it a duplicate filename?
+                BNE    killFile
+
+                INC    RenameTries
+                LDA    RenameTries
+                CMP    #'Z'-Ctrl
+                BNE    ProErrok
+                LDA    #dupPathname                                        ; duplicate filename error
+                STA    failflag
+                JMP    no_del
+
+ProErrok        LDY    Filename
+                CPY    #fnMaxLen
+                BGE    got15
+
+                INY
+                LDA    #'.'
+                STA    Filename,Y
+                STY    Filename
+                JMP    CreateAgain
+
+got15           LDA    Filename+2
+                CMP    'Z'
+                BEQ    makeA
+                INC    Filename+2
+                JMP    CreateAgain
+
+makeA           LDA    #'A'
+                STA    Filename+2
+                JMP    CreateAgain
+
+killFile        STA    failflag
+                JSR    clrstring
+                JMP    no_del
+
+*-------------------------------------------------
+* Continue with the transfer if file create was successful
+
+create_ok       LDY    Filename                                            ; move filename to string
+cloop2          LDA    Filename,Y
+                DEY
+                STA    (STRLOC),Y
+                CPY    #0
+                BNE    cloop2
+
+                JSR    MLI
+                DB     Open                                                ; open
+                DA     OpenParms                                           ; open params
+                BCC    openOK
+
+                PHA
+                JSR    clrstring
+                PLA
+                JMP    errend
+
+openOK          LDA    OpenParms+5                                         ; number of open file??
+                STA    EOFParms+1
+                STA    WriteParms+1
+                STA    CloseParms+1
+                JSR    ackout
+
+                LDA    #60                                                 ; change the length to wait
+                STA    waitFOR
+                LDA    #0
+                STA    waitFOR+1
+cloop           JSR    input                                               ; look for input for 0.5 second
+                BCS    cloop                                               ; keep waiting till nothing is incoming
+                LDA    timeOut
+                STA    waitFOR
+                LDA    timeOut+1
+                STA    waitFOR+1
+
+                LDX    tmode                                               ; get either the C or 4
+                DEX
+                LDA    startsig,X
+                JSR    MDMOUT
+
+                JMP    nextblock                                           ; go get a *LOT* of blocks
+
+*-------------------------------------------------
+* <ack> output routine
+
+ackout          LDX    ConsecErr
+                LDA    #0                                                  ; we got something good, no consec errs
+                STA    ConsecErr
+                CPX    #0                                                  ; did we have any consec?
+                BEQ    resetErr                                            ; nope, don't erase anything
+                JSR    PrintErr                                            ; yes, erase the consec
+
+resetErr        LDA    #ack                                                ; get ack
+                JMP    MDMOUT                                              ; send it out the modem
+
+*-------------------------------------------------
+* <nak> output routine
+
+nakout          LDA    #60
+                STA    waitFOR
+                LDA    #0
+                STA    waitFOR+1
+
+noloop          JSR    input                                               ; look for input
+                BCS    noloop                                              ; keep waiting till nothing is incoming
+                LDA    timeOut
+                STA    waitFOR
+                LDA    timeOut+1
+                STA    waitFOR+1
+
+                LDA    #nak                                                ; get nak
+                JMP    MDMOUT                                              ; send it and return to caller
+
+*-------------------------------------------------
+* Send a 'CKL' to start transmission
+
+ck_out          JSR    MDMDCD
+                BCC    clrstk
+
+                LDA    retry
+                CMP    #8                                                  ; is this the 8th retry?
+                BCC    send_nak                                            ; yes, start sending <nak>s
+
+send_ck         JSR    MDMIN                                               ; look for input
+                BCS    send_ck                                             ; keep waiting till nothing is incoming
+                LDA    #'C'                                                ; get C
+                JSR    MDMOUT                                              ; send it
+                LDA    #'K'                                                ; get K
+                JSR    MDMOUT                                              ; send it
+                LDA    #'L'                                                ; get L
+                JMP    MDMOUT                                              ; have sent <C><K><L>
+
+send_nak        JSR    MDMIN                                               ; look for input
+                BCS    send_nak                                            ; keep waiting till nothing is incoming
+                LDA    #nak                                                ; get nak
+                JMP    MDMOUT                                              ; send it and return to caller
+
+*-------------------------------------------------
+* write xxxx bytes to file
+
+WriteBuffer     STX    WriteParms+4
+                STA    WriteParms+5
+
+                JSR    MLI
+                DB     Write
+                DA     WriteParms
+                BCS    clrstk                                              ; onerr exit...
+                RTS                                                        ; return to caller
+
+*-------------------------------------------------
+* clrstk and errend go together...
+
+clrstk          TAX                                                        ; save our error number
+                PLA                                                        ; pull extra return
+                PLA
+                TXA                                                        ; restore our error number
+
+errend          STA    failflag                                            ; store our error in failflag
+                JSR    closefile
+                JSR    destroyfile
+
+no_del          JSR    closefile
+
+                LDY    #6                                                  ; send 5 <Can> characters
+                LDA    #can
+canloop         JSR    MDMOUT
+                DEY
+                BNE    canloop
+
+                LDY    #6                                                  ; followed by 5 backspace characters
+                LDA    #bs
+bs_loop         JSR    MDMOUT
+                DEY
+                BNE    bs_loop
+                JMP    errout
+
+*-------------------------------------------------
+* get header routine... sec=no sohchk, clc=sohchk
+
+sohchk          LDA    KYBD                                                ; read the keyboard
+                BPL    nopress                                             ; anyone pressed a key? nope
+                CMP    #escKey                                             ; yes, is it the escape key?
+                BEQ    clrstk                                              ; yes, exit violently
+                STA    KBDSTRB                                             ; no, reset strobe, continue
+
+nopress         LDA    #0
+                STA    crc                                                 ; init the crc counter
+                STA    crc+1
+                STA    CheckSum
+
+                JSR    MDMDCD                                              ; is caller still there?
+                BCC    clrstk                                              ; no, exit
+                JSR    input                                               ; yes, get some data
+                BCC    sohbad                                              ; nothing there, lose it
+
+sohEntry        CMP    #can                                                ; is it a <Can>?
+                BNE    continue                                            ; no, continue
+                CMP    LastChar                                            ; yes, is it 2 in a row?
+                BEQ    clrstk                                              ; yes, leave suddenly
+
+continue        STA    LastChar
+                CMP    #eot
+                BEQ    SOHok
+                CMP    #sstx                                               ; is it a 4k packet?
+                BEQ    xlarge                                              ; yes, go handle it
+                CMP    #stx                                                ; is it a large packet?
+                BEQ    large                                               ; go handle it
+                AND    #Clrhi                                              ; strip high off for AE mode
+                CMP    #soh
+                BNE    sohbad                                              ; nothing we've ever seen
+SOHok           CLC
+                RTS
+
+large           LDY    #1
+                STY    packet1k
+                CLC
+                RTS
+
+xlarge          LDY    #1
+                STY    packet4k
+                CLC
+                RTS
+
+sohbad          SEC
+                RTS
+
+*-------------------------------------------------
+* get input - sec=input, clc=no input
+*  wait up to 1 second before timing out
+
+input           LDA    #0
+                STA    lastVBL
+                STA    sixty                                               ; sixtieths of a second we've waited
+                STA    sixty+1
+
+inploop         JSR    MDMIN                                               ; get byte from modem
+                BCC    no_inp                                              ; nothing there, adjust loop counters
+                RTS
+
+no_inp          LDA    VBL                                                 ; has there been a change?
+                AND    #Hibit                                              ; mask all but high bit
+                CMP    lastVBL                                             ; look for a change in the value
+                BEQ    inploop                                             ; indicating a transition
+
+                STA    lastVBL
+
+                INC    sixty
+                BNE    innoroll
+                INC    sixty+1
+
+innoroll        LDA    sixty
+                CMP    waitFOR
+                BNE    inploop
+                LDA    sixty+1
+                CMP    waitFOR+1
+                BNE    inploop
+
+                CLC                                                        ; input was bad
+                LDA    #0
+                RTS
+
+*-------------------------------------------------
+* check block number and complement
+
+blkchk          LDA    #<blockBuffer
+                STA    TEMP
+                LDA    #>blockBuffer
+                STA    TEMP+1
+
+                JSR    input                                               ; get input
+                BCC    setrts                                              ; nothing there
+                STA    LastChar                                            ; otherwise, save it
+                CMP    PacketNum                                           ; is it the current block #?
+                BNE    setrts                                              ; nope, return in error
+                JSR    input                                               ; get next input
+                BCC    setrts                                              ; nothing there
+                EOR    #-1                                                 ; otherwise, flip its bits
+                CMP    LastChar                                            ; and see if it's first eored
+                BNE    setrts
+
+                CLC                                                        ; otherwise flag ok
+                RTS                                                        ; and return
+
+setrts          SEC                                                        ; flag error
+                RTS                                                        ; and return
+
+*-------------------------------------------------
+* End of transmission
+
+BatchEOT        PLA
+                PLA
+                JSR    ackout                                              ; respond in kind
+
+                LDA    batchtype                                           ; if the kind of batch is forsberg
+                BNE    setok                                               ; then don't bother to Seteof
+
+                JSR    MLI
+                DB     Seteof
+                DA     EOFParms
+                BCC    setok
+err_jump        JMP    errend
+
+setok           JSR    closefile
+
+                LDA    batchtype                                           ; what kind of batch?
+                BNE    errout                                              ; forsberg, skip this step
+
+                JSR    MLI
+                DB     Setinfo                                             ; Setinfo
+                DA     SFIParms
+                BCS    err_jump                                            ; on error kill the file, exit
+
+errout          LDY    #0
+                STY    CH
+
+                LDA    #' '
+spcloop         JSR    VIDCOUT                                             ; clear bottom line...
+                INY
+                CPY    #79
+                BNE    spcloop
+
+                LDY    #0
+                STY    CH                                                  ; start at htab 0
+                JMP    SETOVEC                                             ; set #0 to output vector
+
+*-------------------------------------------------
+* Close whatever we have opened
+
+closefile       JSR    MLI
+                DB     Close                                               ; close
+                DA     CloseParms                                          ; close params
+                RTS
+
+*-------------------------------------------------
+* ProDOS MLI Destroy a file call
+
+destroyfile     JSR    MLI
+                DB     Destroy                                             ; destroy
+                DA     DestroyParms
+                RTS
+
+*-------------------------------------------------
+* print error count
+
+PrintErr        LDA    #20
+                STA    CH                                                  ; horizontal location
+                LDA    TotalErr                                            ; low
+                STA    num
+                LDA    TotalErr+1                                          ; high
+                STA    num+1
+                LDA    #0
+                STA    num+2
+                JSR    long2Dec                                            ; print it
+
+                LDX    #<decimal
+                LDY    #>decimal
+                JSR    printCString
+
+                LDA    #33
+                STA    CH
+                LDA    ConsecErr                                           ; low
+                STA    num
+                LDA    #0                                                  ; high
+                STA    num+1
+                STA    num+2
+                JSR    long2Dec                                            ; print it
+
+                LDX    #<decimal
+                LDY    #>decimal
+                JMP    printCString
+
+*-------------------------------------------------
+* print block count
+
+PrintCount      LDA    #6
+                STA    CH                                                  ; horizontal location
+
+                LDA    byteCount
+                STA    num
+                LDA    byteCount+1
+                STA    num+1
+                LDA    byteCount+2
+                STA    num+2
+
+                JSR    long2Dec
+
+                LDX    #<decimal
+                LDY    #>decimal
+                JMP    printCString
+
+*-------------------------------------------------
+* print Mode:Ymodem XSGFDGDFG, 12345678 on screen
+
+prntext         LDA    #41
+                STA    CH
+
+                LDX    #<YmodemText
+                LDY    #>YmodemText
+                JSR    printPString
+
+                LDA    #52
+                STA    CH
+
+                LDX    #<Filename
+                LDY    #>Filename
+                JSR    printPString
+*
+*  calculate xmodem blocks
+*
+                LDA    EOFParms+2                                          ; get EOF, place it at num
+                STA    num
+                LDA    EOFParms+3
+                STA    num+1
+                LDA    EOFParms+4
+                STA    num+2
+                BNE    printSomething
+
+                LDA    num+1
+                BNE    printSomething
+                LDA    num
+                BEQ    printNothing
+
+printSomething  =      *
+                LDA    #','
+                JSR    VIDCOUT
+                LDA    #' '
+                JSR    VIDCOUT
+
+                JSR    long2Dec
+
+                LDX    #<decimal
+                LDY    #>decimal
+                JSR    printCString
+
+printNothing    =      *
+                RTS
+
+*-------------------------------------------------
+* long2Dec -- convert a 3 byte long to decimal
+
+long2Dec        LDA    #0                                                  ; reset total - convert and display an 8 digit
+                STA    num+3                                               ; number
+                STA    num+4
+                STA    num+5
+                STA    num+6
+                STA    num+7
+                STA    num+8
+                STA    num+9
+                CLC
+
+                SED
+                LDY    #24                                                 ; use decimal mode - shift out 24 bits
+dLoop           ASL    num
+                ROL    num+1
+                ROL    num+2                                               ; do actual 'woz' conversion
+                LDA    num+3
+                ADC    num+3
+                STA    num+3
+                LDA    num+4
+                ADC    num+4
+                STA    num+4
+                LDA    num+5
+                ADC    num+5
+                STA    num+5
+                LDA    num+6
+                ADC    num+6
+                STA    num+6
+                ROL    num+7
+                DEY                                                        ; loop down
+                BNE    dLoop
+                CLD                                                        ; done with decimal
+
+                LDA    #0
+                STA    at
+
+                LDY    #8                                                  ; print 8 digits
+nextDecDigit    LDA    num+7                                               ; get digit
+                AND    #LoNibble
+                BNE    notZero                                             ; is it zero?
+
+                BIT    num+8                                               ; but, is it a leading zero?
+                BPL    nextDigit                                           ; yep
+
+notZero         DEC    num+8
+                CLC
+                ADC    #'0'                                                ; print digit
+                TAX
+                INC    num+9
+
+                TXA
+                LDX    at
+                STA    decimal,X                                           ; put digit or spacer, no front spaces
+                INC    at
+
+nextDigit       LDX    #3                                                  ; move up next digit
+ndgloop         ASL    num+1
+                ROL    num+2
+                ROL    num+3
+                ROL    num+4
+                ROL    num+5
+                ROL    num+6
+                ROL    num+7
+                DEX
+                BPL    ndgloop
+
+                DEY                                                        ; count down digits
+                BMI    L2Ddone
+                BNE    nextDecDigit
+
+                STX    num+8                                               ; print last zero for sure
+                BPL    nextDecDigit
+
+L2Ddone         LDX    at                                                  ; store trailing zero in decimal for cstr
+                LDA    #0
+                STA    decimal,X
+                RTS
+
+*-------------------------------------------------
+* put 15 spaces in the filename string, regardless
+
+clrstring       LDA    #' '
+                LDY    #fnMaxLen-1                                         ; 15 characters
+csloop          STA    (STRLOC),Y                                          ; store at end of string
+                DEY                                                        ; next character
+                BPL    csloop                                              ; all done?
+                RTS                                                        ; yes, return
+
+*-------------------------------------------------
+* maketable -- make the crc table
+
+maketable       LDX    #0                                                  ; zero first page
+                LDA    #0
+mtloop1         STA    crcLo,X                                             ; zero crc lo bytes
+                STA    crcHi,X                                             ; zero crc hi bytes
+                INX
+                BNE    mtloop1
+
+* the following is the normal bitwise computation
+* tweeked a little to work in the table-maker
+*
+                LDX    #0                                                  ; number to do crc for
+fetch           TXA
+                EOR    crcHi,X                                             ; add byte into high
+                STA    crcHi,X                                             ; of crc
+
+                LDY    #8                                                  ; do 8 bits
+mtloop2         ASL    crcLo,X                                             ; shift current crc-16 left
+                ROL    crcHi,X
+                BCC    noadd
+
+* if previous high bit wasn't set, then don't add crc
+* polynomial ($1021) into the cumulative crc.  else add it.
+*
+                LDA    crcHi,X                                             ; add hi part of crc poly into
+                EOR    #>$1021                                             ; cumulative crc hi
+                STA    crcHi,X
+
+                LDA    crcLo,X                                             ; add lo part of crc poly into
+                EOR    #<$1021                                             ; cumulative crc lo
+                STA    crcLo,X
+noadd           DEY                                                        ; do next bit
+                BNE    mtloop2                                             ; done? nope, loop
+
+                INX                                                        ; do next number in series (0-255)
+                BNE    fetch                                               ; didn't roll over, so fetch more
+                RTS                                                        ; done
+
+*-------------------------------------------------
+* do a crc on a single byte in A, X is preserved, A is not
+
+do_crc          STA    tempcrc
+                TXA                                                        ; save X
+                PHA
+
+                LDA    tempcrc
+                EOR    crc+1                                               ; add byte into crc hi byte
+                TAX    to                                                  ; make offset into tables
+
+                LDA    crc                                                 ; get previous lo byte back
+                EOR    crcHi,X                                             ; add it to the proper table entry
+                STA    crc+1                                               ; save it
+
+                LDA    crcLo,X                                             ; get new lo byte
+                STA    crc                                                 ; save it back
+
+                PLA
+                TAX                                                        ; restore X
+                RTS                                                        ; all done
+
+*-------------------------------------------------
+* Check the incoming CRC-16
+
+chkcrc          JSR    input                                               ; is there input?
+                BCC    crcbad
+                CMP    crc+1
+                BNE    crcbad
+                JSR    input
+                BCC    crcbad
+                CMP    crc
+                BNE    crcbad
+                CLC
+                RTS
+
+crcbad          SEC
+                RTS
+
+*-------------------------------------------------
+* Get a 128 byte block verified with a checksum
+
+Get128Csum      LDY    #0                                                  ; zero out offset
+loop128c        JSR    input                                               ; get data sent
+                BCC    error8c
+                STA    (TEMP),Y                                            ; store in block buffer
+                CLC                                                        ; prepare for add
+                ADC    CheckSum                                            ; add to checksum
+                STA    CheckSum                                            ; and save it
+                INY                                                        ; bump offset for next data
+                BPL    loop128c                                            ; keep going for all 128 bytes
+
+                JSR    input                                               ; data done get checksum
+                BCC    error8c
+                CMP    CheckSum                                            ; his CheckSum same as ours?
+                BNE    error8c                                             ; let's try again
+
+                INC    PacketNum                                           ; bump block number counter
+
+                LDA    byteCount
+                CLC
+                ADC    #128
+                STA    byteCount
+                BCC    noroll8c
+                INC    byteCount+1
+                BNE    noroll8c
+                INC    byteCount+2
+noroll8c        JSR    PrintCount
+
+                LDX    #<128
+                LDA    #>128
+                CLC
+                RTS
+
+error8c         SEC
+                RTS
+
+*-------------------------------------------------
+* Get a 128 byte block
+
+Get128CRC       LDY    #0
+loop128x        JSR    input
+                BCC    error8x
+                STA    (TEMP),Y
+                JSR    do_crc
+                INY
+                BPL    loop128x
+
+                JSR    chkcrc
+                BCS    error8x
+
+                INC    PacketNum
+
+                LDA    byteCount
+                CLC
+                ADC    #128
+                STA    byteCount
+                BCC    noroll8x
+                INC    byteCount+1
+                BNE    noroll8x
+                INC    byteCount+2
+noroll8x        JSR    PrintCount
+
+                LDX    #<128
+                LDA    #>128
+                CLC
+                RTS
+
+error8x         SEC
+                RTS
+
+*-------------------------------------------------
+* get a 1024 byte block
+
+Get1024         LDX    #4
+                LDY    #0
+loop24          JSR    input
+                BCC    error24
+                STA    (TEMP),Y
+                JSR    do_crc
+                INY
+                BNE    loop24
+                INC    TEMP+1
+                DEX
+                BNE    loop24
+
+                JSR    chkcrc
+                BCS    error24
+
+                INC    PacketNum
+
+                LDA    byteCount+1
+                CLC
+                ADC    #>1024
+                STA    byteCount+1
+                BCC    noroll24
+                INC    byteCount+2
+noroll24        JSR    PrintCount
+
+                LDX    #<1024
+                LDA    #>1024
+                CLC
+                RTS
+
+error24         SEC
+                RTS
+
+*-------------------------------------------------
+* get a 4096 byte block
+
+Get4096         LDX    #16
+                LDY    #0
+loop96          JSR    input
+                BCC    error96
+                STA    (TEMP),Y
+                JSR    do_crc
+                INY
+                BNE    loop96
+                INC    TEMP+1
+                DEX
+                BNE    loop96
+
+                JSR    chkcrc
+                BCS    error96
+
+                INC    PacketNum
+
+                LDA    byteCount+1
+                CLC
+                ADC    #>4096
+                STA    byteCount+1
+                BCC    noroll96
+                INC    byteCount+2
+noroll96        JSR    PrintCount
+
+                LDX    #<4096
+                LDA    #>4096
+                CLC
+                RTS
+
+error96         SEC
+                RTS
+
+*-------------------------------------------------
+* printCString -- print the cstring pointed to by X & Y
+*
+* a space will also terminate this kind of string
+
+printCString    LDA    TEMP+1
+                PHA
+                LDA    TEMP
+                PHA
+
+                STX    TEMP
+                STY    TEMP+1
+
+                LDY    #0
+cstloop         LDA    (TEMP),Y
+                BEQ    cstdone
+                AND    #Clrhi
+                CMP    #' '
+                BEQ    cstdone
+                JSR    VIDCOUT
+                INY
+                BRA    cstloop
+
+cstdone         PLA
+                STA    TEMP
+                PLA
+                STA    TEMP+1
+                RTS
+
+*-------------------------------------------------
+* print the pascal string at (TEMP) at current cursor loc
+
+printPString    LDA    TEMP+1
+                PHA
+                LDA    TEMP
+                PHA
+
+                STX    TEMP
+                STY    TEMP+1
+
+                LDY    #0
+                LDA    (TEMP),Y                                            ; get filename length byte
+                STA    length
+
+pLoop           INY
+                LDA    (TEMP),Y                                            ; get character in filename
+                JSR    VIDCOUT
+                CPY    length
+                BNE    pLoop
+
+                PLA
+                STA    TEMP
+                PLA
+                STA    TEMP+1
+                RTS
+
+*-------------------------------------------------
+* Text Strings
+
+STRINGS         =      *
+YmodemText      STR    'Ymodem'
+crcmsg          STR    'CRC'
+csummsg         STR    'Csum'
+promsg          STR    'AE'
+standardMsg     STR    'Stnd'
+
+ScreenText      STR    'Bytes:         Errs:      Consec:   Mode:'
+CODEEND         =      *
+
+*-------------------------------------------------
+* Data segment
+
+MAINDATA        =      *
+startsig        ASC    'C4'                                                ; characters for ymodem start
+timeOut         DW     0                                                   ; timeout in 120ths of a second
+ConsecErr       DB     0                                                   ; # of consecutive errors
+batchtype       DB     0                                                   ; which batch mode? (0=proterm,1=forsberg)
+retry           DB     0                                                   ; remaining retries
+PacketNum       DB     0                                                   ; current block number modulo 256
+LastChar        DB     0                                                   ; last character received
+crc             DW     0                                                   ; low part of the crc
+blk_type        DB     0                                                   ; small or large block?
+CheckSum        DB     0                                                   ; checksum register
+packet1k        DB     0                                                   ; was there a 1k packet?
+packet4k        DB     0                                                   ; was there a 4k packet?
+UseCsum         DB     0
+BatchMode       DB     0                                                   ; batch mode? (0=no, 1=yes)
+RenameTries     DB     0                                                   ; how many tried to rename the file
+
+at              DB     0
+num             DS     10
+decimal         DS     10
+
+lastVBL         DB     0
+sixty           DW     0
+waitFOR         DA     $F0
+
+tempcrc         DW     0
+
+length          DB     0
+pdSource        =      *
+                ORG    pdData
+*
+* open parameters
+*
+OpenParms       DB     3                                                   ; 3 parameters follow
+                DA     Filename                                            ; file's name/no prefix
+                DA     FBUF2                                               ; address of 1k file buffer
+                DB     0                                                   ; ref_num
+*
+* close parameters
+*
+CloseParms      DB     1                                                   ; number of parameters
+                DB     0                                                   ; ref_num
+
+*
+* create a file parameters
+*
+CreateParms     DB     7
+                DA     Filename                                            ; address of Filename
+                DB     destroyEnable+renameEnable+writeEnable+readEnable
+                DB     Txt                                                 ; filetype (text)
+                DW     0                                                   ; aux filetype
+                DB     Seedling                                            ; storage type (seedling)
+                DW     0                                                   ; date of creation
+                DW     0                                                   ; time of creation
+
+*
+* destroy file parameters
+*
+DestroyParms    DB     1
+                DA     Filename                                            ; file to delete
+
+*
+* write to a file parameter list
+*
+WriteParms      DB     4                                                   ; number of parameters
+                DB     0                                                   ; reference number
+                DA     blockBuffer                                         ; address of file buffer
+                DW     0                                                   ; length of buffer
+                DW     0                                                   ; actual length
+
+*
+* Get/Set File info parms
+*
+SFIParms        DB     7                                                   ; parm count
+                DA     Filename                                            ; path addr
+                DB     destroyEnable+renameEnable+writeEnable+readEnable
+                DB     Txt                                                 ; filetype (text)
+                DW     0                                                   ; auxtype
+                DB     Seedling                                            ; not used
+                DW     0
+                DW     0                                                   ; mod date
+                DW     0                                                   ; mod time
+                DW     0                                                   ; create date
+                DW     0                                                   ; create time
+
+*
+* EOF Parms to set the proper end of the file
+*
+EOFParms        DB     2                                                   ; parm count
+                DB     0                                                   ; reference number
+                DS     3
+
+*
+*  filename buffer
+*
+Filename        DS     64                                                  ; area for filename
+
+pdLen           =      *-pdData
+                ORG
+
+parmStrt        =      *
+                ORG    FREESPACE
+*
+* Get/Set File info parms
+*
+ParmList        DB     destroyEnable+renameEnable+writeEnable+readEnable
+                DB     Txt                                                 ; filetype (text)
+                DW     0                                                   ; auxtype
+                DB     Seedling                                            ; not used
+                DW     0                                                   ; length in prodos blocks
+                DW     0                                                   ; mod date
+                DW     0                                                   ; mod time
+                DW     0                                                   ; create date
+                DW     0                                                   ; create time
+
+*
+* EOF Parms to set the proper end of the file
+*
+                DB     2                                                   ; parm count
+                DB     0                                                   ; reference number
+                DS     3
+
+BlockCount      DW     0                                                   ; current block number
+TotalErr        DW     0                                                   ; how many total errors occured
+byteCount       DS     3
+parmsLen        =      *-FREESPACE
+                ORG
+
diff --git a/SOURCE/QUIT.TST.S b/SOURCE/QUIT.TST.S
new file mode 100644
index 0000000..e710cdf
--- /dev/null
+++ b/SOURCE/QUIT.TST.S
@@ -0,0 +1,9 @@
+            ORG   $2000
+            JSR   $BF00
+            DB    $65
+            DA    QUITLST
+            BRK   00
+
+QUITLST     DB    4
+            DS    6
+
diff --git a/SOURCE/RNDSORT.S b/SOURCE/RNDSORT.S
new file mode 100644
index 0000000..42f5fe7
--- /dev/null
+++ b/SOURCE/RNDSORT.S
@@ -0,0 +1,449 @@
+********************************
+*                              *
+*  Random Access File Sort     *
+*                              *
+********************************
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      6
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/RAMAREA
+            PUT    EQUATES/ERRORS
+            PUT    EQUATES/TOKENS
+            LST    RTN
+
+]TYPE       =      ^overlays                     ; set file type
+]AUX        =      overlays                      ; and aux type
+            ORG    ]AUX                          ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/RNDSORT
+
+            TTL    'LLUCE - Sort Random File'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+            DA     IOEND-BEGIN
+            DA     0                             ; CRC Goes Here
+
+            ORG    $D000
+
+MEMBTM      =      NODENUM
+MEMTOP      =      MLI
+
+DiskErr     =      249
+FileLock    =      250
+VolProt     =      251
+FileBig     =      253
+BadParm     =      254
+NoFile      =      255
+
+*-------------------------------
+* Syntax For Use With This Overlay
+*
+* Overlay "Rndsort","Filename",Size,Start
+*
+* Error Code Is Returned In Start
+*
+*   0 = No Error
+* 249 = Another Disk Error
+* 250 = File Locked
+* 251 = Disk Write Protected
+* 253 = File Too Large
+* 254 = Invalid Parameter
+* 255 = File Not Found
+*-------------------------------
+
+BEGIN       LDX    #IO-PARMLSTS
+MOVEPDOS    MOV    PARMLSTS,X;EOFLST,X           ; Move Parameter Lists
+            DBPL   X;MOVEPDOS
+
+            JSR    GOBCOM                        ; Get File Name
+            JSR    MOVNAME
+            JSR    GOBCOM                        ; Get Record Size
+            JSR    INPNUM
+            SVXAY                                ; Save For Later
+            JSR    GOBCOM                        ; Get Starting Record
+            IFEQ   (PRGPTR);#Number;VAROK        ; Numeric next?
+
+            RSTXAY                               ; Restore Stack
+            LDA    #Typemiss                     ; Type Mismatch Error
+            JMP    BADERR
+
+VAROK       JSR    INPNUM                        ; Record 0 Or 1
+            TXA
+            BEQ    USEDEF
+            LDX    #1
+USEDEF      STX    USEZERO
+            RSTXAY                               ; Get Back Record Size
+            BNE    BADREC                        ; Must Be Less Than 256
+            TAY
+            BEQ    RECOK
+
+BADREC      LDRA   #BadParm;ERROR
+
+RECOK       STX    RECLEN                        ; Save Record Length
+            LDY    #IOEND-IO                     ; Save $90 Area
+SAVEZP      MOV    GET1,Y;SAVE90,Y
+            DBPL   Y;SAVEZP
+
+            LDY    #IOEND-IO                     ; Put I/O Stuff In
+MOVESUBS    MOV    IO,Y;GET1,Y
+            DBPL   Y;MOVESUBS
+
+            LDA    #%00110011                    ; Request All, Deny All
+            JSR    PD_OPEN                       ; Open File
+            BCC    TSTSIZE
+
+            LDA    #NoFile                       ; File Not Found
+ERROR       JMP    NOERR
+
+TSTSIZE     STA    EOFREF                        ; Save Reference Number
+            STA    RWREF
+            STA    MARKREF
+            JSR    MLI                           ; Get Size Of File
+            DB     Geteof
+            DA     EOFLST
+            LDNE   EOF+2;TOOBIG
+            IFLT   EOF+1;#>MEMTOP-MEMBTM;SIZEOK
+
+TOOBIG      JSR    PD_CLOSE                      ; Close The File
+            LDNE   #FileBig;ERROR                ; It's Too Big
+
+SIZEOK      STZ    TEMP2
+            MOV    #>MEMBTM;TEMP2+1
+            JSR    READIT
+            MOVD   EOF;OPERAND                   ; Move Number Of Bytes
+            LDX    #0                            ; Set Up To Calculate
+            MOV    RECLEN;OPERATOR               ; Number Of Records
+            BNE    LENOK
+            INX
+LENOK       STX    OPERATOR+1
+            STZ    RESULT                        ; Divide Size Of File
+            STZ    RESULT+1                      ; By Record Length
+            CLC
+            LDX    #16
+DIV1        ROL    OPERAND
+            ROL    OPERAND+1
+            ROL    RESULT
+            ROL    RESULT+1
+            SEC
+            LDA    RESULT
+            SBC    OPERATOR
+            TAY
+            LDA    RESULT+1
+            SBC    OPERATOR+1
+            BCC    DIV2
+
+            STY    RESULT
+            STA    RESULT+1
+DIV2        DBNE   X;DIV1
+
+            ROL    OPERAND
+            ROL    OPERAND+1
+            MOVD   OPERAND;NUMRECS
+            BREQW  RESULT;NOMOD                  ; Any Bytes Left Over?
+
+            INCD   NUMRECS                       ; Add 1 To Number
+            LD16   NUMRECS                       ; Get New File Size
+            JSR    CALCADR
+            MOVD   RESULT;EOF                    ; Save It For Later Write
+NOMOD       DECD   NUMRECS                       ; Dec Number Of Records
+            MOV    USEZERO;CURREC                ; Set Up Starting Record
+            STA    TOPREC
+            STZ    CURREC+1
+            STZ    TOPREC+1
+            JSR    PRHEX                         ; Print The Record Number
+
+SORTNEXT    IFLT   CURREC+1;TOPREC+1;XPRNT
+            IFLT   CURREC;TOPREC;XPRNT
+
+            JSR    PRBSHEX                       ; Print Record Number
+XPRNT       LD16   CURREC                        ; Calculate Record Address
+            JSR    CALCADR
+            ST16   TEMP                          ; Save Address Of Record
+            LDEQ   RECLEN;R256                   ; Add In Record Length
+
+            CLC
+            ADA    TEMP;TEMP2
+            AD     #0;TEMP+1;TEMP2+1
+            BRA    COMPARE
+
+R256        INC    TEMP2+1                       ; Record Length Is 256
+COMPARE     LDY    #-1                           ; Set Starting Point
+COMPARE2    INY
+            CPEQY  RECLEN;NOSWAP                 ; More To Check?
+
+            JSR    GET2                          ; Get Byte From First Rec
+            JSR    CONV                          ; Make It Upper Case
+            STA    CHARTEMP                      ; Save It For Later
+            JSR    GET1                          ; Get Byte From Next Rec.
+            JSR    CONV                          ; Make It Upper Case
+            CPEQ   CHARTEMP;COMPARE2             ; What Do We Do?
+            BLT    NOSWAP                        ; It's Less, Skip This One
+
+            LDY    RECLEN                        ; Swap The Two Records
+SWAP        DEY
+            JSR    GET1
+            PHA
+            JSR    GET2
+            JSR    PUT1
+            PLA
+            JSR    PUT2
+            TYA
+            BNE    SWAP
+
+            LDNE   CURREC+1;GODOWN               ; Are We At First Record?
+            IFEQ   CURREC;USEZERO;SORTNEXT       ; Are We Sure?
+
+GODOWN      LDX    CURREC                        ; Decrement Record Number
+            BNE    DOWN
+            DEC    CURREC+1
+DOWN        DEC    CURREC
+            JMP    SORTNEXT                      ; Go Back And Compare
+
+NOSWAP      INCD   CURREC                        ; Increment Record Number
+            IFLT   CURREC;NUMRECS;GO_NEXT        ; At Last Record?
+            IFGE   CURREC+1;NUMRECS+1;SAVEFILE
+GO_NEXT     JMP    SORTNEXT
+
+SAVEFILE    JSR    MLI                           ; Reset To Start Of File
+            DB     Setmark
+            DA     MARKLST
+            STZ    TEMP
+            MOV    #>MEMBTM;TEMP+1
+            JSR    WRITEIT
+            PHX                                  ; Save Error Code
+            JSR    PD_CLOSE                      ; Close The File
+            PLA
+            BEQ    NOERR                         ; No Errors
+
+            LDX    #VolProt
+            CPEQ   #drvrWrtProt;RTNCODE          ; Write Protected
+            DEX                                  ; FileProt
+            CPEQ   #invalidAccess;RTNCODE        ; File Locked
+            DEX                                  ; Another Error
+RTNCODE     TXA
+NOERR       PHA
+            LDA    #bs                           ; Back Up 4 Spaces
+            LDX    #4
+            JSR    PMULT
+            LDA    #'-'                          ; Print 4 -'s
+            LDX    #4
+            JSR    PMULT
+            LDY    #0                            ; Save Error Code
+            PLA
+            STA    (VPTR),Y
+            TYA                                  ; High Bytes Always 0
+            INY
+            STA    (VPTR),Y
+            INY
+            STA    (VPTR),Y
+            LDY    #IOEND-IO                     ; Restore $90 Area
+RESTZP      MOV    SAVE90,Y;GET1,Y
+            DBPL   Y;RESTZP
+
+            RTS
+
+READIT      JSR    MLI                           ; Read In The File
+            DB     Read
+            DA     RWLIST
+            LDY    #0
+            STZ    TEMP
+            MOV    #>ENDMOD;TEMP+1
+            LDX    #$10                          ; Move 4K
+MOVE_IN     LDA    (TEMP),Y
+            AND    #Clrhi
+            JSR    PUT2
+            IBNE   Y;MOVE_IN
+
+            INC    TEMP+1
+            INC    TEMP2+1
+            DBNE   X;MOVE_IN
+
+            LDNE   XFERED;RDDONE                 ; Finished Reading?
+            IFEQ   XFERED+1;#$10;READIT
+
+RDDONE      RTS
+
+WRITEIT     STZ    TEMP2
+            MOV    #>ENDMOD;TEMP2+1
+            LDY    #0
+            LDX    #$10                          ; Move 4K
+MOVE_OUT    JSR    GET1
+            STA    (TEMP2),Y
+            IBNE   Y;MOVE_OUT
+
+            INC    TEMP+1
+            INC    TEMP2+1
+            DBNE   X;MOVE_OUT
+
+            IFGE   EOF+1;#$10;DO_WRT             ; Finished With 4K Chunks?
+            MOVD   EOF;REQUEST                   ; Write The Last Bit Out
+            DEC    EOF+2                         ; Flag Last Chunk Written
+DO_WRT      JSR    MLI                           ; Write File Back To Disk
+            DB     Write
+            DA     RWLIST
+            TAX                                  ; Put Error Code In X
+            SEC                                  ; Subtract 4K From File Size
+            SB     EOF+1;#$10;EOF+1
+            TSTPL  EOF+2;WRITEIT                 ; Finished?
+            RTS
+
+PMULT       PHA
+            JSR    VIDCOUT
+            PLA
+            DBNE   X;PMULT
+
+            RTS
+
+CALCADR     ST16   OPERAND
+            LDX    #0
+            MOV    RECLEN;OPERATOR
+            BNE    CALCADR2
+            INX
+CALCADR2    STX    OPERATOR+1
+            STZ    RESULT
+            STZ    RESULT+1
+            LDX    #16
+CALCADR3    LSR    OPERATOR+1
+            ROR    OPERATOR
+            BCC    CALCADR4
+
+            CLC
+            ADD    OPERAND;RESULT;RESULT
+CALCADR4    ASL    OPERAND
+            ROL    OPERAND+1
+            DBNE   X;CALCADR3
+
+            CLC
+            LD16   RESULT
+            ADC    #>MEMBTM
+            RTS
+
+CONV        CPLT   #'a';CONV2
+            CPGE   #'z'+1;CONV2
+            SBC    #$1F
+CONV2       RTS
+
+PRBSHEX     LDA    #bs
+            LDX    #4
+            JSR    PMULT
+PRHEX       LDA    CURREC+1
+            JSR    PRBYTE
+            LDA    CURREC
+PRBYTE      PHA
+            LSR    A
+            LSR    A
+            LSR    A
+            LSR    A
+            JSR    PRHEXZ
+            PLA
+            AND    #$F
+PRHEXZ      ORA    #'0'
+            CPLT   #'9'+1;GOCOUT
+            ADC    #6
+GOCOUT      JMP    VIDCOUT
+
+PARMLSTS    ORG    $380
+
+EOFLST      DB     2
+EOFREF      DB     0
+EOF         DS     3
+
+RWLIST      DB     4
+RWREF       DB     0
+            DA     ENDMOD
+REQUEST     DA     $1000
+XFERED      DA     0
+
+MARKLST     DB     2
+MARKREF     DB     0
+            HEX    000000
+
+            ORG
+
+IO          ORG    $90
+
+GET1        STZ    AUXREAD
+            LDA    (TEMP),Y
+            STZ    MAINREAD
+            RTS
+
+PUT1        STZ    AUXWRT
+            STA    (TEMP),Y
+            STZ    MAINWRT
+            RTS
+
+GET2        STZ    AUXREAD
+            LDA    (TEMP2),Y
+            STZ    MAINREAD
+            RTS
+
+PUT2        STZ    AUXWRT
+            STA    (TEMP2),Y
+            STZ    MAINWRT
+            RTS
+
+            ORG
+IOEND       =      *
+
+CHARTEMP    DB     0
+USEZERO     DB     0
+RECLEN      DB     0
+
+OPERAND     DA     0
+OPERATOR    DA     0
+
+NUMRECS     DA     0
+CURREC      DA     0
+TOPREC      DA     0
+
+SAVE90      DS     IOEND-IO
+
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'RNDSORT - Symbol Table'
+
diff --git a/SOURCE/SETUP.ASM b/SOURCE/SETUP.ASM
new file mode 100644
index 0000000..03f70ed
--- /dev/null
+++ b/SOURCE/SETUP.ASM
@@ -0,0 +1,448 @@
+	MCOPY MERLIN.MACROS
+	MCOPY MY.MACROS
+TRANSLATION  START
+	LCLA	&LUP
+	TITLE	'Serial number encoder'
+
+********************************
+*		                *
+* LLUCE Serial Number Encoder  *
+*		                *
+********************************
+	LIST	OFF
+	TRACE OFF
+	EXPAND OFF
+	EXPAND ON
+	KEEP	/MAIN/LLUCE/SETUP
+	COPY	EQUATES/EQUATES
+	COPY	EQUATES/OS.EQUATES
+
+cls	EQU	ff+Hibit
+DEFFLG	EQU	LSTPTR
+
+FLNAME	EQU	LNBUF+$80
+
+OURNAME	EQU	$800
+
+IOBUFFER EQU	$1800
+PROGRAM	EQU	$2000
+BUFSIZE	EQU	$9B00-PROGRAM
+
+	LDA	#cls
+	JSR	MONCOUT
+	LDA	#$A	Set Up For Get Info
+	STA	INFOLST
+	LDA	#<BUFSIZE	Reset Buffer Size
+	STA	REQUEST
+	LDA	#>BUFSIZE
+	STA	REQUEST+1
+	JSR	MLI	Get Info Of File
+	DC	I1'Getinfo'
+	DC	I'INFOLST'
+	BCS	ERROR
+	JMP	FOUND
+
+ERROR	CMP	#$44
+	BNE	TRY45
+
+	JSR	NOISE
+	DCI	'Path not found'
+	BRA	ERRFIN
+
+TRY45	CMP	#$45
+	BNE	TRY46
+
+	JSR	NOISE
+	DCI	'Volume not found'
+	BRA	ERRFIN
+
+TRY46	CMP	#$46
+	BNE	FATAL
+
+	JSR	NOISE
+	DCI	'File not found'
+	BRA	ERRFIN
+
+FATAL	JSR	NOISE
+	ASC	'Fatal disk error','0D0D'
+	DCI	'Press a key to quit '
+	JSR	GETKEY
+	JMP	SN_QUIT
+
+ERRFIN	JSR	MONCROUT
+	JSR	MONCROUT
+	JSR	PRFN
+	JSR	MONCROUT
+	JMP	ASK_AGN
+
+FOUND	JSR	SETUP
+	DCI	'Reading '
+	JSR	PRFN
+	JSR	MONCROUT
+	LDA	#Read
+	JSR	DO_FILE	Read In The File
+	LDA	PROGRAM+2	Point To Encoder Start
+	LDX	PROGRAM+1
+	STA	TEMP2+1
+	STX	TEMP2
+	SEC		Get End Address
+	SBC	#>PROGRAM	Subtract Loading Adr.
+	INX
+	BNE	INC_PGM
+
+	INC	A
+INC_PGM	STX	REQUEST	Store For Later Save
+	STA	REQUEST+1
+	LDY	#2	Already Encoded?
+	LDA	#$EE
+	CMP	(TEMP2),Y
+	BNE	ISDONE	Yes
+
+	INY
+	CMP	(TEMP2),Y
+	BEQ	DO_ENC	Nope, Do It
+
+ISDONE	JSR	NOISE
+	DCI	'This copy of '
+	JSR	PRFN
+	JSR	PRINT
+	ASC	' is already encoded','8D'
+	JMP	ASK_AGN
+
+DO_ENC	LDY	#4	Get location of serial #
+	LDA	(TEMP2),Y
+	PHA
+	INY
+	LDA	(TEMP2),Y
+	STA	TEMP2+1
+	PLA
+	STA	TEMP2	Is it a demo copy?
+	ORA	TEMP2+1
+	BNE	DO_ENC2
+	JMP	DEF	yes, don't alter serial number
+
+DO_ENC2	STZ	DEFFLG
+	JSR	SETUP
+	DCI	'Last serial number was: '
+	LDA	SERIAL
+	JSR	MONPRBYTE
+	LDA	SERIAL+1
+	JSR	MONPRBYTE
+	JSR	MONCROUT
+
+	JSR	SETUP	Check To Use Default
+	DCI	'Use next serial number?'
+	JSR	GETYN
+	BNE	DEF	Use The Default
+
+	JSR	SETUP
+	DCI	'Enter new serial number -> '
+	LDA	#'>'+Hibit
+	STA	MONPROMPT
+	LDA	#0
+	STA	MONMODE
+	JSR	MONINPLN
+	CPX	#5
+	BLT	SIZE1
+	JMP	DO_ENC
+
+SIZE1	CPX	#0
+	BNE	SIZE2
+	JMP	DO_ENC
+
+SIZE2	LDY	#0
+	JSR	MONGETNUM
+	LDA	a2
+	STA	SERIAL+1
+	LDA	a2+1
+	STA	SERIAL
+	DEC	DEFFLG
+DEF	JSR	SETUP
+	DCI	'Encoding '
+	JSR	PRFN
+	LDA	TEMP2	Changing serial number?
+	ORA	TEMP2+1
+	BNE	PUTSN0	yes, do it
+	JSR	PRINT
+	DCI	' (DEMO)'
+	JSR	MONCROUT	no, CR and do CRC
+	BRA	PUTSN3
+
+PUTSN0	JSR	PRINT
+	DCI	' #'
+	BIT	DEFFLG	If Not Default, Don't Read
+	BPL	PUTSN1
+
+	LDA	SERIAL+1
+	CLC
+	BRA	PUTSN2
+
+PUTSN1	SED		Add 1 In Decimal Mode
+	CLC		(0000-9999)
+	LDA	SERIAL+1
+	ADC	#1
+	STA	SERIAL+1
+PUTSN2	PHA		Save For Later
+	LDA	SERIAL
+	ADC	#0
+	STA	SERIAL
+	CLD
+	LDY	#3	Start Of Actual Serial #
+	JSR	SVNUM	Stuff In Program
+	PLA		Get Next Byte
+	JSR	SVNUM
+	JSR	MONCROUT
+
+	JSR	DO_SER
+
+PUTSN3	STZ	SETALTZP	Will Die If Not Done
+	LDA	#1	Tell The Encode Routine
+	STA	TEMP	That It's Ok To Do It's
+	INC	A	Thing.
+	STA	TEMP+1
+	JSR	PROGRAM	Make It Do It's Thing
+	STZ	SETSTDZP	Back To Normal
+	PHY		Save CRC
+	PHA
+	LDX	#3	Move Creation Date
+MV_DATE	LDA	DATE2,X
+	STA	DATE1,X
+	DEX
+	BPL	MV_DATE
+
+	JSR	MLI	Shoot The Old One
+	DC	I1'Destroy'
+	DC	I'KILLLIST'
+	JSR	SETUP
+	DCI	'Writing '
+	JSR	PRFN
+	JSR	PRINT
+	DCI	' CRC=$'
+	PLA
+	JSR	MONPRBYTE
+	PLA
+	JSR	MONPRBYTE
+	JSR	MONCROUT
+	LDA	#7	Set Up For Create
+	STA	INFOLST
+	JSR	MLI	Make A New File
+	DC	I1'Create'
+	DC	I'INFOLST'
+	LDA	#Write	Write It All Out
+	JSR	DO_FILE
+ASK_AGN	JSR	SETUP
+	DCI	'Do another?'
+	JSR	GETYN
+	BEQ	SN_QUIT
+
+	JSR	SETUP
+	ASC	'Insert next disk','0D0D'
+	DCI	'Press RETURN to continue'
+	JSR	GETKEY
+	JMP	START	Do It Again
+
+SN_QUIT	JSR	MONCROUT
+	JSR	MLI	See You Later
+	DC	I1'Quit'
+	DC	I'QUITLST'
+	INC	SOFTEV	How Did We Get Here?
+	JMP	(MONRESET)	Do A Cold Reset
+
+GETKEY	JSR	MONKEYIN	Get A Key
+CONV	CMP	#'a'+Hibit	Make Upper Case
+	BLT	CONV2
+
+	CMP	#+('z'+1)+Hibit
+	BGE	CONV2
+
+	SBC	#$1F
+CONV2	RTS
+
+GETYN	JSR	PRINT
+	DCI	' (Y/N): '
+YN_WAIT	JSR	GETKEY
+	CMP	#'N'+Hibit	Is In A NO?
+	BEQ	GOT_NO	If It Is, Quit
+
+	CMP	#'Y'+Hibit	Is It A Yes?
+	BNE	YN_WAIT	If It Isn't, Try Again
+
+	JSR	PRINT	Prompt For Next Disk
+	ASC	'Yes','8D'
+	LDA	#1
+	RTS
+
+GOT_NO	JSR	PRINT
+	ASC	'No','8D'
+	LDA	#0
+	RTS
+
+DO_FILE	STA	RWTYPE	Save Read/Write
+	JSR	MLI	Open The File
+	DC	I1'Open'
+	DC	I'OPENLST'
+	LDA	OPENREF	Move The References
+	STA	RWREF
+	STA	CLOSEREF
+	JSR	MLI	Read/Write The File
+RWTYPE	DC	I1'Read'
+	DC	I'RWLIST'
+	JSR	MLI	Close It Up
+	DC	I1'Close'
+	DC	I'CLOSELST'
+	RTS
+
+DO_SER	JSR	MLI	Open The File
+	DC	I1'Open'
+	DC	I'OPENME'
+	LDA	MYOREF	Move The References
+	STA	MYWRREF
+	STA	CLOSEREF
+	STA	MYMRKREF
+	JSR	MLI	get our file size
+	DC	I1'Geteof'
+	DC	I'MYMRKLST'
+	SEC		number is at eof-2
+	LDA	MYMRK
+	SBC	#2
+	STA	MYMRK
+	BCS	SETMRK
+	DEC	MYMRK+1
+SETMRK	JSR	MLI	set the mark
+	DC	I1'Setmark'
+	DC	I'MYMRKLST'
+	JSR	MLI	write the serial number
+	DC	I1'Write'
+	DC	I'MYWRLIST'
+	JSR	MLI	close up
+	DC	I1'Close'
+	DC	I'CLOSELST'
+	RTS
+
+*-------------------------------
+* Print And Save Hex Byte
+*-------------------------------
+
+SVNUM	PHA		Save Byte For Later
+	LSR	A	Move Down The High Nibble
+	LSR	A
+	LSR	A
+	LSR	A
+	ORA	#'0'	Make Ascii
+	STA	(TEMP2),Y	Stuff It
+	ORA	#Hibit
+	JSR	MONCOUT
+	DEY		Next Number
+	PLA		Get Back Byte
+	AND	#$F	Strip Off High Nibble
+	ORA	#'0'	Make It Ascii
+	STA	(TEMP2),Y	Stuff It Too
+	ORA	#Hibit
+	JSR	MONCOUT
+	DEY		Point To Next Number
+	RTS
+
+*-------------------------------
+* Print Following Text
+*-------------------------------
+
+NOISE	JSR	PRINT
+	DC	I1'cr,cr,bel,bel+Hibit'
+SETUP	JSR	PRINT
+	DC	I1'cr'
+	DCI	'SETUP: '
+PRINT	PLA
+	STA	PRN
+	PLA
+	STA	PRN+1
+	BRA	PR2
+
+PR1	LDA	(PRN)
+	PHP
+	ORA	#Hibit
+	JSR	MONCOUT
+	PLP
+	BMI	PR3
+
+PR2	INC	PRN
+	BNE	PR1
+
+	INC	PRN+1
+	BRA	PR1
+
+PR3	LDA	PRN+1
+	PHA
+	LDA	PRN
+	PHA
+	RTS
+
+*-------------------------------
+* Print Name Of File
+*-------------------------------
+
+PRFN	LDX	FLNAME	Get Filename Length
+	STX	PRN	Save For Count
+	LDY	#1	Start At First Char.
+FNLOOP	LDA	FLNAME,Y
+	ORA	#Hibit	Must Have Hi Bit Set
+	JSR	CONV
+	JSR	MONCOUT
+	INY
+	DEC	PRN	Any More?
+	BNE	FNLOOP	Yes
+	RTS
+
+INFOLST	DC	I1'10'	INFO/CREATE
+	DC	I'FLNAME'	Path Name
+	DC	I1'0'	Access
+	DC	I1'0'	File Type
+	DC	I'0'	Aux Type
+	DC	I1'0'	Storage Type
+DATE1	DC	I'0'	Blocks Used/Create Date
+	DC	I'0'	Mod Date/Create Time
+	DC	I'0'	Mod Time
+DATE2	DC	I'0'	Create Date
+	DC	I'0'	Create Time
+
+KILLLIST DC	I1'1'
+	DC	I'FLNAME'
+
+OPENLST	DC	I1'3'
+	DC	I'FLNAME'
+	DC	I'IOBUFFER'
+OPENREF	DC	I1'0'
+
+RWLIST	DC	I1'4'
+RWREF	DC	I1'0'
+	DC	I'PROGRAM'
+REQUEST	DC	I'BUFSIZE'
+	DC	I'0'
+
+CLOSELST DC	I1'1'
+CLOSEREF DC	I1'0'
+
+OPENME	DC	I1'3'
+	DC	I'OURNAME'
+	DC	I'IOBUFFER'
+MYOREF	DC	I1'1'
+
+MYMRKLST DC	I1'2'
+MYMRKREF DC	I1'0'
+MYMRK	MDS	3
+
+MYWRLIST DC	I1'4'
+MYWRREF	DC	I1'0'
+	DC	I'SERIAL'
+	DC	I'2'
+	DC	I'0'
+
+QUITLST	DC	I1'4'
+	DC	I1'0'
+	DC	I'0'
+	DC	I'0'
+	DC	I'0'
+
+LLUCE_NM STR	'LLUCE.SYSTEM'
+
+SERIAL	MDS	2
+;
diff --git a/SOURCE/SETUP.S b/SOURCE/SETUP.S
new file mode 100644
index 0000000..14aa16a
--- /dev/null
+++ b/SOURCE/SETUP.S
@@ -0,0 +1,555 @@
+            TTL    'Serial Number Encoder'
+********************************
+*                              *
+* LLUCE Serial Number Encoder  *
+*                              *
+********************************
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+GSBUG       =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+
+]TYPE       =      ^sysfile                    ; set file type
+]AUX        =      sysfile                     ; and aux type
+            ORG    ]AUX                        ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SETUP
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            LST    RTN
+
+cls         =      ff+Hibit
+DEFFLG      =      LSTPTR
+
+FLNAME      =      LNBUF+$80
+
+OURNAME     =      $800
+
+IOBUFFER    =      $1800
+PROGRAM     =      $2000
+BUFSIZE     =      $9B00-PROGRAM
+
+            JMP    ENTER
+
+            HEX    EEEE
+            DB     65
+FNAME       DS     65
+
+ENTER       LDA    #<HEREITIS
+            STA    TEMP2
+            LDA    #>HEREITIS
+            STA    TEMP2+1
+            LDA    #<START
+            STA    PRN
+            LDA    #>START
+            STA    PRN+1
+            LDX    #>ENDOFIT-HEREITIS+256
+            LDY    #0                          ; Start Offset
+ENC_COPY    LDA    (TEMP2),Y                   ; Copy Byte
+            STA    (PRN),Y
+            INY
+            BNE    ENC_COPY
+
+            INC    TEMP2+1
+            INC    PRN+1
+            DEX                                ; Count Down
+            BNE    ENC_COPY
+
+            STZ    OURNAME                     ; setup for partial path
+            LDX    #1
+
+            LDA    FLNAME+1                    ; partial or complete path?
+            CMP    #'/'
+            BEQ    PARTIAL
+
+            LDX    #0                          ; move the current prefix
+MVPFX       LDA    LNBUF,X
+            STA    OURNAME,X
+            INX
+            CPX    LNBUF
+            BLT    MVPFX
+            BEQ    MVPFX
+
+PARTIAL     LDY    #1                          ; start at filename start
+MVOURNM     LDA    FLNAME,Y
+            STA    OURNAME,X
+            INX
+            INY
+            CPY    FLNAME
+            BLT    MVOURNM
+            BEQ    MVOURNM
+
+            DEX
+            STX    OURNAME
+
+            LDX    FNAME                       ; Pathname Supplied?
+            BEQ    DEFAULT                     ; Nope, Use Default
+
+ENC_NAME    LDA    FNAME,X                     ; Move Supplied Path
+            STA    FLNAME,X
+            DEX
+            BPL    ENC_NAME
+            BRA    SET_DONE
+
+DEFAULT     LDX    LLUCE_NM                    ; Move Default Path
+DEFNAME     LDA    LLUCE_NM,X
+            STA    FLNAME,X
+            DEX
+            BPL    DEFNAME
+
+SET_DONE    STZ    CSW
+            LDA    #$C3
+            STA    CSW+1
+            JMP    START
+
+            DS     \
+HEREITIS    =      *
+            ORG    $900
+
+START       LDA    #cls
+            JSR    MONCOUT
+            LDA    #$A                         ; Set Up For Get Info
+            STA    INFOLST
+            LDA    #<BUFSIZE                   ; Reset Buffer Size
+            STA    REQUEST
+            LDA    #>BUFSIZE
+            STA    REQUEST+1
+            JSR    MLI                         ; Get Info Of File
+            DB     Getinfo
+            DA     INFOLST
+            BCS    ERROR
+            JMP    FOUND
+
+ERROR       CMP    #$44
+            BNE    TRY45
+
+            JSR    NOISE
+            DCI    'Path not found'
+            BRA    ERRFIN
+
+TRY45       CMP    #$45
+            BNE    TRY46
+
+            JSR    NOISE
+            DCI    'Volume not found'
+            BRA    ERRFIN
+
+TRY46       CMP    #$46
+            BNE    FATAL
+
+            JSR    NOISE
+            DCI    'File not found'
+            BRA    ERRFIN
+
+FATAL       JSR    NOISE
+            ASC    'Fatal disk error'0D0D
+            DCI    'Press a key to quit '
+            JSR    GETKEY
+            JMP    SN_QUIT
+
+ERRFIN      JSR    MONCROUT
+            JSR    MONCROUT
+            JSR    PRFN
+            JSR    MONCROUT
+            JMP    ASK_AGN
+
+FOUND       JSR    SETUP
+            DCI    'Reading '
+            JSR    PRFN
+            JSR    MONCROUT
+            LDA    #Read
+            JSR    DO_FILE                     ; Read In The File
+            LDA    PROGRAM+2                   ; Point To Encoder Start
+            LDX    PROGRAM+1
+            STA    TEMP2+1
+            STX    TEMP2
+            SEC                                ; Get End Address
+            SBC    #>PROGRAM                   ; Subtract Loading Adr.
+            INX
+            BNE    INC_PGM
+
+            INC    A
+INC_PGM     STX    REQUEST                     ; Store For Later Save
+            STA    REQUEST+1
+            LDY    #2                          ; Already Encoded?
+            LDA    #$EE
+            CMP    (TEMP2),Y
+            BNE    ISDONE                      ; Yes
+
+            INY
+            CMP    (TEMP2),Y
+            BEQ    DO_ENC                      ; Nope, Do It
+
+ISDONE      JSR    NOISE
+            DCI    'This copy of '
+            JSR    PRFN
+            JSR    PRINT
+            ASC    ' is already encoded'8D
+            JMP    ASK_AGN
+
+DO_ENC      LDY    #4                          ; Get location of serial #
+            LDA    (TEMP2),Y
+            PHA
+            INY
+            LDA    (TEMP2),Y
+            STA    TEMP2+1
+            PLA
+            STA    TEMP2                       ; Is it a demo copy?
+            ORA    TEMP2+1
+            BNE    DO_ENC2
+            JMP    DEF                         ; yes, don't alter serial number
+
+DO_ENC2     STZ    DEFFLG
+            JSR    SETUP
+            DCI    'Last serial number was: '
+            LDA    SERIAL
+            JSR    MONPRBYTE
+            LDA    SERIAL+1
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+
+            JSR    SETUP                       ; Check To Use Default
+            DCI    'Use next serial number?'
+            JSR    GETYN
+            BNE    DEF                         ; Use The Default
+
+            JSR    SETUP
+            DCI    'Enter new serial number -> '
+            LDA    #'>'+Hibit
+            STA    MONPROMPT
+            LDA    #0
+            STA    MONMODE
+            JSR    MONINPLN
+            CPX    #5
+            BLT    SIZE1
+            JMP    DO_ENC
+
+SIZE1       CPX    #0
+            BNE    SIZE2
+            JMP    DO_ENC
+
+SIZE2       LDY    #0
+            JSR    MONGETNUM
+            LDA    a2
+            STA    SERIAL+1
+            LDA    a2+1
+            STA    SERIAL
+            DEC    DEFFLG
+DEF         JSR    SETUP
+            DCI    'Encoding '
+            JSR    PRFN
+            LDA    TEMP2                       ; Changing serial number?
+            ORA    TEMP2+1
+            BNE    PUTSN0                      ; yes, do it
+            JSR    PRINT
+            DCI    ' (DEMO)'
+            JSR    MONCROUT                    ; no, CR and do CRC
+            BRA    PUTSN3
+
+PUTSN0      JSR    PRINT
+            DCI    ' #'
+            BIT    DEFFLG                      ; If Not Default, Don't Read
+            BPL    PUTSN1
+
+            LDA    SERIAL+1
+            CLC
+            BRA    PUTSN2
+
+PUTSN1      SED                                ; Add 1 In Decimal Mode
+            CLC                                ; (0000-9999)
+            LDA    SERIAL+1
+            ADC    #1
+            STA    SERIAL+1
+PUTSN2      PHA                                ; Save For Later
+            LDA    SERIAL
+            ADC    #0
+            STA    SERIAL
+            CLD
+            LDY    #3                          ; Start Of Actual Serial #
+            JSR    SVNUM                       ; Stuff In Program
+            PLA                                ; Get Next Byte
+            JSR    SVNUM
+            JSR    MONCROUT
+
+            JSR    DO_SER
+
+PUTSN3      STZ    SETALTZP                    ; Will Die If Not Done
+            LDA    #1                          ; Tell The Encode Routine
+            STA    TEMP                        ; That It's Ok To Do It's
+            INC    A                           ; Thing.
+            STA    TEMP+1
+            JSR    PROGRAM                     ; Make It Do It's Thing
+            STZ    SETSTDZP                    ; Back To Normal
+            PHY                                ; Save CRC
+            PHA
+            LDX    #3                          ; Move Creation Date
+MV_DATE     LDA    DATE2,X
+            STA    DATE1,X
+            DEX
+            BPL    MV_DATE
+
+            JSR    MLI                         ; Shoot The Old One
+            DB     Destroy
+            DA     KILLLIST
+            JSR    SETUP
+            DCI    'Writing '
+            JSR    PRFN
+            JSR    PRINT
+            DCI    ' CRC=$'
+            PLA
+            JSR    MONPRBYTE
+            PLA
+            JSR    MONPRBYTE
+            JSR    MONCROUT
+            LDA    #7                          ; Set Up For Create
+            STA    INFOLST
+            JSR    MLI                         ; Make A New File
+            DB     Create
+            DA     INFOLST
+            LDA    #Write                      ; Write It All Out
+            JSR    DO_FILE
+ASK_AGN     JSR    SETUP
+            DCI    'Do another?'
+            JSR    GETYN
+            BEQ    SN_QUIT
+
+            JSR    SETUP
+            ASC    'Insert next disk'0D0D
+            DCI    'Press RETURN to continue'
+            JSR    GETKEY
+            JMP    START                       ; Do It Again
+
+SN_QUIT     JSR    MONCROUT
+            JSR    MLI                         ; See You Later
+            DB     Quit
+            DA     QUITLST
+            INC    SOFTEV                      ; How Did We Get Here?
+            JMP    (MONRESET)                  ; Do A Cold Reset
+
+GETKEY      JSR    MONKEYIN                    ; Get A Key
+CONV        CMP    #'a'+Hibit                  ; Make Upper Case
+            BLT    CONV2
+
+            CMP    #'z'+1+Hibit
+            BGE    CONV2
+
+            SBC    #$1F
+CONV2       RTS
+
+GETYN       JSR    PRINT
+            DCI    ' (Y/N): '
+YN_WAIT     JSR    GETKEY
+            CMP    #'N'+Hibit                  ; Is In A NO?
+            BEQ    GOT_NO                      ; If It Is, Quit
+
+            CMP    #'Y'+Hibit                  ; Is It A Yes?
+            BNE    YN_WAIT                     ; If It Isn't, Try Again
+
+            JSR    PRINT                       ; Prompt For Next Disk
+            ASC    'Yes'8D
+            LDA    #1
+            RTS
+
+GOT_NO      JSR    PRINT
+            ASC    'No'8D
+            LDA    #0
+            RTS
+
+DO_FILE     STA    RWTYPE                      ; Save Read/Write
+            JSR    MLI                         ; Open The File
+            DB     Open
+            DA     OPENLST
+            LDA    OPENREF                     ; Move The References
+            STA    RWREF
+            STA    CLOSEREF
+            JSR    MLI                         ; Read/Write The File
+RWTYPE      DB     Read
+            DA     RWLIST
+            JSR    MLI                         ; Close It Up
+            DB     Close
+            DA     CLOSELST
+            RTS
+
+DO_SER      JSR    MLI                         ; Open The File
+            DB     Open
+            DA     OPENME
+            LDA    MYOREF                      ; Move The References
+            STA    MYWRREF
+            STA    CLOSEREF
+            STA    MYMRKREF
+            JSR    MLI                         ; get our file size
+            DB     Geteof
+            DA     MYMRKLST
+            SEC                                ; number is at eof-2
+            LDA    MYMRK
+            SBC    #2
+            STA    MYMRK
+            BCS    SETMRK
+            DEC    MYMRK+1
+SETMRK      JSR    MLI                         ; set the mark
+            DB     Setmark
+            DA     MYMRKLST
+            JSR    MLI                         ; write the serial number
+            DB     Write
+            DA     MYWRLIST
+            JSR    MLI                         ; close up
+            DB     Close
+            DA     CLOSELST
+            RTS
+
+*-------------------------------
+* Print And Save Hex Byte
+*-------------------------------
+
+SVNUM       PHA                                ; Save Byte For Later
+            LSR    A                           ; Move Down The High Nibble
+            LSR    A
+            LSR    A
+            LSR    A
+            ORA    #'0'                        ; Make Ascii
+            STA    (TEMP2),Y                   ; Stuff It
+            ORA    #Hibit
+            JSR    MONCOUT
+            DEY                                ; Next Number
+            PLA                                ; Get Back Byte
+            AND    #$F                         ; Strip Off High Nibble
+            ORA    #'0'                        ; Make It Ascii
+            STA    (TEMP2),Y                   ; Stuff It Too
+            ORA    #Hibit
+            JSR    MONCOUT
+            DEY                                ; Point To Next Number
+            RTS
+
+*-------------------------------
+* Print Following Text
+*-------------------------------
+
+NOISE       JSR    PRINT
+            DB     cr,cr,bel,bel+Hibit
+SETUP       JSR    PRINT
+            DB     cr
+            DCI    'SETUP: '
+PRINT       PLA
+            STA    PRN
+            PLA
+            STA    PRN+1
+            BRA    PR2
+
+PR1         LDA    (PRN)
+            PHP
+            ORA    #Hibit
+            JSR    MONCOUT
+            PLP
+            BMI    PR3
+
+PR2         INC    PRN
+            BNE    PR1
+
+            INC    PRN+1
+            BRA    PR1
+
+PR3         LDA    PRN+1
+            PHA
+            LDA    PRN
+            PHA
+            RTS
+
+*-------------------------------
+* Print Name Of File
+*-------------------------------
+
+PRFN        LDX    FLNAME                      ; Get Filename Length
+            STX    PRN                         ; Save For Count
+            LDY    #1                          ; Start At First Char.
+FNLOOP      LDA    FLNAME,Y
+            ORA    #Hibit                      ; Must Have Hi Bit Set
+            JSR    CONV
+            JSR    MONCOUT
+            INY
+            DEC    PRN                         ; Any More?
+            BNE    FNLOOP                      ; Yes
+            RTS
+
+INFOLST     DB     10                          ; INFO/CREATE
+            DA     FLNAME                      ; Path Name
+            DB     0                           ; Access
+            DB     0                           ; File Type
+            DA     0                           ; Aux Type
+            DB     0                           ; Storage Type
+DATE1       DA     0                           ; Blocks Used/Create Date
+            DA     0                           ; Mod Date/Create Time
+            DA     0                           ; Mod Time
+DATE2       DA     0                           ; Create Date
+            DA     0                           ; Create Time
+
+KILLLIST    DB     1
+            DA     FLNAME
+
+OPENLST     DB     3
+            DA     FLNAME
+            DA     IOBUFFER
+OPENREF     DB     0
+
+RWLIST      DB     4
+RWREF       DB     0
+            DA     PROGRAM
+REQUEST     DA     BUFSIZE
+            DA     0
+
+CLOSELST    DB     1
+CLOSEREF    DB     0
+
+OPENME      DB     3
+            DA     OURNAME
+            DA     IOBUFFER
+MYOREF      DB     1
+
+MYMRKLST    DB     2
+MYMRKREF    DB     0
+MYMRK       DS     3
+
+MYWRLIST    DB     4
+MYWRREF     DB     0
+            DA     SERIAL
+            DA     2
+            DA     0
+
+QUITLST     DB     4
+            DB     0
+            DA     0
+            DA     0
+            DA     0
+
+LLUCE_NM    STR    'LLUCE.SYSTEM'
+
+SERIAL      DS     2
+            ORG
+
+ENDOFIT
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'SETUP - Symbol Table'
+
diff --git a/SOURCE/SHELL.GS.S b/SOURCE/SHELL.GS.S
new file mode 100644
index 0000000..1aec261
--- /dev/null
+++ b/SOURCE/SHELL.GS.S
@@ -0,0 +1,674 @@
+********************************
+*                              *
+*  Shell to system file        *
+*                              *
+********************************
+*
+* This overlay allows shelling to any system program,
+* and returning to LLUCE at the place you left off.
+*
+* Calling format is:
+*
+* overlay "shell","system.prog"
+*   [,"startpath"][,"initial.pfx"][,"save.name"]
+*
+* All parameters must be in their proper place.
+* What this means is that if you wish to have a
+* save.name, but not a startpath or initial.pfx,
+* you must still supply those parameters, but they
+* should be empty strings ("").
+*
+* "system.prog" may be any program that executes at
+* $2000.
+*
+* "startpath" is the path of the startup file for the
+* program being run.
+*
+* "initial.pfx" is the prefix to set before executing
+* system.prog.  If this is different from the folder
+* containing "system.prog", "system.prog" must be a
+* complete pathname.
+*
+* "save.name" is a filename to save memory to.
+* The default is "LLUCE.SAVE" in the LLUCE.SYSTEM
+* directory.  Move to a ramdisk for faster operation.
+*
+* NOTE: All pathnames MUST be complete pathnames
+*       unless the partial path is in the CURRENT
+*       directory (Lance!)
+*-------------------------------
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      255
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      N
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/ENTRY
+            LST    RTN
+
+]TYPE       =      ^overlays                          ; set file type
+]AUX        =      overlays                           ; and aux type
+            ORG    ]AUX                               ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/SHELL.GS
+
+            TTL    'LLUCE - Shell to system file'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+            DA     IOEND-MAIN
+            DA     0                                  ; CRC Goes Here
+
+PATH2       =      LNBUF+$80
+
+            ORG    $D000
+
+MAIN        MOVD   MLI+1;ORIGMLI                      ; save patches
+            MOVD   IRQVEC;ORIGIRQ
+            MOVD   RESETVEC;ORIGRST
+
+            LDX    #0
+MOVEMOVE    MOV    MOVECODE,X;DO_MOVES,X
+            DBNE   X;MOVEMOVE
+
+            PDOS   Getpfx;PFXLST                      ; get and save prefix
+
+            LDX    PATH2
+SVOPFX      MOV    PATH2,X;ORIGPFX+QUITCODE-QUIT,X
+            DBPL   X;SVOPFX
+
+            LDX    SYSPFX                             ; set to LLUCE system pfx
+MOVSPFX     MOV    SYSPFX,X;PATH2,X
+            DBPL   X;MOVSPFX
+
+            PDOS   Setpfx;PFXLST
+
+            STZ    PRN
+            JSR    GOBCOM                             ; get the filename
+            JSR    MOVNAME
+            LDX    FLNAME
+MOVFNAME    MOV    FLNAME,X;PATHNAME+EXITCODE-EXIT,X
+            DBPL   X;MOVFNAME
+
+            STZ    PREFIX+EXITCODE-EXIT               ; set for no prefix
+            STZ    STARTUP+EXITCODE-EXIT              ; set no startup
+
+            IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                             ; get the start name
+            JSR    MOVNAME
+            LDX    FLNAME
+            BEQ    EMPTYST
+MOVSTRT     MOV    FLNAME,X;STARTUP+EXITCODE-EXIT,X
+            DBPL   X;MOVSTRT
+
+EMPTYST     IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                             ; get the prefix
+            JSR    MOVNAME
+            LDX    FLNAME
+            BEQ    EMPTYPFX
+MOVPREFX    MOV    FLNAME,X;PREFIX+EXITCODE-EXIT,X
+            DBPL   X;MOVPREFX
+
+EMPTYPFX    IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                             ; get the save name
+            JSR    MOVNAME
+            LDX    FLNAME
+            BEQ    NONAMES
+MOVSAVNM    MOV    FLNAME,X;SAVEPATH+QUITCODE-QUIT,X
+            DBPL   X;MOVSAVNM
+
+NONAMES     LD16   #PATHNAME+EXITCODE-EXIT
+            JSR    EXISTS
+            BCS    ERROR2
+            LD16   #STARTUP+EXITCODE-EXIT
+            JSR    EXISTS
+            BCS    ERROR2
+            LD16   #PREFIX+EXITCODE-EXIT
+            JSR    EXISTS
+            BCC    ALL_OK
+ERROR2      JMP    ERROR
+
+ALL_OK      JSR    DO_CL3                             ; all files closed
+
+*-------------------------------
+* Done accessing LLUCE code
+*-------------------------------
+
+            PHP
+            SEI
+            MOVD   PDOSVEC;MLI+1
+            MOVD   IRQSAVE;IRQVEC
+            PLP
+
+            LDX    SAVEPATH+QUITCODE-QUIT
+MOVPATH     MOV    SAVEPATH+QUITCODE-QUIT,X;PATH2,X
+            DBPL   X;MOVPATH
+
+            CLC                                       ; set native mode
+            XCE
+            REP    #%00110000
+            MX     %00
+            PHA
+            PEA    $1000
+            LDX    #$2003                             ; GetNewID
+            JSL    $E10000
+            PLA
+            STA    USERID+QUITCODE-QUIT
+            STA    ERRID
+            PHA
+            PHA
+            PEA    1                                  ; $10000 bytes
+            PEA    0
+            PHA
+            LDA    #$C018                             ; Locked, fixed, nocross, nospec
+            PHA
+            PEA    0
+            PEA    0
+            LDX    #$0902                             ; NewHandle
+            JSL    $E10000
+            PLX
+            STX    TEMP
+            PLX
+            STX    TEMP+2
+            BCC    GOT_HNDL
+            MX     %11
+            JSR    ERROR
+            LDA    #0                                 ; reload last segment
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            LDA    #$80                               ; continue last segment
+            JSR    RELOAD                             ; no return from here
+
+            MX     %00
+GOT_HNDL    LDY    #2
+            LDA    [TEMP],Y
+            STA    SAVEBANK+QUITCODE-QUIT
+            STA    TEMP3+2
+            STZ    TEMP+2
+
+            BRK    00
+
+            JSR    DO_MOVES                           ; move all code out
+
+            REP    #%00100000
+            MX     #%01
+            MOV    #EXITCODE;TEMP
+            MOV    #EXIT;TEMP3
+            SEP    #%00110000
+            MX     %11
+            LDX    #2
+            LDY    #0
+MOVELUP     MOV    (TEMP),Y;(TEMP3),Y
+            DBNE   Y;MOVELUP
+            DBNE   X;MOVELUP
+
+            JSR    EXIT                               ; returns only if error
+
+ERROR       STA    PRN
+
+            CLC
+            XCE
+            REP    #%00110000                         ; restores all of LLUCE
+            MX     %00
+            MOV    #TEMP;TEMP
+            STA    TEMP3
+
+            SEP    #%00110000
+            MX     %11
+            LDX    #>MLI
+            LDY    #0
+RSTELUP     MOV    [TEMP3],Y;[TEMP],Y
+            DBNE   Y;RSTELUP
+            DBNE   X;RSTELUP
+
+            REP    #%00010000
+            MX     %00
+
+            LDA    ERRID
+            PHA
+            LDX    #$1102                             ; DisposeAll
+            JSL    $E10000
+
+            SEP    #%00110000
+            MX     %11
+            SEC
+            XCE
+
+            PHP
+            SEI
+            MOVD   ORIGMLI;MLI+1
+            MOVD   ORIGIRQ;IRQVEC
+            MOVD   ORIGRST;RESETVEC
+            EOR    #$A5
+            STA    SOFTEV
+            PLP
+            RTS
+
+EXISTS      ST16   TEMP
+            CLC
+            LDA    (TEMP)
+            BEQ    IS_THERE
+            TAY
+MVEXIST     MOV    (TEMP),Y;PATH2,Y
+            DBPL   Y;MVEXIST
+            PDOS   Getinfo;INFOLST
+IS_THERE    RTS
+
+ORIGMLI     DW     0
+ORIGIRQ     DW     0
+ORIGRST     DW     0
+ERRID       DW     0
+
+            DS     \
+
+QUITCODE    ORG    ENDMOD
+
+QUIT        CLD                                       ; for ProDOS
+
+            BRK    00
+
+            CLC
+            XCE
+            REP    #%00110000
+            MX     %00
+
+            LDX    #0                                 ; move quit code up
+QUITUP      MOV    $1000,X;QUIT,X
+            MOV    $1100,X;QUIT+$100,X
+            MOV    $1200,X;QUIT+$200,X
+            DEX
+            DBNE   X;QUITUP
+            JMP    QUITCONT
+
+QUITCONT    LDA    SAVEBANK
+            STA    TEMP3+2
+            STZ    TEMP+2
+
+            LDA    #ENDMOD                            ; saves all of LLUCE
+            LDX    #TEMP
+            TXY
+            JSR    MOVEIN
+
+            LDA    #MLI-FBUF3
+            LDX    #FBUF3
+            TXY
+            JSR    MOVEIN
+
+            SEP    #%00100000
+            STZ    SETRAM1
+            REP    #%00100000
+            LDA    #$1000                             ; move D000-DFFF main bank 1
+            LDX    #MAIN-$1000
+            LDY    #MAIN
+            JSR    MOVEIN
+
+            SEP    #%00100000
+            STZ    SETALTZP                           ; move D000-FEFF aux bank 1
+            REP    #%00100000
+            LDA    #$3000-$100
+            LDX    #MAIN
+            TXY
+            JSR    MOVEIN
+
+            LDA    USERID
+            PHA
+            LDX    #$1102                             ; DisposeAll
+            JSL    $E10000
+
+            SEP    #%00110000
+            MX     %11
+            SEC
+            XCE
+
+            PLP
+            STZ    SETSTDZP
+
+            IFNE   DEV1ADR;DEV2ADR+6;KILLRAM          ; /RAM
+            IFEQ   DEV1ADR+1;DEV2ADR+7;NORAM          ; installed?
+
+KILLRAM     LDX    DEVCNT                             ; Find Any Ramdisk
+FNDRAM      LDA    DEVLST,X                           ; Get Device Id Byte
+            TAY
+            AND    #$B3                               ; Low Nibble Is Type
+            CPEQ   #$B3;MVDEV                         ; Is It A RAM Disk?
+
+            DBPL   X;FNDRAM                           ; Go To Next Device
+            BRA    NORAM
+
+MVDEV       MOV    DEVLST+1,X;DEVLST,X                ; Copy Bytes Down
+            INX
+            CPLTX  #13;MVDEV                          ; Finished With List?
+            STZ    DEVLST+13                          ; zap last byte
+
+            DEC    DEVCNT                             ; 1 Less Device
+
+            LD16   DEV2ADR+6                          ; save driver info
+            STZ    SETALTZP                           ; in alt zp
+            ST16   RAMDRVR
+            STY    RAMDEV
+            STZ    SETSTDZP
+
+            MOVD   DEV1ADR;DEV2ADR+6                  ; set no device
+
+            TYA
+            AND    #HiNibble
+            STA    UNIT                               ; Save Unit Number
+            PDOS   Online;ONLINE                      ; This Clears Device
+
+NORAM       PHP
+            SEI
+            STZ    SETRAM2                            ; Select Ram Card
+            STZ    SETRAM2
+            STZ    SETALTZP
+
+            MOVD   ORIGMLI;MLI+1
+            MOVD   ORIGIRQ;IRQVEC
+            MOVD   ORIGRST;RESETVEC
+            EOR    #$A5
+            STA    SOFTEV
+            PLP
+
+            STZ    AUTOLOG                            ; Clear auto logon flag
+            STZ    V_MODE
+            STZ    BLINK
+            STZ    DISP80                             ; Switch To 80 Column Mode
+            STZ    STORE80                            ; Enable Page Select
+            STZ    ALTCHRS                            ; Mousetext Available
+            STZ    VIDECHO                            ; Make Sure Characters
+
+            MOV    #vidWidth;V_OLDCV                  ; 80 Columns Wide
+
+            LDA    LORES                              ; ** It Makes Things Work !!
+            LDA    ANU_ON                             ; Annunc_On
+            LDA    KBDSTRB
+
+            MOV    #$60;USERVEC                       ; Put RTS For User-Routine
+
+            LDA    #ff                                ; clear any junk
+            JSR    VIDCOUT
+
+            LDA    #0                                 ; reload last segment
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            LDA    #$80                               ; continue last segment
+            JSR    RELOAD                             ; no return from here
+
+MOVEIN      STX    TEMP
+            STY    TEMP3
+            SEP    %00010000
+            MX     %01
+            XBA
+            TAX
+            LDY    #0
+INLOOP      MOV    [TEMP3],Y;[TEMP],Y
+            DEY
+            DBNE   Y;INLOOP
+            INC    TEMP+1
+            INC    TEMP3+1
+            DBNE   X;INLOOP
+            REP    %00010000
+            RTS
+
+RSTSAME     STX    TEMP
+            STY    TEMP3
+            SEP    %00010000
+            MX     %01
+            XBA
+            TAX
+            LDY    #0
+RSTLOOP     MOV    (TEMP3),Y;(TEMP),Y
+            DEY
+            DBNE   Y;RSTLOOP
+            INC    TEMP+1
+            INC    TEMP3+1
+            DBNE   X;RSTLOOP
+            REP    %00010000
+            RTS
+
+ONLINE      DB     2
+UNIT        DB     0
+            DA     LNBUF+$81
+
+SAVEBANK    DW     0
+USERID      DW     0
+
+            DS     $A280-*
+
+SAVEPATH    STR    'LLUCE.SAVE'                       ; our save name
+            DS     $40-*+SAVEPATH,' '                 ; DON'T TOUCH
+ORIGPFX     DS     $40                                ; Prefix to return to
+            ORG
+
+EXITCODE    ORG    $1000
+
+EXIT        SEP    #%00110000                         ; set emulation mode
+            MX     %11
+            SEC
+            XCE
+
+            PHP
+            SEI
+
+            LDEQ   RAMDEV;NODRVR                      ; /RAM removed?
+
+            MOVD   RAMDRVR;DEV2ADR+6
+
+            INC    DEVCNT
+            LDY    DEVCNT
+FIXDEV      MOV    DEVLST-1,Y;DEVLST,Y
+            DBNE   Y;FIXDEV
+            MOV    RAMDEV;DEVLST
+            STZ    SETSTDZP                           ; set to standard zp
+            AND    #HiNibble
+            STA    DVRUNIT
+            MOV    #3;DVRCMD                          ; format command
+            MOVD   #SYSTEM;DVRBUFF
+            LDA    SETRAM2
+            JSR    FMTDVR
+            BCS    EXITERR
+
+NODRVR      STZ    SETSTDZP                           ; set to standard zp
+            STZ    SETROM
+            PLP
+
+            LDEQ   PREFIX;SAMEPFX
+            PDOS   Setpfx;SPFXLST
+            BCS    EXITERR
+SAMEPFX     PDOS   Open;OPENALST
+            BCS    EXITERR
+            MOV    OPENAREF;READAREF
+            STA    CLSALST
+            PDOS   Read;READALST
+            BCS    EXITERR
+            PDOS   Close;CLSALST
+            BCS    EXITERR
+
+            LDEQX  STARTUP;GOSYS                      ;any startup path?
+            IFNE   SYSTEM;#$20;GOSYS                  ; place for startup?
+            IFNE   #$EE;SYSTEM+3;GOSYS
+            CPNE   SYSTEM+4;GOSYS
+            IFLT   STARTUP;SYSTEM+5;GOSYS
+
+MVSTART     MOV    STARTUP,X;SYSTEM+6,X               ; move in path
+            DBPL   X;MVSTART
+
+GOSYS       JMP    SYSTEM
+
+FMTDVR      JMP    (DEV2ADR+6)
+
+EXITERR     STZ    SETRAM2                            ; Select Ram Card
+            STZ    SETRAM2
+            STZ    SETALTZP
+            RTS
+
+OPENALST    DB     3
+            DA     PATHNAME
+            DA     FBUF1
+OPENAREF    DB     0
+
+READALST    DB     4
+READAREF    DB     0
+            DW     SYSTEM
+            DW     MLI-SYSTEM
+            DW     0
+
+CLSALST     DB     1
+CLSAREF     DB     0
+
+SPFXLST     DB     1
+            DA     PREFIX
+
+            DS     \
+
+PATHNAME    DS     $40
+PREFIX      DS     $40
+STARTUP     DS     $40
+            DS     $40
+            ORG
+EXITEND     =      *
+
+MOVECODE    ORG    ENDMOD+$400
+
+            MX     %00
+DO_MOVES    LDA    #MLI                               ; saves all of LLUCE
+            LDX    #TEMP
+            TXY
+            JSR    MOVEOUT
+
+            LDA    #$300                              ; move quit code down
+            LDX    #QUITCODE
+            LDY    #QUIT
+            JSR    MOVESAME
+
+            LDA    TEMP3+2
+            SEP    #%00100000
+            STZ    SETSTDZP                           ; this saves the quit code
+            STZ    SETRAM1
+            REP    #%00100000
+            STA    TEMP3+2
+            STZ    TEMP+2
+            LDA    #$1000                             ; move D000-DFFF main bank 1
+            LDX    #MAIN
+            LDY    #MAIN-$1000
+            JSR    MOVEOUT
+
+            LDA    #$300                              ; put in our quit code
+            LDX    #QUITCODE
+            LDY    #$D100
+            JSR    MOVESAME
+
+            SEP    #%00100000
+            STZ    SETALTZP                           ; move D000-FEFF aux bank 1
+            REP    #%00100000
+            LDA    #$3000-$100
+            LDX    #MAIN
+            TXY
+            JSR    MOVEOUT
+
+            SEP    #%00100000
+            STZ    SETRAM2
+            RTS
+
+MOVEOUT     STX    TEMP
+            STY    TEMP3
+            SEP    #%00010000
+            MX     %01
+            XBA
+            TAX
+            LDY    #0
+OUTLOOP     MOV    [TEMP],Y;[TEMP3],Y
+            DEY
+            DBNE   Y;OUTLOOP
+            INC    TEMP+1
+            INC    TEMP3+1
+            DBNE   X;OUTLOOP
+            REP    #%00010000
+            RTS
+
+MOVESAME    STX    TEMP
+            STY    TEMP3
+            SEP    #%00010000
+            MX     %01
+            XBA
+            TAX
+            LDY    #0
+SAMELOOP    MOV    (TEMP),Y;(TEMP3),Y
+            DEY
+            DBNE   Y;SAMELOOP
+            INC    TEMP+1
+            INC    TEMP3+1
+            DBNE   X;SAMELOOP
+            REP    #%00010000
+            RTS
+
+PFXLST      DB     1
+            DW     PATH2
+
+INFOLST     DB     10
+            DW     PATH2
+            DB     0
+            DB     0
+            DW     0
+            DB     0
+            DW     0
+            DW     0
+            DW     0
+            DW     0
+            DW     0
+            ORG
+IOEND       =      *
+
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'SHELL - Symbol Table'
+
diff --git a/SOURCE/SHELL.S b/SOURCE/SHELL.S
new file mode 100644
index 0000000..dbdb436
--- /dev/null
+++ b/SOURCE/SHELL.S
@@ -0,0 +1,624 @@
+********************************
+*                              *
+*  Shell to system file        *
+*                              *
+********************************
+*
+* This overlay allows shelling to any system program,
+* and returning to LLUCE at the place you left off.
+*
+* Calling format is:
+*
+* overlay "shell","system.prog"
+*   [,"startpath"][,"initial.pfx"][,"save.name"]
+*
+* All parameters must be in their proper place.
+* What this means is that if you wish to have a
+* save.name, but not a startpath or initial.pfx,
+* you must still supply those parameters, but they
+* should be empty strings ("").
+*
+* "system.prog" may be any program that executes at
+* $2000.
+*
+* "startpath" is the path of the startup file for the
+* program being run.
+*
+* "initial.pfx" is the prefix to set before executing
+* system.prog.  If this is different from the folder
+* containing "system.prog", "system.prog" must be a
+* complete pathname.
+*
+* "save.name" is a filename to save memory to.
+* The default is "LLUCE.SAVE" in the LLUCE.SYSTEM
+* directory.  Move to a ramdisk for faster operation.
+*
+* NOTE: All pathnames MUST be complete pathnames
+*       unless the partial path is in the CURRENT
+*       directory (Lance!)
+*-------------------------------
+            DATE
+*-------------------------------
+
+Id          =      5
+Aux         =      255
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+
+            DO     LISTOBJ
+            LST
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/ENTRY
+            LST    RTN
+
+]TYPE       =      ^overlays                         ; set file type
+]AUX        =      overlays                          ; and aux type
+            ORG    ]AUX                              ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/SHELL
+
+            TTL    'LLUCE - Shell to system file'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+            DA     IOEND-MAIN
+            DA     0                                 ; CRC Goes Here
+
+PATH2       =      LNBUF+$80
+
+            ORG    $D000
+
+MAIN
+            MOVD   MLI+1;ORIGMLI                     ; save patches
+            MOVD   IRQVEC;ORIGIRQ
+            MOVD   RESETVEC;ORIGRST
+            LDX    #0
+MOVEMOVE    MOV    MOVECODE,X;DO_MOVES,X
+            DBNE   X;MOVEMOVE
+
+            PDOS   Getpfx;KILLLST                    ; get and save prefix
+
+            LDX    PATH2
+SVOPFX      MOV    PATH2,X;ORIGPFX+QUITCODE-QUIT,X
+            DBPL   X;SVOPFX
+
+            LDX    SYSPFX                            ; set to LLUCE system pfx
+MOVSPFX     MOV    SYSPFX,X;PATH2,X
+            DBPL   X;MOVSPFX
+
+            PDOS   Setpfx;KILLLST
+
+            STZ    PRN
+            JSR    GOBCOM                            ; get the filename
+            JSR    MOVNAME
+            LD16   #PATHNAME+EXITCODE-EXIT
+            JSR    FRMFLN
+
+            STZ    PREFIX+EXITCODE-EXIT              ; set for no prefix
+            STZ    STARTUP+EXITCODE-EXIT             ; set no startup
+
+            LDX    FLNAME
+FINDPFX     LDA    FLNAME,X
+            AND    #Clrhi
+            CPEQ   #'/';FOUNDPFX
+            DBPL   X;FINDPFX
+            BRA    NOPFX
+
+FOUNDPFX    STX    FLNAME
+            LD16   #PREFIX+EXITCODE-EXIT
+            JSR    FRMFLN
+
+NOPFX       IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                            ; get the start name
+            JSR    MOVNAME
+            LD16   #STARTUP+EXITCODE-EXIT
+            JSR    FRMFLN
+
+EMPTYST     IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                            ; get the prefix
+            JSR    MOVNAME
+            LD16   #PREFIX+EXITCODE-EXIT
+            JSR    FRMFLN
+
+EMPTYPFX    IFNE   (PRGPTR);#','+Hibit;NONAMES
+
+            JSR    GOBCOM                            ; get the save name
+            JSR    MOVNAME
+            LD16   #SAVEPATH+QUITCODE-QUIT
+            JSR    FRMFLN
+
+NONAMES     LD16   #PATHNAME+EXITCODE-EXIT
+            JSR    EXISTS
+            BCS    ERROR
+            LD16   #STARTUP+EXITCODE-EXIT
+            JSR    EXISTS
+            BCS    ERROR
+            LD16   #PREFIX+EXITCODE-EXIT
+            JSR    EXISTS
+            BCS    ERROR
+
+            JSR    DO_CL3                            ; all files closed
+
+            JSR    SYSSTORE                          ; save variables
+
+*-------------------------------
+* Done accessing LLUCE code
+*-------------------------------
+
+            PHP
+            SEI
+            MOVD   PDOSVEC;MLI+1
+            MOVD   IRQSAVE;IRQVEC
+            PLP
+
+            LDX    SAVEPATH+QUITCODE-QUIT
+MOVPATH     MOV    SAVEPATH+QUITCODE-QUIT,X;PATH2,X
+            DBPL   X;MOVPATH
+
+            JSR    DO_MOVES                          ; move all code down
+            BCS    MOVEERR
+; put path where we can use it
+            LDX    #0
+MOVMOV2     MOV    MOVCODE2,X;MOVQUIT,X
+            DBNE   X;MOVMOV2
+
+            JSR    MOVQUIT
+
+            JSR    SAVEBUF                           ; save LLUCE kernel
+
+            LDX    #0
+EXITLOOP    MOV    EXITCODE,X;EXIT,X
+            MOV    EXITCODE+$100,X;EXIT+$100,X
+            DBNE   X;EXITLOOP
+
+            JSR    EXIT                              ; returns only if error
+
+            JSR    RSTBUFF                           ; restore original
+
+ERROR       STA    PRN
+            PHP
+            SEI
+            MOVD   ORIGMLI;MLI+1
+            MOVD   ORIGIRQ;IRQVEC
+            MOVD   ORIGRST;RESETVEC
+            EOR    #$A5
+            STA    SOFTEV
+            PLP
+            RTS
+
+EXISTS      ST16   TEMP
+            CLC
+            LDA    (TEMP)
+            BEQ    IS_THERE
+            TAY
+MVEXIST     MOV    (TEMP),Y;PATH2,Y
+            DBPL   Y;MVEXIST
+            PDOS   Getinfo;INFOLST
+IS_THERE    RTS
+
+MOVEERR     JSR    ERROR
+            JSR    SYSRCAL                           ; recall all variables
+            LDA    #0                                ; reload last segment
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            LDA    #$80                              ; continue last segment
+            JSR    RELOAD                            ; no return from here
+
+SAVEBUF     MOVD   #NODENUM;a1
+            MOVD   MODULE;a2
+            MOVD   #SYSTEM;a4
+            SEC
+            JSR    auxMove
+            RTS
+
+RSTBUFF     PHA
+            MOVD   #SYSTEM;a1
+            CLC
+            ADC    MODULE+1
+            STA    a2+1
+            STZ    a2
+            MOVD   #NODENUM;a4
+            CLC
+            JSR    auxMove
+            PLA
+            RTS
+
+ORIGMLI     DW     0
+ORIGIRQ     DW     0
+ORIGRST     DW     0
+
+            DS     \
+
+QUITCODE    ORG    $A000
+
+QUIT        CLD                                      ; for ProDOS
+
+            LDX    #0                                ; move quit code up
+QUITUP      MOV    $1000,X;QUIT,X
+            MOV    $1100,X;QUIT+$100,X
+            MOV    $1200,X;QUIT+$200,X
+            DBNE   X;QUITUP
+            JMP    QUITCONT
+
+QUITCONT    PDOS   Setpfx;OPFXLST
+
+            PDOS   Open;OSAVELST
+            MOV    OSAVEREF;RDREF
+            PDOS   Read;RDLST                        ; read zp and page 3
+            PDOS   Close;OCLSLST
+
+            IFNE   DEV1ADR;DEV2ADR+6;KILLRAM         ; /RAM
+            IFEQ   DEV1ADR+1;DEV2ADR+7;NORAM         ; installed?
+
+KILLRAM     LDX    DEVCNT                            ; Find Any Ramdisk
+FNDRAM      LDA    DEVLST,X                          ; Get Device Id Byte
+            TAY
+            AND    #$B3                              ; Low Nibble Is Type
+            CPEQ   #$B3;MVDEV                        ; Is It A RAM Disk?
+
+            DBPL   X;FNDRAM                          ; Go To Next Device
+            BRA    NORAM
+
+MVDEV       MOV    DEVLST+1,X;DEVLST,X               ; Copy Bytes Down
+            INX
+            CPLTX  #13;MVDEV                         ; Finished With List?
+            STZ    DEVLST+13                         ; zap last byte
+
+            DEC    DEVCNT                            ; 1 Less Device
+
+            LD16   DEV2ADR+6                         ; save driver info
+            STZ    SETALTZP                          ; in alt zp
+            ST16   RAMDRVR
+            STY    RAMDEV
+            STZ    SETSTDZP
+
+            MOVD   DEV1ADR;DEV2ADR+6                 ; set no device
+
+            TYA
+            AND    #HiNibble
+            STA    UNIT                              ; Save Unit Number
+            PDOS   Online;ONLINE                     ; This Clears Device
+
+NORAM       MOVD   ORIGIRQ;IRQVEC
+
+            MOV    MODULE+1;LOADADR2+2
+            STZ    SETALTZP
+            LDY    #1                                ; move zero page down
+            LDA    #>0
+            JSR    MOVEOUT
+            STZ    SETSTDZP
+            LDY    #1                                ; restore interrupt buffer
+            LDA    #>INTBUF
+            JSR    MOVEOUT
+            LDY    #16
+            LDA    #>MAIN                            ; Move D000-DFFF main bank 1
+            STZ    SETRAM1
+            JSR    MOVEOUT
+            STZ    SETALTZP
+            LDY    #16
+            LDA    #>MAIN                            ; Move D000-DFFF aux bank 1
+            JSR    MOVEOUT
+            STZ    SETRAM2
+            LDY    #15
+            LDA    #>PROFILT                         ; Move F000-FEFF aux bank 2
+            JSR    MOVEOUT
+
+            STZ    SETRAM2                           ; Select Ram Card
+            STZ    SETRAM2
+            STZ    SETALTZP
+
+            MOVD   ORIGMLI;MLI+1
+            MOVD   ORIGRST;RESETVEC
+            EOR    #$A5
+            STA    SOFTEV
+
+            STZ    AUTOLOG                           ; Clear auto logon flag
+            STZ    V_MODE
+            STZ    BLINK
+            STZ    DISP80                            ; Switch To 80 Column Mode
+            STZ    STORE80                           ; Enable Page Select
+            STZ    ALTCHRS                           ; Mousetext Available
+
+            MOV    #vidWidth;V_OLDCV                 ; 80 Columns Wide
+
+            LDA    LORES                             ; ** It Makes Things Work !!
+            LDA    ANU_ON                            ; Annunc_On
+            LDA    KBDSTRB
+
+            MOV    #$60;USERVEC                      ; Put RTS For User-Routine
+
+            LDA    #ff                               ; clear any junk
+            JSR    VIDCOUT
+
+            JSR    SYSRCAL                           ; recall all variables
+            LDA    #0                                ; reload last segment
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            PHA
+            LDA    #$80                              ; continue last segment
+            JSR    RELOAD                            ; no return from here
+
+MOVEOUT     STA    SAVEADR2+2
+            LDX    #0
+LOADADR2    LDA    NODENUM,X
+SAVEADR2    STA    NODENUM,X
+            DBNE   X;LOADADR2
+            INC    LOADADR2+2
+            INC    SAVEADR2+2
+            DBNE   Y;LOADADR2
+            RTS
+
+OPFXLST     DB     1
+            DA     ORIGPFX
+
+OSAVELST    DB     3
+            DA     SAVEPATH
+            DA     FBUF1
+OSAVEREF    DB     0
+
+RDLST       DB     4                                 ; Write from $200-$3FF
+RDREF       DB     0
+            DW     NODENUM
+RDREQ       DW     0
+            DW     0
+
+OCLSLST     DB     1
+            DB     0
+
+ONLINE      DB     2
+UNIT        DB     0
+            DA     LNBUF+$81
+
+            DS     $A280-*
+
+SAVEPATH    STR    'LLUCE.SAVE'                      ; our save name
+            DS     $40-*+SAVEPATH,' '                ; DON'T TOUCH
+ORIGPFX     DS     $40                               ; Prefix to return to
+            ORG
+
+EXITCODE    ORG    $1000
+
+EXIT        LDEQ   RAMDEV;NODRVR                     ; /RAM removed?
+
+            MOVD   RAMDRVR;DEV2ADR+6
+
+            INC    DEVCNT
+            LDY    DEVCNT
+FIXDEV      MOV    DEVLST-1,Y;DEVLST,Y
+            DBNE   Y;FIXDEV
+            MOV    RAMDEV;DEVLST
+            STZ    SETSTDZP                          ; set to standard zp
+            AND    #HiNibble
+            STA    DVRUNIT
+            MOV    #3;DVRCMD                         ; format command
+            MOVD   #SYSTEM;DVRBUFF
+            LDA    SETRAM2
+            JSR    FMTDVR
+            BCS    EXITERR
+
+NODRVR      STZ    SETSTDZP                          ; set to standard zp
+            STZ    SETROM
+
+            LDEQ   PREFIX;SAMEPFX
+            PDOS   Setpfx;SPFXLST
+            BCS    EXITERR
+SAMEPFX     PDOS   Open;OPENALST
+            BCS    EXITERR
+            MOV    OPENAREF;READAREF
+            STA    CLSALST
+            PDOS   Read;READALST
+            BCS    EXITERR
+            PDOS   Close;CLSALST
+            BCS    EXITERR
+
+            LDEQX  STARTUP;GOSYS                     ;any startup path?
+            IFNE   SYSTEM;#$20;GOSYS                 ; place for startup?
+            IFNE   #$EE;SYSTEM+3;GOSYS
+            CPNE   SYSTEM+4;GOSYS
+            IFLT   STARTUP;SYSTEM+5;GOSYS
+
+MVSTART     MOV    STARTUP,X;SYSTEM+6,X              ; move in path
+            DBPL   X;MVSTART
+
+GOSYS       JMP    SYSTEM
+
+FMTDVR      JMP    (DEV2ADR+6)
+
+EXITERR     STZ    SETRAM2                           ; Select Ram Card
+            STZ    SETRAM2
+            STZ    SETALTZP
+            RTS
+
+OPENALST    DB     3
+            DA     PATHNAME
+            DA     FBUF1
+OPENAREF    DB     0
+
+READALST    DB     4
+READAREF    DB     0
+            DW     SYSTEM
+            DW     MLI-SYSTEM
+            DW     0
+
+CLSALST     DB     1
+CLSAREF     DB     0
+
+SPFXLST     DB     1
+            DA     PREFIX
+
+            DS     \
+
+PATHNAME    DS     $40
+PREFIX      DS     $40
+STARTUP     DS     $40
+            DS     $40
+            ORG
+EXITEND     =      *
+
+MOVECODE    ORG    $A000
+
+DO_MOVES    MOV    MODULE+1;SAVEADR+2
+            LDY    #1                                ; move zero page up
+            LDA    #>0
+            JSR    MOVEIN
+            LDY    #1                                ; save interrupt buffer
+            LDA    #>INTBUF
+            JSR    MOVEIN
+            LDY    #16
+            LDA    #>MAIN                            ; Move D000-DFFF main bank 1
+            STZ    SETSTDZP
+            STZ    SETRAM1
+            JSR    MOVEIN
+            STZ    SETALTZP
+            LDY    #16
+            LDA    #>MAIN                            ; Move D000-DFFF aux bank 1
+            JSR    MOVEIN
+            STZ    SETRAM2
+            LDY    #15
+            LDA    #>PROFILT                         ; Move F000-FEFF aux bank 2
+            JSR    MOVEIN
+
+            SEC
+            LDA    SAVEADR+2
+            SBC    #>NODENUM
+            STA    WRREQ+1
+            STA    RDREQ+1+QUITCODE-QUIT
+
+            STZ    SETSTDZP
+
+            PDOS   Destroy;KILLLST                   ; kill file...
+            PDOS   Create;CRTLST                     ; make new one
+            BCS    SAVEERR
+            PDOS   Open;OPENLST                      ; open our file
+            BCS    SAVEERR
+
+            MOV    OPENREF;WRREF
+
+            PDOS   Write;WRLST
+            PHP
+            PHA
+            PDOS   Close;CLOSELST
+            PLA
+            PLP
+SAVEERR     STZ    SETALTZP
+            STZ    SETRAM2
+            RTS
+
+MOVEIN      STA    LOADADR+2
+            LDX    #0
+LOADADR     LDA    NODENUM,X
+SAVEADR     STA    NODENUM,X
+            DBNE   X;LOADADR
+            INC    LOADADR+2
+            INC    SAVEADR+2
+            DBNE   Y;LOADADR
+            RTS
+
+OPENLST     DB     3
+            DA     PATH2
+            DA     FBUF1
+OPENREF     DB     0
+
+WRLST       DB     4                                 ; Write from $200-$3FF
+WRREF       DB     0
+            DW     NODENUM
+WRREQ       DW     0
+            DW     0
+
+CLOSELST    DB     1
+            DB     0
+
+KILLLST     DB     1
+            DA     PATH2
+
+CRTLST      DB     7
+            DA     PATH2
+            DB     $E3                               ; standard access
+            DB     ^overlays                         ; LLUCE data file
+            DW     overlays                          ; Non-packed file
+            DB     1                                 ; standard file
+            DW     0                                 ; use current date/time
+            DW     0
+
+INFOLST     DB     $A
+            DW     PATH2
+            DB     0
+            DB     0
+            DW     0
+            DB     0
+            DW     0
+            DW     0
+            DW     0
+            DW     0
+            DW     0
+            DS     \
+            ORG
+
+MOVCODE2    ORG    LNBUF
+
+MOVQUIT     LDX    #0
+MOVEDOWN    MOV    QUITCODE,X;QUIT,X
+            MOV    QUITCODE+$100,X;QUIT+$100,X
+            MOV    QUITCODE+$200,X;QUIT+$200,X
+            DBNE   X;MOVEDOWN
+            STZ    SETSTDZP
+            STZ    SETRAM1
+            LDX    #0
+MOVEUP      MOV    QUIT,X;$D100,X
+            MOV    QUIT+$100,X;$D200,X
+            MOV    QUIT+$200,X;$D300,X
+            DBNE   X;MOVEUP
+            STZ    SETALTZP
+            STZ    SETRAM2
+            RTS
+
+            ORG
+IOEND       =      *
+
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+            TTL    'SHELL - Symbol Table'
+
diff --git a/SOURCE/TEXT.COMP.S b/SOURCE/TEXT.COMP.S
new file mode 100644
index 0000000..c5d1d51
--- /dev/null
+++ b/SOURCE/TEXT.COMP.S
@@ -0,0 +1,266 @@
+********************************
+*                              *
+*    Text compiler             *
+*                              *
+********************************
+* Copyright 1986-1993 By L&L Productions
+*-------------------------------
+*
+* Usage:  OVERLAY "COMP.TXT"[,n]
+*
+*  If n > 0, write text to memory
+*  If n = 0, or not supplied, read text from file
+*-------------------------------
+
+Id          =      5
+Aux         =      254
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+
+]TYPE       =      ^overlays                    ; set file type
+]AUX        =      overlays                     ; and aux type
+            ORG    ]AUX                         ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/COMP.TXT
+
+            TTL    'LLUCE - Text compiler'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                            ; CRC Goes Here
+            LST    OFF
+            ORG    $D000
+
+CODESTRT    =      *
+
+            STZ    WHERETO
+            IFNE   (PRGPTR);#','+Hibit;USE_DEF
+
+            JSR    GOBCOM
+            JSR    INPNUM
+            CPEQX  #0;USE_DEF
+
+            DEC    WHERETO
+USE_DEF     TSTPL  WHERETO;LOADFILE
+
+            LDX    #0
+MOVECODE    MOV    COPYCODE,X;PUTCHAR,X
+            DBNE   X;MOVECODE
+            BRA    COMP
+
+LOADFILE    JSR    PD_GPFX
+            LD16   #OLDPFX
+            JSR    FRMFLN
+            LD16   #SYSPFX
+            JSR    TOFLN
+            JSR    PD_SPFX
+
+            LD16   #FILENAME
+            JSR    TOFLN
+            JSR    IFOPEN
+            BCC    COMP
+
+            MOV    #-1;PRN
+            RTS
+
+COMP        BRK    00
+
+COMP2       JSR    COPYLINE
+            JSR    COMPILE
+            BCS    COMPERR
+            BNE    COMP2
+
+ENDSEC1     LDA    #>PROGTEXT-ERRMSGS
+            JSR    SETPTR
+
+SECTION2    JSR    COPYLINE
+            JSR    COMPILE
+            BCS    COMPERR
+            BNE    SECTION2
+
+ENDSEC2     LDA    #>VIDMSGS-ERRMSGS
+            JSR    SETPTR
+
+SECTION3    JSR    COPYLINE
+            CPEQX  #0;ENDSEC3
+
+            JSR    INPNUMB
+            JSR    WRTCHAR
+            JSR    COPYLINE
+            JSR    COMPILE
+            BCS    COMPERR
+            BNE    SECTION3
+
+ENDSEC3     CLC
+COMPERR     PHP
+            TSTMI  WHERETO;EXIT
+
+            JSR    PD_CLOSE                     ; close the file
+
+            LD16   #OLDPFX                      ; reset the prefix
+            JSR    TOFLN
+            JSR    PD_SPFX
+
+EXIT        LDA    #0
+            PLP
+            BCC    EXIT2
+            DEC    A
+EXIT2       STA    PRN
+            RTS
+
+COMPILE     LDX    #0
+COMPLUP     LDEQ   LNBUF,X;ERROR
+            CPEQ   #'.';TSTEND2
+            CPEQ   #'\';HNDLBKSL
+CHKENDLN    LDY    LNBUF+1,X
+            CPNEY  #cr;STDCHAR
+            INX
+            ORA    #Hibit
+STDCHAR     PHP
+            JSR    WRTCHAR
+            INX
+            PLP
+            BPL    COMPLUP
+            LDA    #cr
+            CLC
+            RTS
+
+HNDLBKSL    IFEQ   LNBUF+1,X;#'\';NXTCHAR
+            CPLT   #'a';NOTLC
+            SBC    #$20
+NOTLC       CPLT   #'A';NOTALF
+            CPGE   #'_'+1;NOTALF
+            SEC
+            SBC    #Ctrl
+NXTCHAR     IBRA   X;CHKENDLN
+
+NOTALF      CPNE   #'?';ESCBAD
+            LDA    #$7F
+            BRA    NXTCHAR
+
+ESCBAD      LDA    #'\'
+            BRA    STDCHAR
+
+TSTEND2     LDY    LNBUF+1,X
+            CPNEY  #cr;STDCHAR
+            LDA    #0
+            JSR    WRTCHAR
+            JSR    WRTCHAR
+            LDA    #0
+            CLC
+            RTS
+
+ERROR       SEC
+            RTS
+
+INPNUMB     STZ    TEMP
+
+            LDX    #0
+
+NUMBER2     IFLT   LNBUF,X;#'0';NUMBER5         ; is it a number?
+            CPGE   #'9'+1;NUMBER5
+            AND    #LoNibble
+            PHA
+            LDA    TEMP
+            ASL    A
+            ASL    A
+            CLC
+            ADC    TEMP
+            ASL    A
+            STA    TEMP
+            CLC
+            PLA
+            ADC    TEMP
+            STA    TEMP
+            IBRA   X;NUMBER2
+
+NUMBER5     LDA    TEMP
+            RTS
+
+COPYLINE    LDX    #0
+COPYLUP     JSR    EDIN
+            STA    LNBUF,X
+            TAY
+            BEQ    CPYDONE
+            INX
+            CPNE   #cr;COPYLUP
+CPYDONE     RTS
+
+WRTCHAR     TSTPL  WHERETO;WRFILE
+            JMP    PUTCHAR
+
+WRFILE      JMP    PD_WRBYT
+
+SETPTR      TSTPL  WHERETO;POSFILE
+            JMP    SETPOS
+
+POSFILE     LDX    #0
+            LDY    #0
+            JMP    PD_SPOS
+
+COPYCODE    ORG    FREESPACE
+
+PUTCHAR     STZ    SETSTDZP                     ; enable message area
+            STZ    SETRAM1
+
+TEXTPTR     STA    ERRMSGS                      ; get the byte
+
+            INCD   TEXTPTR+1                    ; increment pointer
+
+            STZ    SETALTZP                     ; put overlay back
+            STZ    SETRAM2
+            RTS
+
+SETPOS      CLC
+            ADC    #>ERRMSGS
+            STA    TEXTPTR+2
+            STZ    TEXTPTR+1
+            RTS
+
+            ORG
+
+CODEEND     =      *
+
+WHERETO     DB     0
+FILENAME    STR    'LLUCE.TEXT'
+OLDPFX      DS     $40
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+
diff --git a/SOURCE/TEXT.DECOMP.S b/SOURCE/TEXT.DECOMP.S
new file mode 100644
index 0000000..a58690c
--- /dev/null
+++ b/SOURCE/TEXT.DECOMP.S
@@ -0,0 +1,254 @@
+********************************
+*                              *
+*    Text decompiler           *
+*                              *
+********************************
+* Copyright 1986-1993 By L&L Productions
+*-------------------------------
+*
+* Usage:  OVERLAY "DECOMP.TXT"[,n]
+*
+*  If n > 0, read text from memory
+*  If n = 0, or not supplied, read text from file
+*-------------------------------
+
+Id          =      5
+Aux         =      254
+
+            LST    OFF
+            LSTDO  OFF
+            XC
+            TR
+            TR     ADR
+            EXP    ONLY
+Y           =      1
+y           =      1
+N           =      0
+n           =      0
+NOLIST      =      Y
+            DO     NOLIST
+LISTOBJ     =      N
+LISTSYM     =      N
+            ELSE
+LISTOBJ     KBD    'List This Source? (Y/N)'
+LISTSYM     KBD    'List Symbol Table? (Y/N)'
+            FIN
+            LST    OFF
+            USE    EQUATES/MACROS
+            PUT    EQUATES/EQUATES
+            PUT    EQUATES/OS.EQUATES
+            PUT    EQUATES/ENTRY
+            PUT    EQUATES/DRIVEREQU
+            PUT    EQUATES/RAMAREA
+
+]TYPE       =      ^overlays                    ; set file type
+]AUX        =      overlays                     ; and aux type
+            ORG    ]AUX                         ; must be this way
+            TYP    ]TYPE
+
+            DSK    /MAIN/LLUCE/SYSTEM/DECOMP.TXT
+
+            TTL    'LLUCE - Text decompiler'
+            DO     LISTOBJ
+            LST
+            FIN
+
+            DB     Id
+            DA     Aux
+            DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+            DA     CODEEND-CODESTRT
+            DA     0                            ; CRC Goes Here
+
+            ORG    $D000
+
+CODESTRT    =      *
+
+            JSR    ED_CLR
+            STZ    WHEREFRM
+            IFNE   (PRGPTR);#','+Hibit;USE_DEF
+
+            JSR    GOBCOM
+            JSR    INPNUM
+            CPEQX  #0;USE_DEF
+
+            DEC    WHEREFRM
+USE_DEF     TSTPL  WHEREFRM;LOADFILE
+
+            LDX    #0
+MOVECODE    MOV    COPYCODE,X;GETCHAR,X
+            DBNE   X;MOVECODE
+            BRA    DECOMP
+
+LOADFILE    JSR    PD_GPFX
+            LD16   #OLDPFX
+            JSR    FRMFLN
+            LD16   #SYSPFX
+            JSR    TOFLN
+            JSR    PD_SPFX
+
+            LD16   #FILENAME
+            JSR    TOFLN
+            JSR    IFOPEN
+            BCC    DECOMP
+
+            MOV    #-1;PRN
+            RTS
+
+DECOMP      JSR    READCHAR
+            CPEQ   #0;ENDSEC1
+            JSR    PUTCHAR
+            BRA    DECOMP
+
+ENDSEC1     LDA    #>PROGTEXT-ERRMSGS
+            JSR    SETPTR
+            JSR    SECTEND
+
+SECTION2    JSR    READCHAR
+            CPEQ   #0;ENDSEC2
+            JSR    PUTCHAR
+            BRA    SECTION2
+
+ENDSEC2     LDA    #>VIDMSGS-ERRMSGS
+            JSR    SETPTR
+            JSR    SECTEND
+
+SECTION3    JSR    READCHAR
+            PHA
+            JSR    READCHAR
+            CPEQ   #0;ENDSEC3
+            TAX
+            PLA
+            PHX
+            JSR    MKDEC
+            PHA
+            TYA
+            BEQ    NO100
+            ORA    #'0'
+            JSR    EDOUT
+NO100       TXA
+            BEQ    NO10
+            ORA    #'0'
+            JSR    EDOUT
+NO10        PLA
+            ORA    #'0'
+            JSR    EDOUT
+            LDA    #cr
+            JSR    EDOUT
+            PLA
+            BRA    SEC3TXT
+
+READ3TXT    JSR    READCHAR
+SEC3TXT     JSR    PUTCHAR
+            BCC    READ3TXT
+            BRA    SECTION3
+
+ENDSEC3     PLA
+            TSTMI  WHEREFRM;EXIT
+
+            JSR    PD_CLOSE                     ; close the file
+
+            LD16   #OLDPFX                      ; reset the prefix
+            JSR    TOFLN
+            JSR    PD_SPFX
+
+EXIT        STZ    PRN
+            RTS
+
+PUTCHAR     PHA
+            CMP    #-1
+            BEQ    NULL
+            AND    #Clrhi
+            CPNE   #'\';NOTBKSL                 ; is it a \?
+            JSR    EDOUT                        ; yes, do 2 of them
+NOTBKSL     CPGE   #' ';NOTCTRL
+            PHA
+            LDA    #'\'
+            JSR    EDOUT
+            PLA
+            CLC
+            ADC    #Ctrl
+NOTCTRL     JSR    EDOUT
+            PLA
+            BPL    NOTEND
+            LDA    #cr
+            JSR    EDOUT
+            SEC
+            RTS
+
+NOTEND      CLC
+            RTS
+
+NULL        LDA    #'\'
+            JSR    EDOUT
+            LDA    #'?'
+            BRA    NOTCTRL
+
+SECTEND     LDA    #'.'
+            JSR    EDOUT
+            LDA    #cr
+            JMP    EDOUT
+
+MKDEC       LDY    #0                           ; zero 100's
+CP100       CPLT   #100;LT100                   ; > 99?
+            INY                                 ; incerment 100s
+            SEC
+            SBC    #100                         ; remove 100
+            BRA    CP100                        ; check again
+
+LT100       LDX    #0                           ; zero 10s
+CP10        CPLT   #10;LT10                     ; > 9?
+            INX                                 ; increment 10s
+            SEC
+            SBC    #10                          ; remove 10
+            BRA    CP10                         ; check again
+
+LT10        RTS
+
+READCHAR    TSTPL  WHEREFRM;RDFILE
+            JMP    GETCHAR
+
+RDFILE      JMP    PD_RDBYT
+
+SETPTR      TSTPL  WHEREFRM;POSFILE
+            JMP    SETPOS
+
+POSFILE     LDX    #0
+            LDY    #0
+            JMP    PD_SPOS
+
+COPYCODE    ORG    FREESPACE
+
+GETCHAR     STZ    SETSTDZP                     ; enable message area
+            STZ    SETRAM1
+
+TEXTPTR     LDA    ERRMSGS                      ; get the byte
+
+            INCD   TEXTPTR+1                    ; increment pointer
+
+            STZ    SETALTZP                     ; put overlay back
+            STZ    SETRAM2
+            RTS
+
+SETPOS      CLC
+            ADC    #>ERRMSGS
+            STA    TEXTPTR+2
+            STZ    TEXTPTR+1
+            RTS
+
+            ORG
+
+CODEEND     =      *
+
+WHEREFRM    DB     0
+FILENAME    STR    'LLUCE.TEXT'
+OLDPFX      DS     $40
+            LST    OFF
+            DO     LISTSYM
+            LST
+            FIN
+
diff --git a/SOURCE/TEXT.S b/SOURCE/TEXT.S
new file mode 100644
index 0000000..0bd954d
--- /dev/null
+++ b/SOURCE/TEXT.S
@@ -0,0 +1,162 @@
+            LST   OFF
+            TR
+            TR    ADR
+            TTL   'LLUCE - Error Messages'
+
+drivers     =     $2E8005
+
+]TYPE       =     ^drivers                  ; set file type
+]AUX        =     drivers                   ; and aux type
+            ORG   ]AUX                      ; must be this way
+            TYP   ]TYPE
+
+            DSK   /MAIN/LLUCE/LLUCE.TEXT
+
+**************************************************
+*                                                *
+*  ProTerm special control equates               *
+*                                                *
+**************************************************
+
+Ctrl        =     $40
+
+begin       =     'A'-Ctrl                  Cursor
+endline     =     'B'-Ctrl                  Cursor
+delchar     =     'D'-Ctrl                  Delete
+inschar     =     'F'-Ctrl                  Insert
+bell        =     'G'-Ctrl                  Ring
+back        =     'H'-Ctrl                  Cursor
+tab         =     'I'-Ctrl                  Tab
+down        =     'J'-Ctrl                  Cursor
+up          =     'K'-Ctrl                  Cursor
+clrscn      =     'L'-Ctrl                  Clear
+cr          =     'M'-Ctrl                  Do
+normal      =     'N'-Ctrl                  Normal
+inverse     =     'O'-Ctrl                  Inverse
+mouse       =     'P'-Ctrl                  Real
+repeat      =     'R'-Ctrl                  Repeat
+tone        =     'T'-Ctrl                  ProTERM
+right       =     'U'-Ctrl                  Cursor
+insline     =     'V'-Ctrl                  insert
+clreos      =     'W'-Ctrl                  Clear
+home        =     'X'-Ctrl                  Home
+clreol      =     'Y'-Ctrl                  Clear
+delline     =     'Z'-Ctrl                  Delete
+gotoxy      =     '^'-Ctrl                  GotoXY
+
+txtend      =     $80
+
+**************************************************
+*                                                *
+* Error messages                                 *
+*                                                *
+**************************************************
+
+ERRMSGS     DB    -1
+            DCI   '1: Syntax error'
+            DCI   '2: END of program'
+            DCI   '3: Missing symbol error'
+            DCI   '4: Missing data'
+            DCI   '5: Type mismatch error'
+            DCI   '6: String overflow'
+            DCI   '7: Numeric overflow'
+            DCI   '8: Division by zero'
+            DCI   '9: Bad device number'
+            DCI   '10: Bad filename'
+            DCI   '11: Link label not found'
+            DCI   '12: Message file not found'
+            DCI   '13: Cannot load overlay'
+            DCI   '14: Prefix not found'
+            DCI   '15: Module not found'
+            DCI   '16: Disk write error'
+            DCI   '17: A label was not defined'
+            DCI   '18: GOSUB stack full'
+            DCI   '19: RETURN without GOSUB error'
+            DCI   '20: FOR stack full'
+            DCI   '21: NEXT without FOR error'
+            DCI   '22: RESUME with no error'
+            DCI   '23: Bad system overlay version'
+            DCI   '24: SYSOP call termination'
+            DCI   '25: DO stack full'
+            DCI   '26: No pending DO'
+            DCI   '27: WHILE stack full'
+            DCI   ': User Defined error'
+            DB    0,0
+
+            DS    $400-*+ERRMSGS
+            ERR   *-$2E8405
+
+**************************************************
+*                                                *
+* Other messages                                 *
+*                                                *
+**************************************************
+
+PROGTEXT    DB    -1                        ;0
+            DB    cr                        ;1
+            DCI   'Starting Module Not Found'
+            DB    cr                        ;2
+            ASC   'One Moment Please...'
+            DB    cr+txtend
+;3
+            ASC   '...Exiting Exec Mode...'
+            DB    cr,cr+txtend
+            DB    cr,cr                     ;4
+            ASC   'Sysop Is On-Line...'
+            DB    cr,cr+txtend
+            DB    cr                        ;5
+            ASC   'Sysop Is Off-Line...'
+            DB    cr,cr+txtend
+            DB    cr,cr                     ;6
+            ASC   'Sorry, Time Limit Exceeded'
+            DB    cr+txtend
+            DB    cr                        ;7
+            ASC   'One Moment Please...'
+            DB    cr+txtend
+;8
+            DB    repeat,back,20            ; back up over it
+            DB    repeat,' ',20             ; cover it up
+            DB    repeat,back,19            ; back up again
+            DB    back+txtend
+            DB    0,0
+
+            DS    $400-*+PROGTEXT
+            ERR   *-$2E8805
+
+**************************************************
+*                                                *
+* These are the top of screen messages.          *
+* The format must be followed or the results can *
+* be unpredictable.                              *
+*                                                *
+* Byte 1:  Horizontal position                   *
+* Additional bytes:                              *
+*          Printed text.  May contain PTSE       *
+*          control characters, last character    *
+*          must have its high bit set.           *
+*                                                *
+* This pattern is to be repeated for as many     *
+* messages are desired up to 1K                  *
+*                                                *
+**************************************************
+
+VIDMSGS     DB    0
+            DB    inverse
+            DB    repeat,'-',79
+            DCI   '-'
+            DB    33
+            DB    inverse
+            DCI   '[ Page: On ]'
+            DB    33
+            DB    inverse
+            DCI   '[ Chat: On ]'
+            DB    33
+            DB    inverse
+            DCI   '[ Exec: On ]'
+            DB    0,0                       ; This MUST be at the end
+; to denote the end of
+; messages
+            DS    $300-*+VIDMSGS
+            ERR   *-$2E8B05
+            LST   OFF
+
diff --git a/SOURCE/UP4K.S b/SOURCE/UP4K.S
new file mode 100644
index 0000000..a1e9270
--- /dev/null
+++ b/SOURCE/UP4K.S
@@ -0,0 +1,1535 @@
+               TR
+               TR    ADR
+* Use "A:Protocol.Up",100,1,"L10:","               " = Batch
+* Use "A:Protocol.Up",100,0,"L10:NEW.FILE" = Single File
+*
+* Written By Andy Nicholas
+*-------------------------------
+
+               ORG   $9E00
+
+* Protocol Stuff
+*-------------------------------
+
+Soh            =     1                 ; <Soh>  = 128  Byte Block
+Stx            =     2                 ; <Stx>  = 1024 Byte Block
+Sstx           =     $82               ; <Sstx> = 4096 Byte Block
+Eot            =     4                 ; <Eot>  = End Of Transfer
+Ack            =     6                 ; <Ack>  = Good Packet
+Nak            =     $15               ; <Nak>  = Bad Packet
+Can            =     $18               ; <Can>  = Cancel Transfer
+Syn            =     $16
+Etb            =     $17
+Esc            =     $9B               ; Escape Keypress
+Bs             =     8
+
+* ProDOS MLI Calls
+*-------------------------------
+
+CREATE         =     $C0
+DESTROY        =     $C1
+SET_FILE_INFO  =     $C3
+GET_FILE_INFO  =     $C4
+OPEN           =     $C8
+WRITE          =     $CB
+CLOSE          =     $CC
+FLUSH          =     $CD
+SET_EOF        =     $D0
+
+* General Global Equates
+*-------------------------------
+
+POINTER        =     0
+FAILFLAG       =     $A
+TMODE          =     $B
+HTAB           =     $24               ; Horizontal Locations
+GOBCOM         =     $386              ; Acos Routine To Eat Commas
+INPNUM         =     $389              ; Get Character Into X Reg
+INPSTR         =     $38C              ; Get A String
+MOVNAME        =     $38F              ; Get Filename Into Filename Buffer
+SETOVEC        =     $3A1              ; Set Output Vector To Y Reg
+LOG            =     $3C8              ; Move Pathname Into Path Buffer
+ACOSPATH       =     $3CB              ; Pathname Addr Lo From Acos
+LOCPRINT       =     $906              ; Print To The Local Screen
+MDMIN          =     $E15              ; Modem Driver Input Routine
+MDMOUT         =     $E18              ; Modem Driver Output Routine
+MDMDCD         =     $E1B              ; Modem Driver Carrier Detect
+MLI            =     $BF00             ; Prodos Calls
+KEY            =     $C000             ; Grab A Keystroke
+STORE80        =     $C001
+STROBE         =     $C010             ; Keyboard Strobe
+PAGE1          =     $C054
+PAGE2          =     $C055
+LORES          =     $C056
+HIRES          =     $C057
+PTRIG          =     $C070             ; Paddle Trigger
+
+BLOCKBUFFER    =     $2000
+FILEBUFFER     =     $AE00             ; 1K File Buffer For Prodos
+CRCLO          =     $3100             ; CRC Table Addresses
+CRCHI          =     $3200
+
+* Program Starts Here...
+*-------------------------------
+
+UPLOAD         JMP   DOSTART
+               JMP   DOSTART
+
+*
+* Get/Set File Info Parms
+*
+PARMLIST       DB    $C3               ; Access
+               DB    4                 ; Filetype (Text)
+               DA    0                 ; Auxtype
+               DB    1                 ; Not Used
+               DA    0                 ; Length In Prodos Blocks
+               DA    0                 ; Mod Date
+               DA    0                 ; Mod Time
+               DA    0                 ; Create Date
+               DA    0                 ; Create Time
+
+*
+* EOF Parms To Set The Proper End Of The File
+*
+:EOFPARMS      DB    2                 ; Parm Count
+               DB    0                 ; Reference Number
+               DA    0
+
+BLOCKCOUNT     DA    0                 ; Current Block Number
+TOTALERR       DA    0                 ; How Many Total Errors Occurred
+XMODEMSIZE     DA    0                 ; Size In Xmodem Blocks
+
+* Actual Xmodem Routines Begin Here
+*-------------------------------
+
+DOSTART        LDA   #0
+               STA   HTAB
+               STA   USECSUM           ; Don't Use Checksum Initially
+               STA   PACKETNUM
+               STA   PACKET1K
+               STA   PACKET4K
+               STA   FAILFLAG          ; Innocent Until Proven Guilty
+               STA   STROBE            ; Reset The Keyboard Strobe
+               STA   BLOCKCOUNT        ; Zero Out Block Count Lo
+               STA   BLOCKCOUNT+1      ; Zero Out Block Count Hi
+               STA   TOTALERR
+               STA   TOTALERR+1
+               STA   CONSECERR
+               STA   BATCHMODE         ; Batchmode = False
+               STA   RENAMETRIES       ; 0 Rename Tries
+               LDA   #30               ; 30 Retries For The First
+               STA   RETRY             ; Header Block.. Fast Ones
+               LDY   #3
+               JSR   SETOVEC           ; Sysop Local Output Vector
+               LDA   #<SCREENTEXT
+               STA   POINTER
+               LDA   #>SCREENTEXT
+               STA   POINTER+1
+               JSR   PRINTPSTRING      ; Put The Mode Stuff On The Screen
+               JSR   PRINTCOUNT        ; Print The Block Count On The Screen
+               JSR   PRINTERR          ; Print The # Of Errors On The Screen
+               JSR   GOBCOM
+               JSR   INPNUM            ; Get Timeout
+               STX   TIMEOUT
+               STX   WAITFOR
+               STA   TIMEOUT+1
+               STA   WAITFOR+1
+               JSR   GOBCOM            ; Get Protocol
+               JSR   INPNUM
+               BNE   :DIE
+
+               CPX   #0
+               BEQ   INTELLIGENT       ; Is It 0? Yes, Intelligent
+
+               STX   BATCHMODE         ; Batchmode = True
+               STX   TMODE             ; 1=Ymodem,2=Ymodem-4K
+               JMP   YBATCH            ; Yes, Batch Ymodem
+
+:DIE           LDA   #255              ; Syntax Error
+               STA   FAILFLAG
+               RTS
+
+* Start Of Intelligent Protocol Routines
+*-------------------------------
+
+INTELLIGENT    JSR   GOBCOM            ; Search For First Delimiter
+               JSR   MOVNAME           ; Get Pathname In Buff
+               LDA   ACOSPATH
+               STA   POINTER
+               LDA   ACOSPATH+1
+               STA   POINTER+1
+               LDY   #0                ; Get Length Of Filename
+               LDA   (POINTER),Y
+               STA   FILENAME
+               TAY
+:FNAME         LDA   (POINTER),Y       ; Move Acos's Filename To Ours
+               STA   FILENAME,Y
+               DEY
+               BNE   :FNAME
+
+               STA   STORE80           ; Switch To Aux Hires Bank
+               STA   HIRES
+               STA   PAGE2
+               JSR   MAKETABLE         ; Quick! Go Make The CRC Table!
+               LDA   #57
+               STA   HTAB
+               LDA   #<FILENAME        ; Print Filename As Pascal String
+               STA   POINTER
+               STA   DESTROYPARMS
+               LDA   #>FILENAME
+               STA   POINTER+1
+               STA   DESTROYPARMS+1
+               JSR   PRINTPSTRING
+               JSR   MLI               ; Create Our Output File
+               DB    CREATE
+               DA    CREATEPARMS
+               JSR   MLI
+               DB    OPEN
+               DA    OPENPARMS
+               BCC   XSTART
+
+               STA   FAILFLAG          ; Store Error In Peek(10)
+               JMP   ERROUT
+
+* The Actual X/Ymodem Routines Start Here
+*-------------------------------
+
+XSTART         LDA   OPENPARMS+5
+               STA   CLOSEPARMS+1
+               STA   EOFPARMS+1        ; Save For Eof Parms
+               STA   WRITEPARMS+1      ; Save For Write Parms
+               LDA   #$C3              ; Access =
+               STA   SFIPARMS+3        ; Unlocked
+               JMP   AEHEADER
+
+* Ae Header Error
+*-------------------------------
+
+HEADERR        DEC   RETRY
+               BNE   AEHEADER
+
+               LDA   #1                ; Flag Header Timeout
+               JMP   ERREND
+
+* Attempt To Get The Ae Header And Set Proper Protocol
+*-------------------------------
+
+AEHEADER       LDA   #0
+:LUP           STA   LASTCHAR
+               JSR   INPUT
+               BCC   :CLEAR            ; If Channel Is Clear,
+
+               CMP   #Can              ; Is It A <Can>?
+               BNE   :CHECKSOH
+
+               CMP   LASTCHAR
+               BNE   :CHECKSOH
+
+               JMP   ERREND
+
+:CHECKSOH      JSR   SOHENTRY          ; Check For Send Of Headers
+               BCC   :GOTHEADER        ; Hey!  We Got A Header Too Soon
+               BCS   :LUP              ; Must Have Been Line Noise... Weird
+
+:CLEAR         JSR   CK_OUT            ; Output A Nak To Start Trans.
+               JSR   SOHCHK            ; Look For Start Of Header
+               BCS   HEADERR           ; Something Wrong->Start Over
+
+:GOTHEADER     CMP   #Eot              ; Is This The EOT?
+               BEQ   HEADERR           ; If So, Something's Screwed...
+
+               LDA   #41
+               STA   HTAB
+               LDA   RETRY
+               CMP   #8
+               BCC   :CSUM
+
+               LDA   #3
+               STA   TMODE             ; Set Transfer Mode To CRC
+               LDA   #<CRCMSG
+               STA   POINTER
+               LDA   #>CRCMSG
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+               JMP   :SHOW
+
+:CSUM          LDA   #1
+               STA   TMODE             ; Set Transfer Mode To Checksum
+               STA   USECSUM           ; Tell Them We're Using Checksum Mode
+               LDA   #<CSUMMSG
+               STA   POINTER
+               LDA   #>CSUMMSG
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+:SHOW          LDA   #46
+               STA   HTAB
+               LDA   LASTCHAR          ; Chk Last Sent Char For Hi Bit
+               CMP   #$81
+               BNE   XSET              ; Must Not Be AE
+
+               JSR   INPUT             ; Get Input
+               BCC   :HEADERRJMP       ; Nothing There
+
+               STA   LASTCHAR          ; Otherwise, Save It
+               JSR   INPUT             ; Get Next Input
+               BCC   :HEADERRJMP       ; Nothing There
+
+               EOR   #$FF              ; Otherwise, Flip Its Bits
+               CMP   LASTCHAR          ; And See If It's First Eored
+               BNE   :HEADERRJMP
+
+               JSR   ACKOUT            ; Send Ack
+
+               LDA   #10
+               STA   RETRY
+               LDA   #<PROMSG
+               STA   POINTER
+               LDA   #>PROMSG
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+               INC   PACKETNUM         ; Receiving Packet #1
+               JMP   NEXTBLOCK         ; Start CRC Xmodem Packet Receive
+
+:HEADERRJMP    JMP   HEADERR
+
+* Set Standard Xmodem Send If There Was Some Problem With Ae
+*-------------------------------
+
+XSET           LDA   #<STANDARDMSG
+               STA   POINTER
+               LDA   #>STANDARDMSG
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+               LDA   #10
+               STA   RETRY
+               DEC   TMODE
+               INC   PACKETNUM         ; Receiving Packet #1
+               JMP   STANDARD
+
+* Print A Character On Sysop's Screen, DEC Err Count
+*-------------------------------
+
+ERROR          INC   TOTALERR
+               BNE   :NOROLL
+               INC   TOTALERR+1
+:NOROLL        LDA   RETRY
+               CMP   #10
+               BNE   :NO_CONSEC
+
+               INC   CONSECERR
+:NO_CONSEC     JSR   PRINTERR
+               JSR   NAKOUT            ; Send <Nak>, Bad Something
+               DEC   RETRY             ; More Retries?
+               BNE   ERRENTRY          ; Yep, Once More..Till 10
+
+               LDA   #2                ; More Than 2 Consecutive Errors
+               JMP   ERREND            ; Nope, End It All
+
+* Get A Block
+*-------------------------------
+
+NEXTBLOCK      LDA   #10
+               STA   RETRY
+ERRENTRY       JSR   SOHCHK
+               BCS   ERROR
+
+               JSR   CHECKEOT
+STANDARD       LDA   LASTCHAR          ; Entry Point For Standard
+               STA   BLK_TYPE
+               JSR   BLKCHK
+               BCS   ERROR
+
+               LDA   BLK_TYPE
+               CMP   #Soh
+               BEQ   :GET_128
+
+               CMP   #Stx
+               BEQ   :X1024
+
+:X4096         JSR   GET4096
+               BCS   ERROR
+               BCC   :WRITE_IT
+
+:X1024         JSR   GET1024
+               BCS   ERROR
+               BCC   :WRITE_IT
+
+:GET_128       LDA   USECSUM
+               BNE   :CSUM
+
+               JSR   GET128CRC
+               BCS   ERROR
+               BCC   :WRITE_IT
+
+:CSUM          JSR   GET128CSUM
+               BCS   ERROR
+
+:WRITE_IT      JSR   WRITEBUFFER
+               JSR   ACKOUT            ; Send Ack
+               JMP   NEXTBLOCK
+
+* Check For End Of Transfer
+*-------------------------------
+
+CHECKEOT       LDA   LASTCHAR          ; Get Last Char Sent
+               CMP   #Eot              ; Is It A Eot Flag?
+               BEQ   :DONE             ; Yes, End It
+
+               RTS                     ; And Back To Caller
+
+:DONE          LDA   BATCHMODE         ; Were We In Batch Mode For This?
+               BEQ   FILEEOT           ; Yes, Finish As Batch
+
+               JMP   BATCHEOT          ; Nope, Finish As Batch Mode
+
+* Yeah!  That's All She Wrote
+*-------------------------------
+
+FILEEOT        PLA                     ; Get Rid Of Return
+               PLA                     ; Address
+               JSR   ACKOUT            ; Send Ack
+               LDA   TMODE             ; Get Trans Mode
+               CMP   #1
+               BEQ   GET_FOOT
+
+               CMP   #3
+               BEQ   GET_FOOT
+
+NOFOOT         JMP   AESKIP
+
+* Start With Ae Footer Packet
+*-------------------------------
+
+GET_FOOT       LDY   #6                ; Set Prodos Footer Retry Count
+:LOOP          DEY                     ; Decrement Count
+               BEQ   NOFOOT
+
+               LDA   #$16              ; $16 = Syn (Prodos Proto)
+               JSR   MDMOUT            ; Send It
+               JSR   INPUT             ; Get Input
+               CMP   #$17              ; Is It $17 (Etb Prodos Proto)
+               BNE   :LOOP             ; Not Etb, Retry
+
+               LDA   #10               ; Init To 10
+               STA   RETRY             ; Retry Counter
+               JMP   FOOTER
+
+* Prodos Parms Error Restart
+*-------------------------------
+
+FOOTERR        INC   TOTALERR
+               BNE   :NOROLL
+               INC   TOTALERR+1
+:NOROLL        LDA   RETRY
+               CMP   #10
+               BNE   :NO_CONSEC
+
+               INC   CONSECERR
+:NO_CONSEC     JSR   PRINTERR
+               JSR   NAKOUT
+               DEC   RETRY
+               BNE   FOOTER
+
+               LDA   #3                ; Footer Error
+               JMP   ERREND
+
+* Prodos Mli Info Packet
+*-------------------------------
+
+FOOTER         JSR   NAKOUT            ; Send A Nak
+               LDA   #$AA
+               STA   PACKETNUM
+               JSR   SOHCHK            ; Look For Soh
+               BCS   FOOTERR           ; Wrong-Retry
+
+               JSR   BLKCHK
+               BCS   FOOTERR
+
+               LDA   #<SFIPARMS
+               STA   POINTER
+               LDA   #>SFIPARMS
+               STA   POINTER+1
+               LDA   USECSUM
+               BNE   :CSUM
+
+               JSR   GET128CRC
+               BCS   FOOTERR
+               BCC   :DONE
+
+:CSUM          JSR   GET128CSUM
+               BCS   FOOTERR
+
+:DONE          JSR   ACKOUT
+
+* Set The End Of The File
+*-------------------------------
+
+SETEOF         LDA   #2                ; Fill-In # Of Parameters
+               STA   EOFPARMS
+               LDA   OPENPARMS+5       ; Fill-In Ref_Num
+               STA   EOFPARMS+1
+               JSR   MLI
+               DB    SET_EOF           Set
+               DA    EOFPARMS
+               JSR   CLOSEFILE
+               LDA   #7                ; Set Info Parm
+               STA   SFIPARMS          ; Count
+               LDA   #<FILENAME        ; Anything Previous Was Detroyed
+               STA   SFIPARMS+1        ; So We Put The Correct Path There
+               LDA   #>FILENAME        ; And Hope It Works..Har
+               STA   SFIPARMS+2
+               JSR   MLI
+               DB    SET_FILE_INFO     ; Set Info From What We Given It
+               DA    SFIPARMS
+               LDY   #19
+:MLOOP         LDA   SFIPARMS+3,Y      ; Move All 20 Bytes
+               STA   PARMLIST,Y
+               DEY
+               BPL   :MLOOP
+
+AESKIP         JSR   CLOSEFILE         ; Skip Everything About The File
+               LDA   PACKET1K          ; Check For 1K Blocks
+               BEQ   :NONE
+
+               INC   TMODE
+               INC   TMODE
+               LDA   PACKET4K          ; Check For 4K Blocks
+               BEQ   :NONE
+
+               INC   TMODE
+               INC   TMODE
+:NONE          JMP   ERROUT            ; Clear Line And Leave
+
+* Batch Ymodem Starts Here
+*-------------------------------
+
+YBATCH         JSR   GOBCOM            ; Gobble The Comma
+               JSR   INPSTR            ; Get The First String
+               CPY   #5                ; How Many Characters?
+               BCC   OVER              ; Less Than 5! Continue
+
+* Routine To Flag Acos Error
+*-------------------------------
+
+DIE            LDA   #255
+               STA   FAILFLAG
+               RTS
+
+* After INPSTR Call, $D Points
+* To The String That Was Just Read..
+*-------------------------------
+
+OVER           DEY
+               LDA   ($D),Y
+               CMP   #':'              ; Is The Last Character ':'?
+               BNE   DIE               ; Nope Trash It
+
+               TYA
+               TAX                     ; Save Y In X
+               LDY   #0
+               STY   LOG_LO            ; Init Drivespec's To 0
+               STY   LOG_HI            ; And 0
+               LDA   ($D),Y            ; Get The First Character
+               AND   #$7F              ; Strip High Bit
+               CMP   #'a'              ; Is It 'a'?
+               BCC   :UPPER            ; Nope, Try Others..
+
+               CMP   #'m'              ; Is It 'm'?
+               BCS   :UPPER            ; Yes, Trash It
+
+               SBC   #$1F              ; Nope, Make It Uppercase
+:UPPER         CMP   #'A'              ; Is It Less Than 'a'?
+               BCC   DIE               ; Yeah, Trash It
+
+               CMP   #'M'              ; Is It Greater Than 'l'
+               BCS   DIE               ; Yeah, Trash It
+
+               STA   DRIVESPEC         ; Actual Letter Specifier
+               DEX                     ; Get Last Character's Position
+               BEQ   :NOT3             ; Is It The Last One Already? Yep
+
+               JSR   STRIPHI           ; Not Last,Strip High From Letter
+               DEX                     ; Is It The Last One Now?
+               BEQ   :NOT3             ; Yep, Just Continue
+
+               JSR   STRIPHI           ; Otherwise, Strip Bit Again
+:NOT3          LDX   LOG_HI            ; Get High Part Of Log #
+               LDA   LOG_LO            ; Get Low Part Of Log #
+               BNE   :NOT0             ; Low Part Is Not 0, Try Others
+
+               CMP   LOG_HI            ; Is The High Part Also 0?
+               BEQ   :BOTH0            ; Yes, Go Do Normal Log
+
+:NOT0          CPX   #0                ; Is The High Part A 0?
+               BNE   :H9E57
+
+               TAX
+               LDA   #0
+:H9E57         AND   #$F
+               STA   HA1EF
+               TXA
+               AND   #$F
+               LDY   #$A
+:H9E61         CLC
+               ADC   HA1EF
+               DEY
+               BNE   :H9E61
+
+               TAX                     ; X=Number To Log
+:BOTH0         LDA   DRIVESPEC         ; A=Letter To Log
+               JSR   LOG               ; Set Prefix For That Pathname
+               JSR   GOBCOM            ; Grab The Comma
+               JSR   INPSTR            ; Get Filename Area
+               CPY   #15               ; Is It >= Than 15?
+               BEQ   DO_YMODEM         ; Yes, Go There
+
+               LDA   #255
+               STA   FAILFLAG
+               RTS
+
+* Error Routine - Errors Within The Transfer
+*-------------------------------
+
+BATCHERROR     INC   TOTALERR
+               BNE   :NOROLL
+               INC   TOTALERR
+:NOROLL        JSR   PRINTERR
+               JSR   NAKOUT
+NONAK          DEC   RETRY
+               BNE   DO_YMODEM
+
+               LDA   #1                ; Fatal Header Error
+               JMP   NO_DEL
+
+* Here Begin Most Of The Important Ymodem Routines
+*-------------------------------
+
+DO_YMODEM      JSR   CLRSTRING
+               STA   STORE80
+               STA   HIRES
+               STA   PAGE2
+               JSR   MAKETABLE         ; Quick!  Make The CRC-Table!
+               LDA   #0
+:LUP           STA   LASTCHAR
+               JSR   INPUT
+               BCC   :CLEAR
+
+               CMP   #Can              ; Is It A <Can> Character?
+               BNE   :CHECKSOH
+
+               CMP   LASTCHAR
+               BNE   :CHECKSOH
+
+               JMP   ERREND
+
+:CHECKSOH      JSR   SOHENTRY          ; It Is A Block Header?
+               BCC   :GOTHEADER
+               BCS   :LUP              ; Must have Been Line Noise...
+
+:CLEAR         LDX   TMODE             ; Using Ymodem Or Ymodem-4K?
+               DEX                     ; Was 1 Or 2, Now 0 Or 1
+               LDA   STARTSIG,X        ; Clear Channel, Send The 'c'
+               JSR   MDMOUT            ; Send It
+               JSR   SOHCHK            ; Get Header
+               BCS   NONAK             ; Something Went Wrong...
+
+:GOTHEADER     LDA   LASTCHAR
+               CMP   #Soh              ; Must Be Small Header Packet
+               BNE   BATCHERROR        ; Nope, We Got Problems
+
+               JSR   BLKCHK            ; Make Sure The Next 2 Bytes
+               BCS   BATCHERROR        ; Are In Sync
+
+               JSR   GET128CRC         ; Get A Small Packet
+               BCS   BATCHERROR
+
+               LDA   BLOCKBUFFER       ; Get First Byte Of Packet
+               BNE   PROC_FILE         ; 0? Nope, Process File...
+
+               JSR   ACKOUT            ; Yeah! End Of Transfer
+               JMP   ERROUT            ; String Is Already Clear So End
+
+* Continue With File Transfer Since There Is A Filename
+*-------------------------------
+
+PROC_FILE      LDY   #0                ; Calculate Length Of File
+:LEN_LOOP      LDA   BLOCKBUFFER,Y     ; Get A Byte Of The Filename
+               BEQ   :ENDNAME
+
+               STA   FILENAME+1,Y      ; Put It At The Filename
+               INY
+               BNE   :LEN_LOOP         ; Loop Until A (0) Found
+
+:ENDNAME       STY   FILENAME          ; Save Length Of File
+               LDY   #19
+:MLOOP         LDA   BLOCKBUFFER+69,Y  ; Move The Gfi Parms And
+               STA   SFIPARMS+3,Y      ; Eof Parms, All 20 Bytes
+               STA   PARMLIST,Y
+               DEY
+               BPL   :MLOOP
+
+               JSR   PRNTEXT
+               LDA   BLOCKBUFFER+64    ; Is It Proterm Special Batch?
+               CMP   #$1D
+               BEQ   :PROTERM          ; Yes, Flag As Such
+
+               LDA   #1                ; Nope, Must Be 'standard' Batch
+               STA   BATCHTYPE
+               JMP   CREATEAGAIN
+
+:PROTERM       LDA   #0
+               STA   BATCHTYPE
+               LDA   #2                ; Make Sure The Parameter
+               STA   EOFPARMS          ; Count Is Correct
+               LDA   #7
+               STA   SFIPARMS
+               LDA   SFIPARMS+7        ; Get Storage Type For File
+               STA   CREATEPARMS+7     ; Store It For Creation
+               LDA   #<FILENAME        ; Get Pathname For File
+               LDX   #>FILENAME
+               STA   SFIPARMS+1        ; Store It For Later On
+               STX   SFIPARMS+2        ; When Doing The Sfi Call
+CREATEAGAIN    JSR   MLI
+               DB    CREATE            ; Create A File
+               DA    CREATEPARMS       ; Create Params
+               BCC   CREATE_OK         ; Continue If Ok
+
+* File Creation Was In Error
+*-------------------------------
+
+PRO_ERR        CMP   #$47              ; Is It A Duplicate Filename?
+               BNE   KILL_FILE
+
+               INC   RENAMETRIES
+               LDA   RENAMETRIES
+               CMP   #26
+               BNE   :OK
+
+               LDA   #$47              ; Duplicate Filename Error
+               STA   FAILFLAG
+               JMP   NO_DEL
+
+:OK            LDY   FILENAME
+               CPY   #15
+               BEQ   :GOT15
+
+               INY
+               LDA   #'.'
+               STA   FILENAME,Y
+               STY   FILENAME
+               JMP   CREATEAGAIN
+
+:GOT15         LDA   FILENAME+2
+               CMP   #'Z'
+               BEQ   :MAKEA
+
+               INC   FILENAME+2
+               JMP   CREATEAGAIN
+
+:MAKEA         LDA   #'A'
+               STA   FILENAME+2
+               JMP   CREATEAGAIN
+
+KILL_FILE      PHA                     ; Save Our Error Code
+               STA   PAGE1
+               JSR   CLRSTRING
+               STA   PAGE2
+               PLA                     ; Restore Our Error Code
+               JMP   ERREND
+
+* Continue With The Transfer If File Create Was Successful
+*-------------------------------
+
+CREATE_OK      STA   PAGE1
+               LDY   FILENAME          ; Move Filename To String
+:LOOP2         LDA   FILENAME,Y
+               DEY
+               STA   ($D),Y
+               CPY   #0
+               BNE   :LOOP2
+
+               STA   PAGE2
+               JSR   MLI
+               DB    OPEN              ; Open
+               DA    OPENPARMS         ; Open Params
+               BCS   KILL_FILE         ; On Error Close Shop
+
+               LDA   OPENPARMS+5       ; Number Of Open File??
+               STA   EOFPARMS+1
+               STA   WRITEPARMS+1
+               STA   CLOSEPARMS+1
+               JSR   ACKOUT
+               LDA   #$3C              ; Change The Length To Wait
+               STA   WAITFOR
+               LDA   #0
+               STA   WAITFOR+1
+:LOOP          JSR   INPUT             ; Look For Input For 0.5 SECond
+               BCS   :LOOP             ; Keep Waiting Till Nothing Is Incoming
+
+               LDA   TIMEOUT
+               STA   WAITFOR
+               LDA   TIMEOUT+1
+               STA   WAITFOR+1
+               LDX   TMODE             ; Get Either The C Or 4
+               DEX
+               LDA   STARTSIG,X
+               JSR   MDMOUT
+               JMP   NEXTBLOCK         ; Go Get A *LOT* Of Blocks
+
+* Strip High Bit From Acos Pathname
+*-------------------------------
+
+STRIPHI        INY
+               LDA   ($D),Y
+               AND   #$7F
+               STA   DRIVESPEC,Y
+               RTS
+
+DRIVESPEC      DB    0                 ; Drivespec
+LOG_LO         DB    0                 ; 1's Or 10's
+LOG_HI         DB    0                 ; 1's Or 10's
+
+* <Ack> Output Routine
+*-------------------------------
+
+ACKOUT         LDX   CONSECERR
+               LDA   #0                ; We Got Something Good, No Consec Errs
+               STA   CONSECERR
+               CPX   #0                ; Did We Have Any Consec?
+               BEQ   :RESETERR         ; Nope, Don't Erase Anything
+
+               JSR   PRINTERR          ; Yes, Erase The Consec
+:RESETERR      LDA   #Ack              ; Get Ack
+               JMP   MDMOUT            ; Send It Out The Modem
+
+* <Nak> Output Routine
+*-------------------------------
+
+NAKOUT         LDA   #$3C
+               STA   WAITFOR
+               LDA   #0
+               STA   WAITFOR+1
+:LOOP          JSR   INPUT             ; Look For Input
+               BCS   :LOOP             ; Keep Waiting Till Nothing Is Incoming
+
+               LDA   TIMEOUT
+               STA   WAITFOR
+               LDA   TIMEOUT+1
+               STA   WAITFOR+1
+               LDA   #Nak              ; Get Nak
+               JMP   MDMOUT            ; Send It And Return To Caller
+
+* Send A 'CKL' To Start Transmission
+*-------------------------------
+
+CK_OUT         JSR   MDMDCD
+               BCC   CLRSTK
+
+               LDA   RETRY
+               CMP   #8                ; Is This The 8Th Retry?
+               BCC   :SEND_NAK         ; Yes, Start Sending <Nak>S
+
+:SEND_CK       JSR   MDMIN             ; Look For Input
+               BCS   :SEND_CK          ; Keep Waiting Till Nothing Is Incoming
+
+               LDA   #'C'              ; Get C
+               JSR   MDMOUT            ; Send It
+               LDA   #'K'              ; Get K
+               JSR   MDMOUT            ; Send It
+               LDA   #'L'              ; Get L
+               JMP   MDMOUT            ; Have Sent <C><K><L>
+
+:SEND_NAK      JSR   MDMIN             ; Look For Input
+               BCS   :SEND_NAK         ; Keep Waiting Till Nothing Is Incoming
+
+               LDA   #Nak              ; Get Nak
+               JMP   MDMOUT            ; Send It And Return To Caller
+
+* Write Xxxx Bytes To File
+*-------------------------------
+
+WRITEBUFFER    STX   WRITEPARMS+4
+               STA   WRITEPARMS+5
+               JSR   MLI
+               DB    WRITE             ; Write A Packet
+               DA    WRITEPARMS
+               BCS   CLRSTK            ; Onerr Exit...
+
+               RTS                     ; Return To Caller
+
+* Clrstk And Errend Go Together...
+*-------------------------------
+
+CLRSTK         TAX                     ; Save Our Error Number
+               PLA                     ; Pull Extra Return
+               PLA
+               TXA                     ; Restore Our Error Number
+ERREND         STA   FAILFLAG          ; Store Our Error In FAILFLAG
+               JSR   CLOSEFILE
+               JSR   DESTROYFILE
+NO_DEL         JSR   CLOSEFILE
+               LDY   #6                ; Send 5 <Can> Characters
+               LDA   #Can
+:LOOP          JSR   MDMOUT
+               DEY
+               BNE   :LOOP
+
+               LDY   #6                ; Followed By 5 Backspace Characters
+               LDA   #Bs
+:BS_LOOP       JSR   MDMOUT
+               DEY
+               BNE   :BS_LOOP
+
+               JMP   ERROUT
+
+* Get Header Routine... SEC=No Sohchk, CLC=Sohchk
+*-------------------------------
+
+SOHCHK         LDA   KEY               ; Read The Keyboard
+               BPL   :NOPRESS          ; Anyone Pressed A Key? Nope
+
+               CMP   #Esc              ; Yes, Is It The Escape Key?
+               BEQ   CLRSTK            ; Yes, Exit Violently
+
+               STA   STROBE            ; No, Reset Strobe, Continue
+:NOPRESS       LDA   #0
+               STA   CRC               ; Init The CRC Counter
+               STA   CRC+1
+               STA   CHECKSUM
+               JSR   MDMDCD            ; Is Caller Still There?
+               BCC   CLRSTK            ; No, Exit
+
+               JSR   INPUT             ; Yes, Get Some Data
+               BCC   BAD               ; Nothing There, Lose It
+
+SOHENTRY       CMP   #Can              ; Is It A <Can>?
+               BNE   :CONTINUE         ; No, Continue
+
+               CMP   LASTCHAR          ; Yes, Is It 2 In A Row?
+               BEQ   CLRSTK            ; Yes, Leave Suddenly
+
+:CONTINUE      STA   LASTCHAR
+               CMP   #Eot
+               BEQ   :OK
+
+               CMP   #Sstx             ; Is It A 4K Packet?
+               BEQ   :XLARGE           ; Yes, Go Handle It
+
+               CMP   #Stx              ; Is It A Large Packet?
+               BEQ   :LARGE            ; Go Handle It
+
+               AND   #$7F              ; Strip High Off For AE Mode
+               CMP   #Soh
+               BNE   BAD               ; Nothing We've Ever Seen
+
+:OK            CLC
+               RTS
+
+:LARGE         LDY   #1
+               STY   PACKET1K
+               CLC
+               RTS
+
+:XLARGE        LDY   #1
+               STY   PACKET4K
+               CLC
+               RTS
+
+BAD            SEC
+               RTS
+
+* Get Input - SEC=Input, CLC=No Input
+*             Wait Up To 1 SECond Before Timing Out
+*-------------------------------
+
+INPUT          JSR   MDMIN             ; Look For Byte Incoming
+               BCC   :NOTHING          ; Nothing Found, Setup Loop
+
+               RTS                     ; Byte Found! Return To Caller
+
+:NOTHING       LDA   #0
+               STA   :LASTVBL
+               STA   :SIXTY            ; Sixtieths Of A SECond We've Waited
+               STA   :SIXTY+1
+:LOOP          JSR   MDMIN             ; Get Byte From Modem
+               BCC   :NO_INP           ; Nothing There, Adjust Loop Counters
+
+               RTS
+
+:NO_INP        LDA   $C019             ; Has There Been A Change?
+               AND   #$80              ; Mask All But High Bit
+               CMP   :LASTVBL          ; Look For A Change In The Value
+               BEQ   :LOOP             ; Indicating A Transition
+
+               STA   :LASTVBL
+               INC   :SIXTY
+               BNE   :NOROLL
+               INC   :SIXTY+1
+:NOROLL        LDA   :SIXTY
+               CMP   WAITFOR
+               BNE   :LOOP
+
+               LDA   :SIXTY+1
+               CMP   WAITFOR+1
+               BNE   :LOOP
+
+               CLC                     ; Input Was Bad
+               LDA   #0
+               RTS
+
+:LASTVBL       DB    0
+:SIXTY         DA    0
+WAITFOR        DA    $F0
+
+* Check Block Number And Complement
+*-------------------------------
+
+BLKCHK         LDA   #<BLOCKBUFFER
+               STA   POINTER
+               LDA   #>BLOCKBUFFER
+               STA   POINTER+1
+               JSR   INPUT             ; Get Input
+               BCC   SETRTS            ; Nothing There
+
+               STA   LASTCHAR          ; Otherwise, Save It
+               CMP   PACKETNUM         ; Is It The Current Block #?
+               BNE   SETRTS            ; Nope, Return In Error
+
+               JSR   INPUT             ; Get Next Input
+               BCC   SETRTS            ; Nothing There
+
+               EOR   #$FF              ; Otherwise, Flip Its Bits
+               CMP   LASTCHAR          ; And See If It's First Eored
+               BNE   SETRTS
+
+               CLC                     ; Otherwise Flag Ok
+               RTS                     ; And Return
+
+SETRTS         SEC                     ; Flag Error
+               RTS                     ; And Return
+
+* End Of Transmission
+*-------------------------------
+
+BATCHEOT       PLA
+               PLA
+               JSR   ACKOUT            ; Respond In Kind
+               LDA   BATCHTYPE         ; If The Kind Of Batch Is Forsberg
+               BNE   :SETOK            ; Then Don't Bother To Set_EOF
+
+               JSR   MLI
+               DB    SET_EOF           ; Set_Eof
+               DA    EOFPARMS          ; Parms
+               BCC   :SETOK
+
+:ERR_JUMP      JMP   ERREND
+
+:SETOK         JSR   CLOSEFILE
+               LDA   BATCHTYPE         ; What Kind Of Batch?
+               BNE   ERROUT            ; Forsberg, Skip This Step
+
+               JSR   MLI
+               DB    SET_FILE_INFO     ; Set_File_Info
+               DA    SFIPARMS          ; Sfi Params
+               BCS   :ERR_JUMP         ; On Error Kill The File, Exit
+
+ERROUT         LDY   #0
+               STY   HTAB
+               LDA   #$20
+:LOOP          JSR   LOCPRINT          ; Clear Bottom Line...
+               INY
+               CPY   #79
+               BNE   :LOOP
+
+               LDY   #0
+               STY   HTAB              ; Start At HTAB 0
+               STA   LORES             ; Reset Our Memory Bank
+               STA   PAGE1
+               JMP   SETOVEC           ; Set #0 To Output Vector
+; Return To Acos
+
+* Close Whatever We Have Opened
+*-------------------------------
+
+CLOSEFILE      JSR   MLI
+               DB    CLOSE             ; Close
+               DA    CLOSEPARMS        ; Close Params
+               RTS
+
+* ProDOS MLI Destroy A File Call
+*-------------------------------
+
+DESTROYFILE    JSR   MLI
+               DB    DESTROY           ; Destroy
+               DA    DESTROYPARMS
+               RTS
+
+* Print Error Count
+*-------------------------------
+
+PRINTERR       LDA   #19
+               STA   HTAB              ; Horizontal Location
+               LDX   TOTALERR          ; Low
+               LDA   TOTALERR+1        ; High
+               JSR   DECOUT            ; Print It
+               LDA   #31
+               STA   HTAB
+               LDX   CONSECERR         ; Low
+               LDA   #0                ; High
+               JSR   DECOUT            ; Print It
+               RTS                     ; Return
+
+* Print Block Count
+*-------------------------------
+
+PRINTCOUNT     LDA   #6
+               STA   HTAB              ; Horizontal Location
+               LDX   BLOCKCOUNT        ; Block Count Low Byte
+               LDA   BLOCKCOUNT+1      ; Block Count High Byte
+               JSR   DECOUT            ; Go Print It
+               RTS                     ; Return
+
+* Print Mode:Ymodem File:XSGFDGDFG[12345] On Screen
+*-------------------------------
+
+PRNTEXT        LDA   #41
+               STA   HTAB
+               LDA   #<YMODEMTEXT
+               STA   POINTER
+               LDA   #>YMODEMTEXT
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+               LDA   #57
+               STA   HTAB
+               LDA   #<FILENAME
+               STA   POINTER
+               LDA   #>FILENAME
+               STA   POINTER+1
+               JSR   PRINTPSTRING
+               LDA   #'['
+               JSR   LOCPRINT
+*
+*  Calculate Xmodem Blocks
+*
+               LDA   EOFPARMS+2        ; Get EOF, PLAce It At Num
+               STA   NUM
+               LDA   EOFPARMS+3
+               STA   NUM+1
+               LDA   EOFPARMS+4
+               STA   NUM+2
+               LDX   #7                ; Divide By 128
+:NLOOP         LSR   NUM+2
+               ROR   NUM+1
+               ROR   NUM
+               DEX
+               BNE   :NLOOP
+
+               LDA   EOFPARMS+2        ; Get Low Byte
+               AND   #$7F              ; Is Number Divisible By 128?
+               BEQ   :PRINTX           ; Yes, Even Multiple, Don't Add 1
+
+               INC   NUM               ; No, Add 1 For Extra Bytes
+               BNE   :PRINTX           ; Didn't Roll Over, Go Print It
+               INC   NUM+1             ; Low Byte Rolled Over, Increment Mid
+:PRINTX        LDA   NUM+1
+               AND   #$7F              ; Always Chop High Byte
+               STA   XMODEMSIZE+1
+               LDX   NUM
+               STX   XMODEMSIZE
+               JSR   DECOUT
+               LDA   #']'
+               JSR   LOCPRINT
+               STA   PAGE2
+               RTS
+
+* Put 15 Spaces In The Filename String, Regardless
+*-------------------------------
+
+CLRSTRING      LDA   #' '              ; Make A Space
+               LDY   #$E               ; 15 Characters
+:LOOP          STA   ($D),Y            ; Store At End Of String
+               DEY                     ; Next Character
+               BPL   :LOOP             ; All Done?
+               RTS                     ; Yes, Return
+
+* MAKETABLE -- Make The CRC Table
+*-------------------------------
+
+MAKETABLE      LDX   #0                ; Zero First Page
+               LDA   #0
+:LOOP1         STA   CRCLO,X           ; Zero CRC Lo Bytes
+               STA   CRCHI,X           ; Zero CRC Hi Bytes
+               INX
+               BNE   :LOOP1
+
+* The Following Is The Normal Bitwise Computation
+* Tweaked A Little To Work In The Table-Maker
+*
+               LDX   #0                ; Number To Do CRC For
+:FETCH         TXA
+               EOR   CRCHI,X           ; Add Byte Into High
+               STA   CRCHI,X           ; Of CRC
+               LDY   #8                ; Do 8 Bits
+:LOOP2         ASL   CRCLO,X           ; Shift Current CRC-16 Left
+               ROL   CRCHI,X
+               BCC   :NOADD
+
+* If Previous High Bit Wasn't Set, Then Don't Add CRC
+* Polynomial ($1021) Into The Cumulative CRC.  Else Add It.
+*
+               LDA   CRCHI,X           ; Add Hi Part Of CRC Poly Into
+               EOR   #$10              ; Cumulative CRC Hi
+               STA   CRCHI,X
+               LDA   CRCLO,X           ; Add Lo Part Of CRC Poly Into
+               EOR   #$21              ; Cumulative CRC Lo
+               STA   CRCLO,X
+:NOADD         DEY                     ; Do Next Bit
+               BNE   :LOOP2            ; Done? Nope, Loop
+
+               INX                     ; Do Next Number In Series (0-255)
+               BNE   :FETCH            ; Didn't Roll Over, So Fetch More
+               RTS                     ; Done
+
+* Do A CRC On A Single Byte In A, X Is Preserved, A Is Not
+*-------------------------------
+
+DO_CRC         STA   :TEMPCRC
+               TXA                     ; Save X
+               PHA
+               LDA   :TEMPCRC
+               EOR   CRC+1             ; Add Byte Into CRC Hi Byte
+               TAX                     ; To Make Offset Into Tables
+               LDA   CRC               ; Get Previous Lo Byte Back
+               EOR   CRCHI,X           ; Add It To The Proper Table Entry
+               STA   CRC+1             ; Save It
+               LDA   CRCLO,X           ; Get New Lo Byte
+               STA   CRC               ; Save It Back
+               PLA
+               TAX                     ; Restore X
+               RTS                     ; All Done
+
+:TEMPCRC       DA    0
+
+* Check The Incoming CRC-16
+*-------------------------------
+
+CHKCRC         JSR   INPUT             ; Is There Input?
+               BCC   :BAD
+
+               CMP   CRC+1
+               BNE   :BAD
+
+               JSR   INPUT
+               BCC   :BAD
+
+               CMP   CRC
+               BNE   :BAD
+
+               CLC
+               RTS
+
+:BAD           SEC
+               RTS
+
+* Get A 128 Byte Block Verified With A Checksum
+*-------------------------------
+
+GET128CSUM     LDY   #0                ; Zero Out Offset
+:LOOP          JSR   INPUT             ; Get Data Sent
+               BCC   :ERROR
+
+               STA   (POINTER),Y       ; Store In Block Buffer
+               CLC                     ; Prepare For Add
+               ADC   CHECKSUM          ; Add To Checksum
+               STA   CHECKSUM          ; And Save It
+               INY                     ; Bump Offset For Next Data
+               BPL   :LOOP             ; Keep Going For All 128 Bytes
+
+               JSR   INPUT             ; Data Done Get Checksum
+               BCC   :ERROR
+
+               CMP   CHECKSUM          ; His CheckSum Same As Ours?
+               BNE   :ERROR            ; Let's Try Again
+
+               INC   PACKETNUM         ; Bump Block Number Counter
+               INC   BLOCKCOUNT
+               BNE   :NOROLL
+               INC   BLOCKCOUNT+1
+:NOROLL        JSR   PRINTCOUNT
+               LDX   #<128
+               LDA   #>128
+               CLC
+               RTS
+
+:ERROR         SEC
+               RTS
+
+* Get A 128 Byte Block
+*-------------------------------
+
+GET128CRC      LDY   #0
+:LOOP          JSR   INPUT
+               BCC   :ERROR
+
+               STA   (POINTER),Y
+               JSR   DO_CRC
+               INY
+               BPL   :LOOP
+
+               JSR   CHKCRC
+               BCS   :ERROR
+
+               INC   PACKETNUM
+               INC   BLOCKCOUNT
+               BNE   :NOROLL
+               INC   BLOCKCOUNT+1
+:NOROLL        JSR   PRINTCOUNT
+               LDX   #<128
+               LDA   #>128
+               CLC
+               RTS
+
+:ERROR         SEC
+               RTS
+
+* Get A 1024 Byte Block
+*-------------------------------
+
+GET1024        LDX   #4
+               LDY   #0
+:LOOP          JSR   INPUT
+               BCC   :ERROR
+
+               STA   (POINTER),Y
+               JSR   DO_CRC
+               INY
+               BNE   :LOOP
+
+               INC   POINTER+1
+               DEX
+               BNE   :LOOP
+
+               JSR   CHKCRC
+               BCS   :ERROR
+
+               INC   PACKETNUM
+               LDA   BLOCKCOUNT
+               CLC
+               ADC   #8
+               STA   BLOCKCOUNT
+               BCC   :NOROLL
+               INC   BLOCKCOUNT+1
+:NOROLL        JSR   PRINTCOUNT
+               LDX   #<1024
+               LDA   #>1024
+               CLC
+               RTS
+
+:ERROR         SEC
+               RTS
+
+* Get A 4096 Byte Block
+*-------------------------------
+
+GET4096        LDX   #16
+               LDY   #0
+:LOOP          JSR   INPUT
+               BCC   :ERROR
+
+               STA   (POINTER),Y
+               JSR   DO_CRC
+               INY
+               BNE   :LOOP
+
+               INC   POINTER+1
+               DEX
+               BNE   :LOOP
+
+               JSR   CHKCRC
+               BCS   :ERROR
+
+               INC   PACKETNUM
+               LDA   BLOCKCOUNT
+               CLC
+               ADC   #32
+               STA   BLOCKCOUNT
+               BCC   :NOROLL
+               INC   BLOCKCOUNT+1
+:NOROLL        JSR   PRINTCOUNT
+               LDX   #<4096
+               LDA   #>4096
+               CLC
+               RTS
+
+:ERROR         SEC
+               RTS
+
+* Print The Pascal String At (POINTER) At Current Cursor Loc
+*-------------------------------
+
+PRINTPSTRING   LDY   #0
+               LDA   (POINTER),Y       ; Get Filename Length Byte
+               STA   :LENGTH
+:LOOP          INY
+               LDA   (POINTER),Y       ; Get Character In Filename
+               JSR   LOCPRINT
+               CPY   :LENGTH
+               BNE   :LOOP
+
+               STA   PAGE2
+               RTS
+
+:LENGTH        DB    0
+
+* DECOUT -- Print A Decimal Number
+*-------------------------------
+
+; Print A Decimal Number To Stdio.
+DECOUT         STA   :HIBYTE           ; Save The Number To Print.
+               STX   :LOBYTE
+               LDX   #9                ; Start At Largest Value In Table.
+               STX   :NUMFLAG
+:P_DEC1        LDY   #"0"              ; Assume Value Is 0 To Start.
+:P_DEC2        LDA   :LOBYTE           ; Is This Value Less Than Table?
+               CMP   :DECTAB-1,X
+               LDA   :HIBYTE
+               SBC   :DECTAB,X
+               BCC   :P_DEC3           ; Yes, Print A Digit From The Table.
+
+               STA   :HIBYTE           ; No, Keep Dividing Until It Is.
+               LDA   :LOBYTE
+               SBC   :DECTAB-1,X
+               STA   :LOBYTE
+               INY                     ; Next Digit Value.
+               BNE   :P_DEC2           ; Always.
+
+:P_DEC3        TYA                     ; Digit Character To A-Reg For Printing...
+               DEX                     ; Last Digit?
+               BEQ   :PRINTIT          ; Yes, So Output Something.
+
+               CMP   #"0"              ; No.  Is This Value A Zero?
+               BEQ   :PRZERO           ; Yes, Must Print At Least One.
+
+               STA   :NUMFLAG          ; No, We're Going To Print A Digit Though.
+:PRZERO        BIT   :NUMFLAG          ; Have We Printed A Real Digit Yet?
+               BMI   :PRINTIT          ; Yes, So We Must Print This One.
+
+               LDA   JUSTIFY           ; No, So Check For User Justification.
+               BPL   :OVER             ; None.
+
+:PRINTIT       JSR   LOCPRINT          ; Else, This Must Be The Character To Use.
+:OVER          DEX                     ; Next Value In Table.
+               BPL   :P_DEC1           ; Until None Left.
+
+               STA   PAGE2
+               RTS
+
+:HIBYTE        DB    0
+:LOBYTE        DB    0
+:NUMFLAG       DB    0
+
+:DECTAB        DA    1,10,100,1000,10000
+
+JUSTIFY        DB    0
+
+* Data Segment
+*-------------------------------
+
+COPYRIGHT      ASC   'Copyright 1987-89 By L & L Productions'
+DATE           ASC   '&Sysdate'
+TIME           ASC   '&Systime'
+
+CRCMSG         STR   'CRC'
+CSUMMSG        STR   'Csum'
+PROMSG         STR   'AE'
+STANDARDMSG    STR   'Stnd'
+YMODEMTEXT     STR   'Ymodem'
+
+SCREENTEXT     STR   'Block:      Errors:     Consec:     Mode:           File:'
+
+STARTSIG       ASC   'C4'              ; Characters For Ymodem Start
+TIMEOUT        DA    0                 ; Timeout In 120Ths Of A SECond
+CONSECERR      DB    0                 ; # Of Consecutive Errors
+BATCHTYPE      DB    0                 ; Which Batch Mode? (0=Proterm,1=Forsberg)
+RETRY          DB    0                 ; Remaining Retries
+PACKETNUM      DB    0                 ; Current Block Number Modulo 256
+LASTCHAR       DB    0                 ; Last Character Received
+CRC            DA    0                 ; Low Part Of The CRC
+BLK_TYPE       DB    0                 ; Small Or Large Block?
+HA1EF          DB    0
+CHECKSUM       DB    0                 ; Checksum Register
+PACKET1K       DB    0                 ; Was There A 1K Packet?
+PACKET4K       DB    0                 ; Was There A 4K Packet?
+USECSUM        DB    0
+BATCHMODE      DB    0                 ; Batch Mode? (0=No, 1=Yes)
+RENAMETRIES    DB    0                 ; How Many Tried To Rename The File
+NUM            DA    0
+
+*
+*  Filename Buffer
+*
+FILENAME       DB    15                ; Area For Filename
+               DS    20
+
+*
+* Open Parameters
+*
+OPENPARMS      DB    3                 ; 3 Parameters Follow
+               DA    FILENAME          ; File's Name/No Prefix
+               DA    FILEBUFFER        ; Address Of 1K File Buffer
+               DB    0                 ; Ref_Num
+*
+* Close Parameters
+*
+CLOSEPARMS     DB    1                 ; Number Of Parameters
+               DB    0                 ; Ref_Num
+
+*
+* Create A File Parameters
+*
+CREATEPARMS    DB    7
+               DA    FILENAME          ; Address Of Filename
+               DB    $C3               ; Access Attributes
+               DB    4                 ; Filetype (Text)
+               DA    0                 ; Aux Filetype
+               DB    1                 ; Storage Type (Seedling)
+               DA    0                 ; Date Of Creation
+               DA    0                 ; Time Of Creation
+
+*
+* Destroy File Parameters
+*
+DESTROYPARMS   DB    1
+               DA    FILENAME          ; File To Delete
+
+*
+* Write To A File Parameter List
+*
+WRITEPARMS     DB    4                 ; Number Of Parameters
+               DB    0                 ; Reference Number
+               DA    BLOCKBUFFER       ; Address Of File Buffer
+               DA    0                 ; Length Of Buffer
+               DA    0                 ; Actual Length
+
+*
+* Get/Set File Info Parms
+*
+SFIPARMS       DB    7                 ; Parm Count
+               DA    FILENAME          ; Path Addr
+               DB    $C3               ; Access
+               DB    4                 ; Filetype (Text)
+               DA    0                 ; Auxtype
+               DB    1                 ; Not Used
+               DA    0
+               DA    0                 ; Mod Date
+               DA    0                 ; Mod Time
+               DA    0                 ; Create Date
+               DA    0                 ; Create Time
+
+*
+* EOF Parms To Set The Proper End Of The File
+*
+EOFPARMS       DB    2                 ; Parm Count
+               DB    0                 ; Reference Number
+               DA    0
+
diff --git a/SOURCE/XCAT.S b/SOURCE/XCAT.S
new file mode 100644
index 0000000..fc6008c
--- /dev/null
+++ b/SOURCE/XCAT.S
@@ -0,0 +1,1457 @@
+* Custom catalog maker external file for LLUCE
+* Written January, 1988 -- Andy Nicholas
+* Major changes made for LLUCE October, 1992
+*
+* useage:
+*
+* overlay xcat,<filenumber>,vl$<opt 2nd time>,f$,ta$,th$,bu$,md$,mt$,cd$,ct$,by$
+*
+* <filenumber> = file to get or 0 for all files
+* vl$ = directory prefix to read
+* f$  = fifteen character filename
+* ta$ = filetype in ASCII (ex -- REL)
+* th$ = filetype in hex (ex -- $FE)
+* bu$ = blocks used by file
+* md$ = modification date
+* mt$ = modification time
+* xd$ = creation date
+* xt$ = creation time
+* by$ = bytes used
+*-------------------------------------------------
+
+                LST    OFF
+                LSTDO  OFF
+                XC
+                TR
+                TR     ADR
+                EXP    ONLY
+Y               =      1
+y               =      1
+N               =      0
+n               =      0
+NOLIST          =      Y
+                DO     NOLIST
+LISTOBJ         =      N
+LISTSYM         =      N
+                ELSE
+LISTOBJ         KBD    'List This Source? (Y/N)'
+LISTSYM         KBD    'List Symbol Table? (Y/N)'
+                FIN
+                DO     LISTOBJ
+                LST
+                FIN
+                LST    OFF
+                PUT    EQUATES/EQUATES
+                PUT    EQUATES/OS.EQUATES
+                PUT    EQUATES/DRIVEREQU
+                PUT    EQUATES/ENTRY
+
+* General Global equates
+*-------------------------------------------------
+
+dirinfo         =      ENDMOD                      ; 256
+dStypLen        =      4
+dFname          =      5
+dCDate          =      $1C
+dCTime          =      $1E
+dVersion        =      $20
+dMinVer         =      $21
+dAccess         =      $22
+dEntLen         =      $23
+dEntBlk         =      $24
+dFilCnt         =      $25
+dParent         =      $27
+dParNum         =      $29
+dParLen         =      $2A
+
+dirbuf          =      ENDMOD+256                  ; 512
+fStypLen        =      0
+fFname          =      1
+fFType          =      $10
+fKeyPtr         =      $11
+fBlocks         =      $13
+fEOF            =      $15
+fCDate          =      $18
+fCTime          =      $1A
+fFNCase         =      $1C
+fAccess         =      $1E
+fAType          =      $1F
+fMDate          =      $21
+fMTime          =      $23
+fParent         =      $25
+
+Id              =      4
+Aux             =      1
+
+]TYPE           =      ^overlays                   ; set file type
+]AUX            =      overlays                    ; and aux type
+                ORG    ]AUX                        ; must be this way
+                TYP    ]TYPE
+
+                DSK    /MAIN/LLUCE/SYSTEM/XCAT
+                LST    RTN
+
+                TTL    'LLUCE - Catalog reader'
+
+                DB     Id
+                DA     Aux
+                DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check For CRC
+*-------------------------------
+
+                DA     CODEEND-cat
+                DA     0                           ; CRC Goes Here
+
+                ORG    $D000
+
+* cat the currently logged path
+*-------------------------------------------------
+
+cat             LDA    FirstTime
+                BNE    keeptbl
+
+                LDX    #PDOS_END-PDOS_BGN          ; copy ProDOS tables
+MV_PDOS         LDA    PDOS_BGN-1,X
+                STA    FileLength-1,X
+                DEX
+                BNE    MV_PDOS
+
+keeptbl         JSR    GOBCOM
+                JSR    INPNUM                      ; file number we want
+                STA    filenum+1
+                STX    filenum
+
+                ORA    filenum
+                BNE    notall
+
+                HEX    2C
+notall          LDA    #-1
+                STA    allflag
+*
+* if we are not supposed to do every entry, then always get the prefix
+*
+                TAX
+                BNE    chkOpen
+*
+* if this is not the first time through, then go get the filename
+*
+                LDA    FirstTime
+                BNE    getfile
+*
+* call MOVNAME, and set the prefix to that acos path
+*
+chkOpen         LDA    old_close
+                BEQ    getpref
+                STA    p_close+1
+                JSR    finish
+
+getpref         JSR    GOBCOM                      ; get pathname
+                JSR    MOVNAME
+
+                LDA    FLNAME
+                BNE    getfile
+
+                JSR    MLI                         ; put a full pathname in path buffer
+                DB     Getpfx
+                DA     getpfxparms
+
+getfile         JSR    GOBCOM                      ; grab the comma
+                JSR    INPSTR                      ; get filename area
+                CPY    #fnMaxLen                   ; is it <> than 15?
+                BEQ    ok_name                     ; yes, go there
+
+                LDA    #cr                         ; end line
+                JSR    COUT
+                JMP    finish                      ; close up shop and exit
+
+; clear the string with 15 spaces
+ok_name         LDA    #' '                        ; make a space
+                LDY    #fnMaxLen-1                 ; 15 characters
+loop            STA    (STRLOC),Y                  ; store at end of string
+                DEY                                ; next character
+                BPL    loop                        ; all done?
+
+                LDA    temp_alt
+                STA    TEMP
+                LDA    temp_alt+1
+                STA    TEMP+1
+
+                LDA    FirstTime                   ; first time around?
+                BEQ    First                       ; yes, first time through
+                JMP    rdloop5a
+
+First           LDA    #1
+                STA    FirstTime                   ; mark it as having been used
+
+                JSR    MLI
+                DB     Open
+                DA     openparms
+
+                LDA    openparms+5                 ; set ref parms
+                STA    p_cpos+1
+                STA    p_crinf+1
+                STA    p_crdir+1
+                STA    p_close+1
+                STA    old_close                   ; in case it's needed
+
+                JSR    MLI                         ; read dir info
+                DB     Read
+                DA     p_crinf
+
+                JSR    MLI                         ; set back to start
+                DB     Setmark
+                DA     p_cpos
+
+                LDA    #-1
+                STA    blkcnt                      ; start at file 1 in block
+
+                STZ    numfls                      ; 0 files processed
+                STZ    numfls+1
+
+rdloop          LDA    #<dirbuf+4                  ; point to buf
+                STA    TEMP
+                STA    temp_alt
+                LDA    #>dirbuf+4
+                STA    TEMP+1
+                STA    temp_alt+1
+
+                JSR    MLI                         ; read block
+                DB     Read
+                DA     p_crdir
+
+                LDA    blkcnt                      ; first pass?
+                BPL    rdloop2                     ; nope
+
+                STZ    blkcnt                      ; set to 0
+                JMP    rdloop5a                    ; go to next entry
+
+rdloop2         LDA    numfls                      ; we done?
+                CMP    dirinfo+dFilCnt
+                BNE    rdloop3                     ; nope
+
+                LDA    numfls+1                    ; check high
+                CMP    dirinfo+dFilCnt+1
+                BNE    rdloop3                     ; were done
+
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get ta$
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get th$
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get bu$
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get md$ -- modification date
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get mt$ -- modification time
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get cd$ -- creation date
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get ct$ -- creation time
+                JSR    GOBCOM                      ; get ','
+                JSR    INPSTR                      ; get by$ -- size in bytes
+                JMP    finish
+
+rdloop3         LDA    (TEMP)                      ; get length and type
+                AND    #LoNibble
+                STA    (TEMP)                      ; get rid of extra stuff
+                STA    FileLength
+                BEQ    rdloop5a                    ; opps, deleted file
+
+                INC    numfls                      ; inc file count
+                BNE    rdloop3a
+                INC    numfls+1
+
+rdloop3a        LDA    allflag
+                BEQ    rdloop4
+
+                LDA    numfls
+                CMP    filenum
+                BNE    rdloop5a
+                LDA    numfls+1
+                CMP    filenum+1
+                BNE    rdloop5a
+                JMP    gotfile
+
+rdloop4         JSR    prent                       ; put the entry in the strings
+
+*-------------------------------------------------
+
+rdloop5         RTS
+
+rdloop5a        CLC
+                LDA    TEMP                        ; go to next entry
+                ADC    dirinfo+dEntLen
+                STA    TEMP
+                STA    temp_alt
+
+                LDA    TEMP+1
+                ADC    #0
+                STA    TEMP+1
+                STA    temp_alt+1
+
+                INC    blkcnt                      ; inc place within block
+                LDA    blkcnt
+                CMP    dirinfo+dEntBlk
+                BEQ    rdloop6                     ; go to next block
+                JMP    rdloop2                     ; do next entry within this block
+
+rdloop6         STZ    blkcnt                      ; reset count
+                JMP    rdloop
+
+gotfile         JSR    prent
+
+finish          STZ    FirstTime
+                STZ    old_close                   ; mark as closed
+
+                JSR    MLI                         ; close file
+                DB     Close
+                DA     p_close
+                RTS
+
+* print the entry
+*-------------------------------------------------
+
+prent           LDY    #fFNCase+1                  ; Valid filename case flags?
+                LDA    (TEMP),Y
+                STA    doCase                      ; set flag
+
+                STA    TEMP2+1                     ; save flags for shift
+                DEY
+                LDA    (TEMP),Y
+                STA    TEMP2
+
+                LDY    #fFname-1                   ; 1-1
+                ASL    TEMP2
+                ROL    TEMP2+1
+prent2          INY
+                LDA    (TEMP),Y                    ; default to printing name
+                BIT    doCase
+                BPL    uCase
+                ASL    TEMP2                       ; is this lower case?
+                ROL    TEMP2+1
+                BCC    uCase                       ; nope
+                CMP    #'A'                        ; is it alpha?
+                BLT    uCase                       ; nope
+                CMP    #'Z'+1
+                BGE    uCase                       ; nope
+                ADC    #$20                        ; make lower case
+uCase           DEY                                ; save char
+                STA    (STRLOC),Y
+                INY
+                CPY    FileLength
+                BNE    prent2
+*
+* now get the proper filetype into ta$ -- ascii filetype
+*
+                JSR    getstring
+                JSR    texttype
+*
+* insert hexadecimal filetype into string -- th$ [type_hex$]
+*
+dohextype       JSR    getstring
+
+                LDY    #fFType                     $10
+                LDA    (TEMP),Y
+                JSR    prhex
+*
+* insert blocks used into string
+*
+                JSR    getstring
+
+                LDY    #fBlocks                    ; $13 get blocks used
+                LDA    (TEMP),Y
+                STA    num                         ; save number
+                INY
+                LDA    (TEMP),Y
+                STA    num+1
+                JSR    decout1
+*
+* setup modification date
+*
+                JSR    getstring
+
+                LDA    #fMDate                     ; $21 date
+                STA    position
+                JSR    convdat                     ; convert mod date
+*
+* setup modification time
+*
+                JSR    getstring
+
+                LDA    #fMTime                     ; $23 and mod time
+                STA    position
+                JSR    convtim
+*
+* setup conversion for creation date
+*
+                JSR    getstring
+
+                LDA    #fCDate                     ; $18 setup to get create-date
+                STA    position
+                JSR    convdat
+*
+* setup for creation time
+*
+                JSR    getstring
+
+                LDA    #fCTime                     ; $1A else continue with full catalog by sett
+                STA    position                    ; pointers to mod time data
+                JSR    convtim
+*
+* do conversion of the number of bytes used
+*
+                JSR    getstring
+
+                LDY    #fEOF                       ; $15 now get file length (eof), convert and
+                LDA    (TEMP),Y                    ; display it with max of 8 decimal digits
+                STA    num
+                INY                                ; $16
+                LDA    (TEMP),Y                    ; get middle byte of 3 byte value
+                STA    num+1
+                INY                                ; $17
+                LDA    (TEMP),Y                    ; get high byte of 3 byte value
+                STA    num+2
+                JSR    decoot1
+
+* setup the GFI parameter table on return -- FileLength already there
+*-------------------------------------------------
+
+makegfi         LDY    #fStypLen                   ; 0
+                LDA    (TEMP),Y
+                AND    #HiNibble
+                STA    t_StorageType
+
+                LDY    #fFType                     ; $10
+                LDA    (TEMP),Y
+                STA    t_FileType
+
+                LDY    #fBlocks                    ; $13
+                LDA    (TEMP),Y
+                STA    t_BlocksUsed
+                INY                                ; $14
+                LDA    (TEMP),Y
+                STA    t_BlocksUsed+1
+
+                INY                                ; $15 fEOF
+                LDA    (TEMP),Y
+                STA    t_BytesUsed
+                INY                                ; $16
+                LDA    (TEMP),Y
+                STA    t_BytesUsed+1
+                INY                                ; $17
+                LDA    (TEMP),Y
+                STA    t_BytesUsed+2
+
+                INY                                ; $18 fCDate
+                LDA    (TEMP),Y
+                STA    t_CreateDate
+                INY                                ; $19
+                LDA    (TEMP),Y
+                STA    t_CreateDate+1
+
+                INY                                ; $1A fCTime
+                LDA    (TEMP),Y
+                STA    t_CreateTime
+                INY                                ; $1B
+                LDA    (TEMP),Y
+                STA    t_CreateTime+1
+
+                INY                                ; $1C fFNCase
+                LDA    (TEMP),Y
+                STA    t_CaseFlags
+                INY                                ; $1D
+                LDA    (TEMP),Y
+                STA    t_CaseFlags+1
+
+                INY                                ; $1E fAccess
+                LDA    (TEMP),Y
+                STA    t_Access
+
+                INY                                ; $1F fAType
+                LDA    (TEMP),Y
+                STA    t_AuxType
+                INY                                ; $20
+                LDA    (TEMP),Y
+                STA    t_AuxType+1
+
+                INY                                ; $21 fMDate
+                LDA    (TEMP),Y
+                STA    t_ModDate
+                INY                                ; $22
+                LDA    (TEMP),Y
+                STA    t_ModDate+1
+
+                INY                                ; $23 fMTime
+                LDA    (TEMP),Y
+                STA    t_ModTime
+                INY                                ; $24
+                LDA    (TEMP),Y
+                STA    t_ModTime+1
+
+                LDA    t_BytesUsed
+                STA    t_XmodemBlocks
+                LDA    t_BytesUsed+1
+                STA    t_XmodemBlocks+1
+                LDA    t_BytesUsed+2
+
+                LDX    #7                          ; divide by 128
+nloop           LSR    A
+                ROR    t_XmodemBlocks+1
+                ROR    t_XmodemBlocks
+                DEX
+                BNE    nloop
+
+                LDA    t_BytesUsed                 ; get low byte
+                AND    #Clrhi                      ; is number divisable by 128?
+                BEQ    done                        ; yes, even multiple, don't add 1
+                INC    t_XmodemBlocks              ; no, add 1 for extra bytes
+                BNE    done                        ; didn't roll over, go print it
+                INC    t_XmodemBlocks+1            ; low byte rolled over, increment mid
+
+done            LDA    t_XmodemBlocks+1            ; mask off high byte if set
+                AND    #Clrhi
+                STA    t_XmodemBlocks+1
+
+                RTS                                ; finally done!!
+
+* get a string parsed by LLUCE with a comma
+*-------------------------------------------------
+
+getstring       JSR    GOBCOM
+                JSR    INPSTR
+
+                LDA    temp_alt
+                STA    TEMP
+                LDA    temp_alt+1
+                STA    TEMP+1
+                RTS
+
+* print hex subroutine for catalog
+*-------------------------------------------------
+
+prhex           STA    filetype
+
+                LDY    #0
+                LDA    #'$'
+                STA    (STRLOC),Y
+
+                LDA    filetype
+                AND    #HiNibble
+                LSR    A
+                LSR    A
+                LSR    A
+                LSR    A
+                JSR    printdig
+                LDA    filetype
+                AND    #LoNibble
+printdig        INY
+                ORA    #'0'
+                CMP    #'9'+1
+                BCC    docout
+                CLC
+                ADC    #7
+docout          STA    (STRLOC),Y
+                RTS
+
+*-------------------------------------------------
+
+decout1         LDA    #0                          ; reset total
+                STA    num+2
+                STA    num+3
+                STA    num+4
+                STA    num+5
+                STA    num+6
+                CLC
+
+                SED
+                LDY    #16                         ; use decimal mode
+decout2         ASL    num
+                ROL    num+1
+                LDA    num+2
+                ADC    num+2                       ; do actual 'woz' conversion
+                STA    num+2
+                LDA    num+3
+                ADC    num+3
+                STA    num+3
+                ROL    num+4
+                DEY                                ; loop down
+                BNE    decout2
+
+                CLD                                ; done with decimal
+                LDY    #0                          ; print 5 digits
+
+decout3         LDA    num+4                       ; get digit
+                AND    #LoNibble
+                BNE    decout4                     ; is it zero?
+
+                LDX    #' '
+                BIT    num+5                       ; is this a leading zero?
+                BPL    decout8                     ; yep
+
+decout4         DEC    num+5
+                CLC
+                ADC    #'0'                        ; print digit
+                TAX
+                INC    num+6
+
+decout8         TXA
+                STA    (STRLOC),Y
+
+decout5         LDX    #3                          ; move up next digit
+decout6         ASL    num+1
+                ROL    num+2
+                ROL    num+3
+                ROL    num+4
+                DEX
+                BPL    decout6
+
+                INY                                ; count digits
+                CPY    #4
+                BEQ    decout7a
+                BCS    decout7
+                BCC    decout3
+
+decout7a        STX    num+5                       ; print last zero for sure
+                BPL    decout3
+
+decout7         CLC
+                RTS
+
+*-------------------------------------------------
+
+decoot1         LDA    #0                          ; reset total - convert and display an 8 digit
+                STA    num+3                       ; number
+                STA    num+4
+                STA    num+5
+                STA    num+6
+                STA    num+7
+                STA    num+8
+                STA    num+9
+                CLC
+
+                SED
+                LDY    #24                         ; use decimal mode - shift out 24 bits
+decoot2         ASL    num
+                ROL    num+1
+                ROL    num+2                       ; do actual 'woz' conversion
+                LDA    num+3
+                ADC    num+3
+                STA    num+3
+                LDA    num+4
+                ADC    num+4
+                STA    num+4
+                LDA    num+5
+                ADC    num+5
+                STA    num+5
+                LDA    num+6
+                ADC    num+6
+                STA    num+6
+                ROL    num+7
+                DEY                                ; loop down
+                BNE    decoot2
+
+                CLD                                ; done with decimal
+                LDY    #0                          ; print 8 digits
+
+decoot3         LDA    num+7                       ; get digit
+                AND    #LoNibble
+                BNE    decoot4                     ; is it zero?
+
+                LDX    #' '
+                BIT    num+8                       ; is this a leading zero?
+                BPL    decoot8                     ; yep
+
+decoot4         DEC    num+8
+                CLC
+                ADC    #'0'                        ; print digit
+                TAX
+                INC    num+9
+
+decoot8         TXA
+                STA    (STRLOC),Y
+
+decoot5         LDX    #3                          ; move up next digit
+decoot6         ASL    num+1
+                ROL    num+2
+                ROL    num+3
+                ROL    num+4
+                ROL    num+5
+                ROL    num+6
+                ROL    num+7
+                DEX
+                BPL    decoot6
+
+                INY                                ; count down digits
+                CPY    #8
+                BEQ    decoot7a
+                BCS    decoot7
+                BCC    decoot3
+
+decoot7a        STX    num+8                       ; print last zero for sure
+                BPL    decoot3
+
+decoot7         CLC
+                RTS
+
+* put "[No Date]"
+*-------------------------------------------------
+
+nodate          LDY    #8
+dloop           LDA    defdate,Y
+                STA    (STRLOC),Y
+                DEY
+                BPL    dloop
+                RTS
+
+defdate         ASC    '[No Date]'
+
+* subroutine to convert and print dates on the screen
+*-------------------------------------------------
+
+convdat         LDY    position                    ; get day of mod-date
+                LDA    (TEMP),Y
+                BEQ    nodate                      ; default display if no date on file
+                PHA
+
+                AND    #$1F                        ; just get date
+                JSR    bindec8
+                LDY    #0
+                STA    (STRLOC),Y
+                TXA                                ; display date
+                INY
+                STA    (STRLOC),Y
+                LDA    #'-'                        ; put in seperator
+                INY
+                STA    (STRLOC),Y
+
+                LDY    position                    ; get last bit of month
+                INY
+                LDA    (TEMP),Y
+                LSR    A
+                PLA
+                ROR    A                           ; move in month bit
+                LSR    A
+                LSR    A
+                AND    #$3C                        ; just get month
+                TAX                                ; make into offset
+
+                LDY    #3
+date            LDA    month-4,X
+                STA    (STRLOC),Y
+                INX
+                INY
+                CPY    #6
+                BNE    date
+
+                LDA    #'-'
+                STA    (STRLOC),Y
+
+                LDY    position
+                INY
+                LDA    (TEMP),Y                    ; get year
+                LSR    A
+                JSR    bindec8                     ; translate
+
+                LDY    #7
+                STA    (STRLOC),Y
+                TXA
+                INY
+                STA    (STRLOC),Y
+                RTS
+
+month           ASC    'Jan-'
+                ASC    'Feb-'
+                ASC    'Mar-'
+                ASC    'Apr-'
+                ASC    'May-'
+                ASC    'Jun-'
+                ASC    'Jul-'
+                ASC    'Aug-'
+                ASC    'Sep-'
+                ASC    'Oct-'
+                ASC    'Nov-'
+                ASC    'Dec-'
+
+* Convert and print time to screen
+*-------------------------------------------------
+
+convtim         LDY    position                    ; get time data, convert to decimal and
+                INY                                ; get hours first
+                LDA    (TEMP),Y                    ; then display it
+                AND    #$1F                        ; mask for needed digits
+                JSR    bindec8                     ; convert binary to decimal and return
+
+                LDY    #0
+                STA    (STRLOC),Y
+                TXA
+                INY
+                STA    (STRLOC),Y
+                LDA    #':'
+                INY
+                STA    (STRLOC),Y
+*
+* now do minutes
+*
+                LDY    position
+                LDA    (TEMP),Y
+                AND    #$3F                        ; mask for needed bits
+                JSR    bindec8                     ; convert to decimal
+
+                LDY    #3
+                STA    (STRLOC),Y
+                TXA
+                INY
+                STA    (STRLOC),Y
+                RTS
+
+* translate a binary to text [0-99]
+*-------------------------------------------------
+
+bindec8         LDY    #0                          ; start 10's counter
+bin8            CMP    #10
+                BCC    bin8a                       ; less than 10, were done
+
+                SBC    #10                         ; minus 10
+                INY                                ; add 1 to the 10's counter
+                BNE    bin8                        ; loop
+
+bin8a           ADC    #'0'                        ; make 1's into text
+                TAX                                ; save
+                TYA
+                ADC    #'0'                        ; make 10's into text
+                RTS                                ; were done
+
+* convert file type code to text
+*-------------------------------------------------
+
+texttype        LDY    #fFType                     ; get filetype
+                LDA    (TEMP),Y
+
+                STA    filetype                    ; store file type in data byte for later
+
+                LDX    #<typetbl                   ; Point To File Types
+                STX    TEMP2
+                LDX    #>typetbl
+                STX    TEMP2+1
+                LDY    #0                          ; Index Is Zero
+                PHA                                ; Save Type
+type2           PLA                                ; Restore Type
+                CMP    (TEMP2),Y                   ; Same Type?
+                BEQ    type4                       ; Yes, Show It
+                PHA                                ; Save Type
+                CLC                                ; Add 4 To Skip Last Type
+                LDA    #4
+                ADC    TEMP2
+                STA    TEMP2
+                BCC    type3
+                INC    TEMP2+1
+type3           LDA    (TEMP2),Y                   ; Check For End Of List
+                BNE    type2                       ; Not End, Do Next
+                PLA                                ; Throw Out Type
+                JMP    prhex
+
+type4           INC    TEMP2
+                BNE    type6
+                INC    TEMP2+1
+type6           LDA    (TEMP2),Y                   ; print filetype
+                STA    (STRLOC),Y
+                INX
+                INY
+                CPY    #3
+                BNE    type6
+                RTS
+
+* data area for GFI return list / we make this ourself
+*-------------------------------------------------
+
+PDOS_BGN        =      *
+
+                ORG    FREESPACE
+
+FileLength      DS     1                           ;             +0
+t_Access        DS     1                           ;             +1
+t_FileType      DS     1                           ;             +2
+t_AuxType       DS     2                           ; dbl byte    +3
+t_StorageType   DS     1                           ;             +5
+t_BlocksUsed    DS     2                           ; dbl byte    +6
+t_ModDate       DS     2                           ; dbl byte    +8
+t_ModTime       DS     2                           ; dbl byte    +10
+t_CreateDate    DS     2                           ; dbl byte    +12
+t_CreateTime    DS     2                           ; dbl byte    +14
+t_XmodemBlocks  DS     2                           ; dbl byte    +16
+t_BytesUsed     DS     3                           ; triple byte +18
+t_CaseFlags     DS     2                           ; dbl byte    +21
+
+*
+* prodos parameter lists
+*
+
+openparms       DB     3                           ; parm numbers
+                DA     FLNAME
+                DA     FBUF3                       ; address of file buffer
+                DB     0
+
+p_cpos          DB     2
+                DB     0
+                DS     3
+
+p_crinf         DB     4
+                DB     0
+                DA     dirinfo
+                DW     64
+                DW     0
+
+p_crdir         DB     4
+                DB     0
+                DA     dirbuf
+                DW     512
+                DW     0
+
+getpfxparms     DB     1
+                DA     FLNAME
+
+p_close         DB     1
+                DB     0
+
+                ORG
+
+PDOS_END        =      *
+
+* variables and stuff
+*-------------------------------------------------
+
+copyright       ASC    'Copyright (c), 1988 -- Andy Nicholas'
+*date ASC '&SYSDATE'
+*time ASC '&SYSTIME'
+
+CODEEND         =      *
+
+typetbl         HEX    01
+                ASC    'BAD'
+                HEX    02
+                ASC    'PCD'
+                HEX    03
+                ASC    'PTX'
+                HEX    04
+                ASC    'TXT'
+                HEX    05
+                ASC    'PDA'
+                HEX    06
+                ASC    'BIN'
+                HEX    07
+                ASC    'FNT'
+                HEX    08
+                ASC    'FOT'
+                HEX    09
+                ASC    'BA3'
+                HEX    0A
+                ASC    'DA3'
+                HEX    0B
+                ASC    'WPF'
+                HEX    0C
+                ASC    'SOS'
+                HEX    0D
+                ASC    '$0D'
+                HEX    0E
+                ASC    '$0E'
+                HEX    0F
+                ASC    'DIR'
+                HEX    10
+                ASC    'RPD'
+                HEX    11
+                ASC    'RPI'
+                HEX    12
+                ASC    'AFD'
+                HEX    13
+                ASC    'AFM'
+                HEX    14
+                ASC    'AFR'
+                HEX    15
+                ASC    'SCL'
+                HEX    16
+                ASC    'PFS'
+                HEX    17
+                ASC    '$17'
+                HEX    18
+                ASC    '$18'
+                HEX    19
+                ASC    'ADB'
+                HEX    1A
+                ASC    'AWP'
+                HEX    1B
+                ASC    'ASP'
+                HEX    1C
+                ASC    '$1C'
+                HEX    1D
+                ASC    '$1D'
+                HEX    1E
+                ASC    '$1E'
+                HEX    1F
+                ASC    '$1F'
+                HEX    20
+                ASC    'TDM'
+                HEX    21
+                ASC    'IPS'
+                HEX    22
+                ASC    'UCP'
+                HEX    23
+                ASC    '$23'
+                HEX    24
+                ASC    '$24'
+                HEX    25
+                ASC    '$25'
+                HEX    26
+                ASC    '$26'
+                HEX    27
+                ASC    '$27'
+                HEX    28
+                ASC    '$28'
+                HEX    29
+                ASC    'SDI'
+                HEX    2A
+                ASC    '8SC'
+                HEX    2B
+                ASC    '8OB'
+                HEX    2C
+                ASC    '8IC'
+                HEX    2D
+                ASC    '8LD'
+                HEX    2E
+                ASC    'P8C'
+                HEX    2F
+                ASC    '$2F'
+                HEX    30
+                ASC    '$30'
+                HEX    31
+                ASC    '$31'
+                HEX    32
+                ASC    '$32'
+                HEX    33
+                ASC    '$33'
+                HEX    34
+                ASC    '$34'
+                HEX    35
+                ASC    '$35'
+                HEX    36
+                ASC    '$36'
+                HEX    37
+                ASC    '$37'
+                HEX    38
+                ASC    '$38'
+                HEX    39
+                ASC    '$39'
+                HEX    3A
+                ASC    '$3A'
+                HEX    3B
+                ASC    '$3B'
+                HEX    3C
+                ASC    '$3C'
+                HEX    3D
+                ASC    '$3D'
+                HEX    3E
+                ASC    '$3E'
+                HEX    3F
+                ASC    '$3F'
+                HEX    40
+                ASC    'DIC'
+                HEX    41
+                ASC    'OCR'
+                HEX    42
+                ASC    'FTD'
+                HEX    43
+                ASC    'PPD'
+                HEX    44
+                ASC    '$44'
+                HEX    45
+                ASC    '$45'
+                HEX    46
+                ASC    '$46'
+                HEX    47
+                ASC    '$47'
+                HEX    48
+                ASC    '$48'
+                HEX    49
+                ASC    '$49'
+                HEX    4A
+                ASC    '$4A'
+                HEX    4B
+                ASC    '$4B'
+                HEX    4C
+                ASC    '$4C'
+                HEX    4D
+                ASC    '$4D'
+                HEX    4E
+                ASC    '$4E'
+                HEX    4F
+                ASC    '$4F'
+                HEX    50
+                ASC    'GWP'
+                HEX    51
+                ASC    'GSS'
+                HEX    52
+                ASC    'GDB'
+                HEX    53
+                ASC    'DRW'
+                HEX    54
+                ASC    'GDP'
+                HEX    55
+                ASC    'HMD'
+                HEX    56
+                ASC    'EDU'
+                HEX    57
+                ASC    'STN'
+                HEX    58
+                ASC    'HLP'
+                HEX    59
+                ASC    'COM'
+                HEX    5A
+                ASC    'CFG'
+                HEX    5B
+                ASC    'ANM'
+                HEX    5C
+                ASC    'MUM'
+                HEX    5D
+                ASC    'ENT'
+                HEX    5E
+                ASC    'DVU'
+                HEX    5F
+                ASC    'FIN'
+                HEX    60
+                ASC    '$60'
+                HEX    61
+                ASC    '$61'
+                HEX    62
+                ASC    '$62'
+                HEX    63
+                ASC    '$63'
+                HEX    64
+                ASC    '$64'
+                HEX    65
+                ASC    '$65'
+                HEX    66
+                ASC    '$66'
+                HEX    67
+                ASC    '$67'
+                HEX    68
+                ASC    '$68'
+                HEX    69
+                ASC    '$69'
+                HEX    6A
+                ASC    '$6A'
+                HEX    6B
+                ASC    'BIO'
+                HEX    6C
+                ASC    '$6C'
+                HEX    6D
+                ASC    'TDR'
+                HEX    6E
+                ASC    'PRE'
+                HEX    6F
+                ASC    'HDV'
+                HEX    70
+                ASC    '$70'
+                HEX    71
+                ASC    '$71'
+                HEX    72
+                ASC    '$72'
+                HEX    73
+                ASC    '$73'
+                HEX    74
+                ASC    '$74'
+                HEX    75
+                ASC    '$75'
+                HEX    76
+                ASC    '$76'
+                HEX    77
+                ASC    '$77'
+                HEX    78
+                ASC    '$78'
+                HEX    79
+                ASC    '$79'
+                HEX    7A
+                ASC    '$7A'
+                HEX    7B
+                ASC    '$7B'
+                HEX    7C
+                ASC    '$7C'
+                HEX    7D
+                ASC    '$7D'
+                HEX    7E
+                ASC    '$7E'
+                HEX    7F
+                ASC    '$7F'
+                HEX    80
+                ASC    '$80'
+                HEX    81
+                ASC    '$81'
+                HEX    82
+                ASC    '$82'
+                HEX    83
+                ASC    '$83'
+                HEX    84
+                ASC    '$84'
+                HEX    85
+                ASC    '$85'
+                HEX    86
+                ASC    '$86'
+                HEX    87
+                ASC    '$87'
+                HEX    88
+                ASC    '$88'
+                HEX    89
+                ASC    '$89'
+                HEX    8A
+                ASC    '$8A'
+                HEX    8B
+                ASC    '$8B'
+                HEX    8C
+                ASC    '$8C'
+                HEX    8D
+                ASC    '$8D'
+                HEX    8E
+                ASC    '$8E'
+                HEX    8F
+                ASC    '$8F'
+                HEX    90
+                ASC    '$90'
+                HEX    91
+                ASC    '$91'
+                HEX    92
+                ASC    '$92'
+                HEX    93
+                ASC    '$93'
+                HEX    94
+                ASC    '$94'
+                HEX    95
+                ASC    '$95'
+                HEX    96
+                ASC    '$96'
+                HEX    97
+                ASC    '$97'
+                HEX    98
+                ASC    '$98'
+                HEX    99
+                ASC    '$99'
+                HEX    9A
+                ASC    '$9A'
+                HEX    9B
+                ASC    '$9B'
+                HEX    9C
+                ASC    '$9C'
+                HEX    9D
+                ASC    '$9D'
+                HEX    9E
+                ASC    '$9E'
+                HEX    9F
+                ASC    '$9F'
+                HEX    A0
+                ASC    'WP '
+                HEX    A1
+                ASC    '$A1'
+                HEX    A2
+                ASC    '$A2'
+                HEX    A3
+                ASC    '$A3'
+                HEX    A4
+                ASC    '$A4'
+                HEX    A5
+                ASC    '$A5'
+                HEX    A6
+                ASC    '$A6'
+                HEX    A7
+                ASC    '$A7'
+                HEX    A8
+                ASC    '$A8'
+                HEX    A9
+                ASC    '$A9'
+                HEX    AA
+                ASC    '$AA'
+                HEX    AB
+                ASC    'GSB'
+                HEX    AC
+                ASC    'TDF'
+                HEX    AD
+                ASC    'BDF'
+                HEX    AE
+                ASC    '$AE'
+                HEX    AF
+                ASC    '$AF'
+                HEX    B0
+                ASC    'SRC'
+                HEX    B1
+                ASC    'OBJ'
+                HEX    B2
+                ASC    'LIB'
+                HEX    B3
+                ASC    'S16'
+                HEX    B4
+                ASC    'RTL'
+                HEX    B5
+                ASC    'EXE'
+                HEX    B6
+                ASC    'PIF'
+                HEX    B7
+                ASC    'TIF'
+                HEX    B8
+                ASC    'NDA'
+                HEX    B9
+                ASC    'CDA'
+                HEX    BA
+                ASC    'TOL'
+                HEX    BB
+                ASC    'DVR'
+                HEX    BC
+                ASC    'LDF'
+                HEX    BD
+                ASC    'FST'
+                HEX    BE
+                ASC    '$BE'
+                HEX    BF
+                ASC    'DOC'
+                HEX    C0
+                ASC    'PNT'
+                HEX    C1
+                ASC    'PIC'
+                HEX    C2
+                ASC    'ANI'
+                HEX    C3
+                ASC    'PAL'
+                HEX    C4
+                ASC    '$C4'
+                HEX    C5
+                ASC    'OOG'
+                HEX    C6
+                ASC    'SCR'
+                HEX    C7
+                ASC    'CDV'
+                HEX    C8
+                ASC    'FON'
+                HEX    C9
+                ASC    'FND'
+                HEX    CA
+                ASC    'ICN'
+                HEX    CB
+                ASC    '$CB'
+                HEX    CC
+                ASC    '$CC'
+                HEX    CD
+                ASC    '$CD'
+                HEX    CE
+                ASC    '$CE'
+                HEX    CF
+                ASC    '$CF'
+                HEX    D0
+                ASC    '$D0'
+                HEX    D1
+                ASC    '$D1'
+                HEX    D2
+                ASC    '$D2'
+                HEX    D3
+                ASC    '$D3'
+                HEX    D4
+                ASC    '$D4'
+                HEX    D5
+                ASC    'MUS'
+                HEX    D6
+                ASC    'INS'
+                HEX    D7
+                ASC    'MDI'
+                HEX    D8
+                ASC    'SND'
+                HEX    D9
+                ASC    '$D9'
+                HEX    DA
+                ASC    '$DA'
+                HEX    DB
+                ASC    'DBM'
+                HEX    DC
+                ASC    '$DC'
+                HEX    DD
+                ASC    'DDD'
+                HEX    DE
+                ASC    '$DE'
+                HEX    DF
+                ASC    '$DF'
+                HEX    E0
+                ASC    'LBR'
+                HEX    E1
+                ASC    '$E1'
+                HEX    E2
+                ASC    'ATK'
+                HEX    E3
+                ASC    '$E3'
+                HEX    E4
+                ASC    '$E4'
+                HEX    E5
+                ASC    '$E5'
+                HEX    E6
+                ASC    '$E6'
+                HEX    E7
+                ASC    '$E7'
+                HEX    E8
+                ASC    '$E8'
+                HEX    E9
+                ASC    '$E9'
+                HEX    EA
+                ASC    '$EA'
+                HEX    EB
+                ASC    '$EB'
+                HEX    EC
+                ASC    '$EC'
+                HEX    ED
+                ASC    '$ED'
+                HEX    EE
+                ASC    'R16'
+                HEX    EF
+                ASC    'PAS'
+                HEX    F0
+                ASC    'CMD'
+                HEX    F1
+                ASC    '$F1'
+                HEX    F2
+                ASC    '$F2'
+                HEX    F3
+                ASC    '$F3'
+                HEX    F4
+                ASC    '$F4'
+                HEX    F5
+                ASC    '$F5'
+                HEX    F6
+                ASC    '$F6'
+                HEX    F7
+                ASC    '$F7'
+                HEX    F8
+                ASC    '$F8'
+                HEX    F9
+                ASC    'OS '
+                HEX    FA
+                ASC    'INT'
+                HEX    FB
+                ASC    'IVR'
+                HEX    FC
+                ASC    'BAS'
+                HEX    FD
+                ASC    'VAR'
+                HEX    FE
+                ASC    'REL'
+                HEX    FF
+                ASC    'SYS'
+                HEX    00
+                ASC    '---'
+
+numfls          DW     0
+blkcnt          DB     0
+
+filetype        DB     0
+position        DB     0
+FirstTime       DB     0
+temp_alt        DW     0                           ; 2 bytes
+filenum         DW     0                           ; file number to return
+allflag         DB     0
+doCase          DB     0
+old_close       DB     0
+
+num             DS     10
+
diff --git a/SOURCE/XDOS.S b/SOURCE/XDOS.S
new file mode 100644
index 0000000..592e985
--- /dev/null
+++ b/SOURCE/XDOS.S
@@ -0,0 +1,1795 @@
+*-------------------------------
+* ProDOS Command Interpreter for GBBS "Pro"
+* Written originally by Greg Schaefer
+* Modified extensively by Scott Galbraith
+* Rewritten/Converted to Orca/M by Andy Nicholas
+* Binary II file contents lister by Andy Nicholas
+* January, 1988
+*-------------------------------
+              DATE
+*-------------------------------
+
+Id            =      4
+Aux           =      1
+
+              LST    OFF
+              LSTDO  OFF
+              TR
+              TR     ADR
+              EXP    ONLY
+Y             =      1
+y             =      1
+N             =      0
+n             =      0
+NOLIST        =      Y
+              DO     NOLIST
+LISTOBJ       =      N
+LISTSYM       =      N
+              ELSE
+LISTOBJ       KBD    'List This Source? (Y/N)'
+LISTSYM       KBD    'List Symbol Table? (Y/N)'
+              FIN
+              DO     LISTOBJ
+              LST
+              FIN
+              LST    OFF
+              PUT    EQUATES/EQUATES
+              PUT    EQUATES/OS.EQUATES
+              PUT    EQUATES/ENTRY
+
+]TYPE         =      ^overlays                        ; set file type
+]AUX          =      overlays                         ; and aux type
+              ORG    ]AUX                             ; must be this way
+              TYP    ]TYPE
+
+              DSK    /MAIN/LLUCE/SYSTEM/XDOS
+              LST    RTN
+
+              TTL    'LLUCE - External DOS commands'
+              DO     LISTOBJ
+              LST
+              FIN
+
+              DB     Id
+              DA     Aux
+              DB     Aux/256!Aux!Id!$A5
+
+*-------------------------------
+* Size Of Code To Check CRC
+*-------------------------------
+
+              DA     CODEEND-XDOS
+              DA     0                                ; CRC Goes Here
+
+FAILFLAG      =      PRN
+
+              ORG    $D000
+
+* Start of Xdos routines
+*-------------------------------
+
+XDOS          LDX    #CODEEND-PARMLSTS
+MOVEPDOS      LDA    PARMLSTS,X                       ; Move Parameter Lists
+              STA    GFI_P,X
+              DEX
+              BPL    MOVEPDOS
+
+              STZ    FAILFLAG                         ;Innocent until proven guilty
+
+              LDA    #0
+              TAX
+FILL          STZ    LNBUF,X                          ;zero string buffer
+              DEX
+              BNE    FILL
+
+              JSR    GOBCOM                           ;gobble
+              JSR    INPSTR                           ;get string (dont use memory)
+
+              LDY    #-1
+MOVE          INY
+              CPY    STRLEN                           ;at end of line?
+              BEQ    DISPAT                           ;yep
+
+              LDA    (STRLOC),Y
+              CMP    #' '
+              BNE    MOVE
+
+              LDX    #0
+MOVE2         CPY    STRLEN                           ;at end of line?
+              BEQ    DISPAT                           ;yep
+
+              LDA    (STRLOC),Y
+              STA    LNBUF,X                          ;copy rest of line
+              INX
+              INY
+              BRA    MOVE2
+
+DISPAT        LDY    #0
+              LDA    (STRLOC),Y                       ;get command
+              JSR    CONV
+              CMP    #'C'
+              BEQ    JMP1
+              CMP    #'X'
+              BEQ    JMP2
+              CMP    #'T'
+              BEQ    TYPE
+              CMP    #'F'
+              BEQ    JMP4
+              CMP    #'G'
+              BEQ    JMP5
+              CMP    #'B'
+              BEQ    JMP7
+              CMP    #'V'
+              BEQ    JMP8
+
+JMP1          LDA    #0                               ;set up for 40 col catalog function
+              HEX    2C
+JMP2          LDA    #-1                              ;set up for 80 col catalog function
+              JMP    CAT
+
+JMP4          JMP    FREE
+JMP5          JMP    GET_INFO
+JMP7          JMP    BINARYII
+JMP8          JMP    VOLINFO
+
+* change the type of a file
+*-------------------------------
+
+TYPE          JSR    GFNAME                           ;get filename to retype
+              JSR    GETINFO                          ;get current file info
+              JSR    FINDATA                          ;SET POINTER TO FIND NEW FILE TYPE IN BUFFER
+              LDA    LNBUF,X
+              CMP    #','
+              BNE    KEEPON
+              INX
+KEEPON        LDA    #<TYPETBL                        ;Point to file types
+              STA    TEMP
+              LDA    #>TYPETBL
+              STA    TEMP+1
+NEXTTYP       LDY    #1
+              LDA    LNBUF,X
+              JSR    CONV
+              CMP    (TEMP),Y
+              BNE    TRYNEXT
+              INY
+              LDA    LNBUF+1,X
+              JSR    CONV
+              CMP    (TEMP),Y
+              BNE    TRYNEXT
+              INY
+              LDA    LNBUF+2,X
+              JSR    CONV
+              CMP    (TEMP),Y
+              BNE    TRYNEXT
+              LDA    (TEMP)
+              STA    P_INFO+4                         ;store new file type in file info buffers
+              LDA    #7                               ;setup 7 for set-info
+              STA    P_INFO
+              JSR    MLI
+              DB     Setinfo
+              DA     P_INFO
+
+              STA    FAILFLAG
+              RTS
+
+TRYNEXT       CLC                                     ;Point to next type name
+              LDA    TEMP
+              ADC    #4
+              STA    TEMP
+              BNE    TYPEEND
+              INC    TEMP+1
+TYPEEND       LDA    (TEMP)                           ;Any more?
+              BNE    NEXTTYP                          ;yes
+              LDA    #-1
+              STA    FAILFLAG
+              RTS
+
+* Free space
+*-------------------------------
+
+FREE          JSR    GFNAME
+              LDA    FNAME1
+              BNE    DOFREE                           ;they typed a pathname
+
+              JSR    MLI
+              DB     Getpfx                           ;get the current prefix
+              DA     P_CPFX
+
+DOFREE        LDA    DEVNUM                           ;get device # of most recent accessed device
+              STA    P_ONLIN+1                        ;store it for 'Online' call
+
+              JSR    MLI
+              DB     Online
+              DA     P_ONLIN
+
+              LDA    FNAME1+1
+              AND    #$F
+              INC    A                                ;increase name character length by '1'
+              STA    FNAME1                           ;store new name length
+              LDA    #'/'                             ;load '/' character to make name a vol name
+              STA    FNAME1+1                         ;insert character into name string
+
+              JSR    GETINFO                          ;get info on volume
+
+              LDA    #cr
+              JSR    COUT
+              JSR    XPR
+              ASC    'Blocks Total: '00
+
+              LDX    P_INFO+5                         ;get low byte of total blocks
+              LDA    P_INFO+6                         ;get high byte of total blocks
+              JSR    DECOUT0                          ;print total blocks on volume
+
+              JSR    XPR
+              ASC    '    Blocks Used: '00
+
+              LDX    P_INFO+8                         ;get low byte of blocks used #
+              LDA    P_INFO+9                         ;get high byte of blocks used #
+              JSR    DECOUT0                          ;print total blocks used on volume
+
+              JSR    XPR
+              ASC    '    Blocks Free: '00
+
+              LDA    P_INFO+5
+              SEC
+              SBC    P_INFO+8
+              TAX
+
+              LDA    P_INFO+6
+              SBC    P_INFO+9
+              JSR    DECOUT0
+
+              LDA    #cr                              ;send cr/lf and exit back to program
+              JMP    COUT
+
+* get info on a particular file
+*-------------------------------
+
+GET_INFO      JSR    GFNAME
+              LDA    FNAME1
+              BNE    DO_GFI
+              INC    FNAME1
+              LDA    #'/'
+              STA    FNAME1+1
+
+DO_GFI        JSR    MLI
+              DB     Getinfo
+              DA     GFI_P
+
+              JSR    MLI                              ;open the file
+              DB     Open
+              DA     P_COPEN
+
+              LDA    P_COPEN+5                        ;get refnum
+              STA    GET_REF
+              STA    P_CLOSE+1
+
+              JSR    MLI
+              DB     Geteof
+              DA     GETEOF_P
+
+              LDA    GET_REF+1
+              STA    GETEOF_P
+              LDA    GET_REF+2
+              STA    GET_REF
+              LDA    GET_REF+3
+              STA    RBYTE
+
+              LDX    #7                               ;divide by 128
+NLOOP         LSR    RBYTE
+              ROR    GETEOF_P+1
+              ROR    GETEOF_P
+              DEX
+              BNE    NLOOP
+
+              LDA    GET_REF+1                        ;get low byte
+              AND    #$7F                             ;is number divisable by 128?
+              BEQ    DONE                             ;yes, even multiple, don't add 1
+              INC    GETEOF_P                         ;no, add 1 for extra bytes
+              BNE    DONE                             ;didn't roll over, go print it
+              INC    GETEOF_P+1                       ;low byte rolled over, increment mid
+
+DONE          LDA    GETEOF_P+1                       ;mask off high byte if set
+              AND    #$7F
+              STA    GETEOF_P+1
+
+              JSR    MLI                              ;close file
+              DB     Close
+              DA     P_CLOSE
+
+              RTS                                     ;done, so return
+
+* get info on the current volume/file
+* return K instead of 1/2k
+*-------------------------------
+
+VOLINFO       JSR    GFNAME
+              LDA    FNAME1
+              BNE    DO_VINF
+              INC    FNAME1
+              LDA    #'/'
+              STA    FNAME1+1
+
+DO_VINF       JSR    MLI
+              DB     Getinfo
+              DA     GFI_P
+
+              STA    FAILFLAG
+
+              LSR    IBLOCKS_USED+1
+              ROR    IBLOCKS_USED
+              LSR    IAUXTYPE+1
+              ROR    IAUXTYPE
+              RTS
+
+* Error/Abort
+*-------------------------------
+
+FINBERR       STA    FAILFLAG
+              LDA    #cr                              ;end line
+              JSR    COUT
+
+              BRA    CLOSE_BII
+
+* Error/Abort
+*-------------------------------
+
+NOT_BII       LDA    #cr                              ;end line
+              JSR    COUT
+              LDA    #-2
+              STA    FAILFLAG
+
+CLOSE_BII     JSR    MLI                              ;close file
+              DB     Close
+              DA     P_CLOSE
+              RTS
+
+* Binary II file contents lister
+*-------------------------------
+
+BINARYII      JSR    GFNAME                           ;get pathname/drive specifier
+              LDA    FNAME1
+              BNE    BCAT2                            ;they typed a pathname
+
+              JSR    MLI
+              DB     Getpfx                           ;get the current prefix
+              DA     P_CPFX
+
+BCAT2         JSR    MLI                              ;open the current prefix
+              DB     Open
+              DA     P_COPEN
+              BCS    FINBERR
+
+              LDA    P_COPEN+5                        ;get refnum
+              STA    BII_READ+1
+              STA    BII_GMARK+1
+              STA    BII_SMARK+1
+              STA    P_CLOSE+1
+
+              STZ    NUMFLS                           ;0 files processed
+              STZ    NUMFLS+1
+
+BRDLOOP       LDA    #<DIRBLOK                        ;point to buf
+              STA    TEMP
+              LDA    #>DIRBLOK
+              STA    TEMP+1
+
+              JSR    MLI
+              DB     Read
+              DA     BII_READ
+              BCS    FINBERR
+
+              LDA    DIRBLOK                          ;check ID bytes for Binary II
+              CMP    #$A
+              BNE    NOT_BII
+              LDA    DIRBLOK+1
+              CMP    #'G'                             ;check ID2
+              BNE    NOT_BII
+              LDA    DIRBLOK+2
+              CMP    #'L'                             ;check ID3
+              BNE    NOT_BII
+              LDA    DIRBLOK+18
+              CMP    #2                               ;check ID4
+              BNE    NOT_BII
+
+              LDX    #'*'                             ;default = locked
+              LDA    DIRBLOK+3
+              AND    #3
+              CMP    #3
+              BNE    BLOCKED
+              LDX    #' '
+
+BLOCKED       TXA
+              JSR    COUT                             ;print lock/unlock status
+
+              LDX    #0
+LOOP          LDA    DIRBLOK+24,X                     ;default to printing name
+              JSR    COUT
+              INX
+              CPX    #15
+              BEQ    NOSUBDIR
+              CPX    DIRBLOK+23
+              BNE    LOOP
+
+NOSUBDIR      LDA    #' '
+LOOP2         JSR    COUT                             ;adjust
+              INX
+              CPX    #16
+              BLT    LOOP2                            ;less than
+
+              LDA    DIRBLOK+4
+              STA    FILETYP
+              JSR    PTYPE
+
+              LDA    #' '
+              JSR    COUT
+
+              LDA    DIRBLOK+8
+              STA    NUM
+              LDA    DIRBLOK+9
+              STA    NUM+1
+              JSR    DECOUT1
+
+              LDA    #' '
+              JSR    COUT
+
+              LDA    #10                              ;now setup to get creation date
+              STA    POSITION
+              JSR    CONVDAT                          ;get, convert and display creation date
+              LDA    #12                              ;and creation time
+              STA    POSITION
+              JSR    CONVTIM
+
+              LDA    #' '
+              JSR    COUT
+              LDA    #' '
+              JSR    COUT
+
+              LDA    #14                              ;setup to get mod-date
+              STA    POSITION
+              JSR    CONVDAT
+              LDA    #16                              ;else continue with full catalog by setting
+              STA    POSITION                         ;pointers to mod time data
+              JSR    CONVTIM
+
+              LDA    DIRBLOK+20
+              STA    NUM
+              LDA    DIRBLOK+21
+              STA    NUM+1
+              LDA    DIRBLOK+22
+              STA    NUM+2
+              JSR    DECOOT1
+
+              LDA    #4                               ;now check for txt or bin files
+              CMP    FILETYP
+              BNE    BCHKBIN
+              LDA    #'R'
+              JSR    COUT
+              BRA    BCONT
+
+BCHKBIN       LDA    #6                               ;checking for bin file
+              CMP    FILETYP
+              BNE    BFINISHU
+              LDA    #'A'
+              JSR    COUT
+BCONT         LDA    #'='
+              JSR    COUT
+              LDA    DIRBLOK+5
+              STA    NUM
+              LDA    DIRBLOK+6
+              STA    NUM+1
+              JSR    DECOUT1                          ;convert and display data
+BFINISHU      LDA    #cr                              ;send cr/lf and exit back to cat routine
+              JSR    COUT
+
+              LDA    DIRBLOK+127
+              BEQ    BFINISH                          ;we are done, no more files
+
+              LDA    DIRBLOK+4
+              CMP    #$F                              ;directory file
+              BNE    NOTDIR
+              JMP    BRDLOOP
+
+NOTDIR        JSR    MLI
+              DB     Getmark
+              DA     BII_GMARK
+              BCC    GETOK
+              JMP    FINBERR
+
+GETOK         LDA    BII_GMARK+2                      ;add low byte of current mark
+              CLC                                     ;to site of next header
+              ADC    DIRBLOK+20
+              STA    BII_SMARK+2
+
+              LDA    BII_GMARK+3                      ;add mid-byte to site of
+              ADC    DIRBLOK+21                       ;next header
+              STA    BII_SMARK+3
+
+              LDA    BII_GMARK+4                      ;add high byte to site of
+              ADC    DIRBLOK+22                       ;next header
+              STA    BII_SMARK+4
+
+              LDA    BII_SMARK+2                      ;get lo byte of next mark
+              AND    #$7F                             ;chop off high bit
+              BEQ    SETMARK                          ;already on a page, go set the mark
+              EOR    #$7F                             ;get complement of number
+              CLC
+              ADC    BII_SMARK+2                      ;add it to number
+              STA    BII_SMARK+2                      ;save corrected mark
+
+              INC    BII_SMARK+2                      ;make it on an even boundary
+              BNE    SETMARK                          ;$80, so go set mark
+              INC    BII_SMARK+3
+              BNE    SETMARK
+              INC    BII_SMARK+4
+
+SETMARK       JSR    MLI
+              DB     Setmark
+              DA     BII_SMARK
+              BCC    DOLOOP
+              JMP    FINBERR
+
+DOLOOP        JMP    BRDLOOP                          ;do another block
+
+BFINISH       JSR    MLI                              ;close file
+              DB     Close
+              DA     P_CLOSE
+              RTS
+
+* cat the currently logged path
+*-------------------------------
+
+CAT           STA    CATTYPE
+
+              JSR    GFNAME                           ;get pathname/drive specifier
+              LDA    FNAME1
+              BNE    CAT2                             ;they typed a pathname
+
+              JSR    MLI
+              DB     Getpfx                           ;get the current prefix
+              DA     P_CPFX                           ;into the filename buffer
+
+CAT2          LDA    #cr                              ;add a linefeed
+              JSR    COUT
+
+              LDX    #0
+CAT3          INX
+              LDA    FNAME1,X                         ;print pathname
+              JSR    COUT
+              CPX    FNAME1
+              BNE    CAT3
+
+              LDA    #cr                              ;add 2 linefeeds
+              JSR    COUT
+              JSR    COUT
+
+              JSR    MLI                              ;open the current prefix
+              DB     Open
+              DA     P_COPEN
+              BCC    CAT4
+
+              STA    FAILFLAG
+              LDA    #cr                              ;end line
+              JSR    COUT
+              RTS
+
+CAT4          LDA    P_COPEN+5                        ;get refnum
+              STA    P_CPOS+1
+              STA    P_CRINF+1
+              STA    P_CRDIR+1
+              STA    P_CLOSE+1
+
+              JSR    MLI                              ;read dir info
+              DB     Read
+              DA     P_CRINF
+
+              JSR    MLI                              ;set back to start
+              DB     Setmark
+              DA     P_CPOS
+
+              STZ    NUMFLS                           ;0 files processed
+              STZ    NUMFLS+1
+              LDX    #-1
+              STX    BLKCNT                           ;start at file 1 in block
+
+CRDLOOP       LDA    #<DIRBLOK+4                      ;point to buf
+              STA    TEMP
+              LDA    #>DIRBLOK+4
+              STA    TEMP+1
+
+              JSR    MLI                              ;read block
+              DB     Read
+              DA     P_CRDIR
+
+              LDA    BLKCNT                           ;first pass?
+              BPL    CRDLOOP2                         ;nope
+
+              STZ    BLKCNT                           ;set to 0
+              BRA    CRDLOOP5                         ;go to next entry
+
+CRDLOOP2      LDA    NUMFLS                           ;we done?
+              CMP    DIRINFO+$25
+              BNE    CRDLOOP3                         ;nope
+
+              LDA    NUMFLS+1                         ;check high
+              CMP    DIRINFO+$26
+              BNE    CRDLOOP3                         ;were done
+
+              JSR    DOFREE                           ;print freespace
+              JSR    MLI                              ;close file
+              DB     Close
+              DA     P_CLOSE
+              RTS
+
+CRDLOOP3      LDY    #0
+              LDA    (TEMP),Y                         ;get length and type
+              AND    #$F
+              STA    (TEMP),Y                         ;get rid of extra stuff
+              STA    TEMP2
+              BEQ    CRDLOOP5                         ;oops, deleted file
+
+              INC    NUMFLS                           ;inc file count
+              BNE    CRDLOOP4
+              INC    NUMFLS+1
+
+CRDLOOP4      JSR    PRENT                            ;print the entry
+
+CRDLOOP5      CLC
+              LDA    TEMP                             ;go to next entry
+              ADC    DIRINFO+$23
+              STA    TEMP
+              LDA    TEMP+1
+              ADC    #0
+              STA    TEMP+1
+
+              INC    BLKCNT                           ;inc place within block
+              LDA    BLKCNT
+              CMP    DIRINFO+$24
+              BEQ    CRDLOOP6                         ;go to next block
+
+              BRA    CRDLOOP2                         ;do next entry within this block
+
+CRDLOOP6      STZ    BLKCNT                           ;reset count
+              JMP    CRDLOOP                          ;do another block
+
+* print the entry
+*-------------------------------
+
+PRENT         LDX    #'*'                             ;default = locked
+              LDY    #$1E                             ;check access
+              LDA    (TEMP),Y
+              AND    #3
+              CMP    #3
+              BNE    LOCKED
+              LDX    #' '
+LOCKED        TXA
+              JSR    COUT                             ;print lock/unlock status
+
+              LDY    #$1C+1                           ; Valid filename case flags?
+              LDA    (TEMP),Y
+              STA    doCase                           ; set flag
+
+              STA    TEMP3+1                          ; save flags for shift
+              DEY
+              LDA    (TEMP),Y
+              STA    TEMP3
+
+              LDY    #1
+              ASL    TEMP3
+              ROL    TEMP3+1
+
+PRENT2        LDA    (TEMP),Y                         ;default to printing name
+              CPY    TEMP2                            ;check against length
+              BCC    PRENT2A                          ;opps, too long
+              BEQ    PRENT2A
+              LDA    #' '
+PRENT2A       BIT    doCase
+              BPL    uCase
+              ASL    TEMP3                            ; is this lower case?
+              ROL    TEMP3+1
+              BCC    uCase                            ; nope
+              CMP    #'A'                             ; is it alpha?
+              BLT    uCase                            ; nope
+              CMP    #'Z'+1
+              BGE    uCase                            ; nope
+              ADC    #$20                             ; make lower case
+uCase         JSR    COUT                             ;print char
+              INY
+              CPY    #17                              ;print 18 chars
+              BCC    PRENT2
+
+              LDY    #$10                             ;get filetype
+              LDA    (TEMP),Y
+              STA    FILETYP                          ;store file type in data byte for later
+              JSR    PTYPE
+
+NONENT        LDA    #' '
+              JSR    COUT
+
+              LDY    #$13                             ;get blocks used
+              LDA    (TEMP),Y
+              STA    NUM                              ;save number
+              INY
+              LDA    (TEMP),Y
+              STA    NUM+1
+              JSR    DECOUT1
+
+              LDA    #' '
+              JSR    COUT
+
+              LDA    #$18                             ;now setup to get creation date
+              STA    POSITION
+              JSR    CONVDAT                          ;get, convert and display creation date
+              LDA    #0                               ;check to see if command was 'cat' or
+              CMP    CATTYPE                          ;if it was 'x'(='catalog')
+              BNE    CONCAT                           ;keep going if 'catalog' was wanted
+              LDA    #cr                              ;else load end of line
+              JMP    COUT                             ;send cr/lf and exit back to program
+
+CONCAT        LDA    #$1A                             ;and creation time
+              STA    POSITION
+              JSR    CONVTIM
+
+              LDA    #' '
+              JSR    COUT
+              LDA    #' '
+              JSR    COUT
+              LDA    #$21                             ;setup to get mod-date
+              STA    POSITION
+              JSR    CONVDAT
+              LDA    #$23                             ;else continue with full catalog by setting
+              STA    POSITION                         ;pointers to mod time data
+              JSR    CONVTIM
+
+              LDY    #$15                             ;now get file length (eof), convert and
+              LDA    (TEMP),Y                         ;display it with max of 8 decimal digits
+              STA    NUM
+              INY
+              LDA    (TEMP),Y                         ;get middle byte of 3 byte value
+              STA    NUM+1
+              INY
+              LDA    (TEMP),Y                         ;get high byte of 3 byte value
+              STA    NUM+2
+              JSR    DECOOT1
+
+              LDA    #4                               ;now check for txt or bin files
+              CMP    FILETYP
+              BNE    CHECKBIN
+              LDA    #'R'
+              JSR    COUT
+              BRA    CONTINUE
+
+CHECKBIN      LDA    #6                               ;checking for bin file
+              CMP    FILETYP
+              BNE    FINISHUP
+              LDA    #'A'
+              JSR    COUT
+CONTINUE      LDA    #'='
+              JSR    COUT
+              LDY    #$1F                             ;get aux.type data  either bin load address
+              LDA    (TEMP),Y                         ;or the txt file record length
+              STA    NUM
+              INY
+              LDA    (TEMP),Y
+              STA    NUM+1
+              JSR    DECOUT1                          ;convert and display data
+FINISHUP      LDA    #cr                              ;send cr/lf and exit back to cat routine
+              JMP    COUT
+
+*-------------------------------
+
+DECOUT1       STZ    NUM+2                            ;reset total
+              STZ    NUM+3
+              STZ    NUM+4
+              STZ    NUM+5
+              STZ    NUM+6
+              CLC
+
+              SED
+              LDY    #16                              ;use decimal mode
+DECOUT2       ASL    NUM
+              ROL    NUM+1
+              LDA    NUM+2
+              ADC    NUM+2                            ;do actual 'woz' conversion
+              STA    NUM+2
+              LDA    NUM+3
+              ADC    NUM+3
+              STA    NUM+3
+              ROL    NUM+4
+              DEY                                     ;loop down
+              BNE    DECOUT2
+
+              CLD                                     ;done with decimal
+              LDY    #4                               ;print 5 digits
+
+DECOUT3       LDA    NUM+4                            ;get digit
+              AND    #$F
+              BNE    DECOUT4                          ;is it zero?
+
+              LDX    #' '
+              BIT    NUM+5                            ;is this a leading zero?
+              BPL    DECOUT8                          ;yep
+
+DECOUT4       DEC    NUM+5
+              CLC
+              ADC    #'0'                             ;print digit
+              TAX
+              INC    NUM+6
+
+DECOUT8       TXA
+              JSR    COUT                             ;show digit or spacer
+
+DECOUT5       LDX    #3                               ;move up next digit
+DECOUT6       ASL    NUM+1
+              ROL    NUM+2
+              ROL    NUM+3
+              ROL    NUM+4
+              DEX
+              BPL    DECOUT6
+
+              DEY                                     ;count down digits
+              BMI    DECOUT7
+              BNE    DECOUT3
+
+              STX    NUM+5                            ;print last zero for sure
+              BPL    DECOUT3
+
+DECOUT7       CLC
+              RTS
+
+*-------------------------------
+
+DECOOT1       STZ    NUM+3                            ;reset total
+              STZ    NUM+4                            ;convert and display an 8 digit number
+              STZ    NUM+5
+              STZ    NUM+6
+              STZ    NUM+7
+              STZ    NUM+8
+              STZ    NUM+9
+              CLC
+
+              SED
+              LDY    #24                              ;use decimal mode - shift out 24 bits
+DECOOT2       ASL    NUM
+              ROL    NUM+1
+              ROL    NUM+2                            ;do actual 'woz' conversion
+              LDA    NUM+3
+              ADC    NUM+3
+              STA    NUM+3
+              LDA    NUM+4
+              ADC    NUM+4
+              STA    NUM+4
+              LDA    NUM+5
+              ADC    NUM+5
+              STA    NUM+5
+              LDA    NUM+6
+              ADC    NUM+6
+              STA    NUM+6
+              ROL    NUM+7
+              DEY                                     ;loop down
+              BNE    DECOOT2
+
+              CLD                                     ;done with decimal
+              LDY    #8                               ;print 8 digits
+
+DECOOT3       LDA    NUM+7                            ;get digit
+              AND    #$F
+              BNE    DECOOT4                          ;is it zero?
+
+              LDX    #' '
+              BIT    NUM+8                            ;is this a leading zero?
+              BPL    DECOOT8                          ;yep
+
+DECOOT4       DEC    NUM+8
+              CLC
+              ADC    #'0'                             ;print digit
+              TAX
+              INC    NUM+9
+
+DECOOT8       TXA
+              JSR    COUT                             ;show digit or spacer
+
+DECOOT5       LDX    #3                               ;move up next digit
+DECOOT6       ASL    NUM+1
+              ROL    NUM+2
+              ROL    NUM+3
+              ROL    NUM+4
+              ROL    NUM+5
+              ROL    NUM+6
+              ROL    NUM+7
+              DEX
+              BPL    DECOOT6
+
+              DEY                                     ;count down digits
+              BMI    DECOOT7
+              BNE    DECOOT3
+
+              STX    NUM+8                            ;print last zero for sure
+              BPL    DECOOT3
+
+DECOOT7       CLC
+              LDA    #' '
+              JMP    COUT
+
+* subroutine to print "[No Date] "
+*-------------------------------
+
+NODATE        LDY    #10
+              LDX    #0
+NDLOOP        LDA    DEFDATE,X
+              JSR    COUT
+              INX
+              DEY
+              BNE    NDLOOP
+              RTS
+
+* subroutine to convert and print dates on the screen
+*-------------------------------
+
+CONVDAT       LDY    POSITION                         ;get day of mod-date
+              LDA    (TEMP),Y
+              BEQ    NODATE                           ;default display if no date on file
+              PHA
+
+              AND    #%00011111                       ;just get date
+              JSR    BINDEC8
+              JSR    COUT
+              TXA                                     ;display date
+              JSR    COUT
+              LDA    #'-'                             ;put in seperator
+              JSR    COUT
+
+              LDY    POSITION                         ;get last bit of month
+              INY
+              LDA    (TEMP),Y
+              LSR    A
+              PLA
+              ROR    A                                ;move in month bit
+              LSR    A
+              LSR    A
+              AND    #%00111100                       ;just get month
+              TAX                                     ;make into offset
+
+              LDY    #4
+PR_DATE       LDA    MONTH-4,X
+              JSR    COUT                             ;show month
+              INX
+              DEY
+              BNE    PR_DATE
+
+              LDY    POSITION
+              INY
+              LDA    (TEMP),Y                         ;get year
+              LSR    A
+              JSR    BINDEC8                          ;translate
+              JSR    COUT
+              TXA
+              JSR    COUT                             ;print year
+              LDA    #' '
+              JMP    COUT
+
+* Convert and print time to screen
+*-------------------------------
+
+CONVTIM       LDY    POSITION                         ;get time data, convert to decimal and
+              INY                                     ;get hours first
+              LDA    (TEMP),Y                         ;then display it
+              AND    #%00011111                       ;mask for needed digits
+              JSR    BINDEC8                          ;convert binary to decimal and return
+              JSR    COUT                             ;display tens digit
+              TXA                                     ;shift in other digit
+              JSR    COUT                             ;display ones digit
+              LDA    #':'                             ;print separator
+              JSR    COUT
+              LDY    POSITION                         ;get minutes now
+              LDA    (TEMP),Y
+              AND    #%00111111                       ;mask for needed bits
+              JSR    BINDEC8                          ;convert to decimal
+              JSR    COUT                             ;display tens digit
+              TXA
+              JMP    COUT                             ;display ones digit and return
+
+* convert lower to upper and clear high bit
+*-------------------------------
+
+CONV          AND    #$7F                             ;strip high bit
+              CMP    #'a'
+              BCC    CONV2
+              CMP    #'z'+1
+              BCS    CONV2
+
+              SBC    #$1F                             ;since carry is clear, -$20
+CONV2         RTS
+
+* get filename and place into buffer
+*-------------------------------
+
+GFNAME        STZ    FNAME1                           ;zero buffer
+
+              JSR    FINDATA                          ;locate data within buffer
+              BCS    CONV2                            ;error, no more data
+
+              LDA    LNBUF,X                          ;get first byte
+              JSR    CONV
+
+              JSR    FINDATA                          ;find the name itself
+              BCS    GFNAME7
+
+              LDY    #0
+GFNAME5       LDA    LNBUF,X                          ;get data
+              BEQ    GFNAME6
+              CMP    #' '
+              BEQ    GFNAME6                          ;at end of line
+              CMP    #','
+              BEQ    GFNAME6
+
+              STA    FNAME1+1,Y                       ;save data
+              LDA    #' '
+              STA    LNBUF,X                          ;kill name
+              INX
+              INY
+              BNE    GFNAME5
+
+GFNAME6       STY    FNAME1                           ;save length of name
+GFNAME7       CLC
+              RTS
+
+* find data within lnbuf
+*-------------------------------
+
+FINDATA       LDX    #-1
+FIND2         INX
+              LDA    LNBUF,X                          ;end of line?
+              SEC
+              BEQ    FIND3                            ;yep
+
+              CMP    #' '
+              BEQ    FIND2
+
+              CLC
+FIND3         RTS
+
+* jsr xpr ; data ; 0 -- quick print routine
+*-------------------------------
+
+XPR           PLA                                     ;save calling address
+              STA    PRN
+              PLA
+              STA    PRN+1
+
+XPR2          INC    PRN                              ;get next byte
+              BNE    XPR3
+              INC    PRN+1
+
+XPR3          LDY    #0
+              LDA    (PRN),Y                          ;get byte
+              BEQ    XPR4                             ;were done
+
+              JSR    COUT
+              BRA    XPR2
+
+XPR4          INC    PRN                              ;inc for return
+              BNE    XPR5
+              INC    PRN+1
+XPR5          JMP    (PRN)
+
+* translate a binary to text [0-99]
+*-------------------------------
+
+BINDEC8       LDY    #0                               ;start 10's counter
+BIN8          CMP    #10
+              BCC    BIN8A                            ;less than 10, were done
+
+              SBC    #10                              ;minus 10
+              INY                                     ;add 1 to the 10's counter
+              BNE    BIN8                             ;loop
+
+BIN8A         ADC    #'0'                             ;make 1's into text
+              TAX                                     ;save
+              TYA
+              ADC    #'0'                             ;make 10's into text
+              RTS                                     ;were done
+
+* get info on a file
+*-------------------------------
+
+GETINFO       LDA    #10                              ;setup 10 for get-info
+              STA    P_INFO
+              JSR    MLI
+              DB     Getinfo
+              DA     P_INFO
+              RTS
+
+* Print file type
+*-------------------------------
+
+PTYPE         LDX    #<TYPETBL                        ; Point To File Types
+              STX    TEMP3
+              LDX    #>TYPETBL
+              STX    TEMP3+1
+              LDY    #0                               ; Index Is Zero
+              PHA                                     ; Save Type
+TLOOP         PLA                                     ; Restore Type
+              CMP    (TEMP3),Y                        ; Same Type?
+              BEQ    SHOWTYP                          ; Yes, Show It
+              PHA                                     ; Save Type
+              CLC                                     ; Add 4 To Skip Last Type
+              LDA    #4
+              ADC    TEMP3
+              STA    TEMP3
+              BCC    TLOOP
+              INC    TEMP3+1
+              BRA    TLOOP
+
+SHOWTYP       INY                                     ; Print First Character
+              LDA    (TEMP3),Y
+              JSR    COUT
+              INY                                     ; Print Second Character
+              LDA    (TEMP3),Y
+              JSR    COUT
+              INY                                     ; Print Last Character
+              LDA    (TEMP3),Y
+              JMP    COUT
+
+* print hex subroutine for catalog
+*-------------------------------
+
+PRHEX         STA    FILETYP
+
+              PHA
+              LDA    #'$'
+              JSR    COUT
+
+              PLA
+              PHA
+              LSR    A
+              LSR    A
+              LSR    A
+              LSR    A
+              JSR    PRINTDIG
+              PLA
+PRINTDIG      AND    #%00001111
+              ORA    #'0'
+              CMP    #'9'+1
+              BCC    DOCOUT
+              ADC    #6
+DOCOUT        JMP    COUT
+
+* variables and stuff
+*-------------------------------
+
+COPYRIGHT     ASC    'Copyright (c), 1987-1993 - L & L Productions'
+
+MONTH         ASC    'Jan-'
+              ASC    'Feb-'
+              ASC    'Mar-'
+              ASC    'Apr-'
+              ASC    'May-'
+              ASC    'Jun-'
+              ASC    'Jul-'
+              ASC    'Aug-'
+              ASC    'Sep-'
+              ASC    'Oct-'
+              ASC    'Nov-'
+              ASC    'Dec-'
+
+DEFDATE       ASC    '[No Date] '
+
+*-------------------------------
+
+PARMLSTS      =      *
+
+              ORG    FREESPACE
+
+GFI_P         DB     10                               ;number of parms
+              DA     FNAME1                           ;address of filename/path
+              DB     00                               ;access bits
+              DB     00                               ;filetype
+
+IAUXTYPE      DA     0                                ;aux filetype
+              DB     0                                ;storage type
+
+IBLOCKS_USED  DA     0                                ;prodos blocks
+              DA     0                                ;date of last modification
+              DA     0                                ;time of last mod
+              DA     0                                ;date of creation
+              DA     0                                ;time of creation
+
+* get end of file params..
+*-------------------------------
+
+GETEOF_P      DB     2
+
+GET_REF       DB     0
+              DS     3
+
+P_ONLIN       DB     2
+              DB     0
+              DA     FNAME1+1
+
+P_CPFX        DB     1
+              DA     FNAME1
+
+P_COPEN       DB     3
+              DA     FNAME1
+              DA     FBUF1
+              DB     0
+
+P_CPOS        DB     2
+              DB     0
+              DS     3
+
+P_CRINF       DB     4
+              DB     0
+              DA     DIRINFO
+              DA     64
+              DA     0
+
+P_CRDIR       DB     4
+              DB     0
+              DA     DIRBLOK
+              DA     512
+              DA     0
+
+P_CLOSE       DB     1
+              DB     0
+
+P_INFO        DB     10
+              DA     FNAME1
+              DB     0
+              DB     0
+              DA     0
+              DB     0
+              DA     0
+              DA     0
+              DA     0
+              DA     0
+
+BII_READ      DB     4
+              DB     0
+              DA     DIRBLOK
+              DA     128
+              DA     0
+
+BII_GMARK     DB     2
+              DB     0
+              DS     3
+
+BII_SMARK     DB     2
+              DB     0
+              DS     3
+
+              ORG
+
+CODEEND       =      *
+
+TYPETBL       DB     $00
+              ASC    'UNK'
+              DB     $01
+              ASC    'BAD'
+              DB     $02
+              ASC    'PCD'
+              DB     $03
+              ASC    'PTX'
+              DB     $04
+              ASC    'TXT'
+              DB     $05
+              ASC    'PDA'
+              DB     $06
+              ASC    'BIN'
+              DB     $07
+              ASC    'FNT'
+              DB     $08
+              ASC    'FOT'
+              DB     $09
+              ASC    'BA3'
+              DB     $0A
+              ASC    'DA3'
+              DB     $0B
+              ASC    'WPF'
+              DB     $0C
+              ASC    'SOS'
+              DB     $0D
+              ASC    '$0D'
+              DB     $0E
+              ASC    '$0E'
+              DB     $0F
+              ASC    'DIR'
+              DB     $10
+              ASC    'RPD'
+              DB     $11
+              ASC    'RPI'
+              DB     $12
+              ASC    'AFD'
+              DB     $13
+              ASC    'AFM'
+              DB     $14
+              ASC    'AFR'
+              DB     $15
+              ASC    'SCL'
+              DB     $16
+              ASC    'PFS'
+              DB     $17
+              ASC    '$17'
+              DB     $18
+              ASC    '$18'
+              DB     $19
+              ASC    'ADB'
+              DB     $1A
+              ASC    'AWP'
+              DB     $1B
+              ASC    'ASP'
+              DB     $1C
+              ASC    '$1C'
+              DB     $1D
+              ASC    '$1D'
+              DB     $1E
+              ASC    '$1E'
+              DB     $1F
+              ASC    '$1F'
+              DB     $20
+              ASC    'TDM'
+              DB     $21
+              ASC    '$21'
+              DB     $22
+              ASC    '$22'
+              DB     $23
+              ASC    '$23'
+              DB     $24
+              ASC    '$24'
+              DB     $25
+              ASC    '$25'
+              DB     $26
+              ASC    '$26'
+              DB     $27
+              ASC    '$27'
+              DB     $28
+              ASC    '$28'
+              DB     $29
+              ASC    '$29'
+              DB     $2A
+              ASC    '8SC'
+              DB     $2B
+              ASC    '8OB'
+              DB     $2C
+              ASC    '8IC'
+              DB     $2D
+              ASC    '8LD'
+              DB     $2E
+              ASC    '8PC'
+              DB     $2F
+              ASC    '$2F'
+              DB     $30
+              ASC    '$30'
+              DB     $31
+              ASC    '$31'
+              DB     $32
+              ASC    '$32'
+              DB     $33
+              ASC    '$33'
+              DB     $34
+              ASC    '$34'
+              DB     $35
+              ASC    '$35'
+              DB     $36
+              ASC    '$36'
+              DB     $37
+              ASC    '$37'
+              DB     $38
+              ASC    '$38'
+              DB     $39
+              ASC    '$39'
+              DB     $3A
+              ASC    '$3A'
+              DB     $3B
+              ASC    '$3B'
+              DB     $3C
+              ASC    '$3C'
+              DB     $3D
+              ASC    '$3D'
+              DB     $3E
+              ASC    '$3E'
+              DB     $3F
+              ASC    '$3F'
+              DB     $40
+              ASC    '$40'
+              DB     $41
+              ASC    '$41'
+              DB     $42
+              ASC    'FTD'
+              DB     $43
+              ASC    '$43'
+              DB     $44
+              ASC    '$44'
+              DB     $45
+              ASC    '$45'
+              DB     $46
+              ASC    '$46'
+              DB     $47
+              ASC    '$47'
+              DB     $48
+              ASC    '$48'
+              DB     $49
+              ASC    '$49'
+              DB     $4A
+              ASC    '$4A'
+              DB     $4B
+              ASC    '$4B'
+              DB     $4C
+              ASC    '$4C'
+              DB     $4D
+              ASC    '$4D'
+              DB     $4E
+              ASC    '$4E'
+              DB     $4F
+              ASC    '$4F'
+              DB     $50
+              ASC    'GWP'
+              DB     $51
+              ASC    'GSS'
+              DB     $52
+              ASC    'GDB'
+              DB     $53
+              ASC    'DRW'
+              DB     $54
+              ASC    'GDP'
+              DB     $55
+              ASC    'HMD'
+              DB     $56
+              ASC    'EDU'
+              DB     $57
+              ASC    'STN'
+              DB     $58
+              ASC    'HLP'
+              DB     $59
+              ASC    'COM'
+              DB     $5A
+              ASC    'CFG'
+              DB     $5B
+              ASC    'ANM'
+              DB     $5C
+              ASC    'MUM'
+              DB     $5D
+              ASC    'ENT'
+              DB     $5E
+              ASC    'DVU'
+              DB     $5F
+              ASC    '$5F'
+              DB     $60
+              ASC    '$60'
+              DB     $61
+              ASC    '$61'
+              DB     $62
+              ASC    '$62'
+              DB     $63
+              ASC    '$63'
+              DB     $64
+              ASC    '$64'
+              DB     $65
+              ASC    '$65'
+              DB     $66
+              ASC    '$66'
+              DB     $67
+              ASC    '$67'
+              DB     $68
+              ASC    '$68'
+              DB     $69
+              ASC    '$69'
+              DB     $6A
+              ASC    '$6A'
+              DB     $6B
+              ASC    'BIO'
+              DB     $6D
+              ASC    'TDR'
+              DB     $6E
+              ASC    'PRE'
+              DB     $6F
+              ASC    'HDV'
+              DB     $70
+              ASC    '$70'
+              DB     $71
+              ASC    '$71'
+              DB     $72
+              ASC    '$72'
+              DB     $73
+              ASC    '$73'
+              DB     $74
+              ASC    '$74'
+              DB     $75
+              ASC    '$75'
+              DB     $76
+              ASC    '$76'
+              DB     $77
+              ASC    '$77'
+              DB     $78
+              ASC    '$78'
+              DB     $79
+              ASC    '$79'
+              DB     $7A
+              ASC    '$7A'
+              DB     $7B
+              ASC    '$7B'
+              DB     $7C
+              ASC    '$7C'
+              DB     $7D
+              ASC    '$7D'
+              DB     $7E
+              ASC    '$7E'
+              DB     $7F
+              ASC    '$7F'
+              DB     $80
+              ASC    '$80'
+              DB     $81
+              ASC    '$81'
+              DB     $82
+              ASC    '$82'
+              DB     $83
+              ASC    '$83'
+              DB     $84
+              ASC    '$84'
+              DB     $85
+              ASC    '$85'
+              DB     $86
+              ASC    '$86'
+              DB     $87
+              ASC    '$87'
+              DB     $88
+              ASC    '$88'
+              DB     $89
+              ASC    '$89'
+              DB     $8A
+              ASC    '$8A'
+              DB     $8B
+              ASC    '$8B'
+              DB     $8C
+              ASC    '$8C'
+              DB     $8D
+              ASC    '$8D'
+              DB     $8E
+              ASC    '$8E'
+              DB     $8F
+              ASC    '$8F'
+              DB     $90
+              ASC    '$90'
+              DB     $91
+              ASC    '$91'
+              DB     $92
+              ASC    '$92'
+              DB     $93
+              ASC    '$93'
+              DB     $94
+              ASC    '$94'
+              DB     $95
+              ASC    '$95'
+              DB     $96
+              ASC    '$96'
+              DB     $97
+              ASC    '$97'
+              DB     $98
+              ASC    '$98'
+              DB     $99
+              ASC    '$99'
+              DB     $9A
+              ASC    '$9A'
+              DB     $9B
+              ASC    '$9B'
+              DB     $9C
+              ASC    '$9C'
+              DB     $9D
+              ASC    '$9D'
+              DB     $9E
+              ASC    '$9E'
+              DB     $9F
+              ASC    '$9F'
+              DB     $A0
+              ASC    'WP '
+              DB     $A1
+              ASC    '$A1'
+              DB     $A2
+              ASC    '$A2'
+              DB     $A3
+              ASC    '$A3'
+              DB     $A4
+              ASC    '$A4'
+              DB     $A5
+              ASC    '$A5'
+              DB     $A6
+              ASC    '$A6'
+              DB     $A7
+              ASC    '$A7'
+              DB     $A8
+              ASC    '$A8'
+              DB     $A9
+              ASC    '$A9'
+              DB     $AA
+              ASC    '$AA'
+              DB     $AB
+              ASC    'GSB'
+              DB     $AC
+              ASC    'TDF'
+              DB     $AD
+              ASC    'BDF'
+              DB     $AE
+              ASC    '$AE'
+              DB     $AF
+              ASC    '$AF'
+              DB     $B0
+              ASC    'SRC'
+              DB     $B1
+              ASC    'OBJ'
+              DB     $B2
+              ASC    'LIB'
+              DB     $B3
+              ASC    'S16'
+              DB     $B4
+              ASC    'RTL'
+              DB     $B5
+              ASC    'EXE'
+              DB     $B6
+              ASC    'PIF'
+              DB     $B7
+              ASC    'TIF'
+              DB     $B8
+              ASC    'NDA'
+              DB     $B9
+              ASC    'CDA'
+              DB     $BA
+              ASC    'TOL'
+              DB     $BB
+              ASC    'DVR'
+              DB     $BC
+              ASC    'LDF'
+              DB     $BD
+              ASC    'FST'
+              DB     $BE
+              ASC    '$BE'
+              DB     $BF
+              ASC    'DOC'
+              DB     $C0
+              ASC    'PNT'
+              DB     $C1
+              ASC    'PIC'
+              DB     $C2
+              ASC    'ANI'
+              DB     $C3
+              ASC    'PAL'
+              DB     $C4
+              ASC    '$C4'
+              DB     $C5
+              ASC    'OOG'
+              DB     $C6
+              ASC    'SCR'
+              DB     $C7
+              ASC    'CDV'
+              DB     $C8
+              ASC    'FON'
+              DB     $C9
+              ASC    'FND'
+              DB     $CA
+              ASC    'ICN'
+              DB     $CB
+              ASC    '$CB'
+              DB     $CC
+              ASC    '$CC'
+              DB     $CD
+              ASC    '$CD'
+              DB     $CE
+              ASC    '$CE'
+              DB     $CF
+              ASC    '$CF'
+              DB     $D0
+              ASC    '$D0'
+              DB     $D1
+              ASC    '$D1'
+              DB     $D2
+              ASC    '$D2'
+              DB     $D3
+              ASC    '$D3'
+              DB     $D4
+              ASC    '$D4'
+              DB     $D5
+              ASC    'MUS'
+              DB     $D6
+              ASC    'INS'
+              DB     $D7
+              ASC    'MDI'
+              DB     $D8
+              ASC    'SND'
+              DB     $D9
+              ASC    '$D9'
+              DB     $DA
+              ASC    '$DA'
+              DB     $DB
+              ASC    'DBM'
+              DB     $DC
+              ASC    '$DC'
+              DB     $DD
+              ASC    '$DD'
+              DB     $DE
+              ASC    '$DE'
+              DB     $DF
+              ASC    '$DF'
+              DB     $E0
+              ASC    'LBR'
+              DB     $E1
+              ASC    '$E1'
+              DB     $E2
+              ASC    'ATK'
+              DB     $E3
+              ASC    '$E3'
+              DB     $E4
+              ASC    '$E4'
+              DB     $E5
+              ASC    '$E5'
+              DB     $E6
+              ASC    '$E6'
+              DB     $E7
+              ASC    '$E7'
+              DB     $E8
+              ASC    '$E8'
+              DB     $E9
+              ASC    '$E9'
+              DB     $EA
+              ASC    '$EA'
+              DB     $EB
+              ASC    '$EB'
+              DB     $EC
+              ASC    '$EC'
+              DB     $ED
+              ASC    '$ED'
+              DB     $EE
+              ASC    'R16'
+              DB     $EF
+              ASC    'PAS'
+              DB     $F0
+              ASC    'CMD'
+              DB     $F1
+              ASC    'UT1'
+              DB     $F2
+              ASC    'UT2'
+              DB     $F3
+              ASC    'UT3'
+              DB     $F4
+              ASC    'UT4'
+              DB     $F5
+              ASC    'UT5'
+              DB     $F6
+              ASC    'UT6'
+              DB     $F7
+              ASC    'UT7'
+              DB     $F8
+              ASC    'UT8'
+              DB     $F9
+              ASC    'OS '
+              DB     $FA
+              ASC    'INT'
+              DB     $FB
+              ASC    'IVR'
+              DB     $FC
+              ASC    'BAS'
+              DB     $FD
+              ASC    'VAR'
+              DB     $FE
+              ASC    'REL'
+              DB     $FF
+              ASC    'SYS'
+              DB     0
+
+NUMFLS        DA     0
+BLKCNT        DB     0
+
+FILETYP       DB     0
+POSITION      DB     0
+CATTYPE       DB     0
+RBYTE         DS     1
+
+doCase        DB     0
+
+              DUM    FBUF2
+DIRBLOK       DS     512                              B700
+DIRINFO       DS     256                              B900
+FNAME1        DS     64                               BA00
+FNAME2        DS     64                               BA40
+NUM           DS     10                               BA80
+              DEND
+
diff --git a/SOURCE/ZMODEM/EQUATES.S b/SOURCE/ZMODEM/EQUATES.S
new file mode 100644
index 0000000..6862302
--- /dev/null
+++ b/SOURCE/ZMODEM/EQUATES.S
@@ -0,0 +1,117 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                        -- Andrew Nicholas
+*
+               LST   RTN
+
+*-------------------------------------------------
+* aux memory stuff
+
+AUXMOVE        =     $C311       ;a1=source,a2=source end,a4=dest start
+                                 ;carry set   = main --> aux
+                                 ;carry clear = aux --> main
+
+A1             =     $3C         ;and $3D
+A2             =     $3E         ;and $3F
+A3             =     $40         ;and $41
+A4             =     $42         ;and $43
+
+*-------------------------------------------------
+* regular stuff
+
+POINTER        =     $00         ;general purpose pointer
+FAILFLAG       =     $0A
+TMODE          =     $0B
+HTAB           =     $24
+
+NUM            =     $D0         ;used by long2Dec
+DECIMAL        =     $D3         ;used by long2Dec
+
+CRC            =     $E0         ;crc we calculated
+CRC32          =     $E0         ;crc32 we calculated
+
+FRAMECRC32     =     $E4         ;crc32 we got from the other end
+FRAMECRC       =     $E4         ;crc we got from the other end
+
+NOISE          =     $E8         ;number of pieces of line noise we got so far
+FRAMEKIND      =     $E9         ;kind of frame (ZHEX, ZBIN, ZBIN32)
+FRAMEEND       =     $EA         ;type of frame we sent or received
+FRAMETYPE      =     $EB         ;frame type byte
+
+ZPTR           =     $F0
+CPTR           =     $F2
+FPTR           =     $F4         ;POINTER to filename
+ZSTART         =     $F6
+ZEND           =     $F8
+LASTC          =     $FA
+
+ZP0            =     $FC         ;byte 0 of zmodem's file position
+ZF3            =     $FC
+ZP1            =     $FD         ;byte 1 of zmodem's file position
+ZF2            =     $FD
+ZP2            =     $FE         ;byte 2 of zmodem's file position
+ZF1            =     $FE
+ZP3            =     $FF         ;byte 3 of zmodem's file position
+ZF0            =     $FF
+
+lf             =     $0A
+can            =     $18
+cr             =     $0D
+bs             =     $08
+esc            =     $1B
+xon            =     $11
+xoff           =     $13
+
+GOBCOM         =     $0386       ;acos routine to eat commas
+INPNUM         =     $0389       ;get character into x reg
+INPSTR         =     $038C       ;get a string
+MOVNAME        =     $038F       ;get filename into filename buffer
+BADERR         =     $0392       ;acos error handler
+SETOVEC        =     $03A1       ;set output vector to y reg
+*COUT    =     $03A4      ;Standard acos output routine
+DECOUT         =     $03A7       ;print acc and x as integer...
+ACOS_CREATE    =     $03AA       ;acos mli create call
+ACOS_OPEN      =     $03AD       ;acos mli open call
+ACOS_CLOSE     =     $03B0       ;acos mli close call
+READBLK        =     $03B9       ;read some blocks
+LOG            =     $03C8       ;move pathname into path buffer
+ACOSPATHLO     =     $03CB       ;pathname addr lo from acos
+ACOSPATHHI     =     $03CC       ;pathname addr hi from acos
+ACOSREF        =     $03CD       ;reference # from acos mli call
+COUT           =     $0906
+LOCPRINT       =     $0906       ;print to the local screen
+PRCOUT         =     $0C04       ;print a character on the printer
+VIDEOSCROLL    =     $0909       ;scroll screen up 1 line
+BAUD           =     $0E02       ;baud rate the caller is connected at
+MDMIN          =     $0E15       ;modem driver input routine
+MDMOUT         =     $0E18       ;modem driver output routine
+MDMDCD         =     $0E1B       ;modem driver carrier detect
+MDMFLUSH       =     $0E24       ;only exists in ACOS v2.14 and later
+MLI            =     $BF00       ;prodos calls
+KEY            =     $C000       ;read keyboard
+STROBE         =     $C010       ;keyboard strobe
+PTRIG          =     $C070       ;paddle trigger (used to slow down for accelerators)
+*
+* This is not the ACOS chrget routine.  This is an invalid
+* entry point.  Probably was AppleSoft chrget $00B1
+*
+CHRGET         =     $03B1       ;acos get character routine
+
+GETBYT         =     $0380       ;get next byte from segment
+CHKBYT         =     $0383       ;check next byte in segment
+
+CRCTABLELO     =     $2000       ;where the crc tables get moved into
+CRCTABLEHI     =     $2000+$100  ;main memory from aux memory
+CRC32TABLE1    =     $2000+$200
+CRC32TABLE2    =     $2000+$300
+CRC32TABLE3    =     $2000+$400
+CRC32TABLE4    =     $2000+$500
+
+ZBUFFER        =     $2000+$600
+MAXBUFFERSIZE  =     $4000
+FILEBUFFER1    =     $AE00
+FILEBUFFER2    =     $B200
+               LST   OFF
+
diff --git a/SOURCE/ZMODEM/LONG2DEC.S b/SOURCE/ZMODEM/LONG2DEC.S
new file mode 100644
index 0000000..f284649
--- /dev/null
+++ b/SOURCE/ZMODEM/LONG2DEC.S
@@ -0,0 +1,102 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+            LST   RTN
+
+*-------------------------------------------------
+* Merlin 8 code extracted from Davex 1.27
+*  Code by Dave Lyons and Steve Wozniak, with
+*  tweeks for Zmodem by Andy Nicholas
+*
+* Input: num, num+1, num+2 (zero page)
+
+LONG2DEC    LSR   DIGIT_FLAG  ;True if a digit has been printed
+
+            LDY   #7          ;loop back to prd_L1 for each digit
+            STZ   DIGIT
+
+PRD_L1      LDX   #'0'        ;Digit so far, loop to prd_L2 while
+PRD_L2      LDA   NUM+2       ;calculating one digit
+            CMP   HIG10,Y
+            BNE   PCMP_DUN
+            LDA   NUM+1
+            CMP   MED10,Y
+            BNE   PCMP_DUN
+            LDA   NUM
+            CMP   LOW10,Y
+PCMP_DUN    BCC   PR_DIGIT
+
+*        SEC              ;always set
+            LDA   NUM
+            SBC   LOW10,Y
+            STA   NUM
+            LDA   NUM+1
+            SBC   MED10,Y
+            STA   NUM+1
+            LDA   NUM+2
+            SBC   HIG10,Y
+            STA   NUM+2
+            INX
+            BNE   PRD_L2
+
+PR_DIGIT    CPY   #0
+            BEQ   PRINTIT
+            CPX   #'0'
+            BNE   PRINTIT
+
+            BIT   DIGIT_FLAG
+            BPL   PRINTED
+
+PRINTIT     SEC
+            ROR   DIGIT_FLAG
+
+            TXA
+            LDX   DIGIT
+            STA   DECIMAL,X
+            INC   DIGIT
+
+PRINTED     DEY
+            BPL   PRD_L1
+
+            LDX   DIGIT
+            STZ   DECIMAL,X
+            RTS
+
+DIGIT_FLAG  DB    0
+DIGIT       DB    0
+
+*-------------------------------------------------
+* tables for base 10 printing
+
+LOW10       DB    <1
+            DB    <10
+            DB    <100
+            DB    <1000
+            DB    <10000
+            DB    <100000
+            DB    <1000000
+            DB    <10000000
+
+MED10       DB    >1
+            DB    >10
+            DB    >100
+            DB    >1000
+            DB    >10000
+            DB    >100000
+            DB    >1000000
+            DB    >10000000
+
+HIG10       DB    ^1
+            DB    ^10
+            DB    ^100
+            DB    ^1000
+            DB    ^10000
+            DB    ^100000
+            DB    ^1000000
+            DB    ^10000000
+
+            LST   OFF
+
diff --git a/SOURCE/ZMODEM/NO.LONG2DEC.S b/SOURCE/ZMODEM/NO.LONG2DEC.S
new file mode 100644
index 0000000..b771ab8
--- /dev/null
+++ b/SOURCE/ZMODEM/NO.LONG2DEC.S
@@ -0,0 +1,14 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+            LST   RTN
+
+*-------------------------------------------------
+* LONG2DEC -- convert a 3 byte long to decimal
+
+LONG2DEC    RTS
+            LST   OFF
+
diff --git a/SOURCE/ZMODEM/RZ.LOAD.S b/SOURCE/ZMODEM/RZ.LOAD.S
new file mode 100644
index 0000000..0e0ec56
--- /dev/null
+++ b/SOURCE/ZMODEM/RZ.LOAD.S
@@ -0,0 +1,614 @@
+             LST    OFF
+             LSTDO  OFF
+             EXP    ONLY
+             XC
+             TR
+             TR     ADR
+Y            =      1
+y            =      1
+N            =      0
+n            =      0
+LISTOBJ      KBD    'List This Source? (Y/N)'
+LISTSYM      KBD    'List Symbol Table? (Y/N)'
+SAVEOBJ      KBD    'Save Object Code? (Y/N)'
+
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+             USE    MACROS/ZMACS
+             USE    MACROS/PROMACS
+
+             DO     LISTOBJ
+             LST
+             FIN
+             ORG    $9E00
+
+             PUT    EQUATES
+             PUT    ZEQUATES
+
+*-------------------------------------------------
+* rzLoad -- load RZ into $9E00, save the CRC
+*           tables into aux memory at $6000,
+*           and take note that the loader is
+*           left at $2000 if execution was
+*           successful.
+*
+* Syntax is: use "L:rz.load",rz$
+*
+*     where rz$ is the pathname to get
+*            RZ from
+*
+* If loader is successful, failflag (dec 10) = 0
+* If loader is not successful, failflag has prodos
+*  error in failflag (dec 10)
+*
+
+*-------------------------------------------------
+* rzLoad -- load RZ (and have an oh so fun time doing it)
+
+RZLOAD       STZ    FAILFLAG
+
+             JSR    GOBCOM                      ;search for first delimiter
+             JSR    MOVNAME                     ;get pathname in buff
+
+             LDA    ACOSPATHLO
+             STA    OPENPARMS+1
+             LDA    ACOSPATHHI
+             STA    OPENPARMS+2
+
+*
+* start by moving the CRC tables into aux memory at $7000.  The tables
+* use $600 bytes of space (6 pages), and are moved into main memory
+* whenever the main driver at $9E00 is run.
+*
+             JSR    SAVEPTRS                    ;save the zero page pointers we're about to use
+
+             LDA    #<TABLES                    ;source begin
+             STA    A1
+             LDA    #>TABLES
+             STA    A1+1
+
+             LDA    #<TABLESEND                 ;source end
+             STA    A2
+             LDA    #>TABLESEND
+             STA    A2+1
+
+             LDA    #<$7000                     ;destination
+             STA    A4
+             LDA    #>$7000
+             STA    A4+1
+
+             SEC                                ;main to aux
+             JSR    AUXMOVE
+
+*
+* now, save 2 pages of memory into aux memory from $2000
+*
+             LDA    #<$2000                     ;source begin
+             STA    A1
+             STA    A4                          ;destination
+             LDA    #>$2000
+             STA    A1+1
+             STA    A4+1
+
+             LDA    #<$2200                     ;source end
+             STA    A2
+             LDA    #>$2200
+             STA    A2+1
+
+             SEC                                ;main to aux
+             JSR    AUXMOVE
+
+*
+* now go open the file using the pathname which we were passed
+*
+             JSR    MLI
+             DB     $C8
+             DA     OPENPARMS
+             BCC    :OPENOK
+:OSERROR     STA    FAILFLAG
+             RTS
+:OPENOK
+
+*
+* Now, move the "Loader" routine to $2000
+*
+             LDA    #<LOADER
+             STA    A1
+             LDA    #>LOADER
+             STA    A1+1
+
+             LDA    #<$2000
+             STA    A2
+             LDA    #>$2000
+             STA    A2+1
+
+:LOOP        LDA    (A1)
+             STA    (A2)
+
+             INC    A1
+             BNE    :NC1
+             INC    A1+1
+:NC1         INC    A2
+             BNE    :NC2
+             INC    A2+1
+:NC2         LDA    A1
+             CMP    #<ENDOFLOADER
+             BNE    :LOOP
+             LDA    A1+1
+             CMP    #>ENDOFLOADER
+
+             JSR    RESTOREPTRS                 ;restore the zero page pointers we just used
+
+*
+* Finally, jump to the code which load RZ in at $9E00 from the pathname
+* and executes it by calling $9E00
+*
+             LDA    OPENPARMS+5                 ;make sure refNum from open is in (A)
+             JMP    $2000
+
+*-------------------------------------------------
+* SAVEPTRS -- save A1..A4 in 'PTRS'
+
+SAVEPTRS     LDX    #7
+:LOOP        LDA    A1,X
+             STA    PTRS,X
+             DEX
+             BPL    :LOOP
+             RTS
+
+*-------------------------------------------------
+* RESTOREPTRS -- restore A1..A4 from 'PTRS'
+
+RESTOREPTRS
+             LDX    #7
+:LOOP        LDA    PTRS,X
+             STA    A1,X
+             DEX
+             BPL    :LOOP
+             RTS
+
+*-------------------------------------------------
+* data
+
+PTRS         DW     0                           ;A1
+             DW     0                           ;A2
+             DW     0                           ;A3
+             DW     0                           ;A4
+
+OPENPARMS
+             DB     3
+             DA     0
+             DA     FILEBUFFER2
+             DB     0
+
+*-------------------------------------------------
+* CRC tables that get put at $6000 in aux memory and
+* get moved back into main whenever RZ is called to
+* actually do something
+
+TABLES
+
+*
+* crc-16 table
+*
+*CRCTABLELO
+             HEX    0021426384A5C6E7
+             HEX    08294A6B8CADCEEF
+             HEX    31107352B594F7D6
+             HEX    39187B5ABD9CFFDE
+             HEX    62432001E6C7A485
+             HEX    6A4B2809EECFAC8D
+             HEX    53721130D7F695B4
+             HEX    5B7A1938DFFE9DBC
+             HEX    C4E586A740610223
+             HEX    CCED8EAF48690A2B
+             HEX    F5D4B79671503312
+             HEX    FDDCBF9E79583B1A
+             HEX    A687E4C522036041
+             HEX    AE8FECCD2A0B6849
+             HEX    97B6D5F413325170
+             HEX    9FBEDDFC1B3A5978
+             HEX    88A9CAEB0C2D4E6F
+             HEX    80A1C2E304254667
+             HEX    B998FBDA3D1C7F5E
+             HEX    B190F3D235147756
+             HEX    EACBA8896E4F2C0D
+             HEX    E2C3A08166472405
+             HEX    DBFA99B85F7E1D3C
+             HEX    D3F291B057761534
+             HEX    4C6D0E2FC8E98AAB
+             HEX    44650627C0E182A3
+             HEX    7D5C3F1EF9D8BB9A
+             HEX    75543716F1D0B392
+             HEX    2E0F6C4DAA8BE8C9
+             HEX    26076445A283E0C1
+             HEX    1F3E5D7C9BBAD9F8
+             HEX    1736557493B2D1F0
+
+*CRCTABLEHI
+             HEX    0010203040506070
+             HEX    8191A1B1C1D1E1F1
+             HEX    1202322252427262
+             HEX    9383B3A3D3C3F3E3
+             HEX    2434041464744454
+             HEX    A5B58595E5F5C5D5
+             HEX    3626160676665646
+             HEX    B7A79787F7E7D7C7
+             HEX    4858687808182838
+             HEX    C9D9E9F98999A9B9
+             HEX    5A4A7A6A1A0A3A2A
+             HEX    DBCBFBEB9B8BBBAB
+             HEX    6C7C4C5C2C3C0C1C
+             HEX    EDFDCDDDADBD8D9D
+             HEX    7E6E5E4E3E2E1E0E
+             HEX    FFEFDFCFBFAF9F8F
+             HEX    9181B1A1D1C1F1E1
+             HEX    1000302050407060
+             HEX    8393A3B3C3D3E3F3
+             HEX    0212223242526272
+             HEX    B5A59585F5E5D5C5
+             HEX    3424140474645444
+             HEX    A7B78797E7F7C7D7
+             HEX    2636061666764656
+             HEX    D9C9F9E99989B9A9
+             HEX    5848786818083828
+             HEX    CBDBEBFB8B9BABBB
+             HEX    4A5A6A7A0A1A2A3A
+             HEX    FDEDDDCDBDAD9D8D
+             HEX    7C6C5C4C3C2C1C0C
+             HEX    EFFFCFDFAFBF8F9F
+             HEX    6E7E4E5E2E3E0E1E
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST1
+             HEX    00962CBA
+             HEX    198F35A3
+             HEX    32A41E88
+             HEX    2BBD0791
+             HEX    64F248DE
+             HEX    7DEB51C7
+             HEX    56C07AEC
+             HEX    4FD963F5
+             HEX    C85EE472
+             HEX    D147FD6B
+             HEX    FA6CD640
+             HEX    E375CF59
+             HEX    AC3A8016
+             HEX    B523990F
+             HEX    9E08B224
+             HEX    8711AB3D
+             HEX    9006BC2A
+             HEX    891FA533
+             HEX    A2348E18
+             HEX    BB2D9701
+             HEX    F462D84E
+             HEX    ED7BC157
+             HEX    C650EA7C
+             HEX    DF49F365
+             HEX    58CE74E2
+             HEX    41D76DFB
+             HEX    6AFC46D0
+             HEX    73E55FC9
+             HEX    3CAA1086
+             HEX    25B3099F
+             HEX    0E9822B4
+             HEX    17813BAD
+             HEX    20B60C9A
+             HEX    39AF1583
+             HEX    12843EA8
+             HEX    0B9D27B1
+             HEX    44D268FE
+             HEX    5DCB71E7
+             HEX    76E05ACC
+             HEX    6FF943D5
+             HEX    E87EC452
+             HEX    F167DD4B
+             HEX    DA4CF660
+             HEX    C355EF79
+             HEX    8C1AA036
+             HEX    9503B92F
+             HEX    BE289204
+             HEX    A7318B1D
+             HEX    B0269C0A
+             HEX    A93F8513
+             HEX    8214AE38
+             HEX    9B0DB721
+             HEX    D442F86E
+             HEX    CD5BE177
+             HEX    E670CA5C
+             HEX    FF69D345
+             HEX    78EE54C2
+             HEX    61F74DDB
+             HEX    4ADC66F0
+             HEX    53C57FE9
+             HEX    1C8A30A6
+             HEX    059329BF
+             HEX    2EB80294
+             HEX    37A11B8D
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST2
+             HEX    00306151
+             HEX    C4F4A595
+             HEX    88B8E9D9
+             HEX    4C7C2D1D
+             HEX    10207141
+             HEX    D4E4B585
+             HEX    98A8F9C9
+             HEX    5C6C3D0D
+             HEX    20104171
+             HEX    E4D485B5
+             HEX    A898C9F9
+             HEX    6C5C0D3D
+             HEX    30005161
+             HEX    F4C495A5
+             HEX    B888D9E9
+             HEX    7C4C1D2D
+             HEX    41712010
+             HEX    85B5E4D4
+             HEX    C9F9A898
+             HEX    0D3D6C5C
+             HEX    51613000
+             HEX    95A5F4C4
+             HEX    D9E9B888
+             HEX    1D2D7C4C
+             HEX    61510030
+             HEX    A595C4F4
+             HEX    E9D988B8
+             HEX    2D1D4C7C
+             HEX    71411020
+             HEX    B585D4E4
+             HEX    F9C998A8
+             HEX    3D0D5C6C
+             HEX    83B3E2D2
+             HEX    47772616
+             HEX    0B3B6A5A
+             HEX    CFFFAE9E
+             HEX    93A3F2C2
+             HEX    57673606
+             HEX    1B2B7A4A
+             HEX    DFEFBE8E
+             HEX    A393C2F2
+             HEX    67570636
+             HEX    2B1B4A7A
+             HEX    EFDF8EBE
+             HEX    B383D2E2
+             HEX    77471626
+             HEX    3B0B5A6A
+             HEX    FFCF9EAE
+             HEX    C2F2A393
+             HEX    06366757
+             HEX    4A7A2B1B
+             HEX    8EBEEFDF
+             HEX    D2E2B383
+             HEX    16267747
+             HEX    5A6A3B0B
+             HEX    9EAEFFCF
+             HEX    E2D283B3
+             HEX    26164777
+             HEX    6A5A0B3B
+             HEX    AE9ECFFF
+             HEX    F2C293A3
+             HEX    36065767
+             HEX    7A4A1B2B
+             HEX    BE8EDFEF
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST3
+             HEX    00070E09
+             HEX    6D6A6364
+             HEX    DBDCD5D2
+             HEX    B6B1B8BF
+             HEX    B7B0B9BE
+             HEX    DADDD4D3
+             HEX    6C6B6265
+             HEX    01060F08
+             HEX    6E696067
+             HEX    03040D0A
+             HEX    B5B2BBBC
+             HEX    D8DFD6D1
+             HEX    D9DED7D0
+             HEX    B4B3BABD
+             HEX    02050C0B
+             HEX    6F686166
+             HEX    DCDBD2D5
+             HEX    B1B6BFB8
+             HEX    0700090E
+             HEX    6A6D6463
+             HEX    6B6C6562
+             HEX    0601080F
+             HEX    B0B7BEB9
+             HEX    DDDAD3D4
+             HEX    B2B5BCBB
+             HEX    DFD8D1D6
+             HEX    696E6760
+             HEX    04030A0D
+             HEX    05020B0C
+             HEX    686F6661
+             HEX    DED9D0D7
+             HEX    B3B4BDBA
+             HEX    B8BFB6B1
+             HEX    D5D2DBDC
+             HEX    63646D6A
+             HEX    0E090007
+             HEX    0F080106
+             HEX    62656C6B
+             HEX    D4D3DADD
+             HEX    B9BEB7B0
+             HEX    D6D1D8DF
+             HEX    BBBCB5B2
+             HEX    0D0A0304
+             HEX    60676E69
+             HEX    61666F68
+             HEX    0C0B0205
+             HEX    BABDB4B3
+             HEX    D7D0D9DE
+             HEX    64636A6D
+             HEX    090E0700
+             HEX    BFB8B1B6
+             HEX    D2D5DCDB
+             HEX    D3D4DDDA
+             HEX    BEB9B0B7
+             HEX    080F0601
+             HEX    65626B6C
+             HEX    0A0D0403
+             HEX    6760696E
+             HEX    D1D6DFD8
+             HEX    BCBBB2B5
+             HEX    BDBAB3B4
+             HEX    D0D7DED9
+             HEX    6661686F
+             HEX    0B0C0502
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST4
+             HEX    0077EE99
+             HEX    0770E99E
+             HEX    0E79E097
+             HEX    097EE790
+             HEX    1D6AF384
+             HEX    1A6DF483
+             HEX    1364FD8A
+             HEX    1463FA8D
+             HEX    3B4CD5A2
+             HEX    3C4BD2A5
+             HEX    3542DBAC
+             HEX    3245DCAB
+             HEX    2651C8BF
+             HEX    2156CFB8
+             HEX    285FC6B1
+             HEX    2F58C1B6
+             HEX    760198EF
+             HEX    71069FE8
+             HEX    780F96E1
+             HEX    7F0891E6
+             HEX    6B1C85F2
+             HEX    6C1B82F5
+             HEX    65128BFC
+             HEX    62158CFB
+             HEX    4D3AA3D4
+             HEX    4A3DA4D3
+             HEX    4334ADDA
+             HEX    4433AADD
+             HEX    5027BEC9
+             HEX    5720B9CE
+             HEX    5E29B0C7
+             HEX    592EB7C0
+             HEX    ED9A0374
+             HEX    EA9D0473
+             HEX    E3940D7A
+             HEX    E4930A7D
+             HEX    F0871E69
+             HEX    F780196E
+             HEX    FE891067
+             HEX    F98E1760
+             HEX    D6A1384F
+             HEX    D1A63F48
+             HEX    D8AF3641
+             HEX    DFA83146
+             HEX    CBBC2552
+             HEX    CCBB2255
+             HEX    C5B22B5C
+             HEX    C2B52C5B
+             HEX    9BEC7502
+             HEX    9CEB7205
+             HEX    95E27B0C
+             HEX    92E57C0B
+             HEX    86F1681F
+             HEX    81F66F18
+             HEX    88FF6611
+             HEX    8FF86116
+             HEX    A0D74E39
+             HEX    A7D0493E
+             HEX    AED94037
+             HEX    A9DE4730
+             HEX    BDCA5324
+             HEX    BACD5423
+             HEX    B3C45D2A
+             HEX    B4C35A2D
+TABLESEND
+
+*-------------------------------------------------
+* now that we've moved the CRC tables into aux memory, we need to move the
+* rest of the code down to $2000 after saving the portion of memory that
+* we're going to blast into aux memory so that the real RZ routines can
+* move the aux memory back to main
+*
+* IN: (A) = refNum for open file which we're going to read into
+*     $9E00
+*
+LOADER
+             ORG    $2000
+
+             STA    READPARMS+1
+             STA    CLOSEPARMS+1
+             STA    EOFPARMS+1
+
+             JSR    MLI                         ;find out how long we are
+             DB     $D1
+             DA     EOFPARMS
+             BCS    :OSERROR
+
+             LDA    #<$9E00                     ;where
+             STA    READPARMS+2
+             LDA    #>$9E00
+             STA    READPARMS+3
+
+             LDA    EOFPARMS+2                  ;how much (eof)
+             STA    READPARMS+4
+             LDA    EOFPARMS+3
+             STA    READPARMS+5
+
+             JSR    MLI                         ;load rz
+             DB     $CA
+             DA     READPARMS
+             BCS    :OSERROR
+
+             JSR    MLI                         ;close us
+             DB     $CC
+             DA     CLOSEPARMS
+             BCS    :OSERROR
+             JMP    $9E00
+
+:OSERROR     STA    FAILFLAG
+             JMP    $9E00
+
+*-------------------------------------------------
+* some parameters
+
+READPARMS
+             DB     4                           ;pcount
+             DB     0                           ;refnum
+             DA     $9E00                       ;where
+             DW     0                           ;howmuch
+             DW     0                           ;actual
+
+EOFPARMS     DB     2                           ;pcount
+             DB     0                           ;refnum
+             DS     3                           ;eof
+
+CLOSEPARMS
+             DB     1
+             DB     0
+ENDOFLOADER
+
+             LST    OFF
+             DO     SAVEOBJ
+             SAV    RZ.LOAD
+             FIN
+             DO     LISTSYM
+             LST
+             FIN
+
diff --git a/SOURCE/ZMODEM/RZ.S b/SOURCE/ZMODEM/RZ.S
new file mode 100644
index 0000000..c22a29a
--- /dev/null
+++ b/SOURCE/ZMODEM/RZ.S
@@ -0,0 +1,1861 @@
+                    LST    OFF
+                    LSTDO  OFF
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+                    XC
+                    TR
+                    TR     ADR
+Y                   =      1
+y                   =      1
+N                   =      0
+n                   =      0
+LISTOBJ             KBD    'List This Source? (Y/N)'
+LISTSYM             KBD    'List Symbol Table? (Y/N)'
+SAVEOBJ             KBD    'Save Object Code? (Y/N)'
+
+                    DO     LISTOBJ
+                    LST
+                    FIN
+                    LST    OFF
+
+BUILDIIC            KBD    'Build IIc version? (Y/N)'
+NOTBUILDIIC         =      1-BUILDIIC
+BUILDFLUSH          KBD    'Build using MDMFLUSH calls? (GBBS v2.14 & later only) (Y/N)'
+NOTBUILDFLUSH       =      1-BUILDFLUSH
+BUILDDEBUG          KBD    'Build with debugging display? (Y/N)'
+NOTBUILDDEBUG       =      1-BUILDDEBUG
+                    DO     BUILDDEBUG
+BUILDPRINT          KBD    'Build debug dumped to printer? (Y/N)'
+                    ELSE
+BUILDPRINT          =      0
+                    FIN
+NOTBUILDPRINT       =      1-BUILDPRINT
+
+                    PUT    EQUATES
+                    PUT    ZEQUATES
+                    LST    RTN
+
+*-------------------------------------------------
+* RZ -- receive via ZMODEM
+*
+*       syntax is: call ed+3,lg$,f$
+*       where f$ is 15 spaces and return the filename
+*       and lg$ is the pathname to put it on
+*
+* second entry point syntax is: call ed+6,lg$,f$,0
+*
+* the second entry point passes a variable where
+*
+* 0 = overwrite the file unconditionally
+* 1 = append to the existing file
+* 2 = rename the incoming file
+* 3 = skip this file
+* 4 = abort the xfer
+
+                    ORG    $9E00
+
+*-------------------------------------------------
+* receive via ZMODEM
+
+                    JMP    FIRST
+                    JMP    RZ                                                             ;+3
+                    JMP    RZCONTINUE                                                     ;+6
+
+INFOPARMS
+                    DB     10                                                             ;+9
+                    DA     PREFIX
+                    DB     0                                                              ;access
+                    DB     0                                                              ;filetype
+                    DW     0                                                              ;total_blocks
+                    DB     0                                                              ;storage_type
+                    DW     0                                                              ;blocks_used
+                    DW     0                                                              ;mod_date
+                    DW     0                                                              ;mod_time
+                    DW     0                                                              ;create_date
+                    DW     0                                                              ;create_time
+
+EOFPARMS            DB     2                                                              ;+27
+                    DB     0
+
+BYTECOUNT           DS     3
+XBLOCKS             DS     3
+PBLOCKS             DS     3
+
+*-------------------------------------------------
+* LOGVOLUME -- gobble the comma and log LG$
+
+LOGVOLUME
+                    JSR    GOBCOM                                                         ;gobble the comma
+                    JSR    INPSTR                                                         ;get the first string
+                    CPY    #5                                                             ;how many characters?
+                    BCC    OVER                                                           ;less than 5! continue
+
+DIE                 SEC
+                    RTS
+
+*-------------------------------------------------
+
+STRIPHI             INY
+                    LDA    ($D),Y
+                    AND    #$7F
+                    STA    DRIVESPEC,Y
+                    RTS
+
+DRIVESPEC           DB     0
+LOG_LO              DB     0
+LOG_HI              DB     0
+ADDNUM              DB     0
+
+*-------------------------------------------------
+* After INPSTR call, $D points to the string that was just read..
+
+OVER                DEY
+                    LDA    ($D),Y
+                    CMP    #':'                                                           ;is the last character ':'?
+                    BNE    DIE                                                            ;nope trash it
+
+                    TYA
+                    TAX                                                                   ;save y in x
+                    LDY    #0
+                    STY    LOG_LO                                                         ;init DRIVESPEC's to 0
+                    STY    LOG_HI                                                         ;and 0
+
+                    LDA    ($D),Y                                                         ;get the first character
+                    AND    #$7F                                                           ;strip high bit
+
+                    CMP    #'a'                                                           ;is it 'a'?
+                    BCC    UPPER                                                          ;nope, try others..
+                    CMP    #'m'                                                           ;is it 'm'?
+                    BCS    UPPER                                                          ;yes, trash it
+                    SBC    #$1F                                                           ;nope, make it uppercase
+
+UPPER               CMP    #'A'                                                           ;is it less than 'a'?
+                    BCC    DIE                                                            ;yeah, trash it
+                    CMP    #'M'                                                           ;is it greater than 'l'
+                    BCS    DIE                                                            ;yeah, trash it
+
+                    STA    DRIVESPEC                                                      ;actual letter specifier
+                    DEX                                                                   ;get last character's position
+                    BEQ    NOT3                                                           ;is it the last one already? yep
+
+                    JSR    STRIPHI                                                        ;not last,strip high from letter
+                    DEX                                                                   ;is it the last one now?
+                    BEQ    NOT3                                                           ;yep, just continue
+                    JSR    STRIPHI                                                        ;otherwise, strip bit again
+
+NOT3                LDX    LOG_HI                                                         ;get high part of log #
+                    LDA    LOG_LO                                                         ;get low part of log #
+                    BNE    NOT0                                                           ;low part is not 0, try others
+                    CMP    LOG_HI                                                         ;is the high part also 0?
+                    BEQ    BOTH0                                                          ;yes, go do normal log
+
+NOT0                CPX    #0                                                             ;is the high part a 0?
+                    BNE    :NOT0
+                    TAX
+
+                    LDA    #0
+:NOT0               AND    #$F
+                    STA    ADDNUM
+
+                    TXA
+                    AND    #$F
+                    LDY    #10
+:LOOP               CLC
+                    ADC    ADDNUM
+                    DEY
+                    BNE    :LOOP
+
+                    TAX                                                                   ;x=number to log
+BOTH0               LDA    DRIVESPEC                                                      ;a=letter to log
+                    JSR    LOG                                                            ;set prefix for that pathname
+                    CLC
+                    RTS
+
+*-------------------------------------------------
+* RZ -- receive a file with zmodem
+
+RZ                  STZ    SYNTAX
+                    STZ    FAILFLAG
+
+                    JSR    LOGVOLUME
+                    BCC    :LOGOK
+                    INC    SYNTAX
+
+:LOGOK              JSR    GOBCOM                                                         ;grab the comma
+                    JSR    INPSTR                                                         ;get filename area
+
+                    LDA    SYNTAX
+                    BNE    :DIE
+                    CPY    #15                                                            ;is it >= than 15?
+                    BEQ    REALLYRZ                                                       ;yes, go there
+
+:DIE                LDA    #ERROR
+                    STA    FAILFLAG
+                    RTS
+
+*-------------------------------------------------
+* REALLYRZ -- really receive a file 'cause we're setup to do it right
+
+REALLYRZ            JSR    CLEARFILENAME
+                    JSR    CLEARTOSPACES
+                    JSR    STARTUP
+
+*
+* we got the memory, make the crc lookup table and see if the other side wants
+* to send us something with zmodem
+*
+                    JSR    TRYZ                                                           ;get something?
+
+                    CMP    #ERROR
+                    BEQ    :DONE                                                          ;nope, skip over the receive part
+                    CMP    #ABORT
+                    BEQ    :DONE
+                    CMP    #TIMEOUT
+                    BEQ    :DONE
+                    CMP    #ZCOMPL
+                    BEQ    :COMPLETE
+                    CMP    #ZFILE
+                    BNE    :DONE
+
+                    JSR    RZFILES
+
+                    CMP    #ZEOF
+                    BEQ    :COMPLETE
+                    CMP    #ZCOMPL
+                    BNE    :DONE
+:COMPLETE           LDA    #NO_ERROR
+:DONE               STA    FAILFLAG
+
+                    CMP    #ABORT
+                    BNE    :NOABORT
+
+                    JSR    CANCEL
+:NOABORT
+
+*-------------------------------------------------
+* COMMONSHUTDOWN -- both RZ and RZCONTINUE arrive here
+
+COMMONSHUTDOWN
+                    DO     NOTBUILDDEBUG
+                    JSR    CLEARLASTLINE
+                    FIN
+
+                    JSR    MLI                                                            ;how much did we receive, and what?
+                    DB     $D1
+                    DA     EOFPARMS
+                    JSR    MLI
+                    DB     $CC
+                    DA     CLOSEPARMS
+
+                    LDA    BYTECOUNT
+                    STA    XBLOCKS
+                    STA    PBLOCKS
+                    LDA    BYTECOUNT+1
+                    STA    XBLOCKS+1
+                    STA    PBLOCKS+1
+                    LDA    BYTECOUNT+2
+                    STA    XBLOCKS+2
+                    STA    PBLOCKS+2
+
+                    LDX    #6                                                             ;divide bytes sent by 128 to find out
+:XLOOP              LSR    XBLOCKS+2                                                      ;how many blocks were sent
+                    ROR    XBLOCKS+1
+                    ROR    XBLOCKS
+                    DEX
+                    BPL    :XLOOP
+
+                    LDX    #8                                                             ;divide bytes sent by 512 to find out
+:PLOOP              LSR    PBLOCKS+2                                                      ;how many blocks were sent
+                    ROR    PBLOCKS+1
+                    ROR    PBLOCKS
+                    DEX
+                    BPL    :PLOOP
+
+                    LDA    #<PATHNAME
+                    STA    INFOPARMS+1
+                    LDA    #>PATHNAME
+                    STA    INFOPARMS+2
+
+                    JSR    MLI                                                            ;return the file's info
+                    DB     $C4
+                    DA     INFOPARMS
+                    JSR    SHUTDOWN
+                    JMP    MOVEFILENAME
+
+*-------------------------------------------------
+* RZCONTINUE -- figure out to do with the filename
+
+RZCONTINUE
+                    STZ    SYNTAX
+                    STZ    FAILFLAG
+
+                    JSR    LOGVOLUME
+                    BCC    :LOGOK
+                    INC    SYNTAX
+:LOGOK
+
+                    JSR    GOBCOM                                                         ;grab the comma
+                    JSR    INPSTR                                                         ;get filename area
+                    CPY    #15                                                            ;is it >= than 15?
+                    BEQ    :FILENAMEOK                                                    ;yes, go there
+                    INC    SYNTAX
+:FILENAMEOK
+
+                    JSR    GOBCOM
+                    JSR    INPNUM                                                         ;get 0,1,2,3,4
+
+                    LDA    SYNTAX
+                    BNE    :DIE
+                    CPX    #5
+                    BLT    :ACTIONOK
+
+:DIE                LDA    #ERROR
+                    STA    FAILFLAG
+                    RTS
+:ACTIONOK
+
+                    STX    NAMEHOW
+                    STZ    RENAMETRIES
+
+                    JSR    CLEARFILENAME
+                    JSR    STARTUP
+
+                    LDA    NAMEHOW
+                    ASL    A
+                    TAX
+                    JMP    (:ADDR,X)
+
+:ADDR               DA     :OVERWRITE
+                    DA     :APPEND
+                    DA     :RENAME
+                    DA     :SKIP
+                    DA     :ABORT
+
+*
+* trash the existing file and then create the file again
+*
+:OVERWRITE
+                    LDA    #<PATHNAME
+                    STA    INFOPARMS+1
+                    LDA    #>PATHNAME
+                    STA    INFOPARMS+2
+
+                    JSR    MLI                                                            ;unlock it
+                    DB     $C4
+                    DA     INFOPARMS
+                    BCS    :GORZDONE
+
+                    LDA    #$C3
+                    STA    INFOPARMS+3
+
+                    JSR    MLI
+                    DB     $C3
+                    DA     INFOPARMS
+                    BCS    :GORZDONE
+
+                    JSR    MLI
+                    DB     $C1
+                    DA     DESTROYPARMS
+                    BCS    :GORZDONE                                                      ;something screwed up again
+
+                    JSR    CREATEFILE
+                    CMP    #NO_ERROR
+                    BEQ    :GORZFILEAT0
+:GORZDONE           JMP    :RZDONE
+:GORZFILEAT0        JMP    :RZFILEAT0
+
+*
+* append to the end of the existing file by finding its EOF and sending the
+* ZRPOS packet from there
+*
+:APPEND
+                    JSR    MLI
+                    DB     $C8
+                    DA     OPENPARMS
+                    BCS    :GORZDONE
+
+                    LDA    OPENPARMS+5
+                    STA    WRITEPARMS+1
+                    STA    CLOSEPARMS+1
+                    STA    EOFPARMS+1
+                    STA    MARKPARMS+1
+
+                    JSR    MLI
+                    DB     $D1
+                    DA     EOFPARMS
+                    BCS    :GORZDONE
+
+                    LDA    EOFPARMS+2
+                    STA    MARKPARMS+2
+                    STA    RXCOUNT
+                    LDA    EOFPARMS+3
+                    STA    MARKPARMS+3
+                    STA    RXCOUNT+1
+                    LDA    EOFPARMS+4
+                    STA    MARKPARMS+4
+                    STA    RXCOUNT+2
+                    STZ    RXCOUNT+3
+
+                    JSR    MLI
+                    DB     $CE
+                    DA     MARKPARMS
+                    BCS    :GORZDONE
+                    JMP    :RZFILEATEOF
+
+*
+* rename the incoming file so that we can create it without incident
+*
+:RENAME             INC    RENAMETRIES
+                    LDA    RENAMETRIES
+                    CMP    #26
+                    BNE    :RENAMEOK
+                    LDA    #$47
+                    BRA    :RZDONE
+
+:RENAMEOK           LDY    PATHNAME
+                    CPY    #15
+                    BEQ    :GOT15
+
+                    INY
+                    LDA    #'.'
+                    STA    PATHNAME,Y
+                    STY    PATHNAME
+
+                    JSR    CREATEFILE
+                    CMP    #NO_ERROR
+                    BEQ    :RZFILEAT0
+                    CMP    #$47
+                    BEQ    :RENAME
+                    BRA    :RZDONE
+
+:GOT15              LDA    PATHNAME+2
+                    CMP    #'Z'
+                    BEQ    :MAKEA
+                    INC    PATHNAME+2
+
+                    JSR    CREATEFILE
+                    CMP    #NO_ERROR
+                    BEQ    :RZFILEAT0
+                    CMP    #$47                                                           ;if it's duplicate file, try again
+                    BEQ    :RENAME
+                    BRA    :RZDONE
+
+:MAKEA              LDA    #'A'
+                    STA    PATHNAME+2
+
+                    JSR    CREATEFILE
+                    CMP    #NO_ERROR
+                    BEQ    :RZFILEAT0
+                    CMP    #$47
+                    BEQ    :RENAME
+                    BRA    :RZDONE
+
+*
+* skip the file, someone doesn't want us to receive it
+*
+:SKIP               JSR    ZEROPOS
+                    LDA    #ZSKIP
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER                                                   ;send the ZSKIP packet
+                    LDA    #NO_ERROR                                                      ;tell it to more-or-less abort without an error
+                    BRA    :RZDONE
+
+*
+* just abort the transfer, the user is all messed up
+*
+:ABORT              LDA    #ERROR
+                    BRA    :RZDONE
+
+*
+* receive something after we've either created, renamed, or deleted the file
+*
+:RZFILEAT0
+                    JSR    GOODFILE                                                       ;this entry point zeroes ZRPOS's position
+                    BRA    :RZDONE
+
+:RZFILEATEOF
+                    JSR    GOODHEADER
+
+:RZDONE             CMP    #ZEOF
+                    BEQ    :COMPLETE
+                    CMP    #ZCOMPL
+                    BNE    :DONE
+:COMPLETE           LDA    #NO_ERROR
+:DONE               STA    FAILFLAG
+
+                    CMP    #ABORT
+                    BNE    :NOABORT
+
+                    JSR    CANCEL
+:NOABORT
+
+                    JMP    COMMONSHUTDOWN
+
+RENAMETRIES         DB     0
+
+*-------------------------------------------------
+* TRYZ -- try to receive via zmodem - handle ZSINIT header
+
+TRYZ
+                    STZ    ERRORS
+
+:RETRYZ             LDA    #<MAXBUFFERSIZE
+                    STA    ZP0                                                            ;we have a 16k buffer
+                    LDA    #>MAXBUFFERSIZE
+                    STA    ZP1
+
+                    STZ    ZF1                                                            ;we can't do squat
+
+                    DO     BUILDFLUSH
+                    LDA    #CANFC32+CANFDX                                                ;we can do CRC32 and do full duplex
+                    ELSE
+                    LDA    #CANFC32                                                       ;otherwise, it's an older driver and we can only
+                    FIN                                                                   ;do half duplex, sort of (simulated full duplex)
+                    STA    ZF0                                                            ;ivan better not send ZCRCQ packets
+
+                    LDA    #ZRINIT
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER                                                   ;send the ZRINIT frame to the other end
+
+:SWITCH             STZ    ZPTR                                                           ;init where the filename gets sent
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+
+                    JSR    ZGETHEADER                                                     ;grab the return header
+
+                    CMP    #20
+                    BLT    :HEADER
+
+                    CMP    #ABORT
+                    BEQ    :ABORT
+                    CMP    #TIMEOUT
+                    BNE    :ABORT
+
+                    INC    ERRORS
+                    LDA    ERRORS
+                    CMP    #5
+                    BLT    :RETRYZ
+
+                    LDA    #TIMEOUT
+                    RTS
+
+:RETURN             LDA    #ERROR
+:ABORT              RTS
+
+:HEADER             ASL    A
+                    TAX
+                    JMP    (:ADDR,X)
+
+:ADDR               DA     TRYZ                                                           ZRQINIT
+                    DA     :RETRYZ                                                        ZRINIT
+                    DA     :DOZSINIT                                                      2
+                    DA     :RETURN                                                        ZACK
+                    DA     :DOZFILE                                                       4
+                    DA     :RETURN                                                        ZSKIP
+                    DA     :SWITCH                                                        ZNAK
+                    DA     :RETURN                                                        ZABORT
+                    DA     :DOZFIN                                                        ZFIN
+                    DA     :RETURN                                                        ZRPOS
+                    DA     :RETURN                                                        ZDATA
+                    DA     :RETURN                                                        ZEOF
+                    DA     :RETURN                                                        ZFERR
+                    DA     :RETURN                                                        ZCRC
+                    DA     :RETURN                                                        ZCHALLENGE
+                    DA     :SWITCH                                                        ZCOMPL
+                    DA     :RETURN                                                        ZCAN
+                    DA     :DOZFREECNT                                                    17
+                    DA     :DOZCOMMAND                                                    18
+                    DA     :RETURN                                                        ZSTDERR
+
+*
+* handle ZFILE
+*
+:DOZFILE            LDA    ZF0
+                    STA    ZCONVERT
+                    LDA    ZF1
+                    STA    ZMANAGE
+                    LDA    ZF2
+                    STA    ZTRANSPORT
+
+                    LDA    #<ZBUFFER
+                    STA    ZPTR
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+
+                    JSR    ZRDATA
+
+                    CMP    #ZCRCW
+                    BNE    :ERRORZFILE
+
+                    LDA    #0                                                             ;store an extra zero at the end so programs like
+                    STA    (ZPTR)                                                         ;proterm which don't have the double zero after the
+                                                                                          ;filename and no length will still work
+
+                    LDA    #ZFILE                                                         ;we got a ZFILE packet
+                    RTS                                                                   ;it was good
+
+:ERRORZFILE
+                    LDA    #ZNAK
+                    STA    FRAMETYPE
+                    JSR    ZSENDHHEADER
+                    JMP    :SWITCH
+
+*
+* ZSINIT -- got ZSINIT
+*
+:DOZSINIT
+                    JSR    ZRDATA                                                         ;get the attention string
+
+                    CMP    #ZCRCW
+                    BNE    :ERRORZSINIT
+
+                    LDA    RXBYTES
+                    STA    ATTNLENGTH
+
+                    LDY    #0                                                             ;move the attention string
+:ZSLOOP             LDA    (ZPTR),Y
+                    STA    ATTENTION,Y
+                    INY
+                    CPY    #32
+                    BGE    :DONEATTN
+                    CPY    ATTNLENGTH
+                    BLT    :ZSLOOP
+:DONEATTN
+
+                    JSR    ZEROPOS
+                    LDA    #1
+                    STA    ZP0
+
+                    LDA    #ZACK
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER
+                    JMP    :SWITCH
+
+:ERRORZSINIT
+                    LDA    #ZNAK
+                    STA    FRAMETYPE
+                    JSR    ZSENDHHEADER
+                    JMP    :SWITCH
+
+*
+* doZFREECNT -- got ZFREECNT
+*
+:DOZFREECNT
+                    JSR    MLI
+                    DB     $C7
+                    DA     PREFIXPARMS
+
+                    LDX    #2
+:PLOOP              LDA    PREFIX,X
+                    CMP    #'/'
+                    BEQ    :GOTSLASH
+                    INX
+                    CPX    PREFIX
+                    BLT    :PLOOP
+
+:GOTSLASH
+                    STX    PREFIX
+
+                    LDA    #<PREFIX
+                    STA    INFOPARMS+1
+                    LDA    #>PREFIX
+                    STA    INFOPARMS+2
+
+                    JSR    MLI
+                    DB     $C4
+                    DA     INFOPARMS
+
+                    LDA    INFOPARMS+5                                                    ;free blocks is (total_blocks-used_blocks)
+                    SEC
+                    SBC    INFOPARMS+8
+                    STA    ZP0
+                    LDA    INFOPARMS+6
+                    SBC    INFOPARMS+9
+                    STA    ZP1
+                    STZ    ZP2
+                    STZ    ZP3
+
+                    LDX    #0                                                             ;show them how many bytes are free by multiplying
+:ZLOOP              ASL    ZP0                                                            ;the number of free blocks by 512 bytes (per block)
+                    ROL    ZP1
+                    ROL    ZP2
+                    ROL    ZP3
+                    INX
+                    CPX    #9
+                    BLT    :ZLOOP
+
+                    LDA    #ZACK
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER
+                    JMP    :SWITCH
+
+*
+* doZCOMMAND -- go ZCOMMAND
+*
+:DOZCOMMAND
+                    JSR    ZRDATA
+
+                    CMP    #ZCRCW
+                    BNE    :ERRORZCOMMAND
+
+                    LDA    ZF0
+                    AND    #ZCACK1
+
+                    STZ    ERRORS
+
+:ZCLOOP             JSR    ZEROPOS
+
+                    LDA    #ZCOMPL
+                    STA    FRAMETYPE
+                    JSR    ZSENDHHEADER
+
+                    INC    ERRORS
+                    LDA    ERRORS
+                    CMP    #20
+                    BGE    :ZCERRS
+
+                    JSR    ZGETHEADER
+
+                    CMP    #20
+                    BGE    :ZCERRS
+                    CMP    #ZFIN
+                    BNE    :ZCLOOP
+
+                    JSR    ACKBIBI
+
+:ZCERRS             LDA    #ZCOMPL
+                    RTS
+
+:ERRORZCOMMAND
+                    LDA    #ZNAK
+                    STA    FRAMETYPE
+                    JSR    ZSENDHHEADER
+                    JMP    :SWITCH
+
+*
+* doZFIN -- got ZFIN
+*
+:DOZFIN             JSR    ACKBIBI                                                        ;hey bud, we're done!
+
+                    LDA    #ZCOMPL
+                    RTS
+
+*-------------------------------------------------
+* PROCHEADER -- process the header we got
+*               longest allowable filename is 15 chars.
+*               we parse a valid prodos filename from the
+*               name we are given, provided we are given a name
+
+PROCHEADER
+                    STZ    ZPTR
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+
+                    LDA    (ZPTR)
+                    BNE    :GOODNAME
+
+                    LDA    #ERROR
+                    SEC
+                    RTS
+
+*
+* if we get this far, we have at least a single char filename, so it's ok and
+* no one's been fooling with us.
+*
+:GOODNAME
+                    LDY    #0
+:FLOOP              LDA    (ZPTR),Y                                                       ;get the length of the filename
+                    BEQ    :GOTEND
+                    INY
+                    CPY    #15
+                    BLT    :FLOOP
+                    LDY    #15
+
+:GOTEND             TYA
+                    STA    PATHNAME                                                       ;save the length byte
+
+                    LDY    #0
+:PLOOP              LDA    (ZPTR),Y
+
+                    CMP    #$80
+                    BGE    :REPLACE
+
+                    CMP    #'{'
+                    BGE    :REPLACE
+                    CMP    #'a'
+                    BGE    :UPPER                                                         ;change lowercase into uppercase
+                    CMP    #'['
+                    BGE    :REPLACE
+                    CMP    #'A'
+                    BGE    :VALID
+                    CMP    #':'
+                    BGE    :REPLACE
+                    CMP    #'0'
+                    BLT    :REPLACE
+                    BRA    :VALID
+
+:UPPER              SEC                                                                   ;take lowercase and make it uppercase
+                    SBC    #$20
+                    BRA    :VALID
+
+:REPLACE            LDA    #'.'                                                           ;replace bad char with period
+:VALID              STA    PATHNAME+1,Y
+
+                    INY
+                    CPY    PATHNAME
+                    BLT    :PLOOP
+
+                    LDA    PATHNAME+1
+                    CMP    #'A'
+                    BGE    :FIRSTNOTDOT
+                    LDA    #'A'                                                           ;always change the first char to an alpha char
+                    STA    PATHNAME+1
+
+:FIRSTNOTDOT
+*
+* start setting up the statLine by putting spaces over top of the # of bytes
+* being received (our moving counter), and then putting the length of the file
+* over top of the 'xxxxx's
+*
+
+                    DO     NOTBUILDDEBUG
+                    LDX    #0                                                             ;put spaces on top of the old byte counts
+                    LDA    #' '
+:RSLOOP             STA    RZSTATLINE+16,X
+                    STA    RZSTATLINE+28,X
+                    INX
+                    CPX    #8
+                    BLT    :RSLOOP
+
+                    LDY    #0                                                             ;then find the end of the filename
+:NEXTC              LDA    (ZPTR),Y
+                    BEQ    :FOUNDFEND
+                    INY
+                    BNE    :NEXTC
+
+:FOUNDFEND          LDX    #0
+:LENLOOP            INY                                                                   ;next character after the filename should be
+                    LDA    (ZPTR),Y                                                       ;the length of the file, unless someone just didn't
+                    BEQ    :DONEWLENGTH                                                   ;include the filename, like greg in proterm
+                    AND    #$7F
+                    CMP    #' '
+                    BEQ    :DONEWLENGTH
+                    STA    RZSTATLINE+28,X
+                    INX
+                    BRA    :LENLOOP
+
+:DONEWLENGTH
+                    FIN
+
+                    LDA    #<PATHNAME
+                    STA    CREATEPARMS+1
+                    STA    DESTROYPARMS+1
+                    STA    OPENPARMS+1
+                    LDA    #>PATHNAME
+                    STA    CREATEPARMS+2
+                    STA    DESTROYPARMS+2
+                    STA    OPENPARMS+2
+
+                    JSR    CREATEFILE
+                    RTS
+
+*-------------------------------------------------
+* CREATEFILE -- create the file or return an error code in (A)
+
+CREATEFILE
+                    JSR    MLI                                                            ;create the file
+                    DB     $C0
+                    DA     CREATEPARMS
+                    BCS    :BAD
+                    JSR    MLI                                                            ;open it
+                    DB     $C8
+                    DA     OPENPARMS
+                    BCS    :BAD
+
+                    LDA    OPENPARMS+5
+                    STA    WRITEPARMS+1
+                    STA    CLOSEPARMS+1
+                    STA    EOFPARMS+1
+                    STA    MARKPARMS+1
+
+                    LDA    #NO_ERROR
+:BAD                RTS
+
+*-------------------------------------------------
+* RZFILES -- receive a bunch of files (wow, something high-level for a change)
+
+RZFILES             JSR    RZFILE
+
+                    CMP    #ERROR
+                    BEQ    :DONE
+                    CMP    #ABORT
+                    BEQ    :DONE
+                    CMP    #TIMEOUT
+                    BEQ    :DONE
+
+                    CMP    #ZSKIP
+                    BEQ    RZFILES
+
+                    CMP    #ZEOF
+                    BEQ    :DONE
+
+                    CMP    #ZFILE                                                         ;(we'd really be screwed.. hmmm...)
+                    BEQ    :TRYAGAIN
+
+                    CMP    #$47                                                           ;duplicate filename error
+                    BEQ    :DONE
+
+                    LDA    #NO_ERROR
+:DONE               RTS
+
+:TRYAGAIN           JSR    TRYZ                                                           ;try to get another filename or quit
+
+                    CMP    #ERROR
+                    BEQ    :DONE                                                          ;nope, skip over the receive part
+                    CMP    #ABORT
+                    BEQ    :DONE
+                    CMP    #TIMEOUT
+                    BEQ    :DONE
+                    CMP    #ZCOMPL
+                    BEQ    :DONE
+                    CMP    #ZFILE
+                    BEQ    RZFILES
+
+                    LDA    #NO_ERROR
+                    RTS
+
+*-------------------------------------------------
+* RZFILE -- try to receive a single file via zmodem.  this assumes we've
+*           already got a filename and the ZSINIT and ZRINIT packets have
+*           been exchanged.
+
+RZFILE              JSR    PROCHEADER                                                     ;process what we got as the header
+                    CMP    #NO_ERROR
+                    BEQ    GOODFILE
+
+                    RTS
+
+GOODFILE            LDX    #3
+:RXBYTES            STZ    RXBYTES,X                                                      ;we haven't received squat yet
+                    DEX
+                    BPL    :RXBYTES
+
+                    LDX    #3
+:RXCOUNT            STZ    RXCOUNT,X
+                    DEX
+                    BPL    :RXCOUNT
+
+                    LDX    #2
+:BYTECOUNT          STZ    BYTECOUNT,X
+                    DEX
+                    BPL    :BYTECOUNT
+
+*
+* this is the entry point for zContinue when it decides that it's going to
+* append to the file
+*
+GOODHEADER
+                    DO     NOTBUILDDEBUG
+                    JSR    PRINTRZSTAT
+                    FIN
+
+                    STZ    ERRORS
+
+                    STZ    ZPTR                                                           ;init where the data, etc, goes to
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+
+:CONTINUE           LDA    RXCOUNT
+                    STA    ZP0
+                    STA    BYTES
+                    LDA    RXCOUNT+1
+                    STA    ZP1
+                    STA    BYTES+1
+                    LDA    RXCOUNT+2
+                    STA    ZP2
+                    STA    BYTES+2
+                    LDA    RXCOUNT+3
+                    STA    ZP3
+
+                    JSR    PRINTBYTES
+
+                    LDA    #ZRPOS
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER                                                   ;send our received position
+
+*
+* loop -- come back here every time we need to get a new zmodem packet header
+*
+:LOOP               JSR    ZGETHEADER
+
+                    CMP    #20
+                    BLT    :HEADER
+
+                    CMP    #ABORT
+                    BEQ    :GOTABORT
+                    CMP    #TIMEOUT
+                    BNE    :IGNORE                                                        ;if anything else happened, try real hard to get
+                                                                                          ;back in sync with the other side
+
+                    INC    ERRORS
+                    LDA    ERRORS
+                    CMP    #5
+                    BLT    :IGNORE
+
+:RETURN             JSR    WRITEZBUFFER
+                    LDA    #ERROR
+                    RTS
+
+:HEADER             ASL    A
+                    TAX
+                    JMP    (:ADDR,X)
+
+:ADDR               DA     :IGNORE                                                        ;ZRQINIT    -                       0
+                    DA     :IGNORE                                                        ;ZRINIT     -                       1
+                    DA     :IGNORE                                                        ;ZSINIT     -                       2
+                    DA     :IGNORE                                                        ;ZACK       -                       3
+                    DA     :GOTZFILE                                                      ;ZFILE      -                       4
+                    DA     :GOTZSKIP                                                      ;ZSKIP      -                       5
+                    DA     :IGNORE                                                        ;ZNAK       -                       6
+                    DA     :GOTABORT                                                      ;ZABORT     -                       7
+                    DA     :RETURN                                                        ;ZFIN       -                       8
+                    DA     :IGNORE                                                        ;ZRPOS      -                       9
+                    DA     :GOTZDATA                                                      ;ZDATA      -                       10
+                    DA     :GOTZEOF                                                       ;ZEOF       -                       11
+                    DA     :IGNORE                                                        ;ZFERR      -                       12
+                    DA     :IGNORE                                                        ;ZCRC       -                       13
+                    DA     :IGNORE                                                        ;ZCHALLENGE -                       14
+                    DA     :IGNORE                                                        ;ZCOMPL     -                       15
+                    DA     :GOTABORT                                                      ;ZCAN       -                       16
+                    DA     :IGNORE                                                        ;ZFREECNT   -                       17
+                    DA     :IGNORE                                                        ;ZCOMMAND   -                       18
+                    DA     :IGNORE                                                        ;ZSTDERR    -                       19
+
+*
+* ignore -- the other side is doing some wacko stuff.. try to get in sync
+*           again
+*
+:IGNORE             JSR    WRITEZBUFFER
+
+                    JSR    SENDATTN
+                    JMP    :CONTINUE
+
+*
+* gotABORT -- someone aborted us
+*
+:GOTABORT
+                    JSR    WRITEZBUFFER
+
+                    LDA    #ABORT
+                    RTS
+
+*
+* ZSKIP -- close our file we were about to receive and return zskip
+*
+:GOTZSKIP
+                    JSR    WRITEZBUFFER                                                   ;write out what we got so far
+
+                    LDA    #ZSKIP
+                    RTS
+
+*
+* ZEOF -- test for correct EOF, if not, force timeout -- if EOF, then just
+*         return normally
+*
+:GOTZEOF            JSR    WRITEZBUFFER                                                   ;write (ZPTR-ZBUFFER) bytes
+
+                    JSR    GETRXPOSITION                                                  ;munge a longword from the header
+
+                    LDX    #3
+:RCMPLOOP1          LDA    RXPOSITION,X
+                    CMP    RXCOUNT,X
+                    BNE    :GOLOOP
+                    DEX
+                    BPL    :RCMPLOOP1
+                    JMP    :ZEOFCLOSE                                                     ;ignore eof if it's at the wrong place
+:GOLOOP             JMP    :LOOP                                                          ;force a timeout because the eof might
+;eof might have gone out before our ZRPOS
+:ZEOFCLOSE
+                    LDA    #ZEOF
+                    RTS
+
+*
+* ZFILE -- receive a packet after the zfile header, then keep going
+*          this naughty bit of code protects us against the foolishness
+*          of people who sent multiple ZFILE packets before they start
+*          sending the file data
+*
+:GOTZFILE
+                    JSR    ZRDATA
+                    JMP    GOODFILE
+
+*
+* ZDATA -- oh joy, get possibly streamed packets from the sender
+*
+:GOTZDATA
+                    JSR    GETRXPOSITION                                                  ;munge a longword from the header
+
+                    LDX    #3
+:RCMPLOOP2          LDA    RXPOSITION,X
+                    CMP    RXCOUNT,X
+                    BNE    :SENDATTENTION
+                    DEX
+                    BPL    :RCMPLOOP2
+                    JMP    :GETDATA
+
+:SENDATTENTION
+                    JSR    SENDATTN
+                    JMP    :CONTINUE                                                      ;resend the ZRPOS
+
+*
+* GETDATA -- get data subpackets (ZCRCQ, ZCRCE, ZCRCW, and ZCRCG)
+*
+:GETDATA            JSR    ZRDATA
+
+                    CMP    #ERROR
+                    BNE    :DATANOTERROR
+
+:ZDATAERROR
+                    JSR    WRITEZBUFFER
+                    JSR    SENDATTN
+                    JMP    :CONTINUE                                                      ;resend the ZRPOS
+
+:DATANOTERROR
+                    CMP    #OVERFLOW                                                      ;if we overflowed, write what we HAD, then
+                    BEQ    :ZDATAERROR                                                    ;reset the buffer and tell it how much
+                                                                                          ;we have NOW
+
+                    CMP    #TIMEOUT
+                    BEQ    :ZDATAERROR
+
+                    CMP    #ABORT
+                    BNE    :DATANOTABORT
+
+                    JSR    WRITEZBUFFER
+                    LDA    #ABORT
+                    RTS
+
+:DATANOTABORT
+                    CMP    #ZCRCW
+                    BNE    :DATANOTZCRCW
+
+*
+* ZCRCW -- wait for a response from us.  The sender is waiting for us to
+*          send a ZACK packet in response to their overture
+*          so, while we sit there, we might as well write out our buffer
+*
+                    JSR    ADDRXBYTES2RXCOUNT
+                    JSR    PRINTBYTES
+
+                    JSR    WRITEZBUFFER                                                   ;this also resets ZPTR
+
+                    LDX    #3
+:RXLOOP1            LDA    RXCOUNT,X
+                    STA    ZP0,X
+                    DEX
+                    BPL    :RXLOOP1
+
+                    LDA    #ZACK
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER                                                   ;receiver always sends a HEX header
+                    JMP    :LOOP                                                          ;next header
+
+:DATANOTZCRCW
+                    CMP    #ZCRCQ
+                    BNE    :DATANOTZCRCQ
+
+*
+* ZCRCQ -- query exactly where we are in the file, send ZACK and keep
+*          receiving cause we CANFDX, just not CANOVIO
+*          if we are about to overflow our buffer, write the buffer out
+*
+                    JSR    ADDRXBYTES2RXCOUNT
+                    JSR    PRINTBYTES
+
+                    LDA    ZPTR+1                                                         ;so, did they (almost) overflow our buffer?
+                    CMP    #>ZBUFFER+MAXBUFFERSIZE
+                    BLT    :ZCRCQNOWRITE                                                  ;not yet
+
+                    JSR    WRITE2000                                                      ;fall through and send our ZACK frame
+
+:ZCRCQNOWRITE
+                    LDX    #3
+:RXLOOP2            LDA    RXCOUNT,X
+                    STA    ZP0,X
+                    DEX
+                    BPL    :RXLOOP2
+
+                    LDA    #ZACK
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER                                                   ;receiver always sends a HEX header
+                    JMP    :GETDATA                                                       ;get more data
+
+:DATANOTZCRCQ
+                    CMP    #ZCRCG
+                    BNE    :DATANOTZCRCG
+
+*
+* ZCRCG -- go.  sender doesn't want a response unless something screwed up
+*          the CRC for this packet, just keep receiving
+*          if the buffer is about to overflow, write it out
+*
+                    JSR    ADDRXBYTES2RXCOUNT
+                    JSR    PRINTBYTES
+
+                    LDA    ZPTR+1                                                         ;so, did they overflow our buffer?
+                    CMP    #>ZBUFFER+MAXBUFFERSIZE
+                    BLT    :ZCRCGNOWRITE                                                  ;not yet
+
+                    JSR    WRITE2000
+:ZCRCGNOWRITE
+                    JMP    :GETDATA
+
+:DATANOTZCRCG
+                    CMP    #ZCRCE
+                    BEQ    :GOTZCRCE
+                    JMP    :GETDATA                                                       ;get some more data no matter what
+
+*
+* ZCRCE -- they encountered EOF while sending the packet.  sender doesn't
+*          want a response unless there's an error
+*          is the buffer is full, write it out
+*
+:GOTZCRCE
+                    JSR    ADDRXBYTES2RXCOUNT
+                    JSR    PRINTBYTES
+
+                    LDA    ZPTR+1                                                         ;so, did they overflow our buffer?
+                    CMP    #>ZBUFFER+MAXBUFFERSIZE
+                    BLT    :ZCRCENOWRITE                                                  ;not yet
+
+                    JSR    WRITE2000
+:ZCRCENOWRITE
+                    JMP    :LOOP                                                          ;better get ZEOF next time!
+
+*-------------------------------------------------
+* ADDRXBYTES2RXCOUNT
+
+ADDRXBYTES2RXCOUNT
+                    LDA    RXBYTES
+                    CLC
+                    ADC    RXCOUNT
+                    STA    RXCOUNT
+                    LDA    RXBYTES+1
+                    ADC    RXCOUNT+1
+                    STA    RXCOUNT+1
+                    LDA    RXBYTES+2
+                    ADC    RXCOUNT+2
+                    STA    RXCOUNT+2
+
+                    LDA    RXBYTES
+                    CLC
+                    ADC    BYTES
+                    STA    BYTES
+                    LDA    RXBYTES+1
+                    ADC    BYTES+1
+                    STA    BYTES+1
+                    LDA    RXBYTES+2
+                    ADC    BYTES+2
+                    STA    BYTES+2
+
+                    LDA    RXBYTES
+                    CLC
+                    ADC    BYTECOUNT
+                    STA    BYTECOUNT
+                    LDA    RXBYTES+1
+                    ADC    BYTECOUNT+1
+                    STA    BYTECOUNT+1
+                    LDA    RXBYTES+2
+                    ADC    BYTECOUNT+2
+                    STA    BYTECOUNT+2
+                    RTS
+
+*-------------------------------------------------
+* WRITEZBUFFER -- write (ZPTR-ZBuffer) bytes
+
+WRITEZBUFFER
+                    LDA    ZPTR
+                    BNE    :WRITE
+                    LDA    ZPTR+1
+                    CMP    #>ZBUFFER
+                    BEQ    :NOWRITE
+
+:WRITE              STZ    WRITEPARMS+2                                                   ;where
+                    LDA    #>ZBUFFER
+                    STA    WRITEPARMS+3
+
+                    LDA    ZPTR                                                           ;how much
+                    SEC
+                    SBC    #<ZBUFFER
+                    STA    WRITEPARMS+4
+                    LDA    ZPTR+1
+                    SBC    #>ZBUFFER
+                    STA    WRITEPARMS+5
+
+                    JSR    MLI
+                    DB     $CB
+                    DA     WRITEPARMS
+
+                    STZ    ZPTR                                                           ;reset the buffer!!
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+:NOWRITE            RTS
+
+*-------------------------------------------------
+* WRITE2000 -- write MAXBUFFERSIZE bytes to the file
+
+WRITE2000
+                    STZ    WRITEPARMS+2                                                   ;where
+                    LDA    #>ZBUFFER
+                    STA    WRITEPARMS+3
+
+                    LDA    #<MAXBUFFERSIZE                                                ;how much
+                    STA    WRITEPARMS+4
+                    LDA    #>MAXBUFFERSIZE
+                    STA    WRITEPARMS+5
+
+                    JSR    MLI
+                    DB     $CB
+                    DA     WRITEPARMS
+
+                    STZ    ZPTR                                                           ;reset the buffer!!
+                    LDA    #>ZBUFFER
+                    STA    ZPTR+1
+                    RTS
+
+*-------------------------------------------------
+* SENDATTN -- send the attention string to the other end
+
+SENDATTN            LDA    ATTNLENGTH                                                     ;if we don't have an attention string,
+                    BEQ    :DONE                                                          ;we shouldn't send anything
+
+                    LDY    #0
+:LOOP               LDA    ATTENTION,Y
+                    JSR    MDMOUT
+                    INY
+                    CPY    #32                                                            ;never send more than we got
+                    BEQ    :DONE
+                    CPY    ATTNLENGTH
+                    BLT    :LOOP
+
+:DONE
+                    DO     BUILDFLUSH
+                    JSR    MDMFLUSH
+                    FIN
+
+                    RTS
+
+*-------------------------------------------------
+* ACKBIBI() -- send a ZFIN packet and say goodbye...
+
+ACKBIBI             JSR    ZEROPOS
+
+                    LDA    #ZFIN
+                    STA    FRAMETYPE
+
+                    JSR    ZSENDHHEADER
+
+                    DO     BUILDFLUSH
+                    JSR    MDMFLUSH
+                    FIN
+
+:OLOOP              JSR    GETC                                                           ;get the OO or wait 10 seconds trying
+                    BCC    :DONE
+                    CMP    #'O'
+                    BEQ    :NEXTO
+                    CMP    #CAN                                                           ;also accept CAN characters
+                    BEQ    :DONE
+                    BRA    :OLOOP
+
+:NEXTO              JSR    GETC
+                    CMP    #'O'
+                    BEQ    :DONE
+                    CMP    #CAN
+                    BNE    :NEXTO
+
+:DONE               RTS
+
+*-------------------------------------------------
+* GETRXPOSITION -- munge a longword from ZP0..ZP3
+
+GETRXPOSITION
+                    LDA    ZP0
+                    STA    RXPOSITION
+                    LDA    ZP1
+                    STA    RXPOSITION+1
+                    LDA    ZP2
+                    STA    RXPOSITION+2
+                    LDA    ZP3
+                    STA    RXPOSITION+3
+                    RTS
+
+*-------------------------------------------------
+* ZRDATA -- get a data subpacket and return a result code
+*
+* outputs = (A) = result code
+
+ZRDATA              LDA    FRAMEKIND
+                    CMP    #ZBIN32
+                    BNE    :NORMAL
+                    JMP    ZRDATA32
+
+:NORMAL             STZ    CRC
+                    STZ    CRC+1
+
+                    STZ    RXBYTES
+                    STZ    RXBYTES+1
+
+                    LDA    ZPTR
+                    STA    ZSTART
+                    CLC
+                    ADC    #<1025
+                    STA    ZEND
+                    LDA    ZPTR+1
+                    STA    ZSTART+1
+                    ADC    #>1025
+                    STA    ZEND+1
+
+:LOOP               JSR    ZGETCHAR
+
+                    LDX    ESCAPED
+                    BEQ    :NOTESCAPED
+                    CPX    #ABORT
+                    BEQ    :BOGUS
+                    CPX    #TIMEOUT
+                    BNE    :NOTBOGUS
+:BOGUS              TXA
+                    JMP    :BAD
+
+:NOTBOGUS           CMP    #ZCRCW
+                    BEQ    :GOOUT                                                         ;damn 128 byte branches
+                    CMP    #ZCRCQ
+                    BEQ    :GOOUT                                                         ;**** 128 byte branches
+                    CMP    #ZCRCG
+                    BEQ    :GOOUT                                                         ;**** 128 byte branches
+                    CMP    #ZCRCE
+                    BNE    :NOTESCAPED
+:GOOUT              JMP    :OUT
+
+:NOTESCAPED         INC    RXBYTES
+                    BNE    :NC
+                    INC    RXBYTES+1
+:NC                 JSR    CRCBYTE
+                    STA    (ZPTR)
+
+                    LDA    ZCONVERT
+                    AND    #ZCBIN
+                    BNE    :NOCONVERT
+
+                    LDA    ZCONVERT
+                    AND    #ZCNL
+                    BEQ    :NOCONVERT
+
+                    LDA    (ZPTR)
+                    CMP    #cr
+                    BNE    :NOTCR
+
+                    LDA    #$FF
+                    STA    GOTCR                                                          ;this falls through to go to NOCONVERT
+                    INC    ZPTR
+                    BNE    :AFTERMSDOS
+                    INC    ZPTR+1
+                    BRA    :AFTERMSDOS
+
+:NOTCR              CMP    #lf
+                    BNE    :NOCONVERT
+
+                    LDA    GOTCR
+                    BMI    :MSDOS
+
+:UNIX               LDA    #cr
+                    STA    (ZPTR)
+
+:NOCONVERT          INC    ZPTR
+                    BNE    :MSDOS
+                    INC    ZPTR+1
+:MSDOS              STZ    GOTCR                                                          ;always reset this so we don't have any stragling LFs
+
+:AFTERMSDOS
+                    LDA    ZPTR+1                                                         ;see if we have received a packet larger than
+                    CMP    ZEND+1                                                         ;1k -- this is a good thing to do because Chuck
+                    BLT    :NOTOVER1K                                                     ;Forsberg's routines also can't receive larger than
+                    LDA    ZPTR                                                           ;1k packets, and we are protecting against lost
+                    CMP    ZEND                                                           ;characters at 9600 baud concatenating 2 packets
+                    BEQ    :OVER1K                                                        ;together
+
+:NOTOVER1K
+                    LDA    ZPTR+1
+                    CMP    #>ZBUFFER+MAXBUFFERSIZE+1
+                    BLT    :LOOP
+                    LDA    ZPTR                                                           ;see if they went 1 byte over since we
+                    CMP    #<ZBUFFER+MAXBUFFERSIZE+1                                      ;can match $4000 bytes exactly and not overflow
+                    BEQ    :OVER1K
+                    JMP    :LOOP                                                          ;but we need to check for overflow when we get back
+
+:OVER1K
+                    DO     BUILDDEBUG
+                    LDA    ZPTR
+                    SEC
+                    SBC    ZSTART
+                    TAY
+                    LDA    ZPTR+1
+                    SBC    ZSTART+1
+                    TAX
+                    LDA    #1                                                             ;zr
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    ZSTART+1                                                       ;we overflowed.  This is very bad.  restore ZPTR
+                    STA    ZPTR+1                                                         ;to the last good spot (where we started this
+                    LDA    ZSTART                                                         ;subpacket within the buffer)
+                    STA    ZPTR
+
+                    LDA    #OVERFLOW
+                    RTS
+
+:OUT                STA    FRAMEEND
+
+                    JSR    CRCBYTE                                                        ;add the frameend into the CRC
+
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC+1
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC
+
+                    CMP    CRC
+                    BNE    :BADPACKET
+                    LDA    FRAMECRC+1
+                    CMP    CRC+1
+                    BEQ    :GOODPACKET
+
+:BADPACKET
+                    DO     BUILDDEBUG
+                    LDA    ZPTR
+                    SEC
+                    SBC    ZSTART
+                    TAY
+                    LDA    ZPTR+1
+                    SBC    ZSTART+1
+                    TAX
+                    LDA    #1
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    #ERROR                                                         ;tell zfile to try again
+:BAD                LDX    ZSTART+1
+                    STX    ZPTR+1
+                    LDX    ZSTART
+                    STX    ZPTR
+                    RTS
+
+:GOODPACKET                                                                               ; hey! ;it's good!
+                    DO     BUILDDEBUG
+                    LDY    RXBYTES
+                    LDX    RXBYTES+1
+                    LDA    #1
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    FRAMEEND                                                       ;tell them the kind of frame we got
+                    RTS
+
+*-------------------------------------------------
+* ZRDATA32 -- get a data subpacket and return a result code
+*
+* outputs = (A) = result code
+
+ZRDATA32            LDA    #$FF                                                           ;init the CRC32
+                    STA    CRC32
+                    STA    CRC32+1
+                    STA    CRC32+2
+                    STA    CRC32+3
+
+                    STZ    RXBYTES
+                    STZ    RXBYTES+1
+
+                    LDA    ZPTR
+                    STA    ZSTART
+                    CLC
+                    ADC    #<1025
+                    STA    ZEND
+                    LDA    ZPTR+1
+                    STA    ZSTART+1
+                    ADC    #>1025
+                    STA    ZEND+1
+
+:LOOP               JSR    ZGETCHAR
+
+                    LDX    ESCAPED
+                    BEQ    :NOTESCAPED
+                    CPX    #ABORT
+                    BEQ    :BOGUS
+                    CPX    #TIMEOUT
+                    BNE    :NOTBOGUS
+:BOGUS              TXA
+                    JMP    :BAD
+
+:NOTBOGUS           CMP    #ZCRCW
+                    BEQ    :GOOUT
+                    CMP    #ZCRCQ
+                    BEQ    :GOOUT
+                    CMP    #ZCRCG
+                    BEQ    :GOOUT
+                    CMP    #ZCRCE
+                    BNE    :NOTESCAPED
+:GOOUT              JMP    :OUT
+
+:NOTESCAPED         INC    RXBYTES
+                    BNE    :NC
+                    INC    RXBYTES+1
+:NC                 JSR    UPDATECRC32
+                    STA    (ZPTR)
+
+                    LDA    ZCONVERT
+                    AND    #ZCBIN
+                    BNE    :NOCONVERT
+
+                    LDA    ZCONVERT
+                    AND    #ZCNL
+                    BEQ    :NOCONVERT
+
+                    LDA    (ZPTR)
+                    CMP    #cr
+                    BNE    :NOTCR
+
+                    LDA    #$FF
+                    STA    GOTCR                                                          ;this falls through to go to NOCONVERT
+                    INC    ZPTR
+                    BNE    :AFTERMSDOS
+                    INC    ZPTR+1
+                    BRA    :AFTERMSDOS
+
+:NOTCR              CMP    #lf
+                    BNE    :NOCONVERT
+
+                    LDA    GOTCR
+                    BMI    :MSDOS
+
+:UNIX               LDA    #cr
+                    STA    (ZPTR)
+
+:NOCONVERT          INC    ZPTR
+                    BNE    :MSDOS
+                    INC    ZPTR+1
+:MSDOS              STZ    GOTCR                                                          ;always reset this so we don't have any stragling LFs
+
+:AFTERMSDOS
+                    LDA    ZPTR+1                                                         ;see if we have received a packet larger than
+                    CMP    ZEND+1                                                         ;1k -- this is a good thing to do because Chuck
+                    BLT    :NOTOVER1K                                                     ;Forsberg's routines also can't receive larger than
+                    LDA    ZPTR                                                           ;1k packets, and we are protecting against lost
+                    CMP    ZEND                                                           ;characters at 9600 baud concatenating 2 packets
+                    BEQ    :OVER1K                                                        ;together
+
+:NOTOVER1K
+                    LDA    ZPTR+1
+                    CMP    #>ZBUFFER+MAXBUFFERSIZE+1
+                    BLT    :LOOP
+                    LDA    ZPTR                                                           ;see if they went 1 byte over since we can
+                    CMP    #<ZBUFFER+MAXBUFFERSIZE+1                                      ;can match $2000 bytes exactly and not overflow
+                    BEQ    :OVER1K
+                    JMP    :LOOP                                                          ;but we need to check for overflow when we get back
+
+:OVER1K
+                    DO     BUILDDEBUG
+                    LDA    ZPTR
+                    SEC
+                    SBC    ZSTART
+                    TAY
+                    LDA    ZPTR+1
+                    SBC    ZSTART+1
+                    TAX
+                    LDA    #3                                                             ;zr32
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    ZSTART+1                                                       ;we overflowed.  This is very bad.  restore ZPTR
+                    STA    ZPTR+1                                                         ;to the last good spot (where we started this
+                    LDA    ZSTART                                                         ;subpacket within the buffer)
+                    STA    ZPTR
+
+                    LDA    #OVERFLOW
+                    RTS
+
+:OUT                STA    FRAMEEND
+
+                    JSR    UPDATECRC32                                                    ;add the frameend into the CRC
+
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC32
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC32+1
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC32+2
+                    JSR    ZGETCHAR
+                    STA    FRAMECRC32+3
+
+                    JSR    invertCRC32
+
+                    LDX    #3
+:CRC32LOOP          LDA    FRAMECRC32,X
+                    CMP    CRC32,X
+                    BNE    :BADPACKET
+                    DEX
+                    BPL    :CRC32LOOP
+                    BRA    :GOODPACKET
+
+:BADPACKET
+                    DO     BUILDDEBUG
+                    LDA    ZPTR
+                    SEC
+                    SBC    ZSTART
+                    TAY
+                    LDA    ZPTR+1
+                    SBC    ZSTART+1
+                    TAX
+                    LDA    #3                                                             ;zr32
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    #ERROR                                                         ;tell zfile to try again
+:BAD                LDX    ZSTART+1
+                    STX    ZPTR+1
+                    LDX    ZSTART
+                    STX    ZPTR
+                    RTS
+
+:GOODPACKET                                                                               ; hey! ;it's good!
+                    DO     BUILDDEBUG
+                    LDY    RXBYTES
+                    LDX    RXBYTES+1
+                    LDA    #3                                                             ;zr32
+                    JSR    PRINTSUB                                                       ;print the subpacket
+                    FIN
+
+                    LDA    FRAMEEND                                                       ;tell them the kind of frame we got
+                    RTS
+
+*-------------------------------------------------
+* MOVEFILENAME
+
+MOVEFILENAME
+                    LDY    #0                                                             ;move the filename to a spot where it can be used
+:NLOOP              LDA    PATHNAME+1,Y                                                   ;by acos
+                    STA    ($D),Y
+                    INY
+                    CPY    PATHNAME
+                    BLT    :NLOOP
+                    RTS
+
+*-------------------------------------------------
+* CLEARFILENAME -- put spaces into acos's filename
+
+CLEARFILENAME
+                    LDY    #14                                                            ;clear out the last filename string
+                    LDA    #' '
+:CLOOP              STA    ($D),Y
+                    DEY
+                    BPL    :CLOOP
+                    RTS
+
+*-------------------------------------------------
+* CLEARTOSPACES -- clear the filename to spaces
+
+CLEARTOSPACES
+                    LDX    #15                                                            ;and clear out the pathname since it's going
+                    STX    PATHNAME                                                       ;to be copied back to acos's name
+                    LDA    #' '
+:PLOOP              STA    PATHNAME+1,X
+                    DEX
+                    BPL    :PLOOP
+                    RTS
+
+*-------------------------------------------------
+* PRINTRZSTAT -- print the receiver's status line
+
+                    DO     NOTBUILDDEBUG
+
+PRINTRZSTAT
+                    JSR    CLEARLASTLINE
+
+                    LDX    #<RZSTATLINE
+                    LDA    #>RZSTATLINE
+                    JSR    PRINTCSTRING
+
+                    LDX    #<PATHNAME
+                    LDA    #>PATHNAME
+                    JMP    PRINTPSTRING
+
+*-------------------------------------------------
+* CLEARLASTLINE -- get rid of anything on the last line
+
+CLEARLASTLINE
+                    LDY    #0
+                    STY    HTAB
+:LOOP               LDA    #" "
+                    JSR    LOCPRINT
+                    INY
+                    CPY    #79
+                    BLT    :LOOP
+                    STZ    HTAB
+                    RTS
+
+RZSTATLINE          ASC    'Receiving byte #         of         file '00
+                    FIN
+
+*-------------------------------------------------
+* put the common zmodem routines at the end of RZ
+
+NAMEHOW             DB     0                                                              ;rename this thing how?
+SYNTAX              DB     0                                                              ;Did something they didn't provide kill us?
+WAITFOR             DW     120*9                                                          ;9 second timeout, don't wait long
+
+CREATEPARMS
+                    DB     7
+                    DW     0                                                              ;pathname
+                    DB     $C3
+                    DB     4                                                              ;TXT
+                    DW     0                                                              ;auxtype = 0
+                    DB     1                                                              ;storage type
+                    DW     0                                                              ;create date
+                    DW     0                                                              ;create time
+
+PREFIXPARMS
+                    DB     1
+                    DA     PREFIX
+
+WRITEPARMS
+                    DB     4
+                    DB     0
+                    DA     ZBUFFER
+                    DW     $1000
+                    DW     0
+
+DESTROYPARMS
+                    DB     1
+                    DW     0
+
+                    DO     BUILDDEBUG
+                    PUT    NO.LONG2DEC
+                    FIN
+
+                    DO     NOTBUILDDEBUG
+                    PUT    LONG2DEC
+                    FIN
+
+                    PUT    ZMODEM                                                         ;always
+                    PUT    ZMODEM2                                                        ;always
+
+                    SAV    RZ
+
diff --git a/SOURCE/ZMODEM/SZ.LOAD.S b/SOURCE/ZMODEM/SZ.LOAD.S
new file mode 100644
index 0000000..2f8b5bf
--- /dev/null
+++ b/SOURCE/ZMODEM/SZ.LOAD.S
@@ -0,0 +1,615 @@
+             LST    OFF
+             LSTDO  OFF
+             EXP    ONLY
+             XC
+             TR
+             TR     ADR
+Y            =      1
+y            =      1
+N            =      0
+n            =      0
+LISTOBJ      KBD    'List This Source? (Y/N)'
+LISTSYM      KBD    'List Symbol Table? (Y/N)'
+SAVEOBJ      KBD    'Save Object Code? (Y/N)'
+
+             DO     LISTOBJ
+             LST
+             FIN
+             LST    OFF
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+
+             USE    MACROS/ZMACS
+             USE    MACROS/PROMACS
+
+             DO     LISTOBJ
+             LST
+             FIN
+             ORG    $9E00
+
+             PUT    EQUATES
+             PUT    ZEQUATES
+
+*-------------------------------------------------
+* RZLOAD -- load RZ into $9E00, save the CRC
+*           tables into aux memory at $6000,
+*           and take note that the loader is
+*           left at $2000 if execution was
+*           successful.
+*
+* Syntax is: USE "l:rz.load",rz$
+*
+*     where rz$ is the pathname to get
+*            RZ from
+*
+* If loader is successful, FAILFLAG (dec 10) = 0
+* If loader is not successful, FAILFLAG has prodos
+*  error in FAILFLAG (dec 10)
+*
+
+*-------------------------------------------------
+* RZLOAD -- load RZ (and have an oh so fun time doing it)
+
+RZLOAD       STZ    FAILFLAG
+
+             JSR    GOBCOM                      ;search for first delimiter
+             JSR    MOVNAME                     ;get pathname in buff
+
+             LDA    ACOSPATHLO
+             STA    OPENPARMS+1
+             LDA    ACOSPATHHI
+             STA    OPENPARMS+2
+
+*
+* start by moving the CRC tables into aux memory at $7000.  The tables
+* USE $600 bytes of space (6 pages), and are moved into main memory
+* whenever the main driver at $9E00 is run.
+*
+             JSR    SAVEPTRS                    ;save the zero page pointers we're about to use
+
+             LDA    #<TABLES                    ;source begin
+             STA    A1
+             LDA    #>TABLES
+             STA    A1+1
+
+             LDA    #<TABLESEND                 ;source end
+             STA    A2
+             LDA    #>TABLESEND
+             STA    A2+1
+
+             LDA    #<$7000                     ;destination
+             STA    A4
+             LDA    #>$7000
+             STA    A4+1
+
+             SEC                                ;main to aux
+             JSR    AUXMOVE
+
+*
+* now, save 2 pages of memory into aux memory from $2000
+*
+             LDA    #<$2000                     ;source begin
+             STA    A1
+             STA    A4                          ;destination
+             LDA    #>$2000
+             STA    A1+1
+             STA    A4+1
+
+             LDA    #<$2200                     ;source end
+             STA    A2
+             LDA    #>$2200
+             STA    A2+1
+
+             SEC                                ;main to aux
+             JSR    AUXMOVE
+
+*
+* now go open the file using the pathname which we were passed
+*
+             JSR    MLI
+             DB     $C8
+             DA     OPENPARMS
+             BCC    :OPENOK
+:OSERROR     STA    FAILFLAG
+             RTS
+
+*
+* Now, move the "Loader" routine to $2000
+*
+:OPENOK      LDA    #<LOADER
+             STA    A1
+             LDA    #>LOADER
+             STA    A1+1
+
+             LDA    #<$2000
+             STA    A2
+             LDA    #>$2000
+             STA    A2+1
+
+:LOOP        LDA    (A1)
+             STA    (A2)
+
+             INC    A1
+             BNE    :NC1
+             INC    A1+1
+:NC1         INC    A2
+             BNE    :NC2
+             INC    A2+1
+:NC2         LDA    A1
+             CMP    #<ENDOFLOADER
+             BNE    :LOOP
+             LDA    A1+1
+             CMP    #>ENDOFLOADER
+
+             JSR    RESTOREPTRS                 ;restore the zero page pointers we just used
+
+*
+* Finally, jump to the code which load RZ in at $9E00 from the pathname
+* and executes it by calling $9E00
+*
+             LDA    OPENPARMS+5                 ;make sure refNum from open is in (A)
+             JMP    $2000
+
+*-------------------------------------------------
+* SAVEPTRS -- save A1..A4 in 'PTRS'
+
+SAVEPTRS     LDX    #7
+:LOOP        LDA    A1,X
+             STA    PTRS,X
+             DEX
+             BPL    :LOOP
+             RTS
+
+*-------------------------------------------------
+* RESTOREPTRS -- restore A1..A4 from 'PTRS'
+
+RESTOREPTRS
+             LDX    #7
+:LOOP        LDA    PTRS,X
+             STA    A1,X
+             DEX
+             BPL    :LOOP
+             RTS
+
+*-------------------------------------------------
+* data
+
+PTRS         DW     0                           ;A1
+             DW     0                           ;A2
+             DW     0                           ;A3
+             DW     0                           ;A4
+
+OPENPARMS
+             DB     3
+             DA     0
+             DA     FILEBUFFER2
+             DB     0
+
+*-------------------------------------------------
+* CRC tables that get PUT at $6000 in aux memory and
+* get moved back into main whenever RZ is called to
+* actually do something
+
+TABLES
+
+*
+* crc-16 table
+*
+*CRCTABLELO
+             HEX    0021426384A5C6E7
+             HEX    08294A6B8CADCEEF
+             HEX    31107352B594F7D6
+             HEX    39187B5ABD9CFFDE
+             HEX    62432001E6C7A485
+             HEX    6A4B2809EECFAC8D
+             HEX    53721130D7F695B4
+             HEX    5B7A1938DFFE9DBC
+             HEX    C4E586A740610223
+             HEX    CCED8EAF48690A2B
+             HEX    F5D4B79671503312
+             HEX    FDDCBF9E79583B1A
+             HEX    A687E4C522036041
+             HEX    AE8FECCD2A0B6849
+             HEX    97B6D5F413325170
+             HEX    9FBEDDFC1B3A5978
+             HEX    88A9CAEB0C2D4E6F
+             HEX    80A1C2E304254667
+             HEX    B998FBDA3D1C7F5E
+             HEX    B190F3D235147756
+             HEX    EACBA8896E4F2C0D
+             HEX    E2C3A08166472405
+             HEX    DBFA99B85F7E1D3C
+             HEX    D3F291B057761534
+             HEX    4C6D0E2FC8E98AAB
+             HEX    44650627C0E182A3
+             HEX    7D5C3F1EF9D8BB9A
+             HEX    75543716F1D0B392
+             HEX    2E0F6C4DAA8BE8C9
+             HEX    26076445A283E0C1
+             HEX    1F3E5D7C9BBAD9F8
+             HEX    1736557493B2D1F0
+
+*CRCTABLEHI
+             HEX    0010203040506070
+             HEX    8191A1B1C1D1E1F1
+             HEX    1202322252427262
+             HEX    9383B3A3D3C3F3E3
+             HEX    2434041464744454
+             HEX    A5B58595E5F5C5D5
+             HEX    3626160676665646
+             HEX    B7A79787F7E7D7C7
+             HEX    4858687808182838
+             HEX    C9D9E9F98999A9B9
+             HEX    5A4A7A6A1A0A3A2A
+             HEX    DBCBFBEB9B8BBBAB
+             HEX    6C7C4C5C2C3C0C1C
+             HEX    EDFDCDDDADBD8D9D
+             HEX    7E6E5E4E3E2E1E0E
+             HEX    FFEFDFCFBFAF9F8F
+             HEX    9181B1A1D1C1F1E1
+             HEX    1000302050407060
+             HEX    8393A3B3C3D3E3F3
+             HEX    0212223242526272
+             HEX    B5A59585F5E5D5C5
+             HEX    3424140474645444
+             HEX    A7B78797E7F7C7D7
+             HEX    2636061666764656
+             HEX    D9C9F9E99989B9A9
+             HEX    5848786818083828
+             HEX    CBDBEBFB8B9BABBB
+             HEX    4A5A6A7A0A1A2A3A
+             HEX    FDEDDDCDBDAD9D8D
+             HEX    7C6C5C4C3C2C1C0C
+             HEX    EFFFCFDFAFBF8F9F
+             HEX    6E7E4E5E2E3E0E1E
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST1
+             HEX    00962CBA
+             HEX    198F35A3
+             HEX    32A41E88
+             HEX    2BBD0791
+             HEX    64F248DE
+             HEX    7DEB51C7
+             HEX    56C07AEC
+             HEX    4FD963F5
+             HEX    C85EE472
+             HEX    D147FD6B
+             HEX    FA6CD640
+             HEX    E375CF59
+             HEX    AC3A8016
+             HEX    B523990F
+             HEX    9E08B224
+             HEX    8711AB3D
+             HEX    9006BC2A
+             HEX    891FA533
+             HEX    A2348E18
+             HEX    BB2D9701
+             HEX    F462D84E
+             HEX    ED7BC157
+             HEX    C650EA7C
+             HEX    DF49F365
+             HEX    58CE74E2
+             HEX    41D76DFB
+             HEX    6AFC46D0
+             HEX    73E55FC9
+             HEX    3CAA1086
+             HEX    25B3099F
+             HEX    0E9822B4
+             HEX    17813BAD
+             HEX    20B60C9A
+             HEX    39AF1583
+             HEX    12843EA8
+             HEX    0B9D27B1
+             HEX    44D268FE
+             HEX    5DCB71E7
+             HEX    76E05ACC
+             HEX    6FF943D5
+             HEX    E87EC452
+             HEX    F167DD4B
+             HEX    DA4CF660
+             HEX    C355EF79
+             HEX    8C1AA036
+             HEX    9503B92F
+             HEX    BE289204
+             HEX    A7318B1D
+             HEX    B0269C0A
+             HEX    A93F8513
+             HEX    8214AE38
+             HEX    9B0DB721
+             HEX    D442F86E
+             HEX    CD5BE177
+             HEX    E670CA5C
+             HEX    FF69D345
+             HEX    78EE54C2
+             HEX    61F74DDB
+             HEX    4ADC66F0
+             HEX    53C57FE9
+             HEX    1C8A30A6
+             HEX    059329BF
+             HEX    2EB80294
+             HEX    37A11B8D
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST2
+             HEX    00306151
+             HEX    C4F4A595
+             HEX    88B8E9D9
+             HEX    4C7C2D1D
+             HEX    10207141
+             HEX    D4E4B585
+             HEX    98A8F9C9
+             HEX    5C6C3D0D
+             HEX    20104171
+             HEX    E4D485B5
+             HEX    A898C9F9
+             HEX    6C5C0D3D
+             HEX    30005161
+             HEX    F4C495A5
+             HEX    B888D9E9
+             HEX    7C4C1D2D
+             HEX    41712010
+             HEX    85B5E4D4
+             HEX    C9F9A898
+             HEX    0D3D6C5C
+             HEX    51613000
+             HEX    95A5F4C4
+             HEX    D9E9B888
+             HEX    1D2D7C4C
+             HEX    61510030
+             HEX    A595C4F4
+             HEX    E9D988B8
+             HEX    2D1D4C7C
+             HEX    71411020
+             HEX    B585D4E4
+             HEX    F9C998A8
+             HEX    3D0D5C6C
+             HEX    83B3E2D2
+             HEX    47772616
+             HEX    0B3B6A5A
+             HEX    CFFFAE9E
+             HEX    93A3F2C2
+             HEX    57673606
+             HEX    1B2B7A4A
+             HEX    DFEFBE8E
+             HEX    A393C2F2
+             HEX    67570636
+             HEX    2B1B4A7A
+             HEX    EFDF8EBE
+             HEX    B383D2E2
+             HEX    77471626
+             HEX    3B0B5A6A
+             HEX    FFCF9EAE
+             HEX    C2F2A393
+             HEX    06366757
+             HEX    4A7A2B1B
+             HEX    8EBEEFDF
+             HEX    D2E2B383
+             HEX    16267747
+             HEX    5A6A3B0B
+             HEX    9EAEFFCF
+             HEX    E2D283B3
+             HEX    26164777
+             HEX    6A5A0B3B
+             HEX    AE9ECFFF
+             HEX    F2C293A3
+             HEX    36065767
+             HEX    7A4A1B2B
+             HEX    BE8EDFEF
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST3
+             HEX    00070E09
+             HEX    6D6A6364
+             HEX    DBDCD5D2
+             HEX    B6B1B8BF
+             HEX    B7B0B9BE
+             HEX    DADDD4D3
+             HEX    6C6B6265
+             HEX    01060F08
+             HEX    6E696067
+             HEX    03040D0A
+             HEX    B5B2BBBC
+             HEX    D8DFD6D1
+             HEX    D9DED7D0
+             HEX    B4B3BABD
+             HEX    02050C0B
+             HEX    6F686166
+             HEX    DCDBD2D5
+             HEX    B1B6BFB8
+             HEX    0700090E
+             HEX    6A6D6463
+             HEX    6B6C6562
+             HEX    0601080F
+             HEX    B0B7BEB9
+             HEX    DDDAD3D4
+             HEX    B2B5BCBB
+             HEX    DFD8D1D6
+             HEX    696E6760
+             HEX    04030A0D
+             HEX    05020B0C
+             HEX    686F6661
+             HEX    DED9D0D7
+             HEX    B3B4BDBA
+             HEX    B8BFB6B1
+             HEX    D5D2DBDC
+             HEX    63646D6A
+             HEX    0E090007
+             HEX    0F080106
+             HEX    62656C6B
+             HEX    D4D3DADD
+             HEX    B9BEB7B0
+             HEX    D6D1D8DF
+             HEX    BBBCB5B2
+             HEX    0D0A0304
+             HEX    60676E69
+             HEX    61666F68
+             HEX    0C0B0205
+             HEX    BABDB4B3
+             HEX    D7D0D9DE
+             HEX    64636A6D
+             HEX    090E0700
+             HEX    BFB8B1B6
+             HEX    D2D5DCDB
+             HEX    D3D4DDDA
+             HEX    BEB9B0B7
+             HEX    080F0601
+             HEX    65626B6C
+             HEX    0A0D0403
+             HEX    6760696E
+             HEX    D1D6DFD8
+             HEX    BCBBB2B5
+             HEX    BDBAB3B4
+             HEX    D0D7DED9
+             HEX    6661686F
+             HEX    0B0C0502
+
+*
+* CRC polynomial = $EDB88320
+*
+*CRC32LIST4
+             HEX    0077EE99
+             HEX    0770E99E
+             HEX    0E79E097
+             HEX    097EE790
+             HEX    1D6AF384
+             HEX    1A6DF483
+             HEX    1364FD8A
+             HEX    1463FA8D
+             HEX    3B4CD5A2
+             HEX    3C4BD2A5
+             HEX    3542DBAC
+             HEX    3245DCAB
+             HEX    2651C8BF
+             HEX    2156CFB8
+             HEX    285FC6B1
+             HEX    2F58C1B6
+             HEX    760198EF
+             HEX    71069FE8
+             HEX    780F96E1
+             HEX    7F0891E6
+             HEX    6B1C85F2
+             HEX    6C1B82F5
+             HEX    65128BFC
+             HEX    62158CFB
+             HEX    4D3AA3D4
+             HEX    4A3DA4D3
+             HEX    4334ADDA
+             HEX    4433AADD
+             HEX    5027BEC9
+             HEX    5720B9CE
+             HEX    5E29B0C7
+             HEX    592EB7C0
+             HEX    ED9A0374
+             HEX    EA9D0473
+             HEX    E3940D7A
+             HEX    E4930A7D
+             HEX    F0871E69
+             HEX    F780196E
+             HEX    FE891067
+             HEX    F98E1760
+             HEX    D6A1384F
+             HEX    D1A63F48
+             HEX    D8AF3641
+             HEX    DFA83146
+             HEX    CBBC2552
+             HEX    CCBB2255
+             HEX    C5B22B5C
+             HEX    C2B52C5B
+             HEX    9BEC7502
+             HEX    9CEB7205
+             HEX    95E27B0C
+             HEX    92E57C0B
+             HEX    86F1681F
+             HEX    81F66F18
+             HEX    88FF6611
+             HEX    8FF86116
+             HEX    A0D74E39
+             HEX    A7D0493E
+             HEX    AED94037
+             HEX    A9DE4730
+             HEX    BDCA5324
+             HEX    BACD5423
+             HEX    B3C45D2A
+             HEX    B4C35A2D
+TABLESEND
+
+*-------------------------------------------------
+* now that we've moved the CRC tables into aux memory, we need to move the
+* rest of the code down to $2000 after saving the portion of memory that
+* we're going to blast into aux memory so that the real RZ routines can
+* move the aux memory back to main
+*
+* IN: (A) = refNum for open file which we're going to read into
+*     $9E00
+*
+LOADER
+             ORG    $2000
+
+             STA    READPARMS+1
+             STA    CLOSEPARMS+1
+             STA    EOFPARMS+1
+
+             JSR    MLI                         ;find out how long we are
+             DB     $D1
+             DA     EOFPARMS
+             BCS    :OSERROR
+
+             LDA    #<$9E00                     ;where
+             STA    READPARMS+2
+             LDA    #>$9E00
+             STA    READPARMS+3
+
+             LDA    EOFPARMS+2                  ;how much (eof)
+             STA    READPARMS+4
+             LDA    EOFPARMS+3
+             STA    READPARMS+5
+
+             JSR    MLI                         ;load rz
+             DB     $CA
+             DA     READPARMS
+             BCS    :OSERROR
+
+             JSR    MLI                         ;close us
+             DB     $CC
+             DA     CLOSEPARMS
+             JMP    $9E00
+
+:OSERROR     STA    FAILFLAG
+             JMP    $9E00
+
+*-------------------------------------------------
+* some parameters
+
+READPARMS
+             DB     4                           ;pcount
+             DB     0                           ;refnum
+             DA     $9E00                       ;where
+             DW     0                           ;howmuch
+             DW     0                           ;actual
+
+EOFPARMS     DB     2                           ;pcount
+             DB     0                           ;refnum
+             DS     3                           ;eof
+
+CLOSEPARMS
+             DB     1
+             DB     0
+ENDOFLOADER
+
+             SAV    SZ.LOAD
+             LST    OFF
+             DO     LISTSYM
+             LST
+             FIN
+
diff --git a/SOURCE/ZMODEM/SZ.S b/SOURCE/ZMODEM/SZ.S
new file mode 100644
index 0000000..0f80834
--- /dev/null
+++ b/SOURCE/ZMODEM/SZ.S
@@ -0,0 +1,1583 @@
+                      LST    OFF
+                      LSTDO  OFF
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+                      XC
+                      TR
+                      TR     ADR
+Y                     =      1
+y                     =      1
+N                     =      0
+n                     =      0
+LISTOBJ               KBD    'List This Source? (Y/N)'
+LISTSYM               KBD    'List Symbol Table? (Y/N)'
+SAVEOBJ               KBD    'Save Object Code? (Y/N)'
+
+                      DO     LISTOBJ
+                      LST
+                      FIN
+                      LST    OFF
+
+BUILDIIC              KBD    'Build IIc version? (Y/N)'
+NOTBUILDIIC           =      1-BUILDIIC
+BUILDFLUSH            KBD    'Build using mdmFlush calls? (GBBS v2.14 & later only) (Y/N)'
+NOTBUILDFLUSH         =      1-BUILDFLUSH
+BUILDDEBUG            KBD    'Build with debugging display? (Y/N)'
+NOTBUILDDEBUG         =      1-BUILDDEBUG
+                      DO     BUILDDEBUG
+BUILDPRINT            KBD    'Build debug dumped to printer? (Y/N)'
+                      ELSE
+BUILDPRINT            =      0
+                      FIN
+NOTBUILDPRINT         =      1-BUILDPRINT
+
+                      PUT    EQUATES
+                      PUT    ZEQUATES
+                      LST    RTN
+
+                      ORG    $9E00
+
+*-------------------------------------------------
+* our jump table
+
+                      JMP    FIRST                                                          ;init everything
+                      JMP    SZBEGIN                                                        ;start sending
+                      JMP    SZ                                                             ;send the file
+                      JMP    SZEND                                                          ;finish the send
+
+BYTECOUNT             DS     3
+XBLOCKS               DS     3
+PBLOCKS               DS     3
+
+*-------------------------------------------------
+* SZBEGIN -- init SZ and return the code we got
+
+SZBEGIN               JSR    STARTUP
+
+                      JSR    GETZRXINIT
+
+                      STA    FAILFLAG                                                       ;set other way next time
+                      CMP    #NO_ERROR
+                      BEQ    :NO_ERROR
+
+                      JSR    CANCEL
+:NO_ERROR
+                      JMP    SHUTDOWN
+
+*-------------------------------------------------
+* SZ -- send files via ZMODEM, whoopee!
+
+SZ                    JSR    GOBCOM
+                      JSR    MOVNAME
+
+                      LDA    ACOSPATHLO
+                      STA    POINTER
+                      LDA    ACOSPATHHI
+                      STA    POINTER+1
+
+                      LDA    (POINTER)
+                      STA    PATHNAME
+
+                      LDY    #1
+:LOOP                 LDA    (POINTER),Y
+                      STA    PATHNAME,Y
+                      INY
+                      CPY    PATHNAME
+                      BLT    :LOOP
+                      BEQ    :LOOP
+
+                      STZ    BYTES
+                      STZ    BYTES+1
+                      STZ    BYTES+2
+
+                      STZ    BYTECOUNT
+                      STZ    BYTECOUNT+1
+                      STZ    BYTECOUNT+2
+
+                      STZ    CONSECGOOD                                                     ;nothing good, and nothing bad
+                      STZ    CONSECBAD
+
+                      JSR    STARTUP
+
+                      JSR    SZFILE
+
+                      STA    FAILFLAG                                                       ;this will need to be changed
+                      CMP    #NO_ERROR
+                      BEQ    :NO_ERROR
+
+                      JSR    CANCEL
+
+:NO_ERROR
+                      LDA    BYTECOUNT
+                      STA    XBLOCKS
+                      STA    PBLOCKS
+                      LDA    BYTECOUNT+1
+                      STA    XBLOCKS+1
+                      STA    PBLOCKS+1
+                      LDA    BYTECOUNT+2
+                      STA    XBLOCKS+2
+                      STA    PBLOCKS+2
+
+                      LDX    #6                                                             ;divide bytes sent by 128 to find out
+:XLOOP                LSR    XBLOCKS+2                                                      ;how many blocks were sent
+                      ROR    XBLOCKS+1
+                      ROR    XBLOCKS
+                      DEX
+                      BPL    :XLOOP
+
+                      LDX    #8                                                             ;divide bytes sent by 512 to find out
+:PLOOP                LSR    PBLOCKS+2                                                      ;how many blocks were sent
+                      ROR    PBLOCKS+1
+                      ROR    PBLOCKS
+                      DEX
+                      BPL    :PLOOP
+
+                      LDA    #3                                                             ;say we used ZMODEM
+                      STA    tmode
+                      JMP    SHUTDOWN
+
+*-------------------------------------------------
+* SZEND -- finish up for SZ
+
+SZEND                 JSR    STARTUP
+
+*
+* saybibi() -- say bibi to receiver, try to do it cleanly
+*              send ZFIN and OO
+SAYBIBI               JSR    ZEROPOS
+
+                      LDA    #ZFIN
+                      STA    FRAMETYPE
+                      JSR    ZSENDHHEADER
+
+                      JSR    ZGETHEADER
+
+                      CMP    #ZFIN
+                      BEQ    :GOTZFIN
+
+                      CMP    #TIMEOUT
+                      BEQ    :GOODBYE
+                      CMP    #ABORT
+                      BEQ    :GOODBYE
+                      CMP    #ERROR
+                      BNE    SAYBIBI
+                      BRA    :GOODBYE
+
+:GOTZFIN              LDA    #'O'
+                      JSR    MDMOUT
+
+                      LDA    #'O'
+                      JSR    MDMOUT
+
+                      LDA    #NO_ERROR                                                      ;tell it we got a ZFIN
+:GOODBYE              STA    FAILFLAG
+
+                      DO     NOTBUILDDEBUG
+                      JSR    CLEARLASTLINE
+                      FIN
+
+                      DO     BUILDFLUSH                                                     ;one final deed just in case something was sitting
+                      JSR    MDMFLUSH                                                       ;in our buffer
+                      FIN
+
+                      JMP    SHUTDOWN
+
+*-------------------------------------------------
+* GETZRXINIT -- get the receiver's init parameters
+*               this routine is only ever called once
+
+GETZRXINIT
+                      LDA    #xon                                                           ;un-jam anything we screwed up
+                      JSR    MDMOUT
+
+                      LDA    #'r'                                                           ;send 'rz' followed by <cr>
+                      JSR    MDMOUT
+                      LDA    #'z'
+                      JSR    MDMOUT
+                      LDA    #cr
+                      JSR    MDMOUT
+
+                      STZ    ERRORS
+
+:GOTZCOMMAND
+                      JSR    ZEROPOS
+
+                      LDA    #ZRQINIT                                                       ;say hello to the other side, your gonna
+                      STA    FRAMETYPE                                                      ;get some files!
+                      JSR    ZSENDHHEADER
+
+:LOOP                 JSR    ZGETHEADER
+
+                      CMP    #20
+                      BLT    :HEADER
+
+                      CMP    #ERROR
+                      BEQ    :GOTERROR
+                      CMP    #ABORT
+                      BEQ    :GOTABORT
+
+                      INC    ERRORS                                                         ;must be TIMEOUT to get this far, if it is, then
+                      LDA    ERRORS                                                         ;repeat the receive invitation
+                      CMP    #5
+                      BLT    :GOTZCOMMAND
+
+                      LDA    #TIMEOUT
+                      RTS
+
+*
+* wasn't anything else, something invalid
+*
+:RETURN               LDA    #ZNAK                                                          ;default = send ZNAK and try again
+                      STA    FRAMETYPE
+                      JSR    ZSENDHHEADER
+                      JMP    :LOOP
+
+:HEADER               ASL    A
+                      TAX
+                      JMP    (:ADDR,X)
+
+:ADDR                 DA     :LOOP                                                          ;ZRQINIT        - 0
+                      DA     :GOTZRINIT                                                     ;ZRINIT         - 1
+                      DA     :RETURN                                                        ;ZSINIT         - 2
+                      DA     :RETURN                                                        ;ZACK           - 3
+                      DA     :RETURN                                                        ;ZFILE          - 4
+                      DA     :RETURN                                                        ;ZSKIP          - 5
+                      DA     :RETURN                                                        ;ZNAK           - 6
+                      DA     :RETURN                                                        ;ZABORT         - 7
+                      DA     :RETURN                                                        ;ZFIN           - 8
+                      DA     :RETURN                                                        ;ZRPOS          - 9
+                      DA     :RETURN                                                        ;ZDATA          - 10
+                      DA     :RETURN                                                        ;ZEOF           - 11
+                      DA     :RETURN                                                        ;ZFERR          - 12
+                      DA     :RETURN                                                        ;ZCRC           - 13
+                      DA     :GOTZCHALLENGE                                                 ;ZCHALLENGE - 14
+                      DA     :RETURN                                                        ;ZCOMPL         - 15
+                      DA     :GOTABORT                                                      ;ZCAN           - 16
+                      DA     :RETURN                                                        ;ZFREECNT       - 17
+                      DA     :GOTZCOMMAND                                                   ;ZCOMMAND     - 18
+                      DA     :RETURN                                                        ;ZSTDERR        - 19
+
+*
+* someone goofed
+*
+:GOTERROR
+                      LDA    #ERROR
+                      RTS
+
+*
+* got ABORT
+*
+:GOTABORT
+                      LDA    #ABORT
+                      RTS
+
+*
+* got ZCHALLENGE?
+*
+:GOTZCHALLENGE
+                      LDA    #ZACK                                                          ;echo the receiver's challenge number
+                      STA    FRAMETYPE                                                      ;(number is already in ZP0..ZP3)
+                      JSR    ZSENDHHEADER
+                      JMP    :LOOP
+
+*
+* was it ZRINIT?
+*
+:GOTZRINIT
+                      LDA    ZP1                                                            ;get our receiver's buffer length
+                      CMP    #>MAXBUFFERSIZE
+                      BGE    :FORCE8K
+
+                      LDA    ZP1
+                      BNE    :USETHEIRSIZE
+                      LDA    ZP0
+                      BEQ    :FORCE8K
+
+:USETHEIRSIZE
+                      LDA    ZP1
+                      STA    TXBUFFERSIZE+1
+                      CLC                                                                   ;largest possible buffersize
+                      ADC    #>ZBUFFER
+                      STA    ZBUFFEREND+1
+                      LDA    ZP0
+                      STA    TXBUFFERSIZE
+                      STA    ZBUFFEREND
+                      BRA    :USE8K
+
+:FORCE8K              STZ    TXBUFFERSIZE
+                      LDA    #>MAXBUFFERSIZE                                                ;was > 8k or CANOVIO, so use our
+                      STA    TXBUFFERSIZE+1
+                      CLC                                                                   ;largest possible buffersize
+                      ADC    #>ZBUFFER
+                      STA    ZBUFFEREND+1
+                      STZ    ZBUFFEREND
+:USE8K                STZ    USEFC32                                                        ;check for CRC32 stuff
+                      LDA    ZF0
+                      AND    #CANFC32
+                      BEQ    :NOFC32
+                      DEC    USEFC32
+:NOFC32
+
+*-------------------------------------------------
+* SENDZSINIT -- send the ZSINIT parameters to our receiver (our attention
+*               string) and wait for a ZACK response
+SENDZSINIT
+                      JSR    ZEROPOS
+
+                      LDA    #ZSINIT
+                      STA    FRAMETYPE
+                      JSR    ZSENDBHEADER
+
+                      LDA    #ZPAD
+                      STA    ZBUFFER                                                        ;make '****' our attention string
+                      STA    ZBUFFER+1
+                      STA    ZBUFFER+2
+                      STA    ZBUFFER+3
+                      STZ    ZBUFFER+4                                                      ;store terminator
+
+                      LDA    #5
+                      STA    BYTES2SEND
+                      STZ    BYTES2SEND+1
+
+                      LDA    #<ZBUFFER                                                      ;where data is
+                      STA    ZPTR
+                      LDA    #>ZBUFFER
+                      STA    ZPTR+1
+
+                      LDX    #0                                                             ;can't be interrupted, they -need- this subpacket
+                      LDA    #ZCRCW                                                         ;send our attention string afterwards
+                      JSR    ZSDATA
+
+                      STZ    ERRORS
+:LOOP                 JSR    ZGETHEADER
+
+                      CMP    #ABORT
+                      BEQ    :GOTABORT
+                      CMP    #ZCAN
+                      BEQ    :GOTZCAN
+                      CMP    #ZABORT
+                      BEQ    :GOTZCAN
+                      CMP    #ZACK                                                          ;timeout falls down here
+                      BEQ    :DONE
+
+                      INC    ERRORS
+                      LDA    ERRORS
+                      CMP    #6                                                             ;wait 1 minute, max
+                      BLT    :LOOP
+
+:GOTZCAN              LDA    #ERROR
+:GOTABORT             RTS
+
+:DONE                 LDA    #NO_ERROR                                                      ;we got a ZRINIT to get this far!
+                      RTS
+
+*-------------------------------------------------
+* SZFILE() -- send a single file
+
+SZFILE                JSR    MLI
+                      DB     $C4
+                      DA     GFIPARMS
+                      BCS    :BAD
+
+                      LDA    GFIPARMS+4                                                     ;we don't understand directories
+                      CMP    #$F
+                      BEQ    :BAD
+
+                      LDA    GFIPARMS+7                                                     ;we don't understand forked files
+                      CMP    #5
+                      BEQ    :BAD
+
+                      JSR    MLI                                                            ;open it
+                      DB     $C8
+                      DA     OPENPARMS
+                      BCS    :BAD
+
+                      LDA    OPENPARMS+5
+                      STA    READPARMS+1
+                      STA    CLOSEPARMS+1
+                      STA    MARKPARMS+1
+                      STA    EOFPARMS+1
+
+                      JSR    MLI
+                      DB     $D1
+                      DA     EOFPARMS
+
+                      JSR    ZSENDFILE
+
+                      PHA
+                      JSR    MLI                                                            ;close it!!
+                      DB     $CC
+                      DA     CLOSEPARMS
+                      PLA
+
+                      CMP    #ZSKIP
+                      BEQ    :NOTNUTS
+                      CMP    #ZRINIT
+                      BNE    :NUTS
+:NOTNUTS              LDA    #NO_ERROR
+:NUTS                 RTS
+
+:BAD                  LDA    #ERROR
+                      RTS
+
+*-------------------------------------------------
+* ZSENDFILE -- send filename and related info
+
+ZSENDFILE
+                      STZ    ZPTR
+                      LDA    #>ZBUFFER
+                      STA    ZPTR+1
+
+                      LDY    #0
+                      LDX    #1
+:NLOOP                LDA    PATHNAME,X
+                      CMP    #'/'                                                           ;don't change case if it's a slash
+                      BEQ    :STORE
+                      CMP    #'.'                                                           ;or if it's a period
+                      BEQ    :STORE
+                      CMP    #'A'                                                           ;or if it's anything below the alpha chars
+                      BLT    :STORE
+                      CLC
+                      ADC    #$20                                                           ;otherwise, change it to be lowercase
+:STORE                STA    (ZPTR),Y
+                      INX
+                      INY
+                      CPY    PATHNAME
+                      BLT    :NLOOP
+
+                      LDA    #0
+                      STA    (ZPTR),Y
+
+                      INY
+                      PHY
+
+                      LDA    EOFPARMS+2
+                      STA    NUM
+                      LDA    EOFPARMS+3
+                      STA    NUM+1
+                      LDA    EOFPARMS+4
+                      STA    NUM+2
+
+                      JSR    LONG2DEC
+
+                      PLY
+                      LDX    #0
+:DECLOOP              LDA    DECIMAL,X
+                      BEQ    :FOUNDLAST                                                     ;found last digit and terminator
+                      STA    (ZPTR),Y
+                      INY
+                      INX
+                      BRA    :DECLOOP
+
+:FOUNDLAST
+                      LDA    #0                                                             ;store terminating null
+                      STA    (ZPTR),Y
+
+                      INY
+                      STY    BYTES2SEND
+                      STZ    BYTES2SEND+1
+
+                      STZ    ERRORS
+
+                      DO     NOTBUILDDEBUG
+                      JSR    PRINTSZSTAT                                                    ;print the status line
+
+                      LDA    #28                                                            ;print the # of bytes to send
+                      STA    HTAB
+
+                      LDA    #>DECIMAL
+                      LDX    #<DECIMAL
+                      JSR    PRINTCSTRING
+                      FIN
+
+:LOOP                 LDA    #ZCBIN                                                         ;put the conversion, management
+                      STA    ZF0                                                            ;and transport options in the header
+                      LDA    #ZMCLOB
+                      STA    ZF1
+                      STZ    ZF2                                                            ;no transport options
+                      STZ    ZF3
+
+                      LDA    #ZFILE                                                         ;send a ZFILE frame followed by a ZCRCW
+                      STA    FRAMETYPE
+
+                      JSR    ZSENDBHEADER                                                   ;send it
+
+                      LDA    #<ZBUFFER                                                      ;where data is
+                      STA    ZPTR                                                           ;BYTES2SEND is already filled out
+                      LDA    #>ZBUFFER
+                      STA    ZPTR+1
+
+                      LDX    #0                                                             ;can't be interrupted, they -need- this subpacket
+                      LDA    #ZCRCW                                                         ;packet type
+                      JSR    ZSDATA
+
+                      JSR    ZGETHEADER
+
+                      CMP    #20
+                      BLT    :HEADER
+
+:RETURN               CMP    #ABORT
+                      BEQ    :GOTTIMEOUT
+                      CMP    #TIMEOUT
+                      BEQ    :GTZ
+                      JMP    ZSENDFILE
+
+:GTZ                  INC    ERRORS
+                      LDA    ERRORS
+                      CMP    #6
+                      BGE    :GOTTIMEOUT
+                      JMP    ZSENDFILE
+
+:HEADER               ASL    A
+                      TAX
+                      JMP    (:ADDR,X)
+
+:ADDR                 DA     :RETURN                                                        ;ZRQINIT    - 0
+                      DA     :LOOP                                                          ;ZRINIT     - 1
+                      DA     :RETURN                                                        ;ZSINIT     - 2
+                      DA     :RETURN                                                        ;ZACK       - 3
+                      DA     :RETURN                                                        ;ZFILE      - 4
+                      DA     :GOTZSKIP                                                      ;ZSKIP      - 5
+                      DA     ZSENDFILE                                                      ;ZNAK       - 6
+                      DA     :GOTTIMEOUT                                                    ;ZABORT    - 7
+                      DA     :GOTTIMEOUT                                                    ;ZFIN      - 8
+                      DA     :GOTZRPOS                                                      ;ZRPOS      - 9
+                      DA     :RETURN                                                        ;ZDATA      - 10
+                      DA     :RETURN                                                        ;ZEOF       - 11
+                      DA     :RETURN                                                        ;ZFERR      - 12
+                      DA     :GOTZCRC                                                       ;ZCRC       - 13
+                      DA     :RETURN                                                        ;ZCHALLENGE - 14
+                      DA     :RETURN                                                        ;ZCOMPL     - 15
+                      DA     :GOTTIMEOUT                                                    ;ZCAN      - 16
+                      DA     :RETURN                                                        ;ZFREECNT   - 17
+                      DA     :RETURN                                                        ;ZCOMMAND   - 18
+                      DA     :RETURN                                                        ;ZSTDERR    - 19
+
+*
+* got a TIMEOUT, so return it
+*
+:GOTTIMEOUT
+                      LDA    #TIMEOUT
+                      RTS
+
+*
+* GOTZCRC
+*
+:GOTZCRC              LDA    #ERROR                                                         ;*** TEMPORARY ***
+                      RTS
+
+*
+* GOTZSKIP
+*
+:GOTZSKIP
+                      LDA    #ZSKIP
+                      RTS
+
+*
+* GOTZRPOS
+*
+:GOTZRPOS
+                      JSR    GETTXPOSITION                                                  ;munge position
+
+                      LDA    TXPOSITION                                                     ;seek that position
+                      STA    MARKPARMS+2
+                      LDA    TXPOSITION+1
+                      STA    MARKPARMS+3
+                      LDA    TXPOSITION+2
+                      STA    MARKPARMS+4
+
+                      JSR    MLI
+                      DB     $CE
+                      DA     MARKPARMS
+                      BCC    :GOODSEEK
+
+                      LDA    #ERROR
+                      RTS
+
+*-------------------------------------------------
+
+:GOODSEEK                                                                                   ;fall through to ZSENDFDATA
+                      LDX    #0
+:BLOOP                LDA    BAUDVALUES,X
+                      CMP    BAUD
+                      BEQ    :GOTBAUD
+                      INX
+                      CPX    #6
+                      BLT    :BLOOP
+
+                      LDX    #2                                                             ;default to 2400 baud if we can't find it
+*
+* find the baud rate by comparing what acos uses for the baud rate
+* against a table of known values to change it into an index [0..5]
+*
+:GOTBAUD              STX    BAUDRATE
+                      TXA
+                      ASL    A
+                      TAX
+                      LDA    BLOCKSIZES,X
+                      STA    BLKLEN
+                      LDA    BLOCKSIZES+1,X
+                      STA    BLKLEN+1
+
+*-------------------------------------------------
+* ZSENDFDATA -- send file data
+
+ZSENDFDATA
+                      STZ    NOISE                                                          ;reset the noise counter
+
+*
+* check the number of consecutive bad blocks we've gotten -- if it's more
+* than 0, halve the block size until it's down to 32 bytes.  If we can't do
+* transfers with 32 byte packets, something is really goofy and we're going to
+* have to abort the transfer... we keep halving the block sizes until we get a
+* good packet to go through -- then we'll wait for 8 good ones to go through
+* before upping the block size
+*
+                      LDA    CONSECBAD
+                      BEQ    :READ8K
+
+                      LSR    BLKLEN+1                                                       ;first get what the last packet size was and
+                      ROR    BLKLEN                                                         ;halve it
+
+                      LDA    BLKLEN+1                                                       ;then see if the packet is now 31 bytes or less
+                      BNE    :NOt32
+                      LDA    BLKLEN
+                      CMP    #32
+                      BGE    :NOt32
+
+                      LDA    #32                                                            ;if, somehow the packet size gets really, really
+                      STA    BLKLEN                                                         ;small, then make it default to 32 bytes
+                      STZ    BLKLEN+1
+
+:NOt32
+*
+* since this is the beginning of a series of blocks, try to read 8k from the
+* source file
+*
+:READ8K               STZ    READPARMS+2                                                    ;where (ZBuffer)
+                      LDA    #>ZBUFFER
+                      STA    READPARMS+3
+
+                      LDA    TXBUFFERSIZE                                                   ;howmuch (8k most times)
+                      STA    READPARMS+4
+                      LDA    TXBUFFERSIZE+1
+                      STA    READPARMS+5
+
+                      JSR    MLI
+                      DB     $CA
+                      DA     READPARMS
+                      BCC    :GOODREAD
+
+                      STZ    WHERE2START
+                      STZ    WHERE2END
+                      LDA    #>ZBUFFER                                                      ;set them equal to each other = zero
+                      STA    WHERE2START+1                                                  ;length packet
+                      STA    WHERE2END+1
+                      JMP    SENDZCRCE                                                      ;aw nuts
+
+:GOODREAD
+                      LDA    READPARMS+6                                                    ;where's the end of the NNk buffer?
+                      CLC                                                                   ;(watch out, it can be 0)
+                      ADC    #<ZBUFFER
+                      STA    WHERE2END
+                      LDA    READPARMS+7
+                      ADC    #>ZBUFFER
+                      STA    WHERE2END+1
+
+                      LDA    #<ZBUFFER
+                      STA    WHERE2START
+                      LDA    #>ZBUFFER
+                      STA    WHERE2START+1
+
+                      JSR    SENDZDATA
+
+*-------------------------------------------------
+* figure out the address and such for the next packet to be sent
+* if we run to the end of the buffer, send a ZCRCW packet and wait for
+* the response and then continue
+*
+* if we run out before the end of the buffer, send a ZCRCE packet and
+* fall into the EOF seen routine
+
+NEXTPACKET
+                      JSR    MDMDCD
+                      BCS    :DCDOK
+                      LDA    #ABORT
+                      RTS
+
+:DCDOK                JSR    PRINTBYTES                                                     ;bytes which we have SENT, not "are sending"
+
+*
+* now check and see if we got 8 good blocks in a row -- if we did, double the
+* block size, but only once throughout our transfer.  Also, pin the block
+* size at 1k, never more than 1k because we'd break every known implementation
+* of Zmodem derived from any of Chuck Forsberg's C code
+*
+* we'll only attempt this if there aren't any consecutive bad blocks pending
+*
+                      LDA    CONSECBAD
+                      BNE    :CHECKBLKLEN
+                      LDA    CONSECGOOD
+                      CMP    #8
+                      BLT    :CHECKBLKLEN
+
+                      STZ    CONSECGOOD                                                     ;reset consecGOOD because it's the counter used to
+;know when we are ready to double the block size
+
+                      ASL    BLKLEN                                                         ;dubl the block sizes in case we're less than the
+                      ROL    BLKLEN+1                                                       starting
+
+                      LDA    BAUDRATE
+                      ASL    A
+                      TAX
+                      LDA    BLKLEN+1                                                       ;see if the existing block size is -already-
+                      CMP    DUBLBLOCKSIZES+1,X                                             ;as big as the dubl block size
+                      BLT    :CHECKBLKLEN
+
+                      LDA    DUBLBLOCKSIZES,X
+                      STA    BLKLEN
+                      LDA    DUBLBLOCKSIZES+1,X
+                      STA    BLKLEN+1
+
+*
+* see if the block size is larger than the buffer that the receiver has -- if
+* the receiver's buffer is smaller than our block size, make the block size
+* the same size as the receiver's buffer
+*
+:CHECKBLKLEN
+                      LDA    BLKLEN+1
+                      CMP    TXBUFFERSIZE+1
+                      BLT    :BLOCKOK
+                      LDA    BLKLEN
+                      CMP    TXBUFFERSIZE
+                      BLT    :BLOCKOK
+
+                      LDA    TXBUFFERSIZE+1
+                      STA    BLKLEN+1
+                      LDA    TXBUFFERSIZE
+                      STA    BLKLEN
+:BLOCKOK
+
+*
+* now, determine what kind of block to send -- if the block we are about
+* to send is about to overflow the buffer, send a ZCRCW packet unless the
+* end of the buffer and WHERE2END are different -- in that case, we've
+* come to the EOF and we need to send a ZCRCE packet
+*
+                      LDA    WHERE2START                                                    ;add the length of the block that we are about to
+                      CLC                                                                   ;send and see if it'll go beyond what we last read
+                      ADC    BLKLEN                                                         ;into the buffer
+                      TAX
+                      LDA    WHERE2START+1
+                      ADC    BLKLEN+1
+                      CMP    WHERE2END+1
+                      BLT    :NOTATEND                                                      ;if the packet about to be sent fall inside the
+                      BNE    :SENDEND                                                       ;if not ==, then we must be way beyond the end
+                      TXA                                                                   ;bytes that were read, then send either ZCRCG or
+                      CMP    WHERE2END                                                      ;ZCRCW
+                      BGE    :SENDEND                                                       ;but, if it's either even with the end or extends
+
+:NOTATEND             LDA    CONSECBAD                                                      ;if we had any consecutive bad, then
+                      BNE    SENDZCRCW                                                      ;the next packet is a normal size ZCRCW
+                      LDA    NOISE                                                          ;if we got 3 pieces of line noise, drop down to
+                      CMP    #4                                                             ;ZCRCW packets just in case
+                      BGE    SENDZCRCW
+                      JMP    SENDZCRCG                                                      ;send our next packet from the buffer
+
+:SENDEND              LDA    ZBUFFEREND                                                     ;is where we're supposed to end within
+                      CMP    WHERE2END                                                      ;the data buffer the same place as the
+                      BNE    :NOTENDYET
+                      LDA    ZBUFFEREND+1
+                      CMP    WHERE2END+1
+                      BEQ    SENDZCRCW                                                      ;amount which we just read? (ie, not
+:NOTENDYET            JMP    SENDZCRCE                                                      ;eof?) yep... send endpacket
+
+*-------------------------------------------------
+* SENDZCRCW -- send a ZCRCW packet.  Wait for the ZACK after it
+*              then go fill up the buffer again and keep sending
+
+SENDZCRCW
+                      LDA    BLKLEN+1                                                       ;see if the block we are about to send
+                      CLC                                                                   ;will overflow the receiver
+                      ADC    WHERE2START+1
+                      CMP    ZBUFFEREND+1
+                      BGE    :ENDOFBUFFER
+
+                      JSR    BYTESINBLKLEN                                                  ;send BLKLEN bytes
+                      BRA    :SEND
+
+:ENDOFBUFFER                                                                                ;send this many characters for the last
+                      JSR    BYTES2ENDOFBUFFER                                              ;packet of the buffer
+:SEND                 JSR    FROMWHERE2START
+
+                      LDX    #1                                                             ;can be interrupted
+                      LDA    #ZCRCW                                                         ;send the data subpacket
+                      JSR    ZSDATA
+
+                      STZ    NOISE                                                          ;unconditionally reset the line noise counter
+
+                      CMP    #ABORT
+                      BEQ    :NUTS
+
+                      JSR    GETINSYNC                                                      ;wait for the ZACK
+
+                      CMP    #ZACK
+                      BEQ    :GOTZACK
+                      CMP    #ZRPOS
+                      BEQ    :GOTZRPOS                                                      ;otherwise, it was something else bad
+:NUTS                 RTS
+
+*
+* got ZACK, so we can continue to send stuff
+*
+:GOTZACK              JSR    ADDBYTES2TXPOS
+                      JSR    ADDBUFFER2BYTECOUNT
+                      JSR    ADDBYTES2BYTES
+
+                      INC    CONSECGOOD                                                     ;just another good block
+                      STZ    CONSECBAD                                                      ;none bad since we got a good packet
+
+                      LDA    BLKLEN+1                                                       ;see if the block we are about to send
+                      CLC                                                                   ;will overflow the receiver
+                      ADC    WHERE2START+1
+                      CMP    ZBUFFEREND+1
+                      BLT    :SENTFROMBUFFER
+                      JMP    ZSENDFDATA
+
+:SENTFROMBUFFER
+                      JSR    ADDBYTES2WHERE2START
+
+                      JSR    SENDZDATA
+                      JMP    NEXTPACKET
+
+*
+* if we got a ZRPOS, something screwed up, the receiver dumped his buffer
+* to disk, so we can reset to send another bufferful
+*
+:GOTZRPOS             INC    CONSECBAD
+                      STZ    CONSECGOOD                                                     ;none good since someone just toasted a packet
+                      JMP    ZSENDFDATA                                                     ;so maybe ZRPOS, so go get back in sync
+
+*-------------------------------------------------
+* SENDZCRCG -- send a ZCRCG packet and then go get more stuff immediately
+*              if we aren't delayed.  If we are, then if we get ZRPOS, go
+*              back to ZSENDFDATA and try all over again...
+
+SENDZCRCG
+                      JSR    BYTESINBLKLEN
+                      JSR    FROMWHERE2START
+
+                      LDX    #1                                                             ;can be interrupted
+                      LDA    #ZCRCG                                                         ;send the data subpacket
+                      JSR    ZSDATA
+
+                      CMP    #ABORT
+                      BEQ    :NUTS
+                      CMP    #INTERRUPT
+                      BEQ    :SYNCLOOP
+
+                      JSR    ADDBYTES2WHERE2START
+                      JSR    ADDBYTES2TXPOS
+                      JSR    ADDBYTES2BYTES
+
+                      INC    CONSECGOOD                                                     ;good packet!  cowabunga, dude!
+                                                                                            ;and that means no consec bad packets
+                      JMP    NEXTPACKET
+
+:SYNCLOOP             JSR    GETINSYNC
+
+                      CMP    #TIMEOUT
+                      BEQ    :NUTS
+                      CMP    #ABORT
+                      BEQ    :NUTS
+                      CMP    #ERROR                                                         ;did they screw it up?
+                      BEQ    :NUTS                                                          ;yep
+                      CMP    #ZSKIP                                                         ;did they try to skip?
+                      BEQ    :NUTS                                                          ;yep
+                      CMP    #ZRINIT                                                        ;did something weird happen?
+                      BEQ    :NUTS                                                          ;yep?
+
+                      INC    CONSECBAD
+                      STZ    CONSECGOOD
+                      JMP    ZSENDFDATA                                                     ;gotta be ZRPOS or ZACK
+
+:NUTS                 RTS                                                                   ;take our result from GETINSYNC and return
+
+*-------------------------------------------------
+* hey! we're done! send the last data packet and get outta there!
+*
+* fall through and watch to see if the ZCRCE packet was ok.  If it wasn't,
+* it'll be responded to by ZRPOS, in which case we go there and read some
+* more and then maybe end up here yet again...
+
+SENDZCRCE
+                      JSR    BYTES2ENDOFBUFFER
+                      JSR    FROMWHERE2START                                                ;send the data from WHERE2START
+
+                      LDX    #1                                                             ;can be interrupted
+                      LDA    #ZCRCE                                                         ;send the data subpacket
+                      JSR    ZSDATA
+
+                      CMP    #ABORT
+                      BEQ    :DONE
+                      CMP    #INTERRUPT
+                      BEQ    :SAYWHATEOF
+
+*
+* awww shucks, we hit EOF or have the last section to send
+*
+:ATEOF                LDA    EOFPARMS+2                                                     ;our EOF
+                      STA    ZP0
+                      LDA    EOFPARMS+3
+                      STA    ZP1
+                      LDA    EOFPARMS+4
+                      STA    ZP2
+                      STZ    ZP3
+
+                      LDA    #ZEOF                                                          ;send the ZEOF notification
+                      STA    FRAMETYPE
+                      JSR    ZSENDBHEADER
+
+:SAYWHATEOF
+                      JSR    GETINSYNC                                                      ;hope they say something nice
+
+                      CMP    #20
+                      BLT    :HEADER
+
+*
+* wasn't anything else, something invalid
+*
+:RETURN               CMP    #ABORT
+                      BEQ    :DONE
+                      CMP    #TIMEOUT
+                      BEQ    :DONE
+
+                      LDA    #ERROR
+:DONE                 RTS
+
+:HEADER               ASL    A
+                      TAX
+                      JMP    (:ADDR,X)
+
+:ADDR                 DA     :RETURN                                                        ;ZRQINIT    - 0
+                      DA     :GOTZRINIT                                                     ;ZRINIT     - 1
+                      DA     :RETURN                                                        ;ZSINIT     - 2
+                      DA     :ATEOF                                                         ;ZACK       - 3
+                      DA     :RETURN                                                        ;ZFILE      - 4
+                      DA     :GOTZSKIP                                                      ;ZSKIP      - 5
+                      DA     :RETURN                                                        ;ZNAK       - 6
+                      DA     :RETURN                                                        ;ZCAN       - 7
+                      DA     :RETURN                                                        ;ZFIN       - 8
+                      DA     :GOTZRPOS                                                      ;ZRPOS      - 9
+                      DA     :RETURN                                                        ;ZDATA      - 10
+                      DA     :RETURN                                                        ;ZEOF       - 11
+                      DA     :RETURN                                                        ;ZFERR      - 12
+                      DA     :RETURN                                                        ;ZCRC       - 13
+                      DA     :RETURN                                                        ;ZCHALLENGE - 14
+                      DA     :RETURN                                                        ;ZCOMPL     - 15
+                      DA     :GOTABORT                                                      ;ZCAN       - 16
+                      DA     :RETURN                                                        ;ZFREECNT   - 17
+                      DA     :RETURN                                                        ;ZCOMMAND   - 18
+                      DA     :RETURN                                                        ;ZSTDERR    - 19
+
+*
+* someone aborted someplace
+*
+:GOTABORT
+                      LDA    #ABORT
+                      RTS
+
+*
+* got ZRPOS -- in other words, something screwed up the last packet
+*              (the ZCRCE packet)
+*              so seek to that position and try reading another chunk
+*
+:GOTZRPOS
+                      JSR    GETTXPOSITION                                                  ;munge position
+
+                      LDA    TXPOSITION                                                     ;seek that position
+                      STA    MARKPARMS+2
+                      LDA    TXPOSITION+1
+                      STA    MARKPARMS+3
+                      LDA    TXPOSITION+2
+                      STA    MARKPARMS+4
+
+                      JSR    MLI
+                      DB     $CE
+                      DA     MARKPARMS
+                      BCC    :GOODSEEK
+
+                      LDA    #ERROR
+                      RTS
+
+:GOODSEEK                                                                                   ;fall through to ZSENDFDATA
+                      JMP    ZSENDFDATA                                                     ;go read another hunk
+
+*
+* got ZRINIT
+*
+:GOTZRINIT                                                                                  ;go back and say: we got another ZRINIT
+                      JSR    ADDBUFFER2BYTECOUNT
+                      JSR    ADDBYTES2TXPOS
+                      JSR    ADDBYTES2BYTES
+                      JSR    PRINTBYTES                                                     ;bytes which we have SENT, not "are sending"
+
+                      LDA    #ZRINIT
+                      RTS
+
+*
+* got ZSKIP
+*
+:GOTZSKIP                                                                                   ; we already closed, so just return
+                      LDA    #ZSKIP
+                      RTS
+
+*-------------------------------------------------
+* ADDBYTES2WHERE2START -- add BYTES2SEND to WHERE2START
+
+ADDBYTES2WHERE2START
+                      LDA    WHERE2START
+                      CLC
+                      ADC    BYTES2SEND
+                      STA    WHERE2START                                                    ;next time start here
+                      LDA    WHERE2START+1
+                      ADC    BYTES2SEND+1
+                      STA    WHERE2START+1
+                      RTS
+
+*-------------------------------------------------
+* BYTESINBLKLEN -- send BLKLEN bytes (put it in BYTES2SEND)
+
+BYTESINBLKLEN
+                      LDA    BLKLEN
+                      STA    BYTES2SEND
+                      LDA    BLKLEN+1
+                      STA    BYTES2SEND+1
+                      RTS
+
+*-------------------------------------------------
+* BYTES2ENDOFBUFFER
+
+BYTES2ENDOFBUFFER
+                      LDA    WHERE2END                                                      ;send everything between us and the end
+                      SEC                                                                   ;of the buffer
+                      SBC    WHERE2START
+                      STA    BYTES2SEND
+                      LDA    WHERE2END+1
+                      SBC    WHERE2START+1
+                      STA    BYTES2SEND+1
+                      RTS
+
+*-------------------------------------------------
+* FROMWHERE2START -- ZPTR points to WHERE2START's address
+
+FROMWHERE2START
+                      LDA    WHERE2START                                                    ;where data is
+                      STA    ZPTR
+                      LDA    WHERE2START+1
+                      STA    ZPTR+1
+                      RTS
+
+*-------------------------------------------------
+* ADDBUFFER2BYTECOUNT -- add the number of bytes that were in the
+*                        buffer to the amount that we've already sent
+*                        this count is only updated when we get a ZACK
+*                        from the other side for a ZCRCW packet and when
+*                        we sent the ZCRCE packet and got a ZRINIT back
+
+ADDBUFFER2BYTECOUNT
+                      LDA    WHERE2END
+                      SEC
+                      SBC    #<ZBUFFER
+                      STA    BYTESINBUFFER
+                      LDA    WHERE2END+1
+                      SBC    #>ZBUFFER
+                      STA    BYTESINBUFFER+1
+
+                      LDA    BYTESINBUFFER
+                      CLC                                                                   ;transmitted to the other side
+                      ADC    BYTECOUNT
+                      STA    BYTECOUNT
+                      LDA    BYTESINBUFFER+1
+                      ADC    BYTECOUNT+1
+                      STA    BYTECOUNT+1
+                      LDA    #0
+                      ADC    BYTECOUNT+2
+                      STA    BYTECOUNT+2
+                      RTS
+
+BYTESINBUFFER         DW     0
+
+*-------------------------------------------------
+* ADDBYTES2TXPOS -- add BYTES2SEND to TxPosition
+
+ADDBYTES2TXPOS
+                      LDA    BYTES2SEND
+                      CLC
+                      ADC    TXPOSITION
+                      STA    TXPOSITION
+                      LDA    BYTES2SEND+1
+                      ADC    TXPOSITION+1
+                      STA    TXPOSITION+1
+                      LDA    #0
+                      ADC    TXPOSITION+2
+                      STA    TXPOSITION+2
+                      RTS
+
+*-------------------------------------------------
+* ADDBYTES2BYTES -- add BYTES2SEND to Bytes (sent)
+
+ADDBYTES2BYTES
+                      LDA    BYTES2SEND
+                      CLC
+                      ADC    BYTES
+                      STA    BYTES
+                      LDA    BYTES2SEND+1
+                      ADC    BYTES+1
+                      STA    BYTES+1
+                      LDA    #0
+                      ADC    BYTES+2
+                      STA    BYTES+2
+                      RTS
+
+*-------------------------------------------------
+* send a complete ZDATA frame
+
+SENDZDATA
+                      LDA    TXPOSITION
+                      STA    ZP0
+                      LDA    TXPOSITION+1
+                      STA    ZP1
+                      LDA    TXPOSITION+2
+                      STA    ZP2
+                      LDA    TXPOSITION+3
+                      STA    ZP3
+
+                      LDA    #ZDATA                                                         ;send the ZDATA frame
+                      STA    FRAMETYPE
+                      JMP    ZSENDBHEADER
+
+*-------------------------------------------------
+* GETINSYNC -- sync up with the receiver (hey, we're sending, we can do that)
+
+GETINSYNC
+                      STZ    ERRORS
+SYNCLOOP              JSR    ZGETHEADER
+
+gotInSync             CMP    #20                                                            ;if it's not a valid packet, then
+                      BLT    :HEADER                                                        ;something really screwed it up, ZNAK
+
+:DEFAULT              CMP    #ABORT                                                         ;it and have them resend it (just wait
+                      BEQ    :GOTABORT
+*        CMP   #TIMEOUT
+*        BEQ   :GOTTIMEOUT
+
+                      LDA    #ZNAK                                                          ;until they do)
+                      STA    FRAMETYPE
+                      JSR    ZSENDBHEADER
+
+                      INC    ERRORS
+                      LDA    ERRORS
+                      CMP    #6
+                      BLT    SYNCLOOP
+
+:GOTERROR             LDA    #ERROR
+                      RTS
+
+:HEADER               ASL    A
+                      TAX
+                      JMP    (:ADDR,X)
+
+:ADDR                 DA     :DEFAULT                                                       ;ZRQINIT    - 0
+                      DA     :GOTZRINIT                                                     ;ZRINIT     - 1
+                      DA     :DEFAULT                                                       ;ZSINIT     - 2
+                      DA     :GOTZACK                                                       ;ZACK       - 3
+                      DA     :DEFAULT                                                       ;ZFILE      - 4
+                      DA     :GOTZSKIP                                                      ;ZSKIP      - 5
+                      DA     :DEFAULT                                                       ;ZNAK       - 6
+                      DA     :GOTABORT                                                      ;ZABORT     - 7
+                      DA     :GOTERROR                                                      ;ZFIN       - 8
+                      DA     :GOTZRPOS                                                      ;ZRPOS      - 9
+                      DA     :DEFAULT                                                       ;ZDATA      - 10
+                      DA     :DEFAULT                                                       ;ZEOF       - 11
+                      DA     :DEFAULT                                                       ;ZFERR      - 12
+                      DA     :DEFAULT                                                       ;ZCRC       - 13
+                      DA     :DEFAULT                                                       ;ZCHALLENGE - 14
+                      DA     :DEFAULT                                                       ;ZCOMPL     - 15
+                      DA     :GOTABORT                                                      ;ZCAN       - 16
+                      DA     :DEFAULT                                                       ;ZFREECNT   - 17
+                      DA     :DEFAULT                                                       ;ZCOMMAND   - 18
+                      DA     :DEFAULT                                                       ;ZSTDERR    - 19
+
+*
+* aborted by user
+*
+:GOTABORT
+                      LDA    #ABORT
+                      RTS
+
+*
+* got a ZRINIT packet
+*
+:GOTZRINIT
+                      LDA    #ZRINIT
+                      RTS
+
+*
+* got a ZSKIP packet
+*
+:GOTZSKIP
+                      LDA    #ZSKIP
+                      RTS
+
+*
+* got a ZACK packet
+*
+:GOTZACK              LDA    #ZACK
+                      RTS
+
+*
+* got a ZRPOS packet
+*
+:GOTZRPOS
+                      JSR    GETTXPOSITION                                                  ;munge position
+
+                      LDA    TXPOSITION                                                     ;seek that position
+                      STA    MARKPARMS+2
+                      LDA    TXPOSITION+1
+                      STA    MARKPARMS+3
+                      LDA    TXPOSITION+2
+                      STA    MARKPARMS+4
+
+                      JSR    MLI
+                      DB     $CE
+                      DA     MARKPARMS
+                      BCS    :POSERROR
+
+                      LDA    #ZRPOS
+                      RTS
+
+:POSERROR
+                      LDA    #ERROR
+                      JMP    :DEFAULT
+
+*-------------------------------------------------
+* GETTXPOSITION-- munge a longword from ZP0..ZP3 into TxPosition
+
+GETTXPOSITION
+                      LDA    ZP0
+                      STA    TXPOSITION
+                      LDA    ZP1
+                      STA    TXPOSITION+1
+                      LDA    ZP2
+                      STA    TXPOSITION+2
+                      LDA    ZP3
+                      STA    TXPOSITION+3
+                      RTS
+
+*-------------------------------------------------
+* ZSDATA -- send a data subpacket and return a result code
+*
+* inputs    (A) = frameend (ZCRCW, ZCRCQ, ZCRCE, ZCRCG)
+*           (X) = boolean, packet can be interrupted by an incoming frame
+*           BYTES2SEND = number of bytes to send in this subpacket
+*           zptr = where to start relative from the beginning of our buffer
+*
+* outputs = none
+
+ZSDATA                STA    FRAMEEND                                                       ;this is done for all ZSDATA routines!
+                      STA    ZSINTERRUPT
+
+                      LDA    USEFC32
+                      BEQ    :NOFC32
+                      JMP    ZSDATA32
+
+:NOFC32               STZ    CRC                                                            ;init our crc
+                      STZ    CRC+1
+
+                      STZ    ZCOUNT
+                      STZ    ZCOUNT+1
+
+                      LDA    BYTES2SEND
+                      BNE    :LOOP
+                      LDA    BYTES2SEND+1                                                   ;is it a zero-length packet?
+                      BNE    :LOOP
+                      JMP    SENDSUBPACKETEND                                               ;if it is, then just send the end
+
+*
+* every time we send a character, we have to poll the hardware to see if
+* a char has arrived because this driver isn't written for a system that
+* has an interrupt buffer -- well, maybe not.
+*
+:LOOP                 LDA    ZSINTERRUPT
+                      BEQ    :IGNORE
+
+                      JSR    MDMIN                                                          ;check for the first of any ZPAD ('*') characters
+                      BCC    :IGNORE
+                      CMP    #ZPAD
+                      BEQ    :INTERRUPT
+                      CMP    #can
+                      BNE    :NOISE                                                         ;or, also check for any CAN (ZDLE) characters
+
+                      DO     BUILDFLUSH
+                      JSR    SENDSUBPACKETEND
+                      FIN
+
+:INTERRUPT            LDA    #INTERRUPT
+                      RTS
+
+*
+* nobody interrupted us, or if they did, they fed us line noise, so continue
+* anyway
+*
+:NOISE                INC    NOISE
+
+:IGNORE               LDA    (ZPTR)                                                         ;get the byte from the buffer
+                      JSR    CRCBYTE                                                        ;put it into the crc
+                      JSR    ZPUTCHAR                                                       ;send it with ZDLE encoding
+
+                      INC    ZPTR
+                      BNE    :NC1
+                      INC    ZPTR+1
+:NC1                  INC    ZCOUNT
+                      BNE    :NC2
+                      INC    ZCOUNT+1
+
+:NC2                  LDA    BYTES2SEND
+                      CMP    ZCOUNT
+                      BNE    :GOLOOP
+                      LDA    BYTES2SEND+1
+                      CMP    ZCOUNT+1
+                      BEQ    SENDSUBPACKETEND
+:GOLOOP               JMP    :LOOP
+
+*
+* send the ZDLE, the frameEnd, the crc for the frame including the
+* frameEnd, and possibly an XON character to unjam networks that a
+* spurious XOFF may have nuked
+*
+SENDSUBPACKETEND
+                      LDA    #ZDLE                                                          ;ZDLE encode the frameEnd
+                      JSR    MDMOUT
+                      LDA    FRAMEEND
+                      JSR    MDMOUT
+
+                      LDA    FRAMEEND                                                       ;crc includes frameEnd
+                      JSR    CRCBYTE
+
+                      LDA    CRC+1
+                      JSR    ZPUTCHAR
+                      LDA    CRC
+                      JSR    ZPUTCHAR
+
+                      LDA    FRAMEEND
+                      CMP    #ZCRCW
+                      BNE    :DONE
+
+                      LDA    #xon
+                      JSR    MDMOUT
+:DONE
+                      DO     BUILDDEBUG
+                      LDY    BYTES2SEND
+                      LDX    BYTES2SEND+1
+                      LDA    #0
+                      JSR    PRINTSUB                                                       ;print the subpacket
+                      FIN
+
+                      LDA    #NO_ERROR
+                      RTS
+
+*-------------------------------------------------
+* ZSDATA32 -- send a data subpacket and return a result code
+*
+* inputs  = (A) = frameend (ZCRCW, ZCRCQ, ZCRCE, ZCRCG)
+*           BYTES2SEND = number of bytes to send in this subpacket
+*           zptr = where to start relative from the beginning of our buffer
+*
+* note: for CRC-32, frameend is set by ZSDATA before it arrives here
+*
+* outputs = none
+
+ZSDATA32              LDA    #$FF                                                           ;init the crc32
+                      STA    CRC32
+                      STA    CRC32+1
+                      STA    CRC32+2
+                      STA    CRC32+3
+
+                      STZ    ZCOUNT
+                      STZ    ZCOUNT+1
+
+                      LDA    BYTES2SEND
+                      BNE    :LOOP
+                      LDA    BYTES2SEND+1                                                   ;is it a zero-length packet?
+                      BNE    :LOOP
+                      JMP    SENDSUBEND32                                                   ;if it is, then just send the end
+
+*
+* every time we send a character, we have to poll the hardware to see if
+* a char has arrived because this driver isn't written for a system that
+* has an interrupt buffer
+*
+:LOOP                 LDA    ZSINTERRUPT
+                      BEQ    :IGNORE
+
+                      JSR    MDMIN                                                          ;check for 'andy' being the attention string
+                      BCC    :IGNORE
+                      CMP    #ZPAD                                                          ;-only- interrupt if it's *ZDLE or **ZDLE or
+                      BEQ    :INTERRUPT                                                     ;the first of several ZCANs, or 'andy' from the
+                      CMP    #can
+                      BNE    :NOISE
+
+                      DO     BUILDFLUSH
+                      JSR    SENDSUBEND32                                                   ;used to send this to complete a frame
+                      FIN
+
+:INTERRUPT            LDA    #INTERRUPT
+                      RTS
+
+*
+* nobody interrupted us, or if they did, they fed us line noise, so continue
+* anyway
+*
+:NOISE                INC    NOISE
+
+:IGNORE               LDA    (ZPTR)                                                         ;get the byte from the buffer
+                      JSR    UPDATECRC32                                                    ;put it into the crc
+                      JSR    ZPUTCHAR                                                       ;send it with ZDLE encoding
+
+                      INC    ZPTR
+                      BNE    :NC1
+                      INC    ZPTR+1
+:NC1                  INC    ZCOUNT
+                      BNE    :NC2
+                      INC    ZCOUNT+1
+
+:NC2                  LDA    BYTES2SEND
+                      CMP    ZCOUNT
+                      BNE    :GOLOOP
+                      LDA    BYTES2SEND+1
+                      CMP    ZCOUNT+1
+                      BEQ    SENDSUBEND32
+:GOLOOP               JMP    :LOOP
+
+*
+* send the ZDLE, the frameEnd, the crc for the frame including the
+* frameEnd, and possibly an XON character to unjam networks that a
+* spurious XOFF may have nuked
+*
+SENDSUBEND32
+                      LDA    #ZDLE                                                          ;ZDLE encode the frameEnd
+                      JSR    MDMOUT
+                      LDA    FRAMEEND
+                      JSR    MDMOUT
+
+                      LDA    FRAMEEND                                                       ;crc includes frameEnd
+                      JSR    UPDATECRC32
+
+                      JSR    INVERTCRC32
+
+                      LDA    CRC32
+                      JSR    ZPUTCHAR
+                      LDA    CRC32+1
+                      JSR    ZPUTCHAR
+                      LDA    CRC32+2
+                      JSR    ZPUTCHAR
+                      LDA    CRC32+3
+                      JSR    ZPUTCHAR
+
+                      LDA    FRAMEEND
+                      CMP    #ZCRCW
+                      BNE    :DONE
+
+                      LDA    #xon
+                      JSR    MDMOUT
+
+:DONE
+                      DO     BUILDDEBUG
+                      LDY    BYTES2SEND
+                      LDX    BYTES2SEND+1
+                      LDA    #2
+                      JSR    PRINTSUB                                                       ;print the subpacket
+                      FIN
+
+                      LDA    #NO_ERROR
+                      RTS
+
+*-------------------------------------------------
+* PRINTSZSTAT -- print the sender's status line
+
+                      DO     NOTBUILDDEBUG
+PRINTSZSTAT
+                      JSR    CLEARLASTLINE
+
+                      LDX    #<SZSTATLINE
+                      LDA    #>SZSTATLINE
+                      JSR    PRINTCSTRING
+
+                      LDX    #<PATHNAME
+                      LDA    #>PATHNAME
+                      JMP    PRINTPSTRING
+
+*-------------------------------------------------
+* CLEARLASTLINE -- get rid of anything on the last line
+
+CLEARLASTLINE
+                      LDY    #0
+                      STY    HTAB
+:LOOP                 LDA    #" "
+                      JSR    LOCPRINT
+                      INY
+                      CPY    #79
+                      BLT    :LOOP
+                      STZ    HTAB
+                      RTS
+
+SZSTATLINE            ASC    'Sending byte   #         of         file '00
+                      FIN
+
+*-------------------------------------------------
+* append the common ZMODEM routines onto the end of SZ
+
+WAITFOR               DW     120*11                                                         ;11 seconds, 2 seconds longer than RZ
+
+ZSINTERRUPT           DB     0                                                              ;can this subpacket be interrupted?
+
+GFIPARMS              DB     10
+                      DA     PATHNAME
+                      DB     0
+                      DB     0                                                              ;filetype
+                      DW     0                                                              ;auxtype
+                      DB     0                                                              ;storage_type
+                      DW     0
+                      DW     0
+                      DW     0
+                      DW     0
+                      DW     0
+
+EOFPARMS              DB     2
+                      DB     0
+                      DS     3
+
+READPARMS
+                      DB     4
+                      DB     0
+                      DA     ZBUFFER
+                      DW     $1000
+                      DW     0
+
+                      PUT    LONG2DEC                                                       ;always
+                      PUT    ZMODEM                                                         ;always
+                      PUT    ZMODEM2                                                        ;always
+
+                      LST    OFF
+                      DO     SAVEOBJ
+                      SAV    SZ
+                      FIN
+                      DO     LISTSYM
+                      LST
+                      FIN
+
diff --git a/SOURCE/ZMODEM/ZEQUATES.S b/SOURCE/ZMODEM/ZEQUATES.S
new file mode 100644
index 0000000..b651892
--- /dev/null
+++ b/SOURCE/ZMODEM/ZEQUATES.S
@@ -0,0 +1,139 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+            LST   RTN
+
+*-------------------------------------------------
+* ZMODEM global equates
+
+NO_ERROR    =     0
+ERROR       =     -1          ;we got an error someplace
+ABORT       =     -2          ;toast the zmodem connection
+TIMEOUT     =     -3          ;we died someplace (10 seconds)
+OVERFLOW    =     -4          ;someone (greg?) overflowed the input buffer
+INTERRUPT   =     -5          ;someone interrupted us by a ZPAD, ZDLE sequence
+
+ZPAD        =     '*'         ;052 padding character begins frames
+ZDLE        =     24          ;Ctrl-X Zmodem escape - 'ala BISYNC DLE
+ZDLEE       =     ZDLE+$40    ;Escaped ZDLE as transmitted
+ZBIN        =     'A'         ;Binary frame indicator (CRC-16)
+ZHEX        =     'B'         ;HEX frame indicator
+ZBIN32      =     'C'         ;Binary frame with 32-bit FCS
+ZBINR32     =     'D'         ;RLE packed frame with 32-bit FCS
+ZVBIN       =     'a'         ;Binary frame indicator
+ZVHEX       =     'b'         ;HEX frame indicator
+ZVBIN32     =     'c'         ;Binary frame with 32-bit FCS
+ZVBINR32    =     'd'         ;RLE packed Binary frame with 32-bit FCS
+ZRESC       =     $7E         ;RLE flag/escape character
+ZMAXHLEN    =     16          ;Max header information length NO-CHANGE
+ZMAXSPLEN   =     1024        ;Max subpacket length NEVER CHANGE
+
+*
+* frame types
+*
+ZRQINIT     =     0           ;request receive init
+ZRINIT      =     1           ;receive init
+ZSINIT      =     2           ;send init sequence (optional)
+ZACK        =     3           ;ACK to above
+ZFILE       =     4           ;filename from sender
+ZSKIP       =     5           ;to sender: skip this file
+ZNAK        =     6           ;last packet was garbled
+ZABORT      =     7           ;abort batch transfers
+ZFIN        =     8           ;finish session
+ZRPOS       =     9           ;resume data trans at this point
+ZDATA       =     10          ;data packet(s) follow
+ZEOF        =     11          ;end of file
+ZFERR       =     12          ;fatal read or write error detected
+ZCRC        =     13          ;request for file CRC and response
+ZCHALLENGE  =     14          ;receiver's challenge
+ZCOMPL      =     15          ;request is complete
+ZCAN        =     16          ;other end canned session with CAN*5
+ZFREECNT    =     17          ;request for free bytes on filesystem
+ZCOMMAND    =     18          ;command from sending program
+ZSTDERR     =     19          ;output to standard error, data follows
+
+*
+* ZDLE sequences
+*
+ZCRCE       =     'h'         ;CRC next, frame ends, header packet follows
+ZCRCG       =     'i'         ;CRC next, frame continues nonstop
+ZCRCQ       =     'j'         ;CRC next, frame continues, ZACK expected
+ZCRCW       =     'k'         ;CRC next, ZACK expected, end of frame
+ZRUB0       =     'l'         ;translate to rubout 0177
+ZRUB1       =     'm'         ;translate to rubout 0377
+
+*
+* zdlread return values
+*
+
+*
+* bit masks for ZRINIT flags byte ZF0
+*
+CANFDX      =     $0001       ;Rx can send and receive true FDX
+CANOVIO     =     $0002       ;Rx can receive data during disk i/o
+CANBRK      =     $0004       ;Rx can send a true break signal
+CANRLE      =     $0008       ;Receiver can decode RLE
+CANLZW      =     $0010       ;Receiver can uncompress
+CANFC32     =     $0020       ;Receiver can use 32-bit frame check
+ESCCTL      =     $0040       ;Rx expects ctl chars to be escaped
+ESC8        =     $0080       ;Rx expects 8th bit to be escaped
+
+*
+* bit masks for ZRINIT flags byte ZF0
+*
+CANVHDR     =     $0001       ;variable headers OK
+
+*
+* parameters for ZSINIT frame
+*
+ZATTNLEN    =     32          ;Max length of attention string
+
+* bit masks for ZSINIT flags byte ZF0
+
+TESCCTL     =     $40         ;Tx expects ctl chars to be escaped
+TESC8       =     $80         ;Tx expects 8th bit to be escaped
+
+*
+* parameters for ZFILE frame
+*
+ZCBIN       =     1           ;binary transfer - inhibit conversion
+ZCNL        =     2           ;convert NL to local end of line
+ZCRESUM     =     3           ;resume interrupted file transfer
+ZMSKNOLOC   =     $80         ;skip file if not present at rx
+
+* management options, one of those ored in ZF1
+
+ZMMASK      =     $1F         ;mask for the choices below
+ZMNEWL      =     1           ;transfer if source newer or longer
+ZMCRC       =     2           ;transfer if different CRC or length
+ZMAPND      =     3           ;append contents to existing file (if)
+ZMCLOB      =     4           ;replace existing file
+ZMNEW       =     5           ;replace if source newer
+ZMDIFF      =     6           ;transfer if dates or lengths different
+ZMPROT      =     7           ;protect destination file
+
+* transport options, one of these in ZF2
+
+ZTLZW       =     1           ;lempel-ziv compression
+ZTRLE       =     2           ;run-length encoding
+
+* extended options for ZF3, bit encoded
+
+ZXSPARS     =     64          ;encoding for sparse file operations
+ZCANVHDR    =     1           ;variable headers OK
+
+*
+* parameters for ZCOMMAND frame ZF0 (otherwise 0)
+*
+ZCACK1      =     1           ;acknowledge, then do command
+
+*
+* globals used by ZMODEM functions
+*
+RXPOS       =     0           ;received file position
+TXPOS       =     4           ;transmitted file position
+            LST   OFF
+
diff --git a/SOURCE/ZMODEM/ZMODEM.RLE.S b/SOURCE/ZMODEM/ZMODEM.RLE.S
new file mode 100644
index 0000000..b85d7ba
--- /dev/null
+++ b/SOURCE/ZMODEM/ZMODEM.RLE.S
@@ -0,0 +1,395 @@
+*
+* This source code is hereby dedicated to the public domain.
+*                                 -- Andy Nicholas, 8/12/91
+*
+* Try to keep in mind that this source pre-dates the other 65c02 source
+* by at least a whole year, and as a result doesn't do some things
+* correctly like check for buffer overruns (which is extremely important
+* if you get munged data and after trying to expand it find out that it's
+* larger than 1k). -- andy
+*
+*
+*
+* zrdata32r -- get a data subpacket and return a result code
+*              but in this case, use a 32-bit CRC and RLE
+*
+* outputs = (A) = result code
+*...................................................................
+
+ZRDATA32R     LDA   #$FFFF        ;init CRC32 to $FFFFFFFF
+              STA   CRC32
+              STA   CRC32+2
+
+              STZ   RXBYTES
+              STZ   RXBYTES+2
+
+              STZ   RUN
+              STZ   PHYSICAL      ;how many PHYSICAL chars we get?
+
+              LDY   #0
+:LOOP         JSR   ZGETCHAR
+              AND   #$FF
+              INC   PHYSICAL
+
+              LDX   ESCAPED
+              BEQ   :NOTESCAPED
+
+              CMP   #ZCRCW
+              BEQ   :GOOUT
+              CMP   #ZCRCQ
+              BEQ   :GOOUT
+              CMP   #ZCRCG
+              BEQ   :GOOUT
+              CMP   #ZCRCE
+              BNE   :NOTESCAPED
+:GOOUT        BRL   :OUT
+
+:NOTESCAPED
+              JSR   UPDATECRC32
+
+              LDX   RUN           ;is it running?
+              BEQ   :NORUN
+
+              CPX   #1            ;first or second charcater of the RLE?
+              BEQ   COUNT
+
+              LDX   D             ;stuff d of c characters into the buffer
+:CLOOP        STA   [ZPTR],Y
+              INY
+              DEX
+              BNE   :CLOOP
+
+              STZ   RUN
+              BRA   :LOOP
+
+*
+* we got the ZRESC, so now get d
+*
+:COUNT        CMP   #$20
+              BGE   :COUNTVALID
+
+              BRK                 ;something really screwed up
+
+:COUNTVALID
+              CMP   #$40
+              BEQ   :PUTZRESC
+              BLT   :SPACES
+
+*
+* must be valid count of d of c characters, so set it up properly
+*
+              SEC
+              SBC   #$40
+              STA   D
+
+              INC   RUN           ;run now = 2
+              BRL   :LOOP
+
+*
+* got a ZRESC in the incoming data stream, just stuffit
+*
+:PUTZRESC     LDA   #ZRESC
+              STA   [ZPTR],Y
+              INY
+
+              STZ   RUN           ;reset run
+              BRL   :LOOP
+
+*
+* d indicated that we are to produce (d-29) spaces
+*
+:SPACES       SEC
+              SBC   #29
+              TAX
+
+              LDA   #' '          ;stuff that many spaces in the buffer
+:SPACELOOP    STA   [ZPTR],Y
+              INY
+              DEX
+              BNE   :SPACELOOP
+
+              STZ   RUN           ;reset run
+              BRL   :LOOP
+
+*
+* no run activated, so check to see if we need to activate one
+*
+:NORUN        CMP   #ZRESC
+              BNE   :NOZRESC
+
+              LDA   #1
+              STA   RUN
+              BRL   :LOOP
+
+:NOZRESC      STA   [ZPTR],Y
+              INY
+              BRL   :LOOP
+
+*
+* hey! we're done! chewy, get us outta here...
+*
+:OUT          STA   FRAMEEND
+
+              JSR   UPDATECRC32   ;add the frameend into the CRC
+
+              JSR   ZGETCHAR
+              AND   #$00FF
+              STA   FRAMECRC32
+              JSR   ZGETCHAR
+              XBA
+              AND   #$FF00
+              ORA   FRAMECRC32
+              STA   FRAMECRC32
+              JSR   ZGETCHAR
+              AND   #$00FF
+              STA   FRAMECRC32+2
+              JSR   ZGETCHAR
+              XBA
+              AND   #$FF00
+              ORA   FRAMECRC32+2
+              STA   FRAMECRC32+2
+
+              JSR   INVERTCRC32
+
+              LDA   CRC32
+              CMP   FRAMECRC32
+              BNE   :BADPACKET
+              LDA   CRC32+2
+              CMP   FRAMECRC32+2
+              BEQ   :GOODPACKET
+
+:BADPACKET
+              LDA   #3
+              JSR   PRINTSUB32    ;print the subpacket
+
+              LDA   #ERROR        ;tell zfile to try again
+              RTS
+
+:GOODPACKET                       ;hey! it's good!
+              STY   RXBYTES       ;yes, we could get a 0-length packet!
+
+              LDY   PHYSICAL      ;how many characters did we REALLY get?
+              LDA   #3
+              JSR   PRINTSUB32    ;print the subpacket
+
+              LDA   FRAMEEND      ;tell them the kind of frame we got
+              RTS
+
+* zsdata32r -- send a data subpacket and return a result code
+*              use 32-bit CRC and RLE
+*
+* inputs = (A) = frameend (ZCRCW, ZCRCQ, ZCRCE, ZCRCG)
+*           (X) = number of bytes to send in this subpacket
+*           (Y) = where to start relative from the beginning of our buffer
+*
+* outputs = none
+*...................................................................
+
+ZSDATA32R
+              STA   FRAMEEND
+              STX   BYTES2SEND
+
+              TYA
+              STA   ZPTR
+              LDA   ZBUFFER+2     ;don't anything since it won't
+              STA   ZPTR+2        ;cross a bank boundary
+
+              LDA   #$FFFF
+              STA   CRC32
+              STA   CRC32+2
+
+              STZ   PHYSICAL
+
+              CPX   #0            ;is it a zero length packet?
+              BNE   :NOT0
+              BRL   :NUTS         ;if it is, then just send the frameend
+
+:NOT0         LDY   #0
+:LOOP         LDA   [ZPTR],Y      ;get the byte from the buffer
+              AND   #$FF
+
+*
+* is it the ZRESC character? if so, then send it and $40 as the ZRESC trigger
+*
+              CMP   #ZRESC
+              BNE   :NOTZRESC
+
+              INC   PHYSICAL
+              INC   PHYSICAL
+
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+
+              LDA   #$40
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+              INY
+              CPY   BYTES2SEND
+              BLT   :LOOP
+              BRL   :NUTS
+
+*
+* not the ZRESC character, maybe it's whitespace?
+*
+:NOTZRESC
+              CMP   #$20
+              BNE   :NOTSPACES
+
+              STY   STARTRUN
+              STA   RUN
+:SPACELOOP    INY                 ;get the next character forward
+              LDA   [ZPTR],Y      ;(or not)
+              AND   #$FF
+              CMP   RUN
+              BNE   :SPACEIT      ;if they don't match, do the run
+              TYA
+              SEC
+              SBC   STARTRUN
+              CMP   #28           ;did we RLE 28 (034) characters yet?
+              BGE   :BIGRUN       ;yes, it's a large run of characters
+              CPY   BYTES2SEND
+              BLT   :SPACELOOP
+
+*
+* the run of spaces terminated (or didn't begin at all), so see what we got
+*
+:SPACEIT      STY   ENDRUN
+              DEY                 ;1 less because we went beyond the run
+              TYA
+              SEC
+              SBC   STARTRUN
+              CMP   #3            ;got less than 3 characters ahead, so
+              BGE   :GOTSPACERUN
+              BRL   :GOTNONE      ;not enough characters to run
+
+:GOTSPACERUN
+              PHA
+              LDA   #ZRESC
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+              PLA
+
+              CLC
+              ADC   #$1E
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+
+              INC   PHYSICAL
+              INC   PHYSICAL
+
+              LDY   ENDRUN
+              CPY   BYTES2SEND
+              BGE   :NUTS2
+              BRL   :LOOP
+:NUTS2        BRL   :NUTS
+
+*
+* we got a lot of spaces (>34) so just do the normal RLE on that bunch
+*
+:BIGRUN       LDY   STARTRUN      ;start it from here all over again
+              LDA   RUN
+
+*
+* the current character wasn't whitespace, so see if we can RLE it anyhow
+*
+:NOTSPACES
+              STY   STARTRUN
+              STA   RUN           ;run is our character that's running
+:RUNLOOP      INY                 ;get the next character forward
+              LDA   [ZPTR],Y      ;(or not)
+              AND   #$FF
+              CMP   RUN
+              BNE   :RUNIT        ;if they don't match, do the run
+              TYA
+              SEC
+              SBC   STARTRUN
+              CMP   #125          ;did we RLE 126 characters yet?
+              BGE   :RUNIT
+              CPY   BYTES2SEND
+              BLT   :RUNLOOP
+
+*
+* the run terminated (or didn't begin at all), so see what we got
+*
+:RUNIT        STY   ENDRUN
+              DEY                 ;1 less because we went beyond the run
+              TYA
+              SEC
+              SBC   STARTRUN
+              CMP   #4            ;got less than 4 characters ahead, so
+              BLT   :GOTNONE      ;not enough characters to run
+
+              PHA
+              LDA   #ZRESC
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+              PLA
+
+              CLC
+              ADC   #$41
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+
+              LDA   RUN
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR
+
+              INC   PHYSICAL
+              INC   PHYSICAL
+              INC   PHYSICAL
+
+              LDY   ENDRUN
+              CPY   BYTES2SEND
+              BGE   :NUTS
+              BRL   :LOOP
+
+*
+* the run didn't work, so just output this character
+*
+:GOTNONE      LDY   STARTRUN
+              LDA   RUN           ;send whichever character we started
+              JSR   UPDATECRC32   ;put it into the CRC
+              JSR   ZPUTCHAR      ;send it with ZDLE encoding
+
+              INC   PHYSICAL
+
+              INY
+              CPY   BYTES2SEND
+              BGE   :NUTS
+              BRL   :LOOP
+
+*
+* hey! we're done!
+*
+:NUTS         LDA   #ZDLE         ;ZDLE encode the FRAMEEND
+              JSL   OUT_PORT
+              LDA   FRAMEEND
+              JSL   OUT_PORT
+
+              LDA   FRAMEEND      ;CRC includes FRAMEEND
+              JSR   UPDATECRC32
+
+              JSR   INVERTCRC32
+
+              LDA   CRC32
+              JSR   ZPUTCHAR
+              LDA   CRC32+1
+              JSR   ZPUTCHAR
+              LDA   CRC32+2
+              JSR   ZPUTCHAR
+              LDA   CRC32+3
+              JSR   ZPUTCHAR
+
+              LDA   FRAMEEND
+              CMP   #ZCRCW
+              BNE   :DONE
+
+              LDA   #xon
+              JSL   OUT_PORT
+
+:DONE         LDY   PHYSICAL
+              LDA   #2
+              JSR   PRINTSUB32    ;print the subpacket
+
+              RTS
+
diff --git a/SOURCE/ZMODEM/ZMODEM.S b/SOURCE/ZMODEM/ZMODEM.S
new file mode 100644
index 0000000..0c426fe
--- /dev/null
+++ b/SOURCE/ZMODEM/ZMODEM.S
@@ -0,0 +1,1138 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+                 LST   RTN
+
+*-------------------------------------------------
+* ZGETHEADER -- get header function (will recognize binary or hex headers)
+
+ZGETHEADER
+                 LDA   #0
+:GOTZPAD         STA   LASTC
+                 STZ   CANCOUNT
+
+:ZGETLOOP
+                 JSR   GETC             ;get a character -- at this point, it could be
+                 BCS   :NOABORT         ;something spurious, a bunch of CAN's (ZDLE's), or
+                 RTS                    ;ZPADs preceding a frame, or the ZDLE for the start
+                                        ;of a frame
+
+*
+* Or, here's a bit of trivia -- the GS's serial port can't keep up with 19.2Kb,
+* or even 9600 baud... so, it's possible to "miss" the ZDLE signifying the end
+* of a subpacket which leaves us reading the middle of a stream of the next
+* subpacket.  2 subpackets thus become concatenated.  This is not good.
+*
+* A partial solution is to have the ZGETHEADER routines understand that it
+* might be called when they'll be reading the middle of a data stream which
+* contains a whole lot of bytes which don't particularly mean much.
+*
+* Also, we need to ensure that the character which preceded the ZDLE is a
+* ZPAD character because if we start to read the middle of a packet, we
+* might be reading ZDLE sequences where a character is being escaped, but
+* in no way means that a new packet is beginning...
+*
+
+:NOABORT         CMP   #ZPAD            ;eat all ZPADs coming through
+                 BEQ   :GOTZPAD         ;ok to reset count of ZDLE's if we got ZPAD
+                 CMP   #ZDLE            ;the number of ZDLE's (CANs) in a row
+                 BNE   :NEXTC
+
+                 INC   CANCOUNT
+                 LDA   CANCOUNT
+                 CMP   #5
+                 BLT   :ZGETLOOP
+
+                 LDA   #ABORT
+                 RTS
+
+:NEXTC           LDX   CANCOUNT         ;if we have a spurious character and we haven't yet
+                 BEQ   ZGETHEADER       ;seen a ZDLE, then it can't be a frame
+
+                 LDX   LASTC            ;was the character before the ZDLE a ZPAD?
+                 CPX   #ZPAD            ;it -must- be a ZPAD, so if it wasn't, something
+                 BNE   ZGETHEADER       ;bogus is going on, try getting a packet again
+
+                 STA   FRAMEKIND        ;what kind of packet was it?
+
+                 CMP   #ZBIN            ;is it a ZBIN packet?
+                 BNE   :NOTZBIN
+                 JMP   :GOTZZBIN
+
+:NOTZBIN         CMP   #ZBIN32          ;is it a ZBIN32 packet?
+                 BNE   :NOTZBIN32
+                 JMP   :GOTZZBIN32
+
+:NOTZBIN32
+                 CMP   #ZHEX            ;is it a ZHEX packet?
+                 BNE   :NOTZHEX
+                 JMP   :GOTZZHEX
+
+:NOTZHEX         JMP   ZGETHEADER       ;then look for another packet or time out trying
+
+*:NOTZHEX LDA  #ERROR     ;before skanky packet protection code was added, this
+*        RTS              ;used to look like this...
+
+*
+* got a ZBIN header, so read the next 4 bytes and CRC them
+*
+:GOTZZBIN        STZ   CRC
+                 STZ   CRC+1
+
+                 JSR   ZGETCHAR         ;get frametype
+                 STA   FRAMETYPE
+                 JSR   CRCBYTE
+
+                 JSR   ZGETCHAR         ;get position/flag bytes
+                 STA   ZP0
+                 JSR   CRCBYTE
+
+                 JSR   ZGETCHAR
+                 STA   ZP1
+                 JSR   CRCBYTE
+
+                 JSR   ZGETCHAR
+                 STA   ZP2
+                 JSR   CRCBYTE
+
+                 JSR   ZGETCHAR
+                 STA   ZP3
+                 JSR   CRCBYTE
+
+                 JSR   ZGETCHAR
+                 STA   FRAMECRC+1
+                 JSR   ZGETCHAR         ;get the CRC characters
+                 STA   FRAMECRC
+
+                 CMP   CRC
+                 BNE   :BADBINFRAME
+                 LDA   FRAMECRC+1
+                 CMP   CRC+1
+                 BEQ   :GOODBINFRAME
+
+:BADBINFRAME
+                 DO    BUILDDEBUG
+                 LDA   #3               ;get packet called it
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   #ERROR           ;something is really messed up
+                 RTS
+
+:GOODBINFRAME
+                 DO    BUILDDEBUG
+                 LDA   #3
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   FRAMETYPE        ;we were good, return the frame type
+                 RTS
+
+*
+* got a ZHEX header, so read the next 4 (hex) bytes and CRC them
+*
+:GOTZZHEX        STZ   CRC
+                 STZ   CRC+1
+
+                 JSR   ZGETHEX          ;get hex frametype byte
+                 STA   FRAMETYPE
+                 JSR   CRCBYTE
+
+                 JSR   ZGETHEX          ;get position/flag bytes
+                 STA   ZP0
+                 JSR   CRCBYTE
+
+                 JSR   ZGETHEX
+                 STA   ZP1
+                 JSR   CRCBYTE
+
+                 JSR   ZGETHEX
+                 STA   ZP2
+                 JSR   CRCBYTE
+
+                 JSR   ZGETHEX
+                 STA   ZP3
+                 JSR   CRCBYTE
+
+                 JSR   ZGETHEX
+                 STA   FRAMECRC+1
+                 JSR   ZGETHEX          ;get our hex encoded CRC's.. ick
+                 STA   FRAMECRC
+
+                 JSR   GETC             ;wait 0.5 seconds for a character, hopefully
+                 BCC   :NOTCR           ;the CR in a CR/LF sequence
+                 CMP   #cr
+                 BNE   :NOTCR           ;if not a CR, then don't bother getting the LF
+                 JSR   GETC
+
+:NOTCR           LDA   FRAMECRC
+                 CMP   CRC
+                 BNE   :BADHEXFRAME
+                 LDA   FRAMECRC+1
+                 CMP   CRC+1
+                 BEQ   :GOODHEXFRAME
+
+:BADHEXFRAME
+                 DO    BUILDDEBUG
+                 LDA   #4
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   #ERROR           ;nope, something really messed up
+                 RTS
+
+:GOODHEXFRAME
+                 DO    BUILDDEBUG
+                 LDA   #4
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   FRAMETYPE        ;we were good, return the frame type
+                 RTS
+
+*
+* got a ZBIN32 header, so read the next 4 bytes and CRC32 them
+*
+:GOTZZBIN32
+                 LDA   #$FF
+                 STA   CRC32
+                 STA   CRC32+1
+                 STA   CRC32+2
+                 STA   CRC32+3
+
+                 JSR   ZGETCHAR         ;get frametype
+                 STA   FRAMETYPE
+                 JSR   UPDATECRC32
+
+                 JSR   ZGETCHAR         ;get position/flag bytes
+                 STA   ZP0
+                 JSR   UPDATECRC32
+
+                 JSR   ZGETCHAR
+                 STA   ZP1
+                 JSR   UPDATECRC32
+
+                 JSR   ZGETCHAR
+                 STA   ZP2
+                 JSR   UPDATECRC32
+
+                 JSR   ZGETCHAR
+                 STA   ZP3
+                 JSR   UPDATECRC32
+
+                 JSR   ZGETCHAR
+                 STA   FRAMECRC32
+                 JSR   ZGETCHAR         ;get the CRC characters
+                 STA   FRAMECRC32+1
+                 JSR   ZGETCHAR
+                 STA   FRAMECRC32+2
+                 JSR   ZGETCHAR
+                 STA   FRAMECRC32+3
+
+                 JSR   INVERTCRC32
+
+                 LDA   FRAMECRC32+3
+                 CMP   CRC32+3
+                 BNE   :BADBIN32FRAME
+                 LDA   FRAMECRC32+2
+                 CMP   CRC32+2
+                 BNE   :BADBIN32FRAME
+                 LDA   FRAMECRC32+1
+                 CMP   CRC32+1
+                 BNE   :BADBIN32FRAME
+                 LDA   FRAMECRC32
+                 CMP   CRC32
+                 BEQ   :GOODBIN32FRAME
+
+:BADBIN32FRAME
+                 DO    BUILDDEBUG
+                 LDA   #5               ;get CRC-32 packet called it
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   #ERROR           ;something is really messed up
+                 RTS
+
+:GOODBIN32FRAME
+                 DO    BUILDDEBUG
+                 LDA   #5
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+
+                 LDA   FRAMETYPE        ;we were good, return the frame type
+                 RTS
+
+*-------------------------------------------------
+* ZGETHEX -- get 2 bytes from the input stream and munge a single byte from
+*            both bytes
+*
+* outputs = (A)
+
+ZGETHEX          JSR   ZGETCHAR         ;get the high NIBBLE
+                 LDX   ESCAPED
+                 CPX   #ABORT
+                 BEQ   :DONE
+
+                 CMP   #$3A             ;is it 'a'?
+                 BGE   :ISALPHA
+
+                 SEC
+                 SBC   #$30
+                 BRA   :SECONDCHAR
+
+:ISALPHA         SEC
+                 SBC   #$57
+
+*
+* got the first character, now get the second and then combine them into a
+* single binary character and return it in (A)
+*
+:SECONDCHAR
+                 ASL   A
+                 ASL   A
+                 ASL   A
+                 ASL   A
+                 STA   CHAR1
+
+                 JSR   ZGETCHAR
+                 CMP   #'9'+1
+                 BGE   :GOTZALPHA2
+
+                 SEC
+                 SBC   #'0'
+                 ORA   CHAR1
+:DONE            RTS
+
+:GOTZALPHA2
+                 SEC
+                 SBC   #$57
+                 ORA   CHAR1
+                 RTS
+
+CHAR1            DA    0
+
+*-------------------------------------------------
+* ZSENDBHEADER -- send a zmodem binary header
+
+ZSENDBHEADER
+                 LDA   USEFC32
+                 BEQ   :NOFC32
+                 JMP   ZSENDBHEADER32
+
+:NOFC32          LDA   #ZPAD            ;* ZDLE ZBIN
+                 JSR   MDMOUT
+
+                 LDA   #ZDLE
+                 JSR   MDMOUT
+
+                 LDA   #ZBIN
+                 JSR   MDMOUT
+
+                 STZ   CRC
+                 STZ   CRC+1
+
+                 LDA   FRAMETYPE
+                 JSR   CRCBYTE
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF3
+                 JSR   CRCBYTE
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF2
+                 JSR   CRCBYTE
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF1
+                 JSR   CRCBYTE
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF0
+                 JSR   CRCBYTE
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   CRC+1            ;send the CRC (high byte)
+                 JSR   ZPUTCHAR
+                 LDA   CRC              ;send the CRC (low byte)
+                 JSR   ZPUTCHAR
+
+                 DO    BUILDFLUSH
+                 LDA   FRAMETYPE        ;flush the reverse channel if it's not zdata
+                 CMP   #ZDATA           ;this should reduce noise a bit
+                 BEQ   :NOFLUSH
+
+                 JSR   MDMFLUSH
+:NOFLUSH
+                 FIN
+
+                 DO    BUILDDEBUG
+                 LDA   #0
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+                 RTS
+
+*-------------------------------------------------
+* ZSENDBHEADER32 -- send a zmodem 32-bit binary header
+
+ZSENDBHEADER32
+                 LDA   #ZPAD            ;* ZDLE ZBIN
+                 JSR   MDMOUT
+
+                 LDA   #ZDLE
+                 JSR   MDMOUT
+
+                 LDA   #ZBIN32
+                 JSR   MDMOUT
+
+                 LDA   #$FF
+                 STA   CRC32
+                 STA   CRC32+1
+                 STA   CRC32+2
+                 STA   CRC32+3
+
+                 LDA   FRAMETYPE
+                 JSR   UPDATECRC32
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF3
+                 JSR   UPDATECRC32
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF2
+                 JSR   UPDATECRC32
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF1
+                 JSR   UPDATECRC32
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 LDA   ZF0
+                 JSR   UPDATECRC32
+                 JSR   ZPUTCHAR         ;ZDLE encode it
+
+                 JSR   INVERTCRC32
+
+                 LDA   CRC32
+                 JSR   ZPUTCHAR
+                 LDA   CRC32+1
+                 JSR   ZPUTCHAR
+                 LDA   CRC32+2
+                 JSR   ZPUTCHAR
+                 LDA   CRC32+3
+                 JSR   ZPUTCHAR
+
+                 DO    BUILDFLUSH
+                 LDA   FRAMETYPE        ;flush the reverse channel if it's not zdata
+                 CMP   #ZDATA           ;this should reduce noise a bit
+                 BEQ   :NOFLUSH
+
+                 JSR   MDMFLUSH
+:NOFLUSH
+                 FIN
+
+                 DO    BUILDDEBUG
+                 LDA   #2
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+                 RTS
+
+*-------------------------------------------------
+* zSendHHeader -- send a hex header
+
+zSendHHeader
+                 LDA   #ZPAD            ;* * ZDLE ZHEX
+                 JSR   MDMOUT
+                 LDA   #ZPAD
+                 JSR   MDMOUT
+
+                 LDA   #ZDLE
+                 JSR   MDMOUT
+
+                 LDA   #ZHEX
+                 JSR   MDMOUT
+
+                 STZ   CRC
+                 STZ   CRC+1
+
+                 LDA   FRAMETYPE
+                 JSR   CRCBYTE
+                 JSR   SENDINHEX
+
+                 LDA   ZF3
+                 JSR   CRCBYTE
+                 JSR   SENDINHEX
+
+                 LDA   ZF2
+                 JSR   CRCBYTE
+                 JSR   SENDINHEX
+
+                 LDA   ZF1
+                 JSR   CRCBYTE
+                 JSR   SENDINHEX
+
+                 LDA   ZF0
+                 JSR   CRCBYTE
+                 JSR   SENDINHEX
+
+                 LDA   CRC+1            ;send the CRC (high byte)
+                 JSR   SENDINHEX
+                 LDA   CRC              ;send the CRC (low byte)
+                 JSR   SENDINHEX
+
+                 LDA   #cr              ;these are here for ease of debugging
+                 JSR   MDMOUT           ;they make hex packets show up on the receiver's
+                 LDA   #lf              ;screen one per line
+                 JSR   MDMOUT
+
+                 LDA   FRAMETYPE        ;don't send trailing XON after
+                 CMP   #ZACK            ;ZACK or ZFIN
+                 BEQ   :DONE
+                 CMP   #ZFIN            ;and especially don't send the cr/lf sequence
+                 BEQ   :DONE            ;to proterm after the ZFIN because it echoes it!
+
+                 LDA   #xon             ;this is here to unjam any networks that may have
+                 JSR   MDMOUT           ;been jammed by spurious line noise
+
+                 DO    BUILDFLUSH
+                 JSR   MDMFLUSH         ;flush the reverse channel just in case
+                                        ;but don't flush it if it's a ZACK of ZFIN
+                                        ;so that we don't miss characters coming in from
+                                        ;a ZCRCQ packet while we're sending the ZACK
+                 FIN                    ;response
+
+:DONE
+                 DO    BUILDDEBUG
+                 LDA   #1
+                 JSR   PRINTPACKET      ;*** temporary ***
+                 FIN
+                 RTS
+
+*-------------------------------------------------
+* SENDINHEX -- output the character in (A) in hex
+
+SENDINHEX
+                 PHA
+                 LSR   A                ;send the high nybble FIRST!!
+                 LSR   A
+                 LSR   A
+                 LSR   A
+
+                 JSR   :SENDDIGIT       ;send the rightmost nybble
+                 PLA                    ;send the high nybble
+
+:SENDDIGIT
+                 AND   #$F
+                 CLC
+                 ADC   #'0'             ;make it ascii
+                 CMP   #'9'+1
+                 BGE   :CHARACTER       ;is it a character?
+                 JSR   MDMOUT           ;nope
+                 RTS
+
+:CHARACTER
+                 CLC
+                 ADC   #$27
+                 JSR   MDMOUT
+                 RTS
+
+*-------------------------------------------------
+* ZPUTCHAR -- output a character with ZDLE escaping in effect
+*             all registers must be returned intact
+*
+* INPUTS: (A) = 8-bit character to output
+
+ZPUTCHAR         PHA
+
+                 CMP   #ZDLE
+                 BEQ   :ESCAPE
+                 AND   #$7F             ;protect both kinds of control chars
+                 CMP   #$10             ;(both those with high-bits set and
+                 BEQ   :ESCAPE          ;those that are reset)
+                 CMP   #$11
+                 BEQ   :ESCAPE
+                 CMP   #$13
+                 BEQ   :ESCAPE
+                 CMP   #$D              ;CR
+                 BNE   :NOESCAPE        ;not a control character
+
+                 LDA   ZLASTCHAR
+                 AND   #$7F
+                 CMP   #$40             ;protect CR-@-CR
+                 BNE   :NOESCAPE
+
+:ESCAPE          LDA   #ZDLE
+                 JSR   MDMOUT
+
+                 PLA
+                 STA   ZLASTCHAR
+                 ORA   #%01000000       ;set bit 6
+                 AND   #%11011111       ;reset bit 5 (so it appears as uppercase)
+                 JSR   MDMOUT
+                 RTS
+
+:NOESCAPE        PLA
+                 STA   ZLASTCHAR
+                 JSR   MDMOUT
+                 RTS
+
+ZLASTCHAR        DA    0
+
+*-------------------------------------------------
+* ZGETCHAR -- get a character from the data stream with ZDLE escaping in effect
+*             this has a 10 second timer on it
+
+ZGETCHAR         LDA   #1
+                 STA   CANCOUNT         ;set the abort count at 5 ZDLE's (can's) in a row
+                                        ;starting from 1
+                 JSR   MDMDCD
+                 BCS   :DCDOK
+
+:ABORT           LDA   #ABORT
+                 STA   ESCAPED
+                 RTS
+
+:DCDOK           JSR   GETC
+                 BCS   :GOTZC
+                 STA   ESCAPED
+                 RTS
+
+:GOTZC           CMP   #ZDLE
+                 BEQ   :ISDLE
+                 TAX
+                 AND   #$7F
+                 CMP   #$10
+                 BEQ   ZGETCHAR         ;ignore these characters
+                 CMP   #$13
+                 BEQ   ZGETCHAR         ;ignore these characters
+                 TXA
+                 STZ   ESCAPED
+                 RTS
+
+*
+* we got a ZDLE character, translate the character which follows
+*
+:ISDLE           LDA   #1
+                 STA   ESCAPED
+
+                 JSR   GETC             ;the ZDLE escaped us
+                 BCS   :GOTZCHAR
+                 STA   ESCAPED
+                 RTS
+
+:GOTZCHAR        TAX
+                 CMP   #ZDLE            ;if we got a ZDLE here, then that's the second
+                 BNE   :NOTABORT        ;ZDLE in a row.  Someone is probably keyboarding
+                                        ;control-x's at us, so we'd better see if we
+                 INC   CANCOUNT         ;can get five of them, total
+                 LDA   CANCOUNT         ;every time we get
+                 CMP   #5
+                 BLT   :ISDLE
+                 BRA   :ABORT
+
+:NOTABORT
+                 CMP   #ZCRCE           ;it's already marked as escaped, so
+                 BEQ   :ISFRAMEEND      ;we're ok
+                 CMP   #ZCRCG
+                 BEQ   :ISFRAMEEND
+                 CMP   #ZCRCW
+                 BEQ   :ISFRAMEEND
+                 CMP   #ZCRCG
+                 BEQ   :ISFRAMEEND
+
+                 AND   #$7F
+                 CMP   #$10
+                 BEQ   :ISDLE           ;ignore these characters (line noise?)
+                 CMP   #$13
+                 BEQ   :ISDLE           ;ignore these characters (line noise?)
+
+                 AND   #$40
+                 BEQ   :TRYRUBOUT
+                 TXA
+                 AND   #$20
+                 BNE   :TRYRUBOUT
+
+                 TXA
+                 EOR   #$40             ;flip bit 6
+:ISFRAMEEND      RTS
+
+:TRYRUBOUT       TXA
+                 CMP   #ZRUB0
+                 BEQ   :TRANSLATERUB0
+                 CMP   #ZRUB1
+                 BEQ   :TRANSLATERUB1
+                 RTS
+
+:TRANSLATERUB0                          ; rubout type #0
+                 LDA   #$7F
+                 RTS
+
+:TRANSLATERUB1                          ; rubout type #1
+                 LDA   #$FF
+                 RTS
+
+*-------------------------------------------------
+* ZEROPOS -- zero ZP0..ZP3
+
+ZEROPOS          LDX   #3
+:LOOP            STZ   ZP0,X
+                 DEX
+                 BPL   :LOOP
+                 RTS
+
+*-------------------------------------------------
+* CRCBYTE -- (A) gets toasted
+
+CRCBYTE          PHA
+                 PHX
+
+                 EOR   CRC+1            ;add byte into CRC hi byte
+                 TAX                    ;to make offset into tables
+
+                 LDA   CRC              ;get previous lo byte back
+                 EOR   CRCTABLEHI,X     ;add it to the proper table entry
+                 STA   CRC+1            ;save it
+
+                 LDA   CRCTABLELO,X     ;get new lo byte
+                 STA   CRC              ;save it back
+
+                 PLX
+                 PLA
+                 RTS                    ;all done
+
+*-------------------------------------------------
+* UPDATECRC32 -- update our CRC32
+*
+* inputs: (A) = byte to update CRC32
+*
+* outputs: all regs preserved
+
+UPDATECRC32
+                 PHA                    ;3
+                 PHX                    ;3
+
+                 EOR   CRC32            ;3
+                 TAX                    ;2
+                 LDA   CRC32TABLE1,X    ;4
+                 EOR   CRC32+1          ;3
+                 STA   CRC32            ;3
+                 LDA   CRC32TABLE2,X    ;4
+                 EOR   CRC32+2          ;3
+                 STA   CRC32+1          ;3
+                 LDA   CRC32TABLE3,X    ;4
+                 EOR   CRC32+3          ;3
+                 STA   CRC32+2          ;3
+                 LDA   CRC32TABLE4,X    ;4
+                 STA   CRC32+3          ;3
+
+                 PLX                    ;4
+                 PLA                    ;4
+                 RTS                    ;cycles = 56
+
+*-------------------------------------------------
+* INVERTCRC32 -- invert the 32-bit CRC
+
+INVERTCRC32
+                 LDA   CRC32
+                 EOR   #$FF
+                 STA   CRC32
+
+                 LDA   CRC32+1
+                 EOR   #$FF
+                 STA   CRC32+1
+
+                 LDA   CRC32+2
+                 EOR   #$FF
+                 STA   CRC32+2
+
+                 LDA   CRC32+3
+                 EOR   #$FF
+                 STA   CRC32+3
+                 RTS
+
+*-------------------------------------------------
+* CANCEL -- send 8 CAN's followed by 10 backspaces
+
+CANCEL           LDX   #0
+:CLOOP           LDA   #can
+                 JSR   MDMOUT
+                 INX
+                 CPX   #8
+                 BLT   :CLOOP
+
+                 LDX   #0
+:BLOOP           LDA   #bs
+                 JSR   MDMOUT
+                 INX
+                 CPX   #10
+                 BLT   :BLOOP
+                 RTS
+
+                 LDA   #cr
+                 JMP   MDMOUT
+
+*-------------------------------------------------
+* FIRST -- this is the entry point from the loader
+*          and shouldn't be called by anyone else
+*          other than the loader because we need to
+*          put back the memory which we moved into
+*          aux to clear space for the loader
+
+FIRST            JSR   SAVEPTRS         ;save the zero page pointers we are about to use
+
+                 LDA   #<$2000          ;source and destination are both $2000
+                 STA   A1
+                 STA   A4
+                 LDA   #>$2000
+                 STA   A1+1
+                 STA   A4+1
+
+                 LDA   #<$2200          ;source end
+                 STA   A2
+                 LDA   #>$2200
+                 STA   A2+1
+
+                 CLC                    ;aux to main
+                 JSR   AUXMOVE          ;back to acos
+                 JMP   RESTOREPTRS      ;restore the zero page pointers we just used
+
+*-------------------------------------------------
+* STARTUP -- startup by saving the memory in main
+*            to aux
+
+STARTUP          LDY   #3               ;last call to acos, set the output vector
+                 JSR   SETOVEC
+
+                 JSR   SAVEPTRS         ;save the zero page pointers we are about to use
+
+                 LDA   #<$2000          ;source and destination are both $2000
+                 STA   A1
+                 STA   A4
+                 LDA   #>$2000
+                 STA   A1+1
+                 STA   A4+1
+
+                 LDA   #<$6600          ;source end
+                 STA   A2
+                 LDA   #>$6600
+                 STA   A2+1
+
+                 SEC                    ;main to aux
+                 JSR   AUXMOVE          ;back to acos
+
+*-------------------------------------------------
+* STARTUPCRC -- move the CRC tables into main
+*
+* once we do this, we've gone past the point of no return
+
+                 LDA   #<$7000          ;source, $7000 in aux
+                 STA   A1
+                 LDA   #>$7000
+                 STA   A1+1
+
+                 LDA   #<$7600          ;source end
+                 STA   A2
+                 LDA   #>$7600
+                 STA   A2+1
+
+                 LDA   #<$2000          ;destination, $2100 in main
+                 STA   A4
+                 LDA   #>$2000
+                 STA   A4+1
+
+                 CLC                    ;aux to main
+                 JSR   AUXMOVE          ;back to acos
+
+                 LDX   #ZPEND-ZP-1      ;save the area of zero page we're going to
+:LOOP            LDA   $D0,X            ;use
+                 STA   ZP,X
+                 DEX
+                 BPL   :LOOP
+
+                 JMP   RESTOREPTRS      ;restore the zero page pointers we just used
+
+*-------------------------------------------------
+* SHUTDOWN -- shut us down by restoring the memory from
+*             $2000 through $6600 from aux back to main
+
+SHUTDOWN         JSR   SAVEPTRS         ;save the zero page pointers we are about to use
+
+                 LDA   #<$2000          ;source and destination are both $2000
+                 STA   A1
+                 STA   A4
+                 LDA   #>$2000
+                 STA   A1+1
+                 STA   A4+1
+
+                 LDA   #<$6600          ;source end
+                 STA   A2
+                 LDA   #>$6600
+                 STA   A2+1
+
+                 CLC                    ;aux to main
+                 JSR   AUXMOVE          ;back to acos
+                 JSR   RESTOREPTRS      ;restore the zero page pointers we just used
+
+                 LDX   #ZPEND-ZP-1      ;restore the area of zero page we used
+:LOOP            LDA   ZP,X
+                 STA   $D0,X
+                 DEX
+                 BPL   :LOOP
+
+                 LDY   #0               ;restore the normal output vector
+                 JMP   SETOVEC
+
+*-------------------------------------------------
+* SAVEPTRS -- save A1..A4 in 'PTRS'
+
+SAVEPTRS         LDX   #7
+:LOOP            LDA   A1,X
+                 STA   PTRS,X
+                 DEX
+                 BPL   :LOOP
+                 RTS
+
+*-------------------------------------------------
+* RESTOREPTRS -- restore A1..A4 from 'PTRS'
+
+RESTOREPTRS
+                 LDX   #7
+:LOOP            LDA   PTRS,X
+                 STA   A1,X
+                 DEX
+                 BPL   :LOOP
+                 RTS
+
+*-------------------------------------------------
+* PRINTBYTES -- print the current file offset in 'bytes'
+
+PRINTBYTES
+                 DO    NOTBUILDDEBUG
+                 LDA   #16
+                 STA   HTAB
+
+                 LDA   BYTES
+                 STA   NUM
+                 LDA   BYTES+1
+                 STA   NUM+1
+                 LDA   BYTES+2
+                 STA   NUM+2
+
+                 JSR   LONG2DEC
+
+                 LDA   #>DECIMAL
+                 LDX   #<DECIMAL
+                 JMP   PRINTCSTRING
+                 ELSE
+                 RTS
+                 FIN
+
+*-------------------------------------------------
+* Data segment
+
+ZP               DS    48
+ZPEND
+
+PTRS             DW    0                ;A1
+                 DW    0                ;A2
+                 DW    0                ;A3
+                 DW    0                ;A4
+
+*-------------------------------------------------
+                 DO    BUILDIIC
+
+*-------------------------------------------------
+* INSTALLVBLINT -- install the vertical blanking interrupt in the system
+
+INSTALLVBLINT
+                 LDA   $C419            ;offset for InitMouse call
+                 STA   :INIT+1
+                 LDA   $C412            ;offset for setmouse call
+                 STA   :MOUSE+1
+
+                 PHP
+                 SEI
+
+                 JSR   MLI
+                 DB    $40
+                 DA    ALLOCPARMS
+
+                 LDX   #$C4
+                 LDY   #$40
+:INIT            JSR   $C400            ;initmouse
+
+                 LDA   #8               ;interrupt only from VBL
+                 LDX   #$C4
+                 LDY   #$40
+:MOUSE           JSR   $C400
+
+                 PLP
+                 RTS
+
+ALLOCPARMS       DB    2
+                 DB    0                ;our interrupt number
+                 DA    VBLINT           ;our routine
+
+*-------------------------------------------------
+* removeVBLINT -- deactivate our interrupt and take it out of the prodos
+*                 interrupt handler table
+
+removeVBLINT
+                 LDA   $C412            ;offset for setmouse call
+                 STA   :MOUSE+1
+
+                 PHP
+                 SEI
+
+                 LDA   #0               ;interrupt from nothing
+                 LDX   #$C4
+                 LDY   #$40
+:MOUSE           JSR   $C400
+
+                 LDA   ALLOCPARMS+1
+                 STA   DEALLOCPARMS+1
+
+                 JSR   MLI
+                 DB    $41
+                 DA    DEALLOCPARMS
+
+                 PLP
+                 RTS
+
+DEALLOCPARMS     DB    1
+                 DB    0                ;interrupt # to remove
+
+*-------------------------------------------------
+* VBLINT -- a vertical blanking interrupt happened
+*           so see if we caused it -- if not, ignore it
+*
+VBLINT           CLD                    ;needed for prodos interrupt routine
+
+                 LDA   $C413            ;offset for servemouse
+                 STA   :MOUSE+1
+
+                 LDX   #$C4
+                 LDY   #$40
+:MOUSE           JSR   $C400
+                 BCS   :DONE
+
+                 LDA   #$FF
+                 STA   LASTVBL
+
+                 CLC
+                 RTS
+
+:DONE            SEC
+                 RTS
+
+*-------------------------------------------------
+* GETC  - SEC=input, CLC=no input
+*         wait up to 10 seconds before timing out
+*         this routine only used on the IIc which
+*         doesn't have a VBL signal, but has VBLint
+
+GETC             STZ   LASTVBL
+                 STZ   SIXTY            ;sixtieths of a second we've waited
+                 STZ   SIXTY+1
+
+:LOOP            JSR   MDMIN            ;get byte from modem
+                 BCC   :NOIN            ;nothing there, adjust loop counters
+                 RTS
+
+:NOIN            JSR   MDMDCD           ;check for dropped carrier
+                 BCS   :DCDOK
+                 LDA   #ABORT
+                 RTS
+
+:DCDOK           LDA   KEY              ;check for those annoying keypresses
+                 BPL   :NOPRESS
+                 STA   STROBE
+                 CMP   #esc+128
+                 BNE   :NOPRESS
+                 CLC
+                 LDA   #ABORT
+                 RTS
+
+:NOPRESS         LDA   LASTVBL          ;has there been a change?
+                 BEQ   :LOOP            ;indicating a transition
+
+                 STZ   LASTVBL
+
+                 INC   SIXTY
+                 BNE   :NC
+                 INC   SIXTY+1
+
+:NC              LDA   SIXTY
+                 CMP   WAITFOR
+                 BNE   :LOOP
+                 LDA   SIXTY+1
+                 CMP   WAITFOR+1
+                 BNE   :LOOP
+
+                 CLC                    ;input was bad
+                 LDA   #TIMEOUT
+                 RTS
+
+LASTVBL          DB    0
+SIXTY            DW    0
+                 FIN
+
+*-------------------------------------------------
+                 DO    NOTBUILDIIC
+
+*-------------------------------------------------
+* GETC  - SEC=input, CLC=no input
+*         wait up to 10 second before timing out
+
+GETC             STZ   LASTVBL
+                 STZ   SIXTY            ;sixtieths of a second we've waited
+                 STZ   SIXTY+1
+
+:LOOP            JSR   MDMDCD           ;check for dropped carrier
+                 BCS   :DCDOK
+
+                 LDA   #ABORT
+                 RTS
+
+:DCDOK           JSR   MDMIN            ;get byte from modem
+                 BCC   :NOIN            ;nothing there, adjust loop counters
+                 RTS
+
+:NOIN            LDA   KEY              ;check for those annoying keypresses
+                 BPL   :NOPRESS
+                 STA   STROBE
+                 CMP   #esc+128
+                 BNE   :NOPRESS
+                 CLC
+                 LDA   #ABORT
+                 RTS
+
+:NOPRESS         LDA   $C019            ;has there been a change?
+                 AND   #$80             ;mask all but high bit
+                 CMP   LASTVBL          ;look for a change in the value
+                 BEQ   :LOOP            ;indicating a transition
+
+                 STA   LASTVBL
+
+                 INC   SIXTY
+                 BNE   :NC
+                 INC   SIXTY+1
+
+:NC              LDA   SIXTY
+                 CMP   WAITFOR
+                 BNE   :LOOP
+                 LDA   SIXTY+1
+                 CMP   WAITFOR+1
+                 BNE   :LOOP
+
+                 CLC                    ;input was bad
+                 LDA   #TIMEOUT
+                 RTS
+
+LASTVBL          DB    0
+SIXTY            DW    0
+                 FIN
+                 LST   OFF
+
diff --git a/SOURCE/ZMODEM/ZMODEM2.S b/SOURCE/ZMODEM/ZMODEM2.S
new file mode 100644
index 0000000..6fa7e7e
--- /dev/null
+++ b/SOURCE/ZMODEM/ZMODEM2.S
@@ -0,0 +1,532 @@
+*
+* July 15, 1991
+*
+* This file is hereby dedicated to the public domain.
+*                                 -- Andrew Nicholas
+*
+                LST   RTN
+
+*-------------------------------------------------
+* zglobals -- global data area for zmodem stuff
+
+BAUDVALUES      DB    1                ;300
+                DB    4                ;1200
+                DB    8                ;2400
+                DB    16               ;4800
+                DB    32               ;9600
+                DB    64               ;19200
+
+BLOCKSIZES
+                DW    128              ;300
+                DW    256              ;1200
+                DW    512              ;2400
+                DW    1024             ;4800
+                DW    1024             ;9600
+                DW    1024             ;19200
+
+DUBLBLOCKSIZES
+                DW    256              ;300
+                DW    512              ;1200
+                DW    1024             ;2400
+                DW    1024             ;4800
+                DW    1024             ;9600
+                DW    1024             ;19200
+
+PREFIX
+RZPATH
+PATHNAME        DS    48
+
+BAUDRATE        DB    0
+CONSEDGOOD      DB    0                ;number of consecutive good blocks
+CONSECBAD       DB    0                ;number of consecutive bad blocks
+
+NAMELEN         DA    0                ;length of filename
+
+ERRORS          DA    0
+
+ZCOUNT          DW    0
+BLKLEN          DW    0                ;how long a block should we send?
+WHERE2START     DW    0
+WHERE2END       DW    0
+BYTES2SEND      DW    0
+BYTES           DS    4
+RXCOUNT         DS    4                ;number of bytes received
+TXCOUNT         DS    4                ;number of bytes sent
+TXBUFFERLEN     DA    0                ;number of bytes which can be streamed
+TXBUFFERSIZE    DA    0                ;number of byte we're willing to stream
+CANCOUNT        DB    0                ;number of can's received
+ZBUFFEREND      DW    0
+
+USEFC32         DB    0                ;use CRC32? boolean
+ESCAPED         DA    0                ;boolean (was last character escaped?)
+
+RXBYTES         ADRL  0                ;total # of bytes received
+TXBYTES         ADRL  0                ;total # of bytes sent
+
+GOTCR           DB    0                ;got a cr in a cr/lf sequence
+ZCONVERT        DB    0
+ZMANAGE         DB    0
+ZTRANSPORT      DB    0
+
+*
+* byte positions within header array
+*
+FLAGS
+RXPOSITION      ADRL  0                ;our receiver position (where we are)
+TXPOSITION      ADRL  0                ;our transmitter position
+SYNC            DA    0
+
+*
+* stuff for getting the other sides attention
+*
+ATTNLENGTH      DB    0
+ATTENTION       DS    34
+
+*
+* parms lists for zmodem common to both sender and received
+*
+OPENPARMS
+                DB    3
+                DA    PATHNAME
+                DA    FILEBUFFER2
+                DB    0
+
+CLOSEPARMS
+                DB    1
+                DB    0
+
+MARKPARMS
+                DB    2
+                DB    0
+                DS    3
+
+*-------------------------------------------------
+* PRINTSUB -- print a single subpacket in the window on the screen
+*
+* *** debugging use only ***
+
+                DO    BUILDDEBUG
+PRINTSUB
+                STA   WHOCALLED
+                STY   CHARSRECEIVED
+                STX   CHARSRECEIVED+1
+
+                LDA   FRAMEEND
+                SEC
+                SBC   #ZCRCE
+                CMP   #4
+                BLT   GOODF
+                LDA   #4
+
+GOODF           STA   OURFRAME
+
+                LDA   #' '             ;clear out the old CRC info
+                LDX   #31
+:PCLOOP1        STA   PACKETT2,X
+                INX
+                CPX   #39
+                BLT   :PCLOOP1
+
+                LDX   #50
+:PCLOOP2        STA   PACKETT2,X
+                INX
+                CPX   #58
+                BLT   :PCLOOP2
+
+                LDA   FRAMEEND
+                JSR   PUTHEX
+                STX   PACKETT2+11
+                STA   PACKETT2+12
+
+                LDA   CHARSRECEIVED+1
+                JSR   PUTHEX
+                STX   PACKETT2+21
+                STA   PACKETT2+22
+
+                LDA   CHARSRECEIVED
+                JSR   PUTHEX
+                STX   PACKETT2+23
+                STA   PACKETT2+24
+
+                LDA   WHOCALLED
+                CMP   #2
+                BLT   :CRC16
+
+                LDA   CRC+3
+                JSR   PUTHEX
+                STX   PACKETT2+31
+                STA   PACKETT2+32
+
+                LDA   CRC+2
+                JSR   PUTHEX
+                STX   PACKETT2+33
+                STA   PACKETT2+34
+
+:CRC16          LDA   CRC+1
+                JSR   PUTHEX
+                STX   PACKETT2+35
+                STA   PACKETT2+36
+
+                LDA   CRC
+                JSR   PUTHEX
+                STX   PACKETT2+37
+                STA   PACKETT2+38
+
+                LDA   WHOCALLED
+                TAX
+                AND   #1
+                BEQ   :NOFRAMECRC
+                TXA
+                CMP   #2
+                BLT   :FRAMECRC16
+
+                LDA   FRAMECRC+3
+                JSR   PUTHEX
+                STX   PACKETT2+50
+                STA   PACKETT2+51
+
+                LDA   FRAMECRC+2
+                JSR   PUTHEX
+                STX   PACKETT2+52
+                STA   PACKETT2+53
+
+:FRAMECRC16
+                LDA   FRAMECRC+1
+                JSR   PUTHEX
+                STX   PACKETT2+54
+                STA   PACKETT2+55
+
+                LDA   FRAMECRC
+                JSR   PUTHEX
+                STX   PACKETT2+56
+                STA   PACKETT2+57
+
+:NOFRAMECRC
+                LDA   WHOCALLED
+                ASL
+                ASL
+                TAX
+                LDY   #0
+:WHOLOOP        LDA   WHOTEXT,X
+                STA   PACKETT2+63,Y
+                INX
+                INY
+                CPY   #4
+                BLT   :WHOLOOP
+
+                LDA   #>PACKETT2
+                LDX   #<PACKETT2
+                JSR   PRINTCSTRING
+
+                LDA   OURFRAME
+                ASL
+                TAY
+                LDA   TADDR,Y
+                TAX
+                LDA   TADDR+1,Y
+                JSR   PRINTCSTRING
+                JMP   CROUT
+
+PACKETT2        ASC   'SubPacket=$XX Chars=$XXXX CRC=$XXXXXXXX FrameCRC=$XXXXXXXX Who=     '00
+WHOCALLED       DB    0
+CHARSRECEIVED   DA    0
+OURFRAME        DB    0
+
+WHOTEXT         ASC   'zs  '           ;send
+                ASC   'zr  '           ;receive
+                ASC   'zs32'           ;send CRC-32
+                ASC   'zr32'           ;receive CRC-32
+
+TADDR           DA    TEXTZCRCE
+                DA    TEXTZCRCG
+                DA    TEXTZCRCQ
+                DA    TEXTZCRCW
+                DA    TEXTUNKNOWN
+
+TEXTZCRCE       ASC   'ZCRCE'00
+TEXTZCRCG       ASC   'ZCRCG'00
+TEXTZCRCQ       ASC   'ZCRCQ'00
+TEXTZCRCW       ASC   'ZCRCW'00
+
+*-------------------------------------------------
+* PRINTPACKET -- print a single frame on the screen
+*
+* *** debugging use only ***
+
+PRINTPACKET
+                STA   WHOCALLED2
+
+                LDA   FRAMETYPE
+                CMP   #20
+                BLT   KNOWN
+                LDA   #20
+KNOWN           STA   OURFRAME2
+
+                LDA   #' '             ;clear out the old CRC info
+                LDX   #31
+:PCLOOP1        STA   PACKETTEXT,X
+                INX
+                CPX   #39
+                BLT   :PCLOOP1
+
+                LDX   #50
+:PCLOOP2        STA   PACKETTEXT,X
+                INX
+                CPX   #58
+                BLT   :PCLOOP2
+
+                LDA   FRAMETYPE
+                JSR   PUTHEX
+                STX   PACKETTEXT+7
+                STA   PACKETTEXT+8
+
+                LDA   ZP0
+                JSR   PUTHEX
+                STX   PACKETTEXT+11
+                STA   PACKETTEXT+12
+
+                LDA   ZP1
+                JSR   PUTHEX
+                STX   PACKETTEXT+15
+                STA   PACKETTEXT+16
+
+                LDA   ZP2
+                JSR   PUTHEX
+                STX   PACKETTEXT+19
+                STA   PACKETTEXT+20
+
+                LDA   ZP3
+                JSR   PUTHEX
+                STX   PACKETTEXT+23
+                STA   PACKETTEXT+24
+
+                LDA   WHOCALLED2
+                CMP   #2
+                BEQ   :CRC32
+                CMP   #5
+                BNE   :CRC16
+
+:CRC32          LDA   CRC+3
+                JSR   PUTHEX
+                STX   PACKETTEXT+31
+                STA   PACKETTEXT+32
+
+                LDA   CRC+2
+                JSR   PUTHEX
+                STX   PACKETTEXT+33
+                STA   PACKETTEXT+34
+
+:CRC16          LDA   CRC+1
+                JSR   PUTHEX
+                STX   PACKETTEXT+35
+                STA   PACKETTEXT+36
+
+                LDA   CRC
+                JSR   PUTHEX
+                STX   PACKETTEXT+37
+                STA   PACKETTEXT+38
+
+                LDA   WHOCALLED2       ;if a receive routine called, then
+                CMP   #3               ;we don't need to print the frameCRC, since
+                BLT   :NOFRAMECRC      ;we aren't going to RECEIVE one...
+                CMP   #5
+                BNE   :FRAMECRC16
+
+                LDA   FRAMECRC+3
+                JSR   PUTHEX
+                STX   PACKETTEXT+50
+                STA   PACKETTEXT+51
+
+                LDA   FRAMECRC+2
+                JSR   PUTHEX
+                STX   PACKETTEXT+52
+                STA   PACKETTEXT+53
+
+:FRAMECRC16
+                LDA   FRAMECRC+1
+                JSR   PUTHEX
+                STX   PACKETTEXT+54
+                STA   PACKETTEXT+55
+
+                LDA   FRAMECRC
+                JSR   PUTHEX
+                STX   PACKETTEXT+56
+                STA   PACKETTEXT+57
+
+:NOFRAMECRC
+                LDA   WHOCALLED2
+                ASL   A
+                ASL   A
+                TAX
+                LDY   #0
+:LOOP           LDA   WHOTEXT2,X
+                STA   PACKETTEXT+63,Y
+                INX
+                INY
+                CPY   #4
+                BLT   :LOOP
+
+                LDX   #<PACKETTEXT
+                LDA   #>PACKETTEXT
+                JSR   PRINTCSTRING
+
+                LDA   OURFRAME2
+                ASL   A
+                TAY
+                LDA   PADDR,Y
+                TAX
+                LDA   PADDR+1,Y
+                JSR   PRINTCSTRING
+                JMP   CROUT
+
+PACKETTEXT      ASC   'Frame=$XX/$XX $XX $XX $XX CRC=$XXXXXXXX FrameCRC=$XXXXXXXX Who=     '00
+WHOCALLED2      DB    0
+
+WHOTEXT2        ASC   'SB  '           ;Send
+                ASC   'SH  '
+                ASC   'SB32'           ;send a binary CRC-32 packet
+                ASC   'RB  '           ;Recv
+                ASC   'RH  '
+                ASC   'RB32'           ;receive a binary CRC-32 packet
+
+OURFRAME2       DB    0
+
+PADDR           DA    TEXTZRQINIT
+                DA    TEXTZRINIT
+                DA    TEXTZSINIT
+                DA    TEXTZACK
+                DA    TEXTZFILE
+                DA    TEXTZSKIP
+                DA    TEXTZNAK
+                DA    TEXTZABORT
+                DA    TEXTZFIN
+                DA    TEXTZRPOS
+                DA    TEXTZDATA
+                DA    TEXTZEOF
+                DA    TEXTZFERR
+                DA    TEXTZCRC
+                DA    TEXTZCHALLENGE
+                DA    TEXTZCOMPL
+                DA    TEXTZCAN
+                DA    TEXTZFREECNT
+                DA    TEXTZCOMMAND
+                DA    TEXTZSTDERR
+                DA    TEXTUNKNOWN
+
+TEXTZRQINIT     ASC   'ZRQINIT'00
+TEXTZRINIT      ASC   'ZRINIT'00
+TEXTZSINIT      ASC   'ZSINIT'00
+TEXTZACK        ASC   'ZACK'00
+TEXTZFILE       ASC   'ZFILE'00
+TEXTZSKIP       ASC   'ZSKIP'00
+TEXTZNAK        ASC   'ZNAK'00
+TEXTZABORT      ASC   'ZABORT'00
+TEXTZFIN        ASC   'ZFIN'00
+TEXTZRPOS       ASC   'ZRPOS'00
+TEXTZDATA       ASC   'ZDATA'00
+TEXTZEOF        ASC   'ZEOF'00
+TEXTZFERR       ASC   'ZFERR'00
+TEXTZCRC        ASC   'ZCRC'00
+TEXTZCHALLENGE  ASC   'ZCHALLENGE'00
+TEXTZCOMPL      ASC   'ZCOMPL'00
+TEXTZCAN        ASC   'ZCAN'00
+TEXTZFREECNT    ASC   'ZFREECNT'00
+TEXTZCOMMAND    ASC   'ZCOMMAND'00
+TEXTZSTDERR     ASC   'ZSTDERR'00
+TEXTUNKNOWN     ASC   'Unknown'00
+
+*-------------------------------------------------
+* PUTHEX -- translate (A) into ascii hex in X&A
+
+PUTHEX          STA   :HEXTEMP
+                AND   #%11110000
+                LSR   A
+                LSR   A
+                LSR   A
+                LSR   A
+                JSR   :DODIGIT
+                TAX
+                LDA   :HEXTEMP
+                AND   #%00001111
+
+:DODIGIT        ORA   #%00110000
+                CMP   #'9'+1
+                BCC   :OK
+                CLC
+                ADC   #7
+:OK             RTS
+
+:HEXTEMP        DB    00
+                FIN
+
+*-------------------------------------------------
+* CROUT -- print a CR
+
+CROUT           LDA   #cr
+                JSR   COUT
+
+                DO    BUILDPRINT
+                LDA   #cr              ;uncommment these lines to dump to the printer
+                JSR   PRCOUT
+                FIN
+
+                RTS
+
+*-------------------------------------------------
+* PRINTCSTRING -- print the cstring pointed to by X&A
+
+PRINTCSTRING
+                STX   CPTR
+                STA   CPTR+1
+
+                LDY   #0
+:LOOP           LDA   (CPTR),Y
+                BEQ   :DONE
+                PHY
+                PHA
+                JSR   COUT
+                PLA
+
+                DO    BUILDPRINT
+                JSR   PRCOUT           ;uncomment this line to dump to printer
+                FIN
+
+                PLY
+                INY
+                BRA   :LOOP
+
+:DONE           RTS
+
+*-------------------------------------------------
+* PRINTPSTRING -- print the pstring pointed to by X&A
+
+PRINTPSTRING
+                STX   CPTR
+                STA   CPTR+1
+
+                LDA   (CPTR)
+                STA   PSTRLENGTH
+
+                LDY   #1
+:LOOP           LDA   (CPTR),Y
+                ORA   #$80
+                PHY
+                PHA
+                JSR   COUT
+                PLA
+
+                DO    BUILDPRINT
+                JSR   PRCOUT           ;uncomment this line to dump to printer
+                FIN
+
+                PLY
+                INY
+                CPY   PSTRLENGTH
+                BLT   :LOOP
+                BEQ   :LOOP
+
+                RTS
+
+PSTRLENGTH      DB    0
+                LST   OFF
+