Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/utils/supercomm/supercomm.asm @ 3072:32191c9fe2cd
makefiles: Always use ECHO macro define
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 22 Feb 2015 14:36:52 +0100 |
| parents | 9d5138454853 |
| children |
line wrap: on
line source
******************************************************************** * SuperComm - OS-9 Level Two Communications Program * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * Acquired source 02/11/20 nam SuperComm ttl OS-9 Level Two Communications Program ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 edition set $01 mod eom,name,tylg,atrv,start,dsize name fcs /SuperComm/ fcb edition ************************************************* * * Supercomm Data Area Layout * * Separated from Main source for easier editing * org 0 Temp rmb 2 Temp var for whatever u0000 rmb 2 pointer to parameters from shell u0002 rmb 2 Ptr to max. address of receive buffer (constant) u0004 rmb 2 Ptr to start address of receive buffer (constant) u0006 rmb 2 Ptr to current end of receive buffer u0C82 rmb 1 Search/Reply string # being processed u0C88 rmb 1 MSB of size of converted output text buffer u0C89 rmb 1 LSB of size of converted output text buffer u0008 rmb 1 u0009 rmb 2 u000B rmb 1 u000C rmb 1 u000D rmb 2 u000F rmb 2 u0011 rmb 1 Copy of IT.DLO (Delete line 0=BSE, 1=CRLF) u0012 rmb 1 Copy of IT.EKO (0=echo off, 1=echo on) u0013 rmb 2 Ptr to device descriptor u0015 rmb 2 Ptr to start of SuperComm u0017 rmb 2 Size of SuperComm u0019 rmb 1 special version flag (adds 'a' to version #) u001A rmb 1 u001B rmb 1 u001C rmb 1 u001D rmb 1 u001E rmb 2 u0020 rmb 1 u0021 rmb 1 u0022 rmb 1 u0023 rmb 1 sending ASCII file xfer flag (1=Send ASCII) u0024 rmb 1 u0025 rmb 1 Flag that ASCII receive file exists u0026 rmb 1 ASCII receive buffer open u0027 rmb 2 u0029 rmb 1 u002A rmb 1 path # to recieve buffer file u002B rmb 1 path # to serial port u002C rmb 1 path # to file for ASCII send u002D rmb 10 Terminal port to open (up to 10 chars) u0037 rmb 2 u0039 rmb 3 u003C rmb 1 u003D rmb 1 Path # for disk file u003E rmb 1 path to status line window u003F rmb 1 path to conference window (if enabled) u0040 rmb 1 conference mode activated flag (1=Conference mode) u0041 rmb 1 key sense data u0042 rmb 1 path to download file u0043 rmb 1 u0044 rmb 1 1 byte bffr for block responses (ACK/NAK,XON/XOFF) u0045 rmb 1 u0046 rmb 1 flag for YModem batch u0047 rmb 1 possible remove (not referenced anywhere) u0048 rmb 1 \ (u0048 is also running checksum byte) u0049 rmb 1 / running CRC for file Xfers u004A rmb 1 last selected xfer protocol (Upload/Send) u004B rmb 1 last selected xfer protocol (Download/Receive) u004C rmb 1 u004D rmb 2 used as a byte counter in download u004F rmb 1 Internal Error # on xfer u0050 rmb 2 Ptr to end of X/Ymodem buffer in modem recv bffr u0052 rmb 1 Current attempt # on CheckSum receive (max=10) u0053 rmb 2 Current block # (only LSB is used in blck hdrs) u0055 rmb 2 True block size (includes blk/comp # & crc/chksm) u0057 rmb 2 # data bytes needed for block (128 or 1024) u0059 rmb 1 Current attempt # on CRC receive (max=4) u005A rmb 1 CRC or Checksum (0=Checksum) u005B rmb 4 4 byte longint (for file sizes) u005F rmb 1 u0060 rmb 2 Part of timer routine for download timeouts??? u0062 rmb 2 u0064 rmb 1 u0065 rmb 1 u0066 rmb 2 Ptr to next key in Conf mode keyboard buffer u0068 rmb 1 Counter of # keys in Conf mode keyboard buffer u0069 rmb 1 u006A rmb 1 u006B rmb 1 ZModem flag (hi bit clear=none in progress) u006C rmb 2 pointer to ZModem start header u006E rmb 1 duplicate of input path for ZModem (for restore) u006F rmb 1 possible remove u0070 rmb 1 u0071 rmb 1 u0072 rmb 1 path to VRN (0=No VRN present) u0073 rmb 1 Current seconds counter (either VRN or Clock) u0074 rmb 1 # seconds on last update done (either VRN or Clock u0075 rmb 1 Timer on/off flag (0=Off) u0076 rmb 1 child process # (shell, sz & rz etc...) u0077 rmb 11 time On-Line ASCII text (with CurXY) '00:00:00' u0082 rmb 1 Width of original screen u0083 rmb 1 Height of original screen u0084 rmb 1 Type of original screen (ex. 1=40x24 Hware txt) u0085 rmb 1 background color for overlay windows u0086 rmb 1 u0087 rmb 1 FColor of main window u0088 rmb 1 BColor of main window u0089 rmb 1 FColor of conference mode window u008A rmb 1 u008B rmb 1 u008C rmb 1 u008D rmb 1 Foreground color of original screen u008E rmb 1 Background color of original screen u008F rmb 1 Border color of original screen u0090 rmb 1 X size of main window u0091 rmb 1 Y size of main window u0092 rmb 1 u0093 rmb 2 Ptr to next filename (from dir read) u0095 rmb 2 u0097 rmb 2 u0099 rmb 1 u009A rmb 1 u009B rmb 1 filename present for Upload/Download flag u009C rmb 3 FColor codes u009F rmb 32 old filename for downloads u00BF rmb 2 u00C1 rmb 26 u00DB rmb 2 u00DD rmb 2 u00DF rmb 1 input buffer from modem (192 bytes) u00E0 rmb 1 u00E1 rmb 1 u00E2 rmb 4 u00E6 rmb 13 u00F3 rmb 10 u00FD rmb 1010 u04EF rmb 1 u04F0 rmb 31 u050F rmb 255 Conference mode keyboard buffer u060E rmb 255 Generic Entry from keyboard buffer u070D rmb 1024 output buffer to screen (with conversion) u0B0D rmb 255 u0C0C rmb 32 Current SS.Opt settings for local keyboard u0C2C rmb 2 u0C2E rmb 34 u0C50 rmb 16 Palette settings of original screen u0C60 rmb 1 Start of buffer for converted ANSI sequences u0C61 rmb 1 u0C62 rmb 30 u0C80 rmb 2 Ptr to converted ANSI buffer (C60) u0C83 rmb 1 u0C84 rmb 1 Currently selected menu item # in ==> menu u0C85 rmb 3 u0C8A rmb 1 Flag: 0=Not processing ANSI <ESC> sequence u0C8B rmb 1 ??? (Inited to 0 if starting ANSI <ESC> sequence) u0C8C rmb 1 u0C8D rmb 2 Ptr to ANSI sequence (raw ANSI:u0B0D) u0C8F rmb 2 current overlay window start co-ordinates u0C91 rmb 2 current overlay window size u0C93 rmb 1 possible remove u0C94 rmb 1 current cursor X position u0C95 rmb 1 current cursor Y position u0C96 rmb 2 current X/Y co-ordinates? u0C98 rmb 1 u0C99 rmb 6 Place to hold F$Time packet u0C9F rmb 1 u0CA0 rmb 1 seems to be flag for upload/download (0=Upload) u0CA1 rmb 2 u0CA3 rmb 1 u0CA4 rmb 1 u0CA5 rmb 1 bit 8=Stop bits, bit 6=Word Len, bits 1-3=Baud u0CA6 rmb 1 current terminal type (0=TTY, 1=OS9, 2=ANSI) u0CA7 rmb 1 Current Echo type (0=Off, 1=On) u0CA8 rmb 1 u0CA9 rmb 1 u0CAA rmb 1 u0CAB rmb 1 Current hangup method (0=DTR drop, else +++ATH) u0CAC rmb 1 Current Parity setting u0CAD rmb 1 u0CAE rmb 1 Auto Zmodem flag (0=Yes) u0CAF rmb 1 Pause off char. code (for ASCII receive) u0CB0 rmb 1 Pause on char. code (for ASCII receive) u0CB1 rmb 33 u0CD2 rmb 32 Current data directory path list u0CF2 rmb 39 u0D19 rmb 1 u0D1A rmb 2 u0D1C rmb 128 <ALT>-<1> programmable key buffer u0D9C rmb 128 <ALT>-<2> programmable key buffer u0E1C rmb 128 <ALT>-<3> programmable key buffer u0E9C rmb 128 <ALT>-<4> programmable key buffer u0F1C rmb 128 <ALT>-<5> programmable key buffer u0F9C rmb 128 <ALT>-<6> programmable key buffer u101C rmb 128 <ALT>-<7> programmable key buffer u109C rmb 128 <ALT>-<8> programmable key buffer u111C rmb 256 SSn strings (4 of 64 bytes each) u121C rmb 256 RSn strings (4 of 64 bytes each) u131C rmb 128 u139C rmb 2 Pointer to RSn string we are working on u139E rmb 1 # download protocols supported u139F rmb 4 u13A3 rmb 1 u13A4 rmb 1 u13A5 rmb 1 u13A6 rmb 3 * ??? rest big buffer, most used for text, input & output ??? u13A9 rmb 1 Temp buffer for small text, etc. u13AA rmb 6 u13B0 rmb 137 u1439 rmb 16 u1449 rmb 112 u14B9 rmb 512 u16B9 rmb $2000-200-. ASCII recieve buffer (expanded by #xxK modifier) u1F38 rmb 200 stack dsize equ . fcc 'Program by Dave Philipsen Copyright (c) 1988, 1989,1992' fcc / ('92 updates by Randy K. Wilson)/ L006F fdb 85 # bytes this message (?) ($55) fcb C$FORM Clear screen fcb $02,$23,$21 CurXY @ 3,1 fcc 'SuperComm v2.2' fcb $02,$24,$23 CurXY @ 4,3 fcc 'Copyright (c)' fcb $02,$23,$24 CurXY @ 3,4 fcc '1988, 1989, 1992' fcb $02,$26,$26 CurXY @ 6,6 fcc 'written by' fcb $02,$24,$27 CurXY @ 4,7 fcc 'Dave Philipsen' L00C6 fdb 35 # bytes this message ($23) fcb C$FORM Clear screen fcb $02,$22,$21 CurXY @ 2,1 fcc 'with updates by' fcb $02,$22,$22 CurXY @ 2,2 fcc ' Randy Wilson' L00EB fdb 28 # bytes this message ($1C) fcb $02,$40,$20 CurXY @ 32,0 fcb $1B,$32,4 Foreground color= Yellow fcc 'SuperComm v2.2 ' fcb $1B,$32,3 Foreground color= White fcb $02,$58,$20 CurXY @ 55,0 fcc '=' (for port '=' baudrate) L0109 fdb 454 # bytes this message ($C6) fcc ' Use <ALT> key with the following keys:' fcb C$CR,C$LF,C$LF fcc ' A - Auto Dialer Q - Quit' fcb C$CR,C$LF fcc ' B - Baud Rates R - Reset Palettes' fcb C$CR,C$LF fcc ' C - Clear Screen S - OS9 Shell Access' fcb C$CR,C$LF fcc ' D - Change Directory T - Terminal Type' fcb C$CR,C$LF fcc ' H - Hang Up U - Update SuperComm' fcb C$CR,C$LF fcc ' I - Timer on/off Z - Conference Mode' fcb C$CR,C$LF fcc ' M - Open/Close Buffer <Up>- Upload file' fcb C$CR,C$LF fcc ' O - Change Options <Dn>- Download File' fcb C$LF,C$CR,C$LF fcc ' Select function or <Space> to continue' L02DC fcc 'ATH' Hangup string (does not need '0' on end) fcb C$CR L02E0 fcc 'Shell' L02E5 fcb C$CR L02E6 fcc 'rz' fcb C$CR L02E9 fcc '-vv ' fcb C$CR L02F0 fdb 40 # bytes this message ($28) fcb $02,$34,$20 CurXY @ 20,0 fcc 'External ZModem File Receive' fcb C$CR,C$LF,C$LF fcb $1B,$25,0,3,$40,7 CWArea to 0,3 - 64,10 L031A fcc '*' ZModem Xfer signature fcb $18 fcc 'B0' fcb $00 Byte to signify end of Zmodem Xfer signature * Window for ZModem Send L0322 fdb 37 # bytes this message fcb $02,$36,$20 CurXY @ 23,1 fcc 'External ZModem File Send' fcb C$CR,C$LF,C$LF fcb $1B,$25,0,3,$40,7 CWArea to 0,3 - 64,10 * Hangup message L0349 fdb 15 # bytes this message fcb C$CR,C$LF fcc ' Hanging Up!!' * Device to use VRN L0360 fcc '/nil' fcb C$CR fcb $00 * Default time on-line string L0366 fcb $02,$2b,$20 CurXY @ 11,0 fcc '00:00:00' * Palette set #1 L0371 fcb $00,$20,$00,$3F,$10,$20,$3F,$3F fcb $00,$20,$00,$3F,$10,$20,$3F,$3F * Palette set for ANSI mode L0381 fcb $00,$24,$12,$37,$09,$28,$1F,$3F fcb $00,$24,$12,$37,$09,$28,$1F,$3F * Palette set for OS-9 mode L0391 fcb $3F,$09,$00,$12,$24,$37,$28,$1F fcb $3F,$09,$00,$12,$24,$37,$28,$1F * Default FColor,BColor,Border settings for ANSI L03A1 fcb $07,$00,$00 * Default FColor,BColor,Border settings for OS-9 L03A4 fcb $00,$02,$02 * Inverse/Underline/Blink OFF & clear screen L03A7 fdb 7 # bytes this message fcb $1F,$21,$1f,$23,$1f,$25,C$FORM * Shadowed overlay window (save switch on) L03B0 fdb 18 # bytes this message L03B2 fcb $1B,$22,1,0,0,80,23,1,1 fcb $1B,$22,1,2,1,76,21,6,0 * Shadowed overlay windows remove (restore original screen) L03C4 fdb 4 # bytes this message L03C6 fcb $1B,$23,$1b,$23 OWEnd, OWEnd * Default settings? L03D6 fdb 14 # bytes this message fcb $1F,$21 Inverse off fcb $1F,$23 Underline off fcb $1F,$25 Blink off fcb $1B,$32,7 Foreground color 7 fcb $1B,$33,0 Background color 0 fcb $05,$21 Cursor ON L03E6 fcb 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 fdb 2 # bytes this entry fcb $1F,$22 Underline on fcb 0,0 fcb 2 # bytes this entry fcb $1F,$24 Blink on fcb 0,0,0,0,0,0,0 fcb 2 # bytes this entry fcb $1F,$20 Inverse on fcb $00 * Foreground color settings L040E fdb 3 # bytes this entry fcb $1B,$32,0 Foreground color 0 fdb 3 # bytes this entry fcb $1B,$32,1 Foreground color 1 fdb 3 # bytes this entry fcb $1B,$32,2 Foreground color 2 fdb 3 # bytes this entry fcb $1B,$32,3 Foreground color 3 fdb 3 # bytes this entry fcb $1B,$32,4 Foreground color 4 fdb 3 # bytes this entry fcb $1B,$32,5 Foreground color 5 fdb 3 # bytes this entry fcb $1B,$32,6 Foreground color 6 fdb 3 # bytes this entry fcb $1B,$32,7 Foreground color 7 * Background color settings L0436 fdb 3 # bytes this entry fcb $1B,$33,0 Background color 0 fdb 3 # bytes this entry fcb $1B,$33,1 Background color 1 fdb 3 # bytes this entry fcb $1B,$33,2 Background color 2 fdb 3 # bytes this entry fcb $1B,$33,3 Background color 3 fdb 3 # bytes this entry fcb $1B,$33,4 Background color 4 fdb 3 # bytes this entry fcb $1B,$33,5 Background color 5 fdb 3 # bytes this entry fcb $1B,$33,6 Background color 6 fdb 3 # bytes this entry fcb $1B,$33,7 Background color 7 * Clear screen code L045E fdb 1 # bytes this entry fcb C$FORM * Erase to end of line L0461 fdb 1 # bytes this entry fcb $04 * Erase to end of screen L0464 fdb 1 # bytes this entry fcb $0B * Generic window descriptor L0467 fcs '/W' * DWSet for main window: 80x23 text from 0,1 L0469 fcb $1B,$24 DWEnd fcb $1B,$20,2,0,1,80,23,7,2,2,$1b,$21 DWSet:80x23 text, 1 from top * DWSet for status line @ top window: 80x1 with blue background * Done on Process' current screen (which is set by L0469 above) L0475 fcb $1B,$24 DWEnd L0477 fcb $1B,$20,0,0,0,80,1,3,4 DWSet: 80x1, same scrn, blue bckgrnd fcb C$FORM Clear the line L0481 fcb $1B,$32,0 Foreground color=0 fcb $1B,$33,0 Background color=0 fcb C$FORM Clear screen fdb 1 fcc / / L048B fdb 2 fcb $05,$21 L048F fdb 2 fcb $05,$20 L0493 fcb $1F,$20 Inverse on fcb $20 Space fcb $1F,$21 Inverse off fcb C$BSP Backspace L0499 fdb 22 # bytes this message fcb C$CR,C$LF fcc ' Are you sure? (y/N)' L04B1 fdb 40 # bytes this message fcb $02,$2e,$23 CurXY @ 14,3 fcc 'Count ' fcb $02,$2e,$25 CurXY @ 14,5 fcc 'Seconds ' fcb $02,$2d,$27 CurXY @ 13,7 fcc '<Space> aborts' fcb $05,$20 Turn off cursor L04DB fdb 8 # bytes this message fcc 'Dialing ' L04E5 fdb 3 # bytes this message fcb $02,$37,$23 CurXY @ 23,3 L04EA fdb 3 # bytes this message fcb $02,$37,$25 CurXY @ 23,5 L04EF fdb 32 # bytes this message fcc ' Xmodem file transfer system' L0511 fdb 9 # bytes this message fcb $02,$20,$20 CurXY @ 0,0 fcc ' Y' L051C fdb 17 # bytes this message fcb $02,$2b,$26 CurXY @ 11,6 fcc '<Break> aborts' L052F fdb 17 # bytes this message fcb $02,$2A,$28 CurXY @ 10,8 fcc '<Break> aborts' fdb 27 # bytes this message fcb $02,$25,$22 CurXY @ 5,2 fcc 'ASCII Processing? (Y/N) ' L055F fdb 10 # bytes this message fcb $02,$21,$24 CurXY @ 1,4 fcc 'File: ' fcb $04 Clear to end of line L056B fdb 10 # bytes this message fcb $02,$21,$22 CurXY @ 1,2 fcc 'Recv: ' fcb $04 Clear to end of line L0577 fdb 10 # bytes this message fcb $02,$21,$23 CurXY @ 1,2 fcc 'Size: ' fcb $04 Clear to end of line L0583 fdb 14 # bytes this message fcb $02,$21,$24 CurXY @ 1,4 fcb $04 Clear to end of line fcb $02,$21,$22 CurXY @ 1,2 fcc 'Send: ' fcb $04 Clear to end of line L0593 fdb 34 # bytes this message fcb $02,$21,$25 CurXY @ 1,5 fcc 'Block # Error #' L05B7 fdb 14 # bytes this message fcb $02,$21,$27 CurXY @ 1,7 fcc 'Last Error:' L05C7 fcc ' ' fcc 'Transfer Aborted ' fcc 'Wrong Block Number ' fcc 'Block Check Failed ' fcc 'Time Out ' L062B fdb 7 # bytes this message fcb $02,$28,$25 CurXY @ 8,5 fcc '0000' L0634 fdb 7 # bytes this message fcb $02,$40,$25 CurXY @ 32,5 fcc '0000' * ???? No label was pointing to it, was after baud rate table (L0652) * NOTE: MAY BE POSSIBLE TO DELETE FOLLOWING 8 BYTES fdb 6 # bytes this message fcb $1B,$25,1,2,4,9 CWArea from 1,2 to 5,11 L0682 fcb C$BSP,C$BSP,C$BSP fcc ' ' L0688 fcb C$FORM Clear screen fcb C$LF,C$LF,C$LF,C$LF,C$LF,C$LF,C$LF,C$LF,C$LF,C$LF L0693 fcc '==>' L0696 fdb 24 # bytes this message fcb C$LF,C$CR fcc ' Terminal Type : ' L06B0 fcc 'OS9 ' fcc 'ASCII' fcc 'ANSI ' L06BF fcb $02,$30,$21 CurXY @ 16,1 fcc 'ASCII' L06C7 fdb 8 # bytes this message fcb $02,$30,$21 CurXY @ 16,1 fcc ' ' * Keywords in ADF (Autodial) files L06D1 fcs 'ADS' fcs 'BPS' fcs 'ECH' fcs 'HEK' fcs 'TRM' fcs 'LNF' fcs 'XON' fcs 'XOF' fcs 'RTR' fcs 'RPS' fcs 'PAR' fcs 'CLK' fcs 'WRD' fcs 'STP' fcs 'KM1' fcs 'KM2' fcs 'KM3' fcs 'KM4' fcs 'KM5' fcs 'KM6' fcs 'KM7' fcs 'KM8' fcs 'CNS' fcs 'SS1' fcs 'SS2' fcs 'SS3' fcs 'SS4' fcs 'RS1' fcs 'RS2' fcs 'RS3' fcs 'RS4' fcs 'RLF' fcs 'TLF' * Receive protocol menu L0734 fdb 111 # bytes this message fcc ' SuperComm File Receive' fcb C$CR,C$LF,C$LF fcc ' ASCII Receive' fcb C$CR,C$LF fcc ' XModem (and X-1k)' fcb C$CR,C$LF fcc ' YModem Batch' fcb C$CR,C$LF fcc ' ZModem (external)' * File send menu L07A5 fdb 123 # bytes this message fcc ' SuperComm File Send' fcb C$CR,C$LF,C$LF fcc ' ASCII Send' fcb C$CR,C$LF fcc ' XModem (and CRC)' fcb C$CR,C$LF fcc ' Xmodem 1K' fcb C$CR,C$LF fcc ' YModem Batch' fcb C$CR,C$LF fcc ' ZModem (external)' * Options menu L0821 fdb 147 # bytes this message fcc ' SuperComm Options' fcb $1B,$25,5,2,14,12 CWArea from 5,2 to 19,14 fcc 'Echo' fcb C$CR,C$LF fcc 'L-Feeds Rx' fcb C$CR,C$LF fcc 'L-Feeds Tx' fcb C$CR,C$LF fcc 'Click' fcb C$CR,C$LF fcc 'Word Length' fcb C$CR,C$LF fcc 'Parity' fcb C$CR,C$LF fcc 'Stop Bits' fcb C$CR,C$LF fcc 'Echo (host)' fcb C$CR,C$LF fcc 'Hang Up' fcb C$CR,C$LF fcc 'Auto Zmodem' fcb C$CR,C$LF fcc 'Auto Ascii' fcb C$CR,C$LF fcb $1B,$25,0,0,22,14 CWArea from 0,0 to 22,14 * Re-saving Supercomm message L08B6 fdb 23 # bytes this message fcb C$CR,C$LF fcc ' Saving SuperComm...' L08CF fdb 23 # bytes this message fcb C$FORM Clear screen fcb $02,$29,$20 CurXY @ 9,0 fcc 'File Capture System' L08E8 fdb 38 # bytes this message fcc '"' fcb $02,$21,$24 CurXY @ 1,4 fcc 'is already open. Close it? (Y/n) ' L0910 fdb 19 # bytes this message fcb $02,$2b,$22 CurXY @ 11,2 fcb $03 Erase current line fcc 'Send ASCII file' L0925 fdb 4 # bytes this message fcb $02,$21,$22 CurXY @ 1,2 fcc '"' L092B fdb 51 # bytes this message fcb $02,$29,$20 CurXY @ 9,0 fcc 'File already exists!' fcb $02,$26,$22 CurXY @ 6,2 fcc '<A>ppend or <O>verwrite? ' * Buffer open indicator L0960 fdb 11 # bytes this message fcb $02,$6e,$20 CurXY @ 78,0 fcb $1F,$24 Blinking on fcb $1B,$32,3 Foreground color=3 fcc 'B' fcb $1F,$25 Blinking off * Buffer closed indicator L096D fdb 10 # bytes this message fcb $02,$6e,$20 CurXY @ 78,0 fcb $1B,$32,0 Foreground color=0 fcc 'B' fcb $1B,$32,3 Foreground color=3 L0979 fdb 4 # bytes this message fcc 'DTR' fcb $04 Clear to end of line L0985 fdb 4 # bytes this message fcc 'Off' fcb $04 Clear to end of line L098B fdb 3 # bytes this message fcc 'On' fcb $04 Clear to end of line L0990 fcc ' ' L0991 fcc 'Mark' L0995 fcc 'Space' L099A fcc ' ' L099B fcc 'Even' L099F fcc ' ' L09A0 fcc 'Odd ' L09A4 fcc ' ' L09A5 fcc 'None' L09A9 fdb 54 # bytes this message fcb $02,$28,$20 CurXY @ 8,0 fcc 'Change Data Directory' fcb $02,$29,$25 CurXY @ 9,5 fcc '(use full pathname)' fcb $02,$21,$24 CurXY @ 1,4 fcc 'Path:' L09E1 fcb $02,$20,$20 fcc / / L09E8 fcb $02,$20,$20 CurXY @ 0,0 fcc 'Conf' L09EF fcb $1B,$25,0,1,80,2 CWArea to 0,1 to 80,3 * Table for converting long Integers (used for file size printing) * Will handle sizes up to 9,999,999 bytes L09F5 fdb $000F,$4240 1,000,000 fdb $0001,$86A0 100,000 fdb $0000,$2710 10,000 fdb $0000,$03E8 1,000 fdb $0000,$0064 100 fdb $0000,$000A 10 fdb $0000,$0001 1 fdb $0000,$0001 0 L0A15 fcb $0E * Acceptable entries on help screen L0A16 fcc 'ABCDHIMOQRSTUZ' * Default option switches L0A24 fcb $04 default word length, stop bits & baud rate fcb $02 fcb $00 echo fcb $00 linefeeds Rx fcb $00 linefeeds Tx fcb $00 key click fcb $00 hangup method fcb $00 parity fcb $00 auto ASCII (0=Off) fcb $00 auto ZModem (0=On) fcb $11 default XON value fcb $13 default XOFF value fcb $00 echo (host) L0A31 fcs '/dd/sys/dial' fcc ' ' L0A51 fcc '/dd' fcb C$CR fcc ' ' **************************** * Main Entry point * Note: Eventually change to use Ext. addressing start stx <u0000 Save Param area ptr leax -$40,x End of rec. bffr is 64 bytes from end of data mem stx <u0002 Save end of receive buffer ptr leas -1,s Reserve 1 byte on stack ldx #u16B9 Point to start of receive buffer stx <u0004 Save start of receive buffer ptr (constant) stx <u0006 Save current end of receive buffer ptr leax -1,x Move ptr 1 back stx <u000B Save it ldx #u14B9 Point to ??? stx <u000D Save that ptr twice stx <u000F ldd #$0000 Clear out something to 0 std <u0009 ldx #u0019 Point X to $19 in data area * Clear out all memory from $19 to end of Data mem-64 L0A96 sta ,x+ Clear byte out cmpx <u0002 Done all data mem yet? blo L0A96 No, keep going until done ldx <u0000 Get param area ptr back lda #C$SPAC Get char for space sta -1,x Save as char before param area * Parse parameters for device name L0AA2 lda ,x+ Get param char cmpa #C$CR End of params? beq L0AB6 Yes, skip ahead cmpa #'/ Start of device name? bne L0AA2 No, eat char & continue lda -2,x Get char before the '/' cmpa #C$SPAC Was it a space? bne L0AA2 No, eat '/' and continue parsing leax -1,x It was, bump ptr back to '/' bra L0ABA Skip ahead * Default modem port L035A fcc '/t2' fcb C$CR fcb $00,$00 * L0AB6 leax <L035A,pc Point to '/t2' L0ABA ldy #u002D Point to spot in data mem ldb #10 Max # bytes to copy L0ABF lda ,x+ Get char from device to use as modem port cmpa #C$CR Hit end yet? beq L0ACA Yes, skip ahead sta ,y+ Save char decb Past max count yet? bne L0ABF No, keep copying L0ACA sta ,y+ Save CR too lbsr L12F5 Go save original screen attributes lbcs L0F15 If not window-capable, exit with error lbsr L1A8A set main window to full size possible lbcs L0F15 If error, exit with it lda #$01 sta <u0065 ldx #$0003 sleep to allow window to init. os9 F$Sleep ldd #1*256+SS.Montr Get monitor type os9 I$GetStt bcs L0B1D Error, exit tfr x,d Move to splittable register stb >u0C84 save monitor type ora >u0C84 ??? OR with 0? sta <u0065 save monitor type leax L0A24,pc point to default option table & directorys ldy #u0CA5 ldb #$4D get size of data lbsr L2D1E move it lda #READ. leax L0A51,pc point to default directory name os9 I$ChgDir leax L0366,pc point to default time on-line ldy #u0077 ldb #$0B get size of data lbsr L2D1E move it L0B1D lbsr L1BDF set palettes based on monitor type lbsr L1C57 lbsr L1BC7 initialize batch file xfer names? leax L0F18,pc point to intercept trap os9 F$Icpt * Get special version flag from system direct page (offset $7C) * all this byte does in this source is add a 'a' to the version # on the * status line ldx #u00DF point to a DAT buffer ldd #$0000 get DAT image std ,x store it std 2,x std 4,x stb 6,x tfr x,d ldx #$7C get offset into System DP (no idea what it is) ldy #1 get # bytes ldu #u0019 point to location to copy os9 F$CpyMem get the byte * Setup VRN leax L0360,pc point to VRN pathname lda #UPDAT. os9 I$Open bcs L0B92 If VRN not around, skip ahead sta <u0072 save path # to VRN ldb #$81 get code to setup VIRQ timer ldy #1 get enable flag ldx #60 get timer count os9 I$SetStt start timer bcs L0B89 lda <u0072 get VRN path again ldb #$80 get code to clear & report VIRQ calls os9 I$GetStt get VIRQ counts & reset bcs L0B89 cmpx #$0800 bhs L0B89 cmpy #$0800 blo L0B92 L0B89 lda <u0072 get path to VRN again os9 I$Close close it clr <u0072 clear path # to VRN * No VRN available comes here L0B92 ldx #u050F Point to ??? stx <u0066 Save ptr ldd #$0100 ??? Init some values std >u0D19 ldd #$1B32 Foreground color prefix std <u009C Save it * Print title screens leax L045E,pc point to CLS lbsr L1B03 do it leax L048F,pc point to CuOff lbsr L1B03 do it ldd #$1A04 get overlay start coords std >u0C8F ldd #$1609 get overlay size std >u0C91 lbsr L1C81 place overlay window on screen leax L006F,pc point to title #1 lbsr L1B03 print it lbsr L1AE8 init small window on top line ldx #$001C get sleep time lbsr L0F56 sleep for title pause ldd #$3210 get overlay start co-ordinates std >u0C8F ldd #$1304 get overlay size std >u0C91 lbsr L1C81 place overlay on screen leax L00C6,pc point to title #2 lbsr L1B03 print it lbsr L3BBC copy current seconds L0BF7 ldd #SS.Ready Get code to check data ready on Std In os9 I$GetStt any data from keyboard? bcc L0C08 yes, skip ahead lbsr L3BDA check timeout cmpa #$0A did it timeout? blo L0BF7 no, try again bra L0C0B L0C08 lbsr L2AC5 purge the data from keyboard L0C0B lbsr L1CDE remove overlay windows lbsr L1CDE leax L048B,pc point to CurOn lbsr L1B03 do it lda #UPDAT. get mode for modem path ldx #u002D point to modem path os9 I$Open open it lbcs L0F15 If error, exit with it sta <u002B save path to modem leax L045E,pc point to CLS lbsr L1B03 do it lbsr L117F get path options from modem lbsr L2B86 print status line lbsr L4403 scan parameters for '-f=' (capture buffer) ldd #$0103 init cursor position std >u0C94 * NOTE: may want to have Supercomm make this an option (self-modify code * to change LBSR opcode to LBRN or vice versa) lbsr L2AF5 toggle DTR to hangup modem lbsr L134D get local keyboard path options lbsr L12B5 set them to what I need clra Std In path leax L031A,pc point to ZModem xfer header stx <u006C save pointer to it ldx #u060E Point to buffer for key presses ldy #$0001 os9 I$Read lbra L157B enter main loop (without read from keyboard) * Check if data waiting for keyboard L13C2 ldd #SS.Ready Check if data ready on keyboard (Std In) os9 I$GetStt rts * Main processing loop L0C5E lda <u002B Get path to modem ldb #SS.Ready Check for data ready os9 I$GetStt Any data ready? bcc L0FB8 yes, go process tst <u0023 sending ASCII file? lbne L44B6 yes, read & write next line ldx #3 get # ticks to wait lbsr L0F56 go wait L0C72 bsr L13C2 any data from keyboard? bcs L0C5E no, try modem again * Keyboard data ready tst <u0040 conference mode? lbne L273D yes, go read data from keyboard lbra L156E go read & process keyboard data * Process modem data - only comes here if at least 1 char available * Entry: B=Number of characters available on serial port * Modified 94/03/27 for 256 byte buffer L0FB8 clra clear MSB of length tfr d,y move length to Y lda <u002B get path to modem ldx #u00DF point to buffer os9 I$Read get the data bcs L1023 error, skip ahead sty <u0C88 save # bytes read L0FD2 beq L1017 If no data, skip ahead lda >u0CAE Is Auto-Zmodem enabled? bne L0FE1 no, check continue lbsr L1062 Check for an Auto-ZModem header L0FE1 lda <u0C82 Get which search/reply string we are doing beq L0FF4 None, skip checking search/reply strings cmpa #$05 Have we finished the 4 max. allowed? bne L0FF1 No, go check for this one clra Done all of them, clear it out to skip thru faster sta <u0C82 bra L0FF4 Skip checking auto-logon sequences L0FF1 lbsr L254A Go check for auto-logon sequences L0FF4 bsr L1040 convert & move data to output buffer lda #1 get path to window ldx #u070D point to parsed data ldy <u0C88 get amount of data beq L1017 none, skip ahead os9 I$Write print data on screen tst <u0025 Is there an ASCII receive buffer file going? beq L1017 No, skip ahead tst <u0026 Is the buffer OPEN? beq L1017 No, skip ahead lbsr L4394 Go handle receive buffer L1017 lbsr L453B Go handle screen buffer tst >u0C83 beq L1023 lbsr L25B1 L1023 tst <u006B Zmodem flag? bpl L1036 No zmodem, skip ahead clr <u006B Clear it out tst >u0CA0 Sending or receiving? lbeq L1859 Sending; do ZModem file send lbra L1793 Do Zmodem file receive L1036 tst <u0023 Are we sending an ASCII file? beq L0C72 No, go check the keyboard lbra L0C5E go back to main loop * Convert modem text to TTY/ANSI/OS9 codes L1040 ldx #u00DF Point to modem buffer ldy #u070D Point to screen output buffer ldb <u0C89 Get # bytes waiting in modem buffer lda >u0CA6 get terminal type lbeq L2D1E TTY, copy buffer with no editing & exit deca OS9? beq L0C8D Yes, go do deca ANSI? beq L0CF6 Yes, go (illegal values fall thru to OS9:was TTY) * Loop to Convert OS9 codes to output buffer * NOTE: ORIGINALLY STRIPPED HI-BIT OFF OF CHARS (anda #$7f) & also had code * after the strip to cmpa #$7f/BHI L0CA2, which would eat the char. Taken * out to allow foreign & extra chars through. May want to add parser later * to eat '.' illegal chars, but leave foreign symbols alone. L0C8D lda ,x+ get a byte cmpa #C$SPAC control chars? blo L0CA2 yes, skip ahead lbsr L13CF update internal cursor position L0C9C sta ,y+ save to output buffer L0C9E decb done all data? bne L0C8D no, keep going rts return * Parse control codes L0CA2 cmpa #C$BSP backspace? bne L0CAB no, check CR lbsr L13EC bra L0C9C go save char in output buffer & continue L0CAB cmpa #C$CR carriage return? bne L0CC5 no, check CLS lbsr L1405 u0C94=1 tst >u0CA8 Auto line feed on? beq L0C9C No, go save char in output buffer * NOTE: CHANGE 140E TO ONLY PSHS A, ONLY LDA u0C95,u ETC. lbsr L140E Go bump Y coord down by 1 for auto-lf on CR inc <u0C89 Increase size of converted buffer by 1 sta ,y+ Save CR in output buffer lda #C$LF Get Line feed bra L0C9C Go add that to buffer too L0CC5 cmpa #C$FORM CLS? bne L0CCE no, check bell lbsr L1422 u0C94 = $0101 bra L0C9C Go save CLS code in output buffer L0CCE cmpa #C$BELL bell? beq L0C9C Yes, go save in output buffer cmpa #C$LF linefeed? bne L0CDB No, check Up one line lbsr L140E Go bump Y coord down by 1 bra L0C9C Save LF in output buffer L0CDB cmpa #$09 Up one line code? bne L0CE4 No, check next * NOTE: USELESS LBSR...PERHAPS LEFT IN FOR AN OPTION TO HAVE CHR$(9) BE EITHER * UP 1 LINE (FOR OS9) OR TAB CHAR??? IF REMOVING, SHOULD ALSO REMOVE RTS @ * 1BDE * lbsr L1BDE Spot reserved for TAB handler bra L0C9E Eat the char & continue * All other <CTRL> chars& chars >128, don't save in buffer? L0CE4 dec <u0C89 Shrink size of converted buffer by 1 bra L0C9E Eat char & continue L0CF6 lda >u0C8A Are we processing an <ESC> sequence? lbne L0D9F yes, go to ANSI processor lda ,x+ get data cmpa #C$SPAC printable? blo L0D13 no, check control codes cmpa #$80 Hi bit char? blo L0D0A No, save it in out buffer lda #'* Yes, replace with '*' L0D0A lbsr L13CF update internal cursor position L0D0D sta ,y+ Save char in buffer L0D0F decb bne L0CF6 rts L0D13 cmpa #C$BSP is it backspace? beq L0D31 yes, go process cmpa #C$CR is it carriage return? beq L0D42 yes, go process cmpa #C$LF is it line feed? beq L0D58 yes, go process cmpa #C$FORM Clear screen? beq L0D5D Yes, go process cmpa #C$BELL <CTRL>-<G> Bell? beq L0D0A Yes, go process cmpa #C$EOF <ESC>? beq L0D62 Yes, ANSI code coming...go set up L0D2B dec <u0C89 decrement # chars in converted output buffer bra L0D0F Eat the char & continue processing * Process backspace - ANSI (OS9, if it backspaces off left side, will go up * 1 line & set the cursor to the right side. ANSI will stop at the left side L0D31 pshs a Save char lda >u0C94 get cursor X position cmpa #$01 Already at far left side? puls a Restore char beq L0D2B Already @ left side, eat char & continue dec >u0C94 Bump X cursor coord left by 1 bra L0D0D continue processing * Process carriage return L0D42 lbsr L1405 Reset X coord to 1 tst >u0CA8 Auto LF on? beq L0D0D No, go save CR lbsr L140E Yes, bump up Y coord by 1 inc <u0C89 Bump up size of converted output buffer by 1 sta ,y+ Save CR char in output buffer lda #C$LF Also add an LF bra L0D0D * Process line feed L0D58 lbsr L140E Bump Y coord up by 1 bra L0D0D Go save LF in converted output buffer * Process CLS L0D5D lbsr L1422 Set X&Y coords to 1,1 bra L0D0D Save char in converted output buffer * Process <ESC> L0D62 inc >u0C8A flag <ESC> received clr >u0C8B lda #$FF ??? Init ANSI convert buffer to empty pshs x Save converted output buffer ptr ldx #u0C60 ??? Point to ANSI convert buffer? stx >u0C80 Save ptr clr ,x Clear our 2 of ANSI convert bytes clr 1,x sta 2,x Flag end of ANSI convert buffer ldx #u0B0D Point to start of ANSI seq. bffr (no ESC) stx >u0C8D Save ptr to it dec <u0C89 Dec # chars in converted output buffer puls x Restore converted output ptr bra L0D0F Eat the ESC for now & continue * Parse ANSI escape sequence * Entry: X=Modem buffer ptr, Y=Converted output buffer ptr, B=# bytes to do L0D9F ldu >u0C8D get ANSI sequence buffer ptr lda ,x+ get character sta ,u+ save it into ANSI sequence buffer stu >u0C8D save updated ANSI sequence buffer ptr cmpa #'[ the start char? beq L0DB9 yes, continue cmpa #'@ printable char? bhi L0DC0 yes, check for finish L0DB9 dec <u0C89 decrement converted output buffer count lbra L0D0F continue * Start ANSI sequence found (<ESC>-[) L0DC0 clr >u0C8A Clear out ANSI sequence found flag??? sta >u0C8C Save char dec <u0C89 Dec converted output buffer count pshs y,b Preserve converted output bffr ptr&# chars left ldy >u0C80 Get ptr to converted ANSI buffer lda #$FF Flag as unused for now sta ,y ldy #u0C60 Point to converted ANSI buffer sty >u0C80 ldy #u0B0D+1 Point to Start of ANSI sequence buffer (no ESC)+1 sty >u0C8D Save ptr L0DEE lda ,y+ Get char cmpa #$40 '@' bhi L0E3B Letter or higher, go do cmpa #$3A ':' blo L0DFC Possible ASCII numeric, skip ahead ldb #$FE bra L0E19 L0DFC suba #$30 Drop possible numeric down to binary equivalent sta >u0C84 Save it lda ,y+ Get next char cmpa #'9 above numeric? bhi L0E33 Yes, skip ahead suba #$30 Bump down to binary version sta >u0C85 Save it lda >u0C84 Get 1st one again (10's digit) ldb #10 Multiply by 10 mul addb -1,y Add in one's digit subb #$30 L0E19 pshs x ldx >u0C80 stb ,x+ ldb #$FF stb ,x stb 1,x stb 2,x stx >u0C80 puls x bra L0DEE L0E33 leay -1,y ldb >u0C84 bra L0E19 L0E3B puls y,b lda >u0C8C cmpa #$6D m beq L0E84 cmpa #$4A J lbeq L10E2 cmpa #$66 f lbeq L1467 cmpa #$48 H lbeq L1467 cmpa #$43 C lbeq L14B0 cmpa #$44 D lbeq L14F4 cmpa #$41 A lbeq L151D cmpa #$42 B lbeq L1546 cmpa #$73 s lbeq L1433 cmpa #$75 u lbeq L1442 cmpa #$4B K lbeq L1102 lbra L0D0F L0E84 pshs x,d ldx #u0C60 L0E8A lda ,x+ cmpa #$FF beq L0EA6 tsta beq L0EDD cmpa #$01 beq L0E8A cmpa #$08 blo L0EAB cmpa #$26 blo L0EB3 cmpa #$30 blo L0EC8 bra L0E8A L0EA6 puls x,d lbra L0D0F L0EAB pshs x leax >L03E6,pc bra L0EE3 L0EB3 ldb <u0065 cmpb #$02 beq L0E8A cmpa #$1E blo L0E8A suba #$1E pshs x leax >L040E,pc bra L0EE3 L0EC8 ldb <u0065 cmpb #$02 beq L0E8A cmpa #$28 blo L0E8A suba #$28 pshs x leax >L0436,pc bra L0EE3 L0EDD pshs x leax >L03D6,pc L0EE3 ldb #5 mul leax b,x lbsr L10D2 puls x bra L0E8A L0EEF lda <u003E Get path # to status window os9 I$Close Close it lbsr L134D lbsr L135C lbsr L13BA lda <u0072 Get path # to VRN beq L0F06 None, skip ahead os9 I$Close Close it L0F06 tst <u0025 beq L0F14 lbsr L43CA lda <u002A os9 I$Close L0F14 clrb L0F15 os9 F$Exit L0F18 cmpb #$80 bne L0F1F inc <u0073 L0F1F rti * Update on-screen timer L0F20 pshs y,x,a ldx #u009C Point to FColor buffer lda <u0088 Get bckgrnd color of main window sta $02,x Save as color to use lda <u003E Get path # to status line window ldy #$0003 os9 I$Write Set foreground color ldx #u0077 Send out current Timer string ldy #$000B os9 I$Write ldx #u009C Point to Fcolor buffer lda <u0087 Get foreground color sta $02,x Save it lda <u003E Get path to status window ldy #$0003 Change color on status window back to normal os9 I$Write puls pc,y,x,a * Entry: X=# ticks to sleep L0F56 tst <u0075 Is the timer function on? beq L0F6F No, go to sleep pshs a Preserve # seconds lda <u0074 Yes, get current # seconds L0F60 cmpa <u0073 Different than last recorded # seconds? beq L0F6D No, go to sleep bsr L0F78 Yes, go update timer on status bar inca Bump # seconds up sta <u0074 Save # seconds bra L0F60 Check if it is different than last recorded? L0F6D puls a Restore # seconds L0F6F os9 F$Sleep Sleep for requested # ticks cmpx #$0000 Sleep for full requested period? bne L0F56 No, go update timer functions & sleep some more rts Yes, return L0F78 pshs y,x,d Preserve regs ldx #u0077 Point to ASCII on-screen timer packet ldb #10 Point to end of packet (1's of seconds field) L0F7F bsr L0F8C Do 1 char at a time tsta Do we need the next field updated too? bpl L0FAC No, go update it on screen & return decb Bump timer packet ptr down to previous field decb cmpb #$04 Hit beginning (finished hours)? bhs L0F7F No, go update next field L0FAC lda <u003E Get path to status window ldy #$000B Get size of time string os9 I$Write Write it out puls pc,y,x,d Restore & return * Update 1's field L0F8C lda b,x Get byte from timer cmpa #'9 9? beq L0F96 Yes, skip ahead L0F90 inca No, increment it to next one sta b,x Save result & return rts * Update 10's field L0F96 lda #'0 Wrap it back to a 0 sta b,x Save 0 decb Bump ptr to 10's field in ASCII time packet lda b,x Get char cmpa #'5 5? bne L0F90 No, safe to increment & exit L0FA5 lda #'0 Wrap it back to 0 sta b,x Save it lda #$FF Flag to say we need next field (minutes/hours) rts updated & return L1062 pshs y,x,d Preserve regs ldb <u0C89 Get LSB of size of converted text buffer ldy <u006C Get ptr to Zmodem start header ldx #u00DF Get ptr to modem buffer L1070 tstb beq L10A8 tst <u006B beq L1084 lda ,x cmpa #$30 beq L10C1 cmpa #$31 beq L10C7 bra L1090 L1084 lda ,x+ anda #$7F decb clr <u0071 L108C cmpa ,y beq L10AA L1090 leay >L031A,pc sty <u006C tst <u0071 bne L10A2 inc <u0071 bra L108C L10A2 clr <u0071 tstb bne L1084 L10A8 puls pc,y,x,d L10AA leay 1,y sty <u006C tst ,y bne L10A2 inc <u006B leay >L031A,pc sty <u006C bra L1070 L10C1 inc >u0CA0 bra L10CB L10C7 clr >u0CA0 L10CB lda #$FF sta <u006B bra L10A8 L10D2 ldb 1,x leax 2,x L10D6 lda ,x+ sta ,y+ inc <u0C89 decb bne L10D6 rts L10E2 pshs x,d ldx #u0C60 lda ,x cmpa #$02 beq L10F7 leax >L0464,pc bsr L10D2 L10F4 lbra L0EA6 L10F7 leax >L045E,pc bsr L10D2 lbsr L1422 bra L10F4 L1102 pshs x,d leax >L0461,pc bsr L10D2 lbra L0EA6 * Print help screen * Entry: None L110D ldd #$1A01 get overlay start co-ordinates std >u0C8F ldd #$340D get overlay size std >u0C91 lbsr L1C81 place overlay leax L0109,pc point to help screen text lbsr L1B03 print it leax L048F,pc turn off cursor lbsr L1B03 L112C lbsr L2AC5 wait for a keypress cmpa #$20 was it space? beq L116B yes, clean up & return cmpa #$05 beq L116B yes, clean up & return cmpa #$0C bne L113F L113B adda #$80 bra L1156 L113F cmpa #$0A beq L113B ldb L0A15,pc get # commands possible leax L0A16,pc point to command table L114B cmpa ,x+ find it? beq L1154 yes, go parse it decb done? bne L114B no, keep looking bra L112C not legal, go wait for new keypress L1154 adda #$A0 L1156 pshs a leax L03C4,pc get rid of overlay lbsr L1B03 leax L048B,pc turn cursor on lbsr L1B03 puls a restore command lbra L1597 go parse command L116B leax L03C4,pc get rid of overlays lbsr L1B03 lbsr L1BAD purge all remaining keyboard data leax L048B,pc turn cursor on lbsr L1B03 lbra L0C5E return to main loop * Get modem path options L117F pshs x,d Preserve regs used lda <u002B Get path # to modem clrb SS.Opt call ldx #u0C2E Point to buffer to hold Option section os9 I$GetStt Get modem path options puls pc,x,d Restore regs & return * Update status line (baud, word length, etc...) * Entry: None L118F pshs d,x,y ldx #u0C2E point to ldb >u0CA5 get baud stb PD.BAU-PD.OPT,x ldb PD.PAR-PD.OPT,x andb #$0F orb >u0CAC stb PD.PAR-PD.OPT,x ldb >u0CAF stb PD.XON-PD.OPT,x ldb >u0CB0 stb PD.XOFF-PD.OPT,x ldb >u0CB1 stb PD.EKO-PD.OPT,x ldb >u0CA9 stb PD.ALF-PD.OPT,x clr PD.PAU-PD.OPT,x leax PD.BSP-PD.OPT,x ldd #$000a Clear 10 bytes from BSP to BSE L11C8 sta ,x+ decb bne L11C8 lda <u002B get path to modem cmpa #$03 is it legal? lbls L12B3 no, return ldx #u0C2E point to option buffer ldb #SS.Opt set 'em os9 I$SetStt ldx #u0095 point to ldd #$025A get CurXY codes std ,x save 'em ldb #$20 get Y co-ordinate stb 2,x save it ldy #3 get length lda <u003E get path to status window os9 I$Write position cursor for baud rate text lda >u0CA5 get baud rate anda #$07 keep only baud bits ldb #5 get length of baud text entrys mul calculate offset leax L0652,pc point to baud rate text table leax b,x point to baud rate ldy #5 get length lda <u003E get path to status line os9 I$Write print current baud ldb #$61 move X cursor position for word length ldx #u0095 stb 1,x lda <u003E ldy #$0003 os9 I$Write ldb >u0CA5 bitb #$20 bne L122D ldb #'8 bra L122F L122D ldb #'7 L122F ldx #u0044 stb ,x ldy #1 os9 I$Write ldb #$63 ldx #u0095 stb 1,x ldy #3 lda <u003E os9 I$Write lda >u0CAC anda #$E0 cmpa #$A0 bne L125D leax L0991,pc point to 'Mark' bra L127F go print it L125D cmpa #$E0 bne L1267 leax L0995,pc point to 'Space' bra L127F go print it L1267 cmpa #$60 bne L1271 leax L099B,pc point to 'Even' bra L127F go print it L1271 cmpa #$20 bne L127B leax L09A0,pc point to 'Odd' bra L127F go print it L127B leax L09A5,pc point to 'None' L127F lda <u003E get path to status line ldy #1 os9 I$Write ldb #$65 ldx #u0095 stb 1,x lda <u003E ldy #3 os9 I$Write ldb >u0CA5 bpl L12A5 ldb #'2 bra L12A7 L12A5 ldb #'1 L12A7 ldx #u0044 stb ,x ldy #1 os9 I$Write L12B3 puls d,x,y,pc * Setup path options for local keyboard to communicate with modems * Entry: None L12B5 pshs d,x,y ldx #u13A9 point to a buffer ldy #u0C0C point to original path options ldb #$20 get size lbsr L2D26 move it ldx #u13A9 point to the buffer clr PD.EKO-PD.OPT,x turn off echo lda >u0CA8 sta PD.ALF-PD.OPT,x save linefeed stat clr PD.PAU-PD.OPT,x turn off pause lda >u13A3 sta PD.EOF-PD.OPT,x save EOF char lda >u13A6 sta PD.PSC-PD.OPT,x save pause char lda >u13A4 sta PD.INT-PD.OPT,x save interupt char lda >u13A5 sta PD.QUT-PD.OPT,x save quit char ldd #1*256+SS.Opt Set the options os9 I$SetStt puls d,x,y,pc * Get current window settings * * Entry: None L12F5 pshs d,x Preserve regs ldd #SS.Opt Get option section path dsc. for Std In ldx #u0C0C Buffer to hold option packet os9 I$GetStt Get current option settings lda PD.PAR-PD.OPT,x Get current parity (window type) bpl L1348 If not a window, exit with error ldd #1*256+SS.FBRgs Get fore/background/border regs from Std Out os9 I$GetStt std <u008D Save fore/background colors tfr x,d Move border to splittable register stb <u008F Save border color ldx #u0C50 ldd #1*256+SS.Palet Get current palette settings from Std Out os9 I$GetStt Get current palette settings ldd #1*256+SS.ScSiz Get screen size from Std Out os9 I$GetStt Get current screen size tfr x,d Move width to splittable register stb <u0082 Save screen width tfr y,d Move height to splittable register stb <u0083 Save screen height ldd #1*256+SS.ScTyp Get screen type from Std Out os9 I$GetStt sta <u0084 Save it clrb No error & exit L1346 puls pc,x,d L1348 comb Exit with Illegal Window Type error ldb #$B7 bra L1346 * Set local path options * * Entry: None L134D pshs d,x Preserve regs ldd #SS.Opt Set option section from Std In path ldx #u0C0C Point to buffer holding new settings os9 I$SetStt Set them puls d,x,pc Restore regs & return L135C pshs y,x,d leay >L0469,pc Point to main window DWEnd/DWSet ldb #16 Copy 16 bytes (?) ldx #u13A9 lbsr L2D26 ldx #u13A9 lda <u0084 sta 4,x clra sta 6,x ldd <u0082 std 7,x ldd <u008D std 9,x lda <u008F sta 11,x ldy #12 # bytes to write lda #$01 Write it out os9 I$Write ldx #u0C50 ldd #1*256+SS.Palet Set palettes back to normal os9 I$SetStt ldd #$1B21 std ,x lda #$01 ldy #$0002 os9 I$Write puls pc,y,x,d L13BA leax >L03A7,pc Inverse,Underline,Blink OFF/CLS lbra L1B03 Will RTS from there * Add 1 to current cursor position (next line if needed) L13CF pshs d ldd >u0C94 get current position inca add 1 to X cmpa <u0090 past max? bls L13E6 no, save & return lda #1 reset it incb add 1 to Y cmpb <u0091 past max? bls L13E6 no, save & return decb bump it back L13E6 std >u0C94 save new position puls d,pc restore & return * Subtract 1 from current cursor position L13EC pshs d ldd >u0C94 get current cursor position deca subtract 1 from X bne L13FF minimum? lda <u0090 yes, reset to end (will be on previous line) decb take 1 off Y bne L13FF minimum? ldd #$0101 yes, reset L13FF std >u0C94 save new position puls d,pc restore & return L1405 clr >u0C94 reset X position inc >u0C94 add 1 rts * Bump Y coord to next line down L140E pshs a Preserve reg we use lda >u0C95 Get current Y coord inca Bump up cmpa <u0091 We past biggest Y coord allowable? bls L141C No, save new one deca Yes, bump it back a line L141C sta >u0C95 Save new Y coord puls pc,a Restore & return L1422 pshs d Preserve regs ldd #$0101 Upper left corner of screen std >u0C94 Save coords puls pc,d Restore D & return L1433 pshs d ldd >u0C94 std >u0C96 puls d lbra L0D0F L1442 pshs d lda #$02 sta ,y+ ldd >u0C96 std >u0C94 adda #$1F Bump X&Y coords to base $20 addb #$1F std ,y++ ldb <u0C89 addb #$03 stb <u0C89 puls d lbra L0D0F L1467 pshs x,d ldx #u0C60 lda #$02 sta ,y+ lda 1,x beq L1483 cmpa #$FE bne L147D lda 2,x beq L1483 L147D cmpa <u0090 bls L1485 L1483 lda #$01 L1485 sta >u0C94 adda #$1F sta ,y+ lda ,x beq L1497 cmpa <u0091 bls L1499 L1497 lda #$01 L1499 sta >u0C95 adda #$1F sta ,y+ ldb <u0C89 addb #$03 stb <u0C89 puls x,d lbra L0D0F L14B0 pshs x,d ldx #u0C60 lda ,x cmpa <u0090 bhs L14C1 tsta bne L14C3 L14C1 lda #$01 L14C3 adda >u0C94 cmpa <u0090 bls L14D1 lda <u0090 L14D1 sta >u0C94 L14D5 ldb #$02 stb ,y+ ldd >u0C94 adda #$1F Bump up since base=$20 (both coords) addb #$1F std ,y++ Save new coords ldb <u0C89 addb #$03 stb <u0C89 puls x,d lbra L0D0F L14F4 pshs x,d ldx #u0C60 lda ,x cmpa <u0090 bhs L1505 tsta bne L1507 L1505 lda #$01 L1507 sta >u0C84 lda >u0C94 suba >u0C84 bgt L1517 lda #$01 L1517 sta >u0C94 bra L14D5 L151D pshs x,d ldx #u0C60 lda ,x cmpa <u0091 Fit within Y size of main window? bhs L152E tsta bne L1530 L152E lda #$01 L1530 sta >u0C84 lda >u0C95 suba >u0C84 bgt L1540 lda #$01 L1540 sta >u0C95 bra L14D5 L1546 pshs x,d ldx #u0C60 lda ,x cmpa <u0091 Y coord past size of window? bhs L1557 Yes, force it to 1 tsta Is it 0? bne L1559 No, legit, skip ahead L1557 lda #$01 Force size to 1 L1559 adda >u0C95 cmpa <u0091 bls L1567 lda <u0091 L1567 sta >u0C95 bra L14D5 L156E clra Std In ldy #$0001 ldx #u060E os9 I$Read * NOTE: SHOULD BE ABLE TO CHANGE SOME OF THE LDB <U0041/ANDB TO KEEP B * AND USE BITB INSTEAD L157B ldd #SS.KySns Get key sense data from Std In os9 I$GetStt sta <u0041 save key sense data lda >u060E clr >u060E ldb >u0CA6 cmpb #2 lbeq L21F0 * Check special command keys L1597 cmpa #$1A download a file? (PgDn) bne L15A5 no, check upload ldb <u0041 get key sense info andb #DOWNBIT is it down arrow? beq L15A5 no, skip ahead lbra L3580 process download L15A5 cmpa #$1C upload a file? (PgUp) bne L15B3 no, check quit ldb <u0041 get key sense info andb #UPBIT is it up arrow? beq L15B3 no, skip ahead lbra L35DF process upload L15B3 cmpa #$F1 quit supercomm? (ALT-Q) lbeq L1B0C yes, cmpa #$E8 hangup modem? (ALT-H) lbeq L1983 yes, cmpa #$AF help? (ALT-?) lbeq L110D cmpa #$E1 autodial? (ALT-A) lbeq L2EBF cmpa #$E2 baud rate change? (ALT-B) bne L15D2 lbsr L1D2F L15D2 cmpa #$E9 online timer toggle? (ALT-I) bne L15D9 lbra L175C L15D9 cmpa #$F4 change terminal type? (ALT-T) bne L15E0 lbsr L1E50 L15E0 cmpa #$F5 update supercomm? (ALT-U) bne L15E7 lbsr L2E83 L15E7 cmpa #$E3 clear screen? (ALT-C) bne L15EE lbsr L1EDC L15EE cmpa #$85 transmit break? bne L15F5 lbsr L1D14 L15F5 cmpa #$18 cntrl-X bne L15FD no, lda #$7F convert it to underscore (DELETE line on IBM's) bra L1659 L15FD cmpa #$F2 reset palettes? lbeq L16CB cmpa #$F3 shell access? lbeq L16DC cmpa #$8A download #2? (ALT-DWN) lbeq L3580 cmpa #$8C upload #2? (ALT-UP) lbeq L35DF cmpa #$EF change options? (ALT-O) bne L161C lbsr L1F1D L161C cmpa #$ED open/close buffer? (ALT-M) bne L1623 lbsr L2364 L1623 cmpa #$E4 change directory? (ALT-D) bne L162A lbsr L22B1 L162A cmpa #$FA conference mode? (ALT-Z) bne L1631 lbsr L2610 L1631 ldb <u0041 get key sense data andb #ALTERBIT is the ALT key down? beq L1646 no, skip ahead cmpa #$B1 blo L1659 cmpa #$B8 bhi L1659 lbsr L1A21 lbra L0C5E L1646 cmpa #$B1 is it F1? lbeq L110D yes, print help screen cmpa #$18 bne L1659 ldb <u0041 andb #LEFTBIT beq L1659 lda #$7F convert it to underscore (DELETE line on IBM's) L1659 cmpa #$AF bhi L16C8 sta >u04EF tst >u0CAA key click on? beq L1675 no, skip ahead ldd #1*256+SS.Tone Tone to Std Out ldx #$2801 ldy #$0900 os9 I$SetStt L1675 ldy #$0001 ldx #u04EF lda ,x cmpa #C$CR bne L168F tst >u0CA9 beq L168F lda #$0A sta 1,x leay 1,y L168F lda <u002B Get path to modem os9 I$Write tst >u04EF bmi L16C8 lda >u0CA7 beq L16C8 tst >u0CA8 beq L16BB lda >u04EF cmpa #C$CR bne L16BB lda #$0A sta >u04F0 ldy #$0002 bra L16BF L16BB ldy #$0001 L16BF ldx #u04EF lda #$01 os9 I$Write L16C8 lbra L0C5E * Reset palettes (ALT-R) * Entry: None L16CB pshs a,x,y preserve regs leax L03D6,pc reset window codes lbsr L1B03 lbsr L1C57 set palettes per terminal type puls a,x,y restore regs lbra L0C5E go back to main loop * Shell Access (ALT-S) L16DC pshs u preserve data area pointer lbsr L134D reset path options ldb #$13 leay L03B2,pc point to overlay for shell ldx #u13A9 point to buffer lbsr L2D26 move 'em ldx #u13A9 point to buffer lda <u0090 get window X size sta 5,x save it lda <u0091 get Y size tst <u0040 conference mode on? beq L1703 no, skip ahead suba #$03 take off size of conference window L1703 sta 6,x save Y size lda <u0089 get FColor ldb <u0088 get BColor std 7,x save 'em lda #1 place overlay ldy #9 os9 I$Write leau L02E5,pc point to parameters leax L02E0,pc point to 'shell' ldd #$1100 Type/Language & default data size os9 F$Fork execute a shell puls u restore data mem pointer bcs L173D error, skip ahead sta <u0076 save process # L172D ldx #1 get # ticks lbsr L0F56 sleep os9 F$Wait wait for shell to die bcs L173D error, skip ahead cmpa <u0076 was it my shell? bne L172D no, go back & wait L173D lda #1 get path leax L03C6,pc point to overlay end codes ldy #2 get length os9 I$Write get rid of overlay lbsr L12B5 set path options back to me lbra L0C5E go back to main loop L1750 lda ,x+ Keep copying until <SPACE> or size B is reached sta ,y+ cmpa #C$SPAC beq L175B decb bne L1750 L175B rts * Toggle On-Line timer (ALT-I) L175C tst <u0072 VRN present? beq L176C no, return to main loop lda <u0075 currently active? beq L176F no, turn it on clr <u0075 turn it off lbsr L0F20 print time L176C lbra L0C5E return to main loop L176F inc <u0075 flag timer on leax L0366,pc point to ASCII string '00:00:00' ldy #u0077 point to buffer ldb #$0B get length lbsr L2D1E move it ldx #u0077 point to buffer ldy #$000B get length lda <u003E get path to stat window os9 I$Write print the time lda <u0073 get current second from VRN sta <u0074 save it into timer flag lbra L0C5E return to main loop * External Zmodem file receive L1793 ldd #$0802 get overlay start co-ordinates std >u0C8F ldd #$400A get overlay size std >u0C91 lbsr L1C81 place overlay leax >L02F0,pc point to 'Zmodem file receive...' lbsr L1B03 print it leax >L048F,pc turn off cursor lbsr L1B03 ldx #u13A9 point to a buffer ldd #1*256+SS.Opt Get path options for Std Out os9 I$GetStt ldx #u13A9 ldd #$0100 SS.Opt for Std Out & settings below sta $05,x stb $07,x os9 I$SetStt Set them clra Duplicate window path os9 I$Dup sta <u006E clra Close Std In path os9 I$Close lda <u002B get path to modem os9 I$Dup leau >L02E9,pc point to parameters for RZ leax >L02E6,pc point to RZ ldy #$000A get size of parameters ldd #$1100 Type/Lang & default mem size os9 F$Fork Call RZ ldu #$0000 pshs cc sta <u0076 save process # clra Restore Std In window path os9 I$Close lda <u006E os9 I$Dup lda <u006E get duplicate path os9 I$Close close it puls cc bcs L1846 L180E ldx #$0001 lbsr L0F56 ldd #$0001 SS.Ready from Std In os9 I$GetStt bcs L1836 No data ready, skip ahead clra tstb 0 bytes ready? beq L1836 Yes, skip ahead tfr d,y Transfer # bytes waiting to Y ldx #u13A9 Point to buffer os9 I$Read Get that many bytes lda >u13A9 cmpa #$05 bne L1836 lbsr L197B L1836 os9 F$Wait bcs L1846 cmpa <u0076 bne L180E tstb beq L1846 lbsr L2AC5 L1846 lbsr L1CDE leax >L048B,pc lbsr L1B03 lbsr L12B5 lbsr L1BAD lbra L0C5E * Send file via ZModem L1859 ldd #$0802 get overlay start co-ordinates std >u0C8F save 'em ldd #$400A get overlay size std >u0C91 save 'em lbsr L1C81 place overlay leax L0322,pc point to 'External ZModem file send' lbsr L1B03 print it ldy #u070D point to parameter buffer sty <u0048 save pointer to it ldd #'-*256+'v Place -v in param buffer std ,y++ ldd #'v*256+C$SPAC Place 'v ' in param buffer std ,y++ L1887 leax L055F,pc point to 'File:' pshs y lbsr L1B03 print it puls y ldb #C$SPAC lbsr L1B61 tst <u0021 lbne L1968 ldx #u060E ldb <u001D cmpb #$01 beq L18B6 L18A9 lda ,x+ sta ,y+ decb bne L18A9 lda #C$SPAC sta -1,y bra L1887 * Filename to call ZModem send L031F fcc 'sz' fcb C$CR L18B6 lda #C$CR Append CR sta ,y+ tfr y,d subd <u0048 std <u0048 cmpd #$0007 lbcs L1968 lbsr L1EDC leax L048F,pc point to CurOff codes lbsr L1B03 ldx #u13A9 Point to buffer to hold Options ldd #$0100 Get Options from Std Out path os9 I$GetStt ldd #$0100 SS.Opt from Std Out ldx #u13A9 Point to buffer again sta $05,x Auto line feed ON stb $07,x Pause OFF os9 I$SetStt Set new options clra Dupe Std In path os9 I$Dup sta <u006E clra Close Std In path os9 I$Close lda <u002B os9 I$Dup ldy <u0048 ldu #u070D leax <L031F,pc point to 'sz' ldd #$1100 Type/Lang & default mem size os9 F$Fork Fork SZ pshs cc sta <u0076 clra Close Std In os9 I$Close lda <u006E os9 I$Dup lda <u006E os9 I$Close puls cc bcs L1968 L1930 ldx #$0001 lbsr L0F56 ldd #SS.Ready Data ready on Std In? os9 I$GetStt bcs L1958 clra tstb 0 bytes? beq L1958 tfr d,y Move # bytes ready to Y ldx #u13A9 Point to buffer to hold them os9 I$Read Read them in lda >u13A9 cmpa #$05 bne L1958 bsr L197B L1958 os9 F$Wait bcs L1968 cmpa <u0076 bne L1930 tstb beq L1968 lbsr L2AC5 L1968 lbsr L1CDE lbsr L12B5 leax L048B,pc lbsr L1B03 lbsr L1BAD lbra L0C5E * Kill SZ process L197B lda <u0076 get it's process # clrb get kill signal os9 F$Send send it rts return * Hangup modem (ALT-H) L1983 tst <u0072 VRN present? beq L198E no, skip ahead clr <u0075 Flag that timer will be off lbsr L0F20 L198E ldd #$2105 std >u0C8F ldd #$0E03 std >u0C91 lbsr L1C81 leax >L048F,pc lbsr L1B03 leax >L0349,pc lbsr L1B03 tst >u0CAB bne L19E2 tst <u001A beq L19C8 lda <u002B ldb #SS.HngUp os9 I$SetStt Hang up the phone ldx #$003C lbsr L0F56 bra L1A0C * Hangup modem by '+++' 'ATH' L19C8 ldx <u0011 ldb 2,x andb #$FE stb 2,x ldx #$003C lbsr L0F56 ldx <u0011 ldb 2,x orb #$01 stb 2,x bra L1A0C L19E2 lda <u002B ldb #$03 L19E7 leax >L0981,pc point to '+++' ldy #$0001 os9 I$Write ldx #$000C lbsr L0F56 decb bne L19E7 ldx #$0080 lbsr L0F56 leax >L02DC,pc point to 'ATH' ldy #$0004 os9 I$Write L1A0C lbsr L1CDE leax >L048B,pc lbsr L1B03 lbra L0C5E L1A19 pshs y,x,d ldx #u131C bra L1A2E L1A21 pshs y,x,d suba #$B1 ldb #$80 mul ldx #u0D1C leax d,x L1A2E pshs x clrb L1A31 lda ,x+ incb cmpb #$80 Hi bit set char? bhi L1A3C Yes, skip ahead cmpa #C$CR Carriage return? bne L1A31 L1A3C decb clra puls x tstb beq L1A4F L1A43 lda ,x+ decb cmpa #'\ beq L1A5D bsr L1A76 L1A4C tstb bne L1A43 L1A4F puls pc,y,x,d L1A51 pshs x ldx #$001E lbsr L0F56 puls x bra L1A4C L1A5D lda ,x+ decb cmpa #'^ beq L1A72 cmpa #'* beq L1A51 cmpa #'\ beq L1A6E suba #$40 L1A6E bsr L1A76 bra L1A4C L1A72 lda #$1B <ESC>? bra L1A6E * Write char in A to modem L1A76 pshs y,x,a Preserve regs leax ,s Point X to char to write ldy #$0001 Write char out to modem lda <u002B os9 I$Write puls pc,y,x,a Restore & return * Setup device windows * Entry: None L1A8A pshs a,x,y preserve leay L0469,pc point to DWEnd,DWSet/Select for main window ldx #u13A9 point to a buffer ldb #14 get length of data lbsr L2D26 move it ldx #u13A9 Point to buffer again lda #28 Maximum height we will try (for 28 line GRFDRV) sta >u0C84 Save copy sta 8,x Save in DWSet command sta <u0091 Save as Y size of window (in case it works) ldy #14 Size of all 3 commands lda #1 Std Out os9 I$Write Try it bcs Nope No, try 27 down to 10 lda 7,x Get width that worked bra Worked Save it & return Nope ldx #u13A9+2 point to data again (skipping DWEnd) lda #27 Get screen height we will start trying on L1AB5 sta >u0C84 Save copy sta 6,x save it into DWSet sta <u0091 Save as Y size of window ldy #10 Size of DWSet command lda #1 os9 I$Write try to setup window bcs L1AD8 didn't work, skip ahead lda 5,x get width Worked sta <u0090 Save it as main window width L1AD6 puls a,x,y,pc restore & return L1AD8 lda >u0C84 get current height deca subtract 1 cmpa #10 do we have any room? bhi L1AB5 yes, try again comb set carry ldb #E$IWDef Illegal Window Definition error bra L1AD6 return with error L1AE8 leax L0467,pc Point to '/w' lda #WRITE. os9 I$Open Open path to new window sta <u003E Save it leax >L0477,pc Point to DWSet for status line window ldy #$000A os9 I$Write rts * Generic WRITE routine L1B03 lda #$01 Std out path L1B05 ldy ,x++ Get length to write os9 I$Write Write it out rts * NOTE: SHOULD MOVE THESE ROUTINES? L1B0C bsr L1B1D cmpa #'y lbeq L0EEF cmpa #'Y lbeq L0EEF lbra L0C5E L1B1D pshs y ldd #$1D04 std >u0C8F ldd #$1603 std >u0C91 lbsr L1C81 leax >L0499,pc bsr L1B03 leax >L048F,pc bsr L1B03 lbsr L2ABC pshs a leax >L048B,pc bsr L1B03 lbsr L1CDE puls pc,y,a L1B4E pshs x,b ldx #u0C99 os9 F$Time lda $05,x Get seconds ldx #$0002 Sleep for 2 tics os9 F$Sleep puls pc,x,b * Get input string locally * Entry: B=Count? L1B61 pshs d,x,y clr <u001C clr <u001D clear input data count clr <u0021 break flag? ldx #u060E L1B70 lbsr L2ABC cmpa #'- is it printable? bls L1B85 no, check control chars. tstb beq L1B70 sta ,x+ save data to buffer decb decrement count inc <u001D add 1 to data length lbsr L1F0B go print it bra L1B70 go try again L1B85 cmpa #C$BSP was it backspace? bne L1B99 no, tst <u001D any data? beq L1B70 no, try again incb dec <u001D decrement count leax -1,x backup lbsr L1F0B print it bra L1B70 go try again L1B99 cmpa #C$QUIT break? bne L1BA2 no, check CR inc <u0021 flag break puls d,x,y,pc Restore & return L1BA2 cmpa #C$CR carriage return? bne L1B70 no, try again sta ,x save it inc <u001D add 1 to count puls d,x,y,pc restore & return L1BAD ldd #SS.Ready Std In - Check for data ready os9 I$GetStt bcc L1BB7 May have some, skip ahead rts Otherwise, return L1BB7 tstb 0 bytes? beq L1BC6 Yes, skip ahead clra Clear high byte of size & Std In tfr d,y Move to Y for Read call ldx #u13A9 Place to hold waiting data os9 I$Read L1BC6 rts * <ALT>-<1-8> function key init routine L1BC7 pshs x,d ldb #$08 # function keys to init ldx #u0D1C Point to start of <ALT>-<1> key buffer lda #C$CR L1BD1 sta ,x Save 2 CR's as default for each key sta 1,x leax >$0080,x Move to next key decb Do until all function keys initialized bne L1BD1 puls pc,x,d * TAB HANDLER GOES HERE (CHR$(9)) * L1BDE rts L1BDF lda <u0065 Get monitor type (0=Comp, 1=RGB, 2=Mono) cmpa #2 bne L1BEC If comp or RGB, skip ahead leay >L0371,pc Point to a set of palettes for monochrome bra L1C16 * Monitor type is color (comp or RGB) L1BEC tst >u0CA6 Check current terminal type bne L1C12 If Not TTY, skip ahead * TTY: Color leay >L0391,pc Point to OS9 terminal type palette defaults ldd #$0601 Reset some stored colors std <u0085 ldd #$0002 std <u0087 ldd #$0704 std <u0089 ldd #$0305 std <u008B bra L1C30 * OS9 or ANSI L1C12 leay >L0381,pc Point to ANSI terminal type palette defaults L1C16 ldd #$0504 std <u0085 ldd #$0700 std <u0087 ldd #$0601 std <u0089 ldd #$0203 std <u008B L1C30 ldx #u13A9 Point to temp buffer ldd #$1B31 Set palette command std ,x clra Start with palette 0 L1C3A ldb a,y pshs y,a std $02,x ldy #$0004 lda #$01 os9 I$Write puls y,a inca cmpa #$10 blo L1C3A lbsr L2C18 lbra L2B86 L1C57 pshs x,a lda <u0065 cmpa #$02 beq L1C6C tst >u0CA6 bne L1C6C leax >L03A4,pc bra L1C70 L1C6C leax >L03A1,pc L1C70 lda ,x lbsr L2347 lda $01,x lbsr L233B lda $02,x lbsr L2341 puls pc,x,a * Generic shadowed overlay window set routine * Uses 9 byte buffer from u13A9 to hold OWSet command * u0C8F : Start X,Y coords * u0C91 : X,Y width L1C81 pshs y,x,d Preserve regs ldx #u13A9 Point to buffer ldd #$1B22 OWSet prefix (Draw shadow part of overlay) std ,x lda #$01 Save switch on sta 2,x ldd >u0C8F Get start coords adda #$01 Bump up by 1 addb #$01 std 3,x Save in string ldd >u0C91 Get width & height std 5,x Save in string ldb >u0085 Get bckground color clra Foreground color=0 std 7,x Save in string lda #$01 Pop overlay window onto screen ldy #$0009 os9 I$Write ldd #$1B22 Now, draw main overlay window std ,x lda #$01 sta $02,x ldd >u0C8F std 3,x ldd >u0C91 std 5,x lda <u0087 ldb <u0086 std 7,x lda #$0C sta $09,x lda #$01 ldy #$000A os9 I$Write puls pc,y,x,d * Generic shadowed overlay window remove routine L1CDE pshs y,x,d Preserve regs ldx #u13A9 Point to buffer ldd #$1B23 OWEnd command std ,x lda #1 Take off both main & shadow overlays ldy #$0002 os9 I$Write os9 I$Write puls pc,y,x,d Restore & return L1CF7 pshs y,x,d ldx #$1003 ldy #$0EA0 L1D00 ldd #1*256+SS.Tone Tone to Std Out os9 I$SetStt puls pc,y,x,d L1D09 pshs y,x,d ldx #$3F03 ldy #$0FD1 bra L1D00 L1D14 pshs x,d ldb #SS.Break Send a BREAK signal lda <u002B Get modem path os9 I$SetStt Send BREAK to modem bcc L1D2D Did it, return without error ldx <u0011 If modem Driver doesn't support SS.Break call, lda 2,x force it on hardware (assumes 6551 card) ora #%00001100 sta 2,x anda <u00F3 sta 2,x L1D2D puls pc,x,d L063D fdb 19 # bytes this message fcb C$LF,C$CR fcc ' Baud Rate: ' * 12 backspaces L03CA fcb C$BSP,C$BSP,C$BSP,C$BSP,C$BSP,C$BSP fcb C$BSP,C$BSP,C$BSP,C$BSP,C$BSP,C$BSP L0652 fcc '110 ' fcc '300 ' fcc '600 ' fcc '1200 ' fcc '2400 ' fcc '4800 ' fcc '9600 ' fcc '19200' * <ALT>-<B> Baud rate L1D2F pshs y,x,d leax >L048F,pc Cursor OFF lbsr L1B03 ldd #$1E03 Set start coords & size of overlay window std >u0C8F ldd #$1203 std >u0C91 lbsr L1C81 Put shadowed overlay on screen leax <L063D,pc Print 'Baud Rate:' lbsr L1B03 ldb >u0CA5 Get word len/stop bits/baud rate andb #%00000111 Just want baud rate L1D56 stb >u0C84 Save baud rate leax <L03CA,pc Point to 10 C$BSP's ldy #$0005 Send out 5 backspaces??? lda #1 os9 I$Write leax <L0652,pc Point to baud rate table lda #$05 Point to current baud rate string ldb >u0C84 mul leax d,x lda #$01 Write it out ldy #$0005 os9 I$Write L1D7D lbsr L2ABC ??? cmpa #C$CR Carriage return? beq L1D9B Yes, skip ahead cmpa #$05 <CTRL>-<E> (BREAK)? beq L1D9B Yes, skip ahead cmpa #C$SPAC <SPACE> (next baud)? bne L1D7D No, go get another key since current is illegal ldb >u0C84 Get baud rate incb Bump up to next one cmpb #8 Wrap past 19200? bne L1D56 No, go update baud rate on screen clrb Reset baud to 110 bra L1D56 Go update baud rate on screen L1D9B ldb >u0CA5 Get stop bits/word len/baud rate andb #%11111000 Mask out the baud rate orb >u0C84 Merge new baud rate stb >u0CA5 Save as new setting lbsr L1CDE Remove overlay windows lbsr L118F Update port settings & status line leax >L048B,pc Turn cursor ON lbsr L1B03 puls pc,y,x,d Restore & return * ==> Menu handler * Entry: B=current menu # (0 base) selected * u0C84 : current menu # selected * u139E : Max. # items on menu L1DB8 pshs y,x,a Preserve regs clr >u0099 stb >u0C84 Save current menu item # selected ldx #u13A9 Point to temp buffer ldd #$1B25 CWArea prefix std ,x Save it ldd #$0102 Start X,Y = 1,2 std 2,x lda #$04 Width=4 ldb >u139E Height=# entries in menu (0 base) incb +1 std 4,x Save it lda #$01 Change working area of window ldy #$0006 os9 I$Write ldb >u0C84 Get B back L1DE6 clra D=B+1 incb tfr d,y Move to Y leax >L0688,pc Clear working area & print Y # line feeds inca A=1 (Std Out) os9 I$Write leax >L0693,pc Point to '==>' cursor ldy #$0003 Write that out os9 I$Write L1DFE lbsr L2AC5 Go get key anda #$7F Mask out high bit cmpa #C$LF Down arrow? beq L1E19 Yes, skip ahead cmpa #C$FORM Up arrow? beq L1E2B Yes, skip ahead cmpa #C$SPAC Space bar? beq L1E39 Yes, get menu item selected & exit cmpa #$05 <CTRL>-<E> or <BREAK>? beq L1E3F cmpa #C$CR Carriage return? bne L1DFE No, other keys illegal: go get another key L1E4A inc <u0099 Flag that a change was made? L1E39 ldb >u0C84 Get menu item # selected puls pc,y,x,a Restore regs & return * Down arrow in ==> menu L1E19 ldb >u0C84 Get current menu # incb Bump up cmpb >u139E Past maximum blo L1E25 No, skip ahead clrb Reset to menu item #0 L1E25 stb >u0C84 Save new menu item selected bra L1DE6 Update menu arrow & get next key * Up arrow in ==> menu L1E2B ldb >u0C84 Get current menu # decb Bump down bpl L1E25 If still legit, save it & update menu arrow ldb >u139E Get # items in menu decb Make base 0 bra L1E25 Save & update menu arrow * <CTRL>-<E> / <BREAK> L1E3F ldb >u139E Get # items in menu incb +1 (to flag cancel?) stb >u0C84 Save as current menu item selected puls pc,y,x,a Restore & return * Select terminal type (<ALT>-<T>) L1E50 pshs y,x,d Preserve regs leax >L048F,pc Cursor OFF lbsr L1B03 ldd #$1C03 Set up shadowed overlay window 23x3 std >u0C8F ldd #$1703 std >u0C91 lbsr L1C81 leax >L0696,pc 'Terminal type' lbsr L1B03 ldb >u0CA6 Get current terminal type L1E75 stb >u0C84 Save as # entries in menu leax >L03CA,pc Point to Backspaces lda #$01 Blank out 5 chars ldy #$0005 os9 I$Write leax >L06B0,pc Point to terminal type table lda #$05 Calculate offset to currently selected type ldb >u0C84 mul leax d,x ldy #$0005 Print it out lda #$01 os9 I$Write L1E9C lbsr L2ABC Go get keypress cmpa #C$CR Carriage return (keep new setting)? beq L1EBA Yes, go process cmpa #$05 <CTRL>-<E> or <BREAK>? beq L1EBA Yes, go process cmpa #C$SPAC <SPACE> (change setting)? bne L1E9C No, illegal key, try again ldb >u0C84 Get terminal type incb Bump up to next one cmpb #3 Past maximum? bne L1E75 No, go print new selection & back to menu handler clrb Reset to 1st & back to menu handler bra L1E75 L1EBA ldb >u0C84 Get selected terminal type stb >u0CA6 Save as new terminal type lbsr L1BDF Go reset palettes for new terminal type lbsr L1CDE Remove overlay windows lbsr L1C57 Go set fore/back/border colors bsr L1EDC Go clear the screen tst <u0040 Is conference mode active? beq L1ED3 No, skip ahead bsr L1EE5 Yes, reset up conference mode window L1ED3 leax >L048B,pc Cursor ON lbsr L1B03 puls pc,y,x,d Restore & return * Clear screen L1EDC pshs a Preserve A lda #C$FORM Clear screen code bsr L1F0B Write it out puls pc,a Restore & return * Setup conference mode again L1EE5 pshs y,x,d Preserve regs ldx #u13A9 Point to buffer ldd #$1B25 CWArea prefix std ,x ldd #$0000 Start @ 0,0 std 2,x ldd #$5003 80x3 size std 4,x lda #1 Home Cursor sta 6,x ldy #$0007 Send CWArea/Home cursor to conference window lda <u003F os9 I$Write lbra L268D Go print '---'... line etc. for conference mode * Print char in A to Std Out L1F0B pshs y,x,d Preserve regs & char to print leax ,s Point to char ldy #$0001 Write it out lda #$01 os9 I$Write puls pc,y,x,d Restore & return * <ALT>-<O> Options menu L1F1D pshs y,x,d Preserve regs leax L048F,pc Cursor OFF lbsr L1B03 ldd #$1F03 Do shadowed overlay of 31x3 std >u0C8F ldd #$160E std >u0C91 lbsr L1C81 leax L0821,pc Print out Options menu lbsr L1B03 lbsr L20DB Print Echo status lbsr L2108 Print Rx LF status lbsr L2118 Print Tx LF status lbsr L20F8 Print Key click status lbsr L21D5 Print Word Length setting lbsr L2174 Print Parity setting lbsr L21B9 Print Stop bits setting lbsr L2128 Print Host Echo setting lbsr L2138 Print Hangup type setting lbsr L2148 Print Auto-Zmodem setting lbsr L2158 Print Auto-ASCII setting lda #$0B Get # items on menu sta >u139E Save for ==> menu handler clrb Default to menu item #0 L1F66 lbsr L1DB8 Go get menu selection ldx #u13A9 ldd #$1B25 CWArea std ,x ldd #$0000 from 0,0 std 2,x ldd #$160E to 22,14 (on overlay window) std 4,x ldy #$0006 lda #$01 os9 I$Write tst <u0099 Any entry change? lbne L20CF No, remove Options menu & return ldb >u0C84 Get menu item # that was changed cmpb #$0A Was it <CTRL>-<E>/BREAK (1 higher than max)? lbhi L20CF Yes, remove Options menu & return tstb Was it Echo status? bne L1FAB No, try next lda >u0CA7 Get echo type bne L1FA7 If 1, change to 0 inc >u0CA7 If 0, change to 1 bra L1FAB L1FA7 clr >u0CA7 L1FAB lbsr L20DB Print setting (0=Off, 1=On) cmpb #$03 bne L1FC2 lda >u0CAA bne L1FBE inc >u0CAA bra L1FC2 L1FBE clr >u0CAA L1FC2 lbsr L20F8 cmpb #$07 bne L1FD9 lda >u0CB1 bne L1FD5 inc >u0CB1 bra L1FD9 L1FD5 clr >u0CB1 L1FD9 lbsr L2128 lbsr L118F cmpb #$05 bne L200C lda >u0CAC anda #$E0 tsta beq L2011 cmpa #$E0 beq L2015 adda #$40 L1FF3 pshs b ldb >u0CAC andb #$1F stb >u0CAC puls b ora >u0CAC sta >u0CAC lbsr L118F L200C lbsr L2174 bra L2018 L2011 adda #$20 bra L1FF3 L2015 clra bra L1FF3 L2018 cmpb #$06 bne L2032 lda >u0CA5 bpl L2026 anda #$7F bra L2028 L2026 ora #$80 L2028 sta >u0CA5 lbsr L118F lbsr L21B9 L2032 cmpb #$04 bne L204E lda >u0CA5 bita #$20 beq L2042 anda #$DF bra L2044 L2042 ora #$20 L2044 sta >u0CA5 lbsr L118F lbsr L21D5 L204E cmpb #$01 bne L2062 lda >u0CA8 bne L205E inc >u0CA8 bra L2062 L205E clr >u0CA8 L2062 lbsr L2108 cmpb #$02 bne L207C lda >u0CA9 bne L2075 inc >u0CA9 bra L207C L2075 clr >u0CA9 lbsr L118F L207C lbsr L2118 cmpb #$08 bne L2093 tst >u0CAB bne L208F inc >u0CAB bra L2093 L208F clr >u0CAB L2093 lbsr L2158 cmpb #$09 bne L20AA tst >u0CAE bne L20A6 inc >u0CAE bra L20AA L20A6 clr >u0CAE L20AA lbsr L2148 cmpb #$0A bne L20C1 tst >u0CAD bne L20BD inc >u0CAD bra L20C1 L20BD clr >u0CAD L20C1 bsr L2138 cmpb #$0A bhi L20CF ldb >u0C84 lbra L1F66 L20CF lbsr L1CDE Turn off overlay windows leax >L048B,pc Point to Cursor On lbsr L1B03 Print it puls pc,y,x,d Restore regs & return L20DB pshs x,d ldd #$1102 lbsr L2294 lda >u0CA7 L20E7 bne L20F2 L20E9 leax >L0985,pc Point to word 'Off' L20ED lbsr L1B03 Print it puls pc,x,d L20F2 leax >L098B,pc Point to word 'On' bra L20ED L20F8 pshs x,d ldd #$1105 lbsr L2294 lda >u0CAA bra L20E7 Go print 'on' or 'off' L2108 pshs x,d ldd #$1103 lbsr L2294 lda >u0CA8 bra L20E7 Go print 'on' or 'off' L2118 pshs x,d ldd #$1104 lbsr L2294 lda >u0CA9 bra L20E7 Go print 'on' or 'off' L2128 pshs x,d ldd #$1109 lbsr L2294 lda >u0CB1 bra L20E7 Go print 'on' or 'off' L2138 pshs x,d ldd #$110C lbsr L2294 lda >u0CAD bra L20E7 Go print 'on' or 'off' L2148 pshs x,d Preserve regs ldd #$110B CurXY to 17,11 in options window lbsr L2294 lda >u0CAE Get Auto-ZModem flag (0=yes) deca Adjust flag so routine works bra L20E7 Go print 'on' or 'off' L2158 pshs x,d ldd #$110A lbsr L2294 lda >u0CAB Get current hangup method bne L216D <>0 is +++ leax >L0979,pc Point to 'dtr' bra L20ED L097F fdb 4 # bytes this message L0981 fcc '+++' fcb 4 (Clear to EOL) L216D leax <L097F,pc Point to '+++' bra L20ED L2174 pshs y,x,d ldd #$1007 lbsr L2294 lda >u0CAC anda #$E0 cmpa #$A0 bne L218C leax >L0990,pc Point to 'Mark' bra L21AE L218C cmpa #$E0 bne L2196 leax >L0995,pc Point to 'Space' bra L21AE L2196 cmpa #$60 bne L21A0 leax >L099A,pc Point to 'Even' bra L21AE L21A0 cmpa #$20 bne L21AA leax >L099F,pc Point to 'Odd' bra L21AE L21AA leax >L09A4,pc Point to 'None' L21AE lda #$01 Std Out ldy #$0005 Size of parity string os9 I$Write Print it out puls pc,y,x,d * Print current Stop bits setting L21B9 pshs x,d ldd #$1208 Go position cursor @ 18,8 lbsr L2294 lda >u0CA5 Get # stop bits (hi bit) bpl L21CE lda #'2 bra L21D0 L21CE lda #'1 L21D0 lbsr L1F0B puls pc,x,d * Print current Word Length setting L21D5 pshs x,d ldd #$1206 Position cursor @ 18,6 lbsr L2294 lda >u0CA5 Get word length bita #$20 bne L21E9 lda #'8 bra L21EB L21E9 lda #'7 L21EB lbsr L1F0B puls pc,x,d L21F0 cmpa #$8C <ALT>-<up arrow>? bne L21F8 ldd #'A*256+9 ANSI/OS9 cursor up codes bra L2239 L21F8 cmpa #$8A <ALT>-<down arrow>? bne L2200 ldd #'B*256+$A ANSI/OS9 cursor down codes bra L2239 L2200 cmpa #$88 <ALT>-<left arrow>? bne L2208 ldd #'D*256+8 ANSI/OS9 cursor left code bra L2239 L2208 cmpa #$89 <ALT>-<right arrow>? bne L2210 ldd #'C*256+6 ANSI/OS9 cursor right code bra L2239 L2210 ldb <u0041 Get last key sense byte bitb #%01111000 Any of the arrows? lbeq L1597 No, go check special SuperComm keys cmpa #$13 <CTRL>-<up>? bne L2221 No, skip ahead ldd #'H*256+1 ANSI/OS9 Home cursor codes bra L2239 L2221 cmpa #$12 <CTRL>-<down>? bne L2229 ldd #'K*256 ANSI end (screen or line?) / No OS9 bra L2239 L2229 cmpa #$10 <CTRL>-<left>? bne L2231 ldd #'P*256 ANSI delete char / No OS9 bra L2239 L2231 cmpa #$11 <CTRL>-<right>? lbne L1597 No, go check for SuperComm special keys ldd #'@*256 ANSI insert char / No OS9 L2239 ldx #u04EF Point to buffer for 3 byte ANSI sequence sta 2,x Save as ANSI post byte pshs b Save OS9 code until ANSI sequence sent ldd #$1B5B ANSI prefix: <ESC>[ std ,x lda <u002B Get path to modem ldy #$0003 os9 I$Write Send out the ANSI sequence tst >u0CA7 ??? Check if we have to do local cursor change lbeq L0C5E No, go back to main processing loop ldb ,s+ Get OS9 code back lbeq L0C5E None, return to main processing loop stb ,x Save it in buffer lda #1 Std Out (screen) ldy #$0001 os9 I$Write Write out OS9 code lbra L0C5E Return to main processing loop * Position cursor at A,B L2294 pshs y,x,d Preserve regs ldx #u0095 Point to buffer area adda #$20 Bump cursor pos. to OS9 equivalent (+$20) addb #$20 std $01,x Save OS9 coords lda #$02 CurXY prefix sta ,x Save that too deca A=1 (Std Out) ldy #$0003 Size of CurXY command os9 I$Write Position cursor puls pc,y,x,d Restore regs & return * Change Data Directory command L22B1 pshs y,x,d ldd #$1504 Place overlay window from 21,4 to 58,11 std >u0C8F ldd #$2507 std >u0C91 lbsr L1C81 leax >L051C,pc Point to 'break aborts' lbsr L1B03 ldd #$0102 Position cursor @ 1,2 bsr L2294 lda #$01 ldx #u0CD2 Point to current data dir ldy #$0020 os9 I$WritLn ldb #$1F leax >L09A9,pc Point to 'change data dir' message lbsr L1B03 lbsr L1B61 tst <u0021 bne L230E lda >u060E Get first char that user typed in cmpa #C$CR If just CR, skip ahead beq L230E lda #READ. ChgDir in read mode ldx #u060E Point to user-typed directory path os9 I$ChgDir Change to it bcs L2313 Error, skip ahead ldx #u060E Did it, copy user path list to default path list ldy #u0CD2 ldb #$20 lbsr L2D1E Copy data L230E lbsr L1CDE Overlay Window end puls pc,y,x,d Restore & return * Print error message to user L2313 lda #C$BELL Beep at user lbsr L1F0B pshs b ldd #$0D02 CurXY @ 13,2 lbsr L2294 leax >L048F,pc Cursor OFF lbsr L1B03 puls b os9 F$PErr Print error message ldx #60 lbsr L0F56 ??? (something with Timer) leax >L048B,pc Cursor ON lbsr L1B03 bra L230E Overlay window end & return * Change background color to A L233B pshs y,x,d Preserve regs ldb #$33 Background color code bra L234B * Change border color to A L2341 pshs y,x,d Preserve regs ldb #$34 Border color code bra L234B * Change foreground color to A L2347 pshs y,x,d Preserve regs ldb #$32 Foreground color code L234B ldx #u13A9 Point to temp buffer sta 2,x Save palette # lda #$1B OS9 window code prefix std ,x Save it lda #1 Std Out ldy #$0003 Change appropriate color, restore regs & return os9 I$Write puls pc,y,x,d L2364 tst <u0026 ASCII receive buffer open? beq L2372 No, go check if a receive file exists clr <u0026 Yes, set receive buffer to CLOSED state bra L237E Will return from there L2372 tst <u0025 ASCII receive file exist? bne L2376 Yes, go flag buffer as open rts L2376 inc <u0026 Set ASCII receive buffer to OPEN state * Change buffer indicator on status line to OFF L237E pshs y,x,d Preserve regs tst <u0026 Get ASCII buffer open/closed flag bne L23AA Open, skip ahead leay >L096D,pc Point to buffer close string (for status line) ldx #u13A9 ldb #12 Copy it lbsr L2D26 ldx #u13A9 Get ptr back lda <u0088 Get bckground color of main window sta $07,x Save new color in string lda <u0087 Get foreground color of main window sta $0B,x Save new color in string lda <u003E Get path to status line window lbsr L1B05 L23A8 puls pc,y,x,d * Change buffer indicator on status line to ON L23AA leay >L0960,pc Point to buffer on string (for status line) ldx #u13A9 ldb #13 lbsr L2D26 ldx #u13A9 lda <u0087 sta $09,x lda <u003E lbsr L1B05 lda <u0002 suba <u0006 lbsr L44FF puls pc,y,x,d Restore & return * Position cursor @ X coord on line 1 to center text @ [u0093] within 40 chars L23D0 pshs y,x,d Preserve regs ldx <u0093 Get ptr to ??? clrb Clear counter * Count # chars (max 30) until high bit set or '.' found L23D7 lda ,x+ Get char incb Inc counter cmpb #30 Up to 30 char max? bhi L23E5 Yes, skip ahead tsta Does the char have the high bit set? bmi L23E5 Yes, skip ahead cmpa #'. Is it a period? bne L23D7 No, get next char L23E5 addb #8 Add 8 to total # chars (8 spaces assumed) ldx #u13A9 Point to temp buffer pshs b Preserve count lda #40 Centering within 40 chars suba ,s+ A=40-B (size) lsra Divide by 2 (calculate # chars in to center?) adda #$21 Add to base for Cursor coords+1 sta 1,x Save coord ldd #$0221 CurXY prefix & Y coord=1 stb 2,x Save Y coord sta ,x Save CurXY prefix ldy #$0003 Move cursor to X lda #1 Std Out os9 I$Write Position cursor & return puls pc,y,x,d L2408 pshs y,x,d Preserve regs ldd <u0053 Get ptr beq L246F None, skip ahead L2411 ldx #u00E2 Point to buffer ldy <u0057 Get # bytes to read lda <u0042 Get path to download file os9 I$Read Go read from file bcc L242A No error on read, continue ldd #$0000 inc <u005F bra L2432 L242A cmpy <u0057 beq L2449 L2430 tfr y,d Copy # bytes read to D L2432 ldx #u00E2 Point to 3 bytes into modem buffer leax d,x Offset into it pshs d Preserve offset ldd <u0057 Get # bytes read subd ,s++ Subtract ??? tfr d,y Move result to Y lda #$1A <CTRL>-<Z> for X/Ymodem padding to even block L2443 sta ,x+ leay -1,y bne L2443 L2449 ldx #u00DF Point to modem buffer ldd <u0053 stb 1,x comb stb 2,x ldd <u0053 beq L2463 ldd <u0057 cmpd #$0080 bne L2469 L2463 lda #$01 sta ,x bra L246D L2469 lda #$02 sta ,x L246D puls pc,y,x,d L246F tst <u0069 beq L2481 ldx #u00E2 ldd #$0080 L247A sta ,x+ decb bne L247A bra L2449 L2481 ldx #u00E2 ldy #u009F ldb #32 32 chars max L248B lda ,y+ beq L2498 If NUL, skip ahead cmpa #C$CR If CR, skip ahead beq L2498 sta ,x+ decb bne L248B L2498 clr ,x+ lbsr L2C72 bra L2449 L249F pshs y,x,d clr <u0048 clr <u0049 ldx #u00E2 ldd <u0057 leay d,x sty <u0050 tst <u005A bne L24C5 lbsr L3E3D leax d,x lda <u0048 sta ,x L24C3 puls pc,y,x,d L24C5 lbsr L3E0F leax d,x ldd <u0048 std ,x bra L24C3 * Clear out 512 bytes @ u111C - Clears out Search (SSn) and Reply (RSn) * strings L24D1 pshs y,x,a Preserve regs ldy #u111C Point to 512 byte buffer to clear ldx #$0000 double clear word clra Double count=256 L24DB stx ,y++ Clear 2 bytes deca Done all 256 double bytes? bne L24DB No, continue clearing puls pc,y,x,a Restore & return * Search (SSn) string parse L24E3 lda -2,x suba #$31 Convert ASCII numeral (1 based) to bin (0 base) cmpa #3 Within range of 0-3? bhi L2541 No, exit ldb #$40 Size of each entry=64 bytes mul Point to appropriate entry ldy #u121C Point to main buffer leay d,y Point to entry within buffer ldb #$40 Max size to copy L24F6 lda ,x+ Get char decb drop count beq ForceCR If done max count, force CR on end cmpa #C$CR Is it a CR? beq L2504 Yes, save it and stop sta ,y+ Save char bra L24F6 Keep copying ForceCR lda #C$CR Done, force last char to CR L2504 sta ,y Save last char puls pc,y,x,d Restore & return * Send string parse (SSn) - does CTRL (\) conversions L2508 lda -$02,x suba #$31 cmpa #$03 bhi L2541 ldb #$40 mul ldy #u111C Point to send string buffer leay d,y lda #$01 sta <u0C82 pshs x ldx #u111C stx >u139C puls x ldb #$40 Get max size of Send string L252D lda ,x+ Copy until CR or 64 chars is hit cmpa #C$CR beq L253E cmpa #'\ Control code? beq L2544 Yes, process for that L2537 sta ,y+ decb bne L252D puls pc,y,x,d L253E clrb stb ,y L2541 puls pc,y,x,d L2544 lda ,x+ Get code suba #$40 Knock down to <CTRL> equivalent bra L2537 Save & continue * Entry: X=Ptr to converted text buffer? L254A pshs y,x,d Preserve regs ldb <u0C89 Get size of converted text buffer ldy >u139C Get ptr to ??? L2555 lda ,x+ Get char anda #$7F Strip high bit decb Drop count in buffer clr <u0071 Clear flag L255D cmpa ,y Same as first char in search string buffer? beq L258A Yes, skip ahead lda <u0C82 Get reply string # deca bump to 0 base (0-3) pshs b ldb #$40 Size of search strings mul ldy #u111C Point to search strings leay d,y Point to one we want sty >u139C Save ptr puls b Restore count tst <u0071 bne L2582 inc <u0071 bra L255D L2582 clr <u0071 tstb bne L2555 puls pc,y,x,d L258A leay 1,y sty >u139C tst ,y bne L2582 lda <u0C82 Get SSn # (0-3) inc <u0C82 Inc copy of it inc >u0C83 ldb #$40 mul ldy #u111C Point to search strings buffer leay d,y Point to entry within buffer sty >u139C Save new SSn string ptr to check puls pc,y,x,d * Deal with RSn buffer strings L25B1 pshs y,x,d clr >u0C83 lda <u0C82 suba #$02 ldb #$40 mul ldx #u121C Point to RSn reply string buffer leax d,x Point to entry within buffer pshs x Preserve ptr clrb * Calc size of reply string L25C9 lda ,x+ Get char from buffer incb cmpb #$40 Done whole buffer? bhi L25D4 Yes, skip ahead cmpa #C$CR Done to end of string? bne L25C9 No, keep looking L25D4 decb Adjust size back down puls x Get ptr to beginning of string again tstb Was there anything in the string? beq L25E8 No, exit * This write/convert loop could be optomized L25DB lda ,x+ Yes, get char decb Dec counter cmpa #'\ Special char? beq L25F6 Yes, go process lbsr L1A76 No, write char to modem L25E5 tstb Done whole string? bne L25DB No, continue until done L25E8 puls pc,y,x,d L25EA pshs x Preserve X ldx #30 Sleep for 30 ticks (1/2 sec) lbsr L0F56 Go sleep (and update timer if needed) puls x Restore X bra L25E5 * \ (control letter) processor for RSn strings? L25F6 lda ,x+ Get byte from reply string decb Drop count cmpa #'^ Caret (ESC)? beq L260C Yes, send <ESC> cmpa #'* 1/2 second pause? beq L25EA Yes, go do cmpa #'\ Double '\\'? beq L2607 Yes, go send '\' suba #$40 Any others drop by $40 (ctrl chars) L2607 lbsr L1A76 Send to modem bra L25E5 Continue until RSn string is done L260C lda #C$EOF Send escape code bra L2607 * Copy main DWSet sequence into buffer L2620 leax >L0469,pc Point to main DWSet ldy #u13A9 Point to buffer ldb #$0C 12 bytes to copy lbra L2D1E Go copy them & return from there * <ALT>-<Z> conference mode toggle L2610 pshs y,x,d Preserve regs L2612 tst <u0040 Conference mode on? lbne L26EE Yes, go shut it off inc <u0040 Set it to on bsr L2620 Go set up buffer for DWSet * First, redo main window to leave 3 lines at bottom L262E ldx #u13A9 Point X to DWSet buffer ldd <u0090 Get X&Y sizes of main window subb #$03 Bump Y down by 3 (allow room for conference) std 7,x Save as new sizes in DWSet string lda #$FF Set to current displayed screen sta 4,x ldd <u0087 Get fore/background colors of window std 9,x Save them lda #$01 Redo main window to smaller size ldy #$000B os9 I$Write lda #WRITE. Now, open path to /W (next avail. window) leax >L0467,pc os9 I$Open bcs L2612 Error, shut conference mode off & exit sta <u003F Save path to conference mode window ldx #u13A9+2 Point to buffer+2 (past DWEnd) clr 2,x Set to process' current screen lda <u0091 Get Y size of main window suba #2 Bump down by 2 (3 since base 0) sta 4,x Start Y coord @ end of screen -2 lda #3 Y size=3 sta 6,x lda <u0089 Get ??? color sta 7,x Save as foreground color for conference mode lda <u0088 Get main window background color sta 8,x Save as background color for confence window lda <u003F Get path to conference window ldy #$0009 Create the conference mode window os9 I$Write L268D lda <u0087 Get FColor of main window ldx #u009C Point to Fcolor string sta 2,x Save color ldy #$0003 Set foreground color for conference window lda <u003F os9 I$Write ldx #u13A9 ldd #'-*256+80 Put 80 '-' in buffer L26A9 sta ,x+ decb bne L26A9 ldx #u13A9 lda <u003F ldy #80 os9 I$Write Write out conference mode line ldx #u009C Point to FColor string lda <u0089 Get ?? color sta 2,x Set Fcolor of conference window ldy #$0003 lda <u003F os9 I$Write leax >L09EF,pc Change working area to use only 2 lines ldy #$0006 (to keep '---'... line on screen) os9 I$Write lbsr L284E Do Inv On/Space/Inv Off/Bsp (WHY???) leax >L09E8,pc Point to 'Conf' lda <u003E Send to Status window ldy #$0007 os9 I$Write L26EC puls pc,y,x,d Restore & return * Shut Conference mode off L26EE clr <u0040 Flag conference mode off leax >L0475,pc DWEnd the conference window lda <u003F ldy #$0002 os9 I$Write lda <u003F Close path to conference window os9 I$Close lbsr L2620 Copy DWEnd/DWSet for main window string ldx #u13A9 Point to it ldd <u0090 Get X/Y size of main window std 7,x Save in string lda #$FF Current displayed screen sta 4,x ldd <u0087 Fore/Background colors of main window std 9,x lda #$01 Std Out ldy #$000B os9 I$Write Change main window back to it's normal size leax >L09E1,pc CurXY @ 0,0 & print 4 spaces lda <u003E Send that to the Status window (erase 'Conf') ldy #$0007 os9 I$Write puls pc,y,x,d Restore & return * Keyboard read called from conference mode L273D clra Std In ldy #$0001 ldx #u060E os9 I$Read Read 1 byte ldx <u0066 Get ptr to current char in Conf. kybrd buffer lda >u060E Get key read cmpa #$8C Higher than <ALT>-<Up Arrow> ? lbhi L157B Yes, go check for special (keysense) keys cmpa #$7F Alt Arrows, etc. ($80-$8c)? lbhi L0C5E Yes, return to main loop cmpa #$18 <CTRL>-<X> (SHIFT-BSP)? bne L2765 No, check next lda #$7F Yes, replace with real DEL/RUBOUT key bra L27A1 Go save in buffer @ X L2765 cmpa #$1A <CTRL>-<Z>/<SHIFT>-<DOWN>? lbeq L157B Yes, go check key-sense bytes cmpa #$1C <SHIFT>-<UP>? lbeq L157B Yes, go check keysense bytes cmpa #$0A <DOWN> / LF? lbeq L0C5E Yes, return to main loop cmpa #$0C <UP> / Clear screen? lbeq L0C5E Yes, return to main loop cmpa #$09 <RIGHT> / Up 1 line? lbeq L0C5E Yes, return to main loop cmpa #$08 <LEFT> / BSP? bne L2796 No, skip ahead * Backspace ldb <u0068 Get # keys in Conf. keyboard buffer beq L27B2 If none, skip ahead leax -1,x Bump ptr to current char in kybrd buffer back stx <u0066 Save new ptr dec <u0068 Dec # keys in Conf. keyboard buffer bra L27AD CHECK:REDUNDANT TO CHECK FOR CR THEN BSP AGAIN L2796 ldb <u0068 Get # keys in conference buffer cmpb #253 Within max. range? blo L27A1 Yes, go save it in buffer cmpa #C$CR About to overflow, was key CR? bne L27B2 No, beep so user knows we're full L27A1 sta ,x+ Save keypress in conference mode kybrd buffer stx <u0066 Save new current char ptr for buffer inc <u0068 Bump up count of # keys in conf. mode kybrd buff. cmpa #C$CR Was char a CR? beq L27C6 Yes, skip ahead L27AD bsr L27FD NO, CHECK FOR CR & BSP AGAIN ?!? lbra L0C5E Go back to main loop * Conference mode keyboard buffer overflow L27B2 lda #$07 <CTRL>-<G> beep ldx #u13A9 Write it out sta ,x lda #$01 ldy #$0001 os9 I$Write lbra L0C5E Go back to main loop L27C6 lda #C$LF Append LF sta ,x+ ldb <u0068 Get # keys in buffer tst >u0CA9 beq L27D4 incb Bump up count by 1 L27D4 clra tfr d,y Move count to Y lda <u002B Get path to modem ldx #u050F Point to buffer os9 I$Write Send to modem clr <u0068 Set # keys in conf. kybrd buffer to 0 ldx #u050F Point to conf buffer again stx <u0066 Save as current char ptr for conf buffer lda #C$CR Stick CR in start of normal keyboard buffer sta >u060E bsr L27FD Process CR lda #C$LF Stick LF in start of normal keyboard buffer sta >u060E bsr L27FD Process LF lbra L0C5E Return to main loop L27FD lda >u060E Get last key read cmpa #C$CR CR (send line)? bne L281C No, skip ahead ldd #$200D Space & CR ldx #u13A9 Save in temp buffer std ,x lda <u003F Get path to conference window ldy #$0002 Write out space & CR os9 I$Write rts return L281C cmpa #C$BSP Was key backspace? bne L2835 No, go print key to conf. window ldd #$2008 Space & Backspace ldx #u13A9 std ,x lda <u003F Send to conf. window ldy #$0002 os9 I$Write L2835 ldx #u060E Send key pressed to conf. window ldy #$0001 lda <u003F os9 I$Write lda >u060E Get key pressed cmpa #C$CR Is it CR? bne L284E Yes, skip ahead rts Otherwise return L284E lda <u003F Send Inv On/Space/Inv Off/Bsp to conf. window leax >L0493,pc ldy #$0006 os9 I$Write rts * Filename parse for Batch Receive??? * YModem Batch (WXModem) header as follows: * Block # (1 byte) * Compliment of block # (1 byte) * Some sort of filename parse: allows upper/lower case, numbers * Unknown chars are forced to be Underscores (_) L2860 pshs y,x,d Preserve regs ldx #u00DF+3 Point 3 bytes into input buffer from modem pshs x Save ptr to start of list L2868 lda ,x+ Hunt for 1st 0 byte @ u00E2 bne L2868 leax -1,x pshs x Save ptr to 1st 0 byte clr <u009A Clear flag? * Found 1st NUL in modem buffer past u00DF+3, now parse it L2874 lda ,-x Now, go backwards getting chars as we go cmpx 2,s At beginning again? blo L28AA Yes, skip ahead cmpa #'A Check if alphabetic char (case ignored) blo L2890 Below alphabetic, go try #'s, etc. cmpa #'Z bls L2874 If A-Z, its fine cmpa #'a If [\]^_' then check if \ to /, else _ blo L28A6 S/B L28A6 & BELOW SHOULD BE L28A0 cmpa #'z bhi L28A0 If {|}~ or $7F, force to underscore sta <u009A Save char if lowercase bra L2874 Keep going * Char below 'A' L2890 cmpa #'9 bhi L28A0 If :;<=>?@ then change to underscore _ cmpa #'0 bhs L2874 If 0-9, its fine cmpa #'. If period, it's fine beq L2874 cmpa #'/ Path separator? beq L28AA Special check L28A0 lda #'_ Force to be underscore sta ,x Replace original char in buffer bra L2874 Continue checking * USELESS, CAN ONLY GET CALLED IF CHAR IS CHR$($7B-$7F), AND BACKSLASH IS $5C * COULD BE USED TO CHANGE PATH SEPARATORS (EX. MS-DOS) TO NORMAL ONES L28A6 cmpa #'\ Backslash? bne L28A0 No, force to underscore * Backslash handler L28AA leax 1,x Point to char again lda ,x Get it beq L28C2 If NUL skip ahead cmpa #C$CR End of line? beq L28C2 Yes skip ahead cmpa #'A Char below alpha? blo L28BC Yes, skip ahead cmpa #'_ Underscore? bne L28C2 No, skip ahead * Underscore or below A go here - these get replace by 'x' L28BC leax -1,x Bump ptr back lda #'x Force char to be 'x' sta ,x L28C2 stx 2,s Save ptr as beginning ptr tst <u009A Did we have lowercase char? bne L28DE Yes, skip ahead L28CA lda ,x+ No, get char cmpx ,s Are we within buffer @ u00E1? bhi L28DE Yes, skip ahead cmpa #'A Uppercase char? blo L28CA No, keep going forward cmpa #'Z bhi L28CA ora #$20 Uppercase, force to lowercase sta -1,x bra L28CA L28DE ldy #u009F ldx 2,s ldd ,s++ subd ,s++ cmpb #29 Small enough to be filename? bls L28EE ldb #29 L28EE lbsr L2D1E lda #C$CR sta ,y leax 1,x bsr L2968 leax >L056B,pc Print 'Recv:' lbsr L1B03 ldx #u009F lda ,x beq L2938 cmpa #C$CR beq L2938 lda #$01 Std Out ldy #$0020 os9 I$WritLn leax >L048F,pc Cursor OFF lbsr L1B03 ldd <u005B+2 Get LSW of file size bne L2944 There is one, skip ahead ldd <u005B Get MSW of file size bne L2944 L2926 ldx #u009F ldd #WRITE.*256+UPDAT. Write mode, Read & Write attributes os9 I$Create bcs L2938 sta <u0042 Save path # to download file puls pc,y,x,d Restore & return L2938 lda #$FF sta <u0042 Set download path # to invalid lda #$0A sta <u0052 puls pc,y,x,d Restore & return * Have file size, print it L2944 leax >L0577,pc Print 'Size:' lbsr L1B03 ldx #u13AA ldy #$0007 L2953 lda ,x cmpa #'0 bne L2961 leax 1,x leay -1,y beq L2926 Go create the download file bra L2953 L2961 lda #$01 Write to Std Out os9 I$Write bra L2926 L2968 pshs y,x,d ldd #$0000 Init file size to 0 bytes std <u005B std <u005B+2 ldb #$08 Max count=8 chars L2975 lda ,x+ Get char beq L2983 If NUL, skip ahead cmpa #C$SPAC Space? beq L2983 Yes, skip ahead decb Dec count bne L2975 Keep going until all 8 done puls pc,y,x,d Restore & return L2983 ldy #u13B0 leax -1,x Point back to space or NUL ldb #$08 Max distance backwards L298B lda ,-x beq L2996 sta ,-y decb cmpb #1 bne L298B L2996 lda #'0 L2998 sta ,-y decb cmpb #1 bne L2998 ldy #u13A9 leax >L09F5,pc Point to table for decimal conversion clrb Start at highest level (1,000,000) * B=Current position to convert (0=1,000,000 1=100,000 etc.) * X=Ptr to 4 byte integer conversion table * Y= L29A8 pshs b,x Preserve digit field # & table ptr lda #$04 4 bytes / entry (for Long Ints) mul leax d,x Point to proper entry ldb ,s Get which digit we are on lda b,y suba #'0 tfr a,b beq L29E9 L29C2 lda 3,x Add 4 byte table to 4 byte longint variable adda <u005B+3 sta <u005B+3 lda 2,x adca <u005B+2 sta <u005B+2 lda 1,x adca <u005B+1 sta <u005B+1 lda ,x adca <u005B sta <u005B decb bne L29C2 L29E9 puls b,x incb Next level lower cmpb #8 Done all of them? bne L29A8 No, keep converting puls pc,y,x,d * Check if <CTRL>-<E> / <BREAK> was pressed by user * Entry: None * Exit: Carry clear if no <BREAK> in keyboard buffer * Carry set if one was pressed * All regs preserved L29EB pshs y,x,d Preserve regs lbsr L13C2 Go check if any data waiting in keyboard buffer bcs L2A0F No, skip ahead clra Yes, put # bytes waiting into Y tfr d,y ldx #u060E Point to keyboard buffer clra Std In os9 I$Read Go read it in bcs L2A0F Error, skip ahead tfr y,d ldx #u060E Point to beginning of buffer again L2A06 lda ,x+ Get keypress cmpa #$05 <CTRL>-<E> / <BREAK>? beq L2A12 Yes, exit with carry set decb Check whole keyboard buffer for it bne L2A06 L2A0F clrb No break key, exit with carry clear puls pc,y,x,d L2A12 comb <BREAK> key found, exit with carry set puls pc,y,x,d L2A15 pshs y,x,b Preserve regs lbsr L3BBC Go update seconds (via VRN if present else CLOCK) L2A1A bsr L29EB Check if <BREAK> was pressed by user bcs L2A4C Yes, restore regs & return lda <u002B Get path to modem ldb #SS.Ready Check if any data ready os9 I$GetStt * NOTE: MAY WANT TO CHANGE L2A31 BELOW TO DO LDA <u002B,u FIRST SO BCC HERE * CAN SKIP IT & GO STRAIGHT TO LDY bcc L2A31 Maybe, go check it out lbsr L3BDA No data on modem, go update on-screen timer cmpa #'; Key pressed a Semi-colon or lower? blo L2A1A Yes, eat it & try again comb Set carry to indicate key-press? L2A4C puls pc,y,x,b Restore & return L2A31 ldy #$0001 Get 1 byte from modem lda <u002B Go get path to modem ldx #u04EF os9 I$Read Read 1 byte from modem bcs L2A4F If error, make char=NUL lda >u04EF Get key pressed clr >u04EF Clear out the buffer L2A49 clrb No error & return with char in A puls pc,y,x,b Restore & return L2A4F clra Clear char to NUL? bra L2A49 Exit with carry clear? L2A52 pshs y,x,d Preserve regs leax >L048B,pc Turn cursor ON lbsr L1B03 clrb 1st 32 bytes of screen ldx #u070D Point to screen output buffer L2A60 pshs x,b Preserve bsr L2A81 Print 'File:' & filename puls x,b Restore ptrs lda >u060E Get 1st char of filename cmpa #C$CR Was it CR? beq L2A78 Yes, go turn cursor back on tst <u0021 bne L2A78 incb Inc which filename counter??? cmpb #$20 32 allowed??? bne L2A60 L2A78 leax >L048F,pc Turn cursor ON & return lbsr L1B03 puls pc,y,x,d * Entry: X=Ptr to screen output buffer * B=??? L2A81 lda #$20 Each B represents 32 bytes mul leax d,x Point that far into screen buffer pshs x Preserve it leax L055F,pc point to 'File:' lbsr L1B03 print it ldb #30 lbsr L1B61 Get input string locally (?) puls x Restore pointer ldy #u060E Point to where filename is ldb #32 get length lbra L2D26 Copy 32 bytes from Y to X (filename into scrn bffr) L2AA0 pshs y,x,d ldb <u006A lda #$20 mul ldx #u070D Point to output screen buffer leax d,x ldy #u009F Point to old filename for downloads ldb #$20 lbsr L2D1E inc <u006A puls pc,y,x,d L2ABC pshs y,x,b lda #$01 sta <u0029 bra L2ACA * Check if key waiting L2AC5 pshs y,x,b clr <u0029 L2ACA lbsr L13C2 Any data ready in keyboard buffer? bcc L2AD7 Yes, skip ahead ldx #$0003 lbsr L0F56 Check for timer update bra L2ACA Loop * If key waiting, get & convert to uppercase L2AD7 tstb Any chars waiting in keyboard buffer? beq L2ACA No, go back to loop ldx #u001B Point to buffer to hold keypress ldy #$0001 clra Std In os9 I$Read Read the key lda ,x tst <u0029 bne L2AF3 cmpa #$60 Under apostrophe? blo L2AF3 Yes, leave alone (upper case) suba #$20 Convert lower to upper case L2AF3 puls pc,y,x,b Restore & return * Hangup the modem from Driver call L2AF5 clr <u001A Clear 1 byte buffer lda <u002B Get path to modem ldb #SS.HngUp Hangup the modem os9 I$SetStt bcs L2B07 If error, skip ahead inc <u001A ??? Set flag rts * No SS.HngUp call (probably ACIAPAK) - manually diddle with 6551 hardware L2B07 ldx #u0C2E point to path option packet from modem ldd $1B,x get device table address addd #V$DESC point to descriptor address std <u0013 save pointer lda #$01 get system process descriptor ldx #u070D Point to buffer to hold process dsc. os9 F$GPrDsc leax P$DATImg,x point to DAT image stx >u0C84 Save ptr tfr x,d Move to D ldx <u0013 get descriptor address ldy #$0002 get # bytes needed ldu #u13A9 Point to buffer os9 F$CpyMem get actual address of descriptor ldx >u13A9 get the descriptor address leax IT.DLO,x Point to Delete line offset ldd >u0C84 Get ptr to DAT image ldy #$0002 Get DELETE line & echo settings ldu #u0011 Where to put copies of them os9 F$CpyMem * NOTE: Should be able to remove this LDU entirely ldu #$0000 Reset U to normal rts L2B50 pshs y,x,d Preserve regs ldx #u13A9 Point to temp buffer ldd #$0253 CurXY to 51,1 std ,x lda #$20 sta $02,x ldy #$0003 lda <u003E Position cursor in status window os9 I$Write ldx #u002D Point to name of terminal port clrb L2B6D lda ,x+ Print name (up to 1st 5 chars) of port in status incb window cmpa #$21 blo L2B78 cmpb #$05 blo L2B6D L2B78 ldx #u002D clra tfr d,y lda <u003E os9 I$Write puls pc,y,x,d L2B86 leay >L0481,pc Foreground/background color sets & clear scrn ldx #u13A9 Buffer to hold pshs x ldb #$07 Copy all 3 commands into buffer lbsr L2D26 puls x lda <u0086 Get ??? color sta $05,x Save as background color lda <u0087 Get Fcolor of main window sta $02,x Save as foreground color lda <u003E Clear out status window with these colors ldy #$0007 os9 I$Write tst <u0040 Is conference mode on? beq L2BC0 No, skip ahead lda <u003E Print 'Conf' in status window leax >L09E8,pc ldy #$0007 os9 I$Write L2BC0 leay >L00EB,pc Copy 'Supercomm' header into buffer ldx #u13A9 ldb #$1E lbsr L2D26 ldx #u13A9 Modify colors lda <u008C sta $07,x lda <u0087 Get Fcolor sta <$19,x tst <u0019 Special version flag set? beq L2BE8 No, skip ahead lda #$61 Yes, add 'a' to name sta <$16,x L2BE8 lda <u003E Print status window so far lbsr L1B05 lbsr L2B50 Print port name in status window lbsr L237E Set/Print Capture buffer open status to OFF tst <u002B Do we have path to serial port? beq L2BFC No, skip ahead lbsr L118F Yes, update baud rate/word len, parity, stp bits L2BFC lda <u0072 VRN on? beq L2C13 No, skip exit tst <u0075 Timer on? lbeq L0F20 No, send out black timer string ldx #u0077 Point to timer string buffer ldy #$000B Send to status window with active colors lda <u003E os9 I$Write L2C13 rts L2C18 tst <u0040 Conference mode on? beq L2C71 No, exit leax >L09EF,pc Point to CWArea 0,1 to 80,3 string ldy #u13A9 Point to buffer ldb #$06 lbsr L2D1E Copy it ldx #u13A9 Point to buffer again clra sta 3,x Change so CWArea 0,0 to 80,2 lda #3 sta 5,x ldy #$0006 lda <u003F Send to conference window os9 I$Write leay >L0481,pc Clear out the conference window ldx #u13A9 pshs x ldb #$07 lbsr L2D26 puls x ldd <u0088 Get Bcolor of main window/Fcolor of conf. window sta $05,x Save them stb $02,x lda <u003F Send to conference window ldy #$0007 os9 I$Write leax >L09EF,pc Point to CWArea again (from 0,1 to 80,3) ldy #$0006 Change to new working area os9 I$Write L2C71 rts * Error with size of file, so set internal vars to indicate size=0 bytes L2C8D ldd #$0000 Save size as 0 bytes std <u005B std <u005B+2 puls pc,y,x,d Restore regs & return * NOTE: WHEN ALL U REFERENCES GONE, CAN ELIMINATE PSHS/PULS U L2C72 pshs y,x,d Preserve regs lda <u0042 Get path to download file ldb #SS.Size Get size of file os9 I$GetStt tfr u,y Move LSW of size to Y bcs L2C8D Error getting size, set to 0 stx <u005B Save 4 byte size sty <u005B+2 L2C98 ldx 2,s Get original X back leay >L09F5,pc Point to decimal conversion table pshs x Preserve ptr to buffer for ASCII # ldd #$3007 Fill buffer with 7 '0's L2CA4 sta ,x+ decb bne L2CA4 puls x Point to beginnning again clrb Digit 0 (1,000,000) is where we start L2CAC pshs y,x,d Preserve regs again bsr L2CDB Convert the digit puls y,x,d Restore regs incb Point to next ASCII converted digit cmpb #8 Done all of them? bne L2CAC No, continue pshs x Save ptr to ASCII string leax >L0577,pc Print 'Size:' lbsr L1B03 puls x Get ptr to ASCII string ldy #$0007 Size of # L2CC6 lda ,x Get char cmpa #'0 Is it a 0? bne L2CD4 No, can print rest of string leax 1,x Point to next char in ASCII string leay -1,y Bump # bytes to print down bne L2CC6 Still some left, see if they are 0's puls pc,y,x,d If 0, just exit L2CD4 lda #$01 Write the size to Std Out os9 I$Write puls pc,y,x,d * Entry: Y=Ptr to decimal conversion table * X=Ptr to 7 byte buffer for ASCII # (up to 9,999,999) * B=which ASCII # (0-6) (from million to 1) we are currently doing * Does one digit, adjusting file size in mem down with repeated subtracts L2CDB leax b,x Point to appropriate table entry in ASC # bffr clra Calculate which 4 byte longint to try in table lslb rola lslb rola leay d,y Point to it L2CE2 ldd ,y Get MSW of table entry cmpd <u005B Is it higher than MSW of file size? bhi L2D1D Yes, skip ahead blo L2CF4 If lower, skip ahead ldd 2,y Get LSW of table entry cmpd <u005B+2 Is it higher than LSW of file size? bhi L2D1D No, skip ahead L2CF4 ldd <u005B Get MSW of file size bne L2CFE If file >64K, skip ahead ldd <u005B+2 <64K, get size beq L2D1D If 0, return L2CFE inc ,x Inc. ASCII # ldd <u005B+2 Get LSW of file size subd 2,y Subtract LSW of table entry std <u005B+2 Save result bhs L2D13 Didn't wrap, continue ldd <u005B Get MSW of file size subd #$0001 Bump down by 1 std <u005B Save result L2D13 ldd <u005B Get MSW of file size subd ,y Subtract MSW of table entry std <u005B Save it bra L2CE2 Continue through until this digit is done * Move data from X to Y * Entry: B=Count * X=Pointer to source * Y=Pointer to destination L2D1E lda ,x+ sta ,y+ decb bne L2D1E L2D1D rts * Move data from Y to X * Entry: B=Count * X=Pointer to destination * Y=Pointer to source L2D26 lda ,y+ sta ,x+ decb bne L2D26 rts L2D2E pshs x,a tst <u001A beq L2D41 lda <u002B Get path to modem ldb #SS.ComSt Get current parity & baud rate os9 I$GetStt tfr b,a Move possible error code to A bra L2D46 L2D41 ldx <u0011 Get ??? lda 1,x L2D46 anda #$20 beq L2D4D clrb L2D4B puls pc,x,a L2D4D comb puls pc,x,a L2D50 pshs x,d Preserve regs ldx #$0003 Sleep 3 ticks (or until signal) os9 F$Sleep ldb #SS.Ready Any data ready on modem? lda <u002B Get path # to modem os9 I$GetStt bcs L2D7E No, exit ldx #$0015 Go sleep for up to 21 ticks lbsr L0F56 * NOTE: IT DOESN'T CHECK IF THERE ACTUALLY IS DATA THERE THIS TIME lda <u002B Any data ready on modem this time? ldb #SS.Ready os9 I$GetStt clra tfr d,y # bytes ready into Y ldx #u13A9 Buffer to put modem data in * NOTE: SHOULD BE ABLE TO REMOVE MOST OF THESE DOUBLE LDA'S OF PATH # lda <u002B Get path # to modem again os9 I$Read Read from modem clrb L2D7E puls pc,x,d Restore & return * Entry: B=Count * X=Ptr L2D82 lda ,x+ Get byte decb Done all bytes? bne L2D8B No, skip ahead ldb #$01 bra L2DC7 L2D8B cmpa #'0 If not a number, eat char & try next blo L2D82 cmpa #'9 bhi L2D82 tfr x,y Found numeric digit, move ptr to it to Y leay -1,y Bump back by 1 L2D97 lda ,x+ Now, search for next non-digit from here cmpa #'0 blo L2DA3 cmpa #'9 bls L2D97 L2DA3 leax -1,x Bump ptr back to 1st non-digit past digit ldd #$2020 Store 2 spaces here std ,x lda #$A0 ??? sta 4,y leax >L0652,pc Point to baud rate table clrb * NOTE: ELIMINATE F$CMPNAM WITH LOCAL VERSION!!! L2DB3 pshs y,x,b Preserve regs ldb #$05 Size to compare os9 F$CmpNam Check if they match puls y,x,b Restore regs bcc L2DC7 They match, skip ahead leax 5,x Point to next baud rate to check incb Inc baud rate counter cmpb #8 Done all 8 possible baud rates bne L2DB3 No, try next rts Yes, return * Found baud rate match L2DC7 lda >u0CA5 Get baud/stop bits/word len anda #%11111000 Keep all but baud sta >u0CA5 Save result orb >u0CA5 Merge in baud rate stb >u0CA5 Save with new baud rate lbra L118F Go update the status line & return * NOTE FIX CMPNAM BELOW TO NOT USE SYSTEM CALL!!! L2DDD pshs y,x,d Preserve regs lbsr L2D50 Check for data ready on modem bcs L2E1B Nope, Exit with carry set sty <u0C88 Save # bytes waiting (into size of conv. txt bfr) ldx #u13A9 Point to temp buffer ldb <u0C89 Get LSB of modem buffer size subb #7 Bump down by 7 (to fit word 'CONNECT') L2DF3 pshs x,b Preserve regs leay <L02D1,pc Point to 'CONNECT' ldb #$07 Check if connect string found os9 F$CmpNam puls x,b Restore regs bcc L2E09 Found, skip ahead leax 1,x Bump source ptr up by 1 decb Dec # bytes left in read buffer to check bne L2DF3 Keep checking whole buffer L2E1B comb Not found, exit with carry set puls pc,y,x,d L2E09 ldb <u0C89 Get LSB of buffer size ldx #u13A9 Point to temp buffer ldy #u00DF Point to modem buffer lbsr L2D1E Copy temp buffer to modem buffer clrb No error & exit L2E19 puls pc,y,x,d L02D1 fcs 'CONNECT' L02D8 fcs 'BUSY' * NOTE FIX CMPNAM BELOW TO NOT USE SYSTEM CALL!!! L2E1E pshs y,x,d Preserve regs ldx #u13A9 Point to temp buffer ldb #$0E (Only checks 1st 14 bytes) L2E26 pshs x,b leay <L02D8,pc Point to 'BUSY' ldb #$04 os9 F$CmpNam See if we found it puls x,b bcc L2E3C Yes, skip ahead leax 1,x Go forward through buffer looking for 'BUSY' decb Keep checking until done bne L2E26 L2E3C puls pc,y,x,d Restore & return * Re-Calculate module CRC and re-save module L2E3E pshs d,x,y,u preserve regs leax name-$d,pc point to start of module ldy M$Size,x get module size stx <u0015 save pointer to start of module leay -3,y take off size of CRC sty <u0017 save module size tfr x,u calculate CRC tfr y,d leau d,u ldd #$FFFF std ,u sta 2,u os9 F$CRC com ,u com 1,u com 2,u puls d,x,y,u restore regs lda #EXEC.+UPDAT. open supercomm in current execution DIR leax name,pc point to module name os9 I$Open open it bcs L2E82 error, return ldx <u0015 get pointer to module header ldy <u0017 get module size leay 3,y add CRC os9 I$Write write it os9 I$Close close file L2E82 rts return L2E83 pshs y,x,d Preserve regs leax >L0A24,pc Point to default option settings ldy #u0CA5 Point to current option settings ldb #$4D Copy current options, dial directory & lbsr L2D26 Default dir into code (for init) ldd #$1603 Set overlay window size to 22x3 std >u0C91 Save ldd #$1D04 Start coords @ 29,4 std >u0C8F lbsr L1C81 Pop up the overlay window leax >L048F,pc Cursor OFF lbsr L1B03 leax >L08B6,pc Print 'Saving SuperComm' lbsr L1B03 bsr L2E3E Re-Calc CRC for supercomm & save it leax >L048B,pc Turn Cursor ON lbsr L1B03 lbsr L1CDE Remove overlay windows puls pc,y,x,d Restore regs & return L2EBF pshs y,x,d tst <u0072 Is there a path to VRN? beq L2ED8 No, skip ahead clr <u0075 Force timer to OFF leax >L0366,pc Point to default timer string ldy #u0077 Point to buffer for ASCII timer string ldb #$0B Copy default into current lbsr L2D1E lbsr L0F20 Update the timer on-screen L2ED8 lbsr L43CA ??? Do something with receive buffer? tst <u0040 Conference mode on? beq L2EE3 No, skip ahead lbsr L2610 Yes, draw it on screen L2EE3 ldd #$0000 std <u0009 ldx #u16B9 Point to start of ASCII receive buffer stx <u0093 Save ptr clr <u0064 ??? lbsr L1EDC Clear the screen ldd #$0503 Overlay window from 5,3 to 73,19 std >u0C8F ldd #$4411 std >u0C91 lbsr L1C81 Go put it on screen lda #$81 leax >L0A31,pc point to path to dial directory os9 I$Open bcs L2F9A sta <u003D Save path # to dialing directory name * NOTE: CAN REMOVE PSHS/PULS U LATER pshs u ldx #$0000 skip past '.' & '..' ldu #$0040 os9 I$Seek puls u bcs L2F9A L2F26 lda <u003D Get path # to directory ldy #$0020 Size of 1 dir entry ldx #u13A9 Point to temp buffer os9 I$Read Read filename bcc L2F3C Got filename, skip ahead cmpb #E$EOF End of directory? bne L2F9A No, exit with error bra L2F4C Skip ahead L2F3C lbsr L3118 Go check filename bcs L2F43 bsr L2FA5 L2F43 lda <u0064 cmpa #$1D bls L2F26 L2F4C lda <u0064 sta >u0C98 lda <u003D Close path to dir os9 I$Close lbsr L3038 tst <u0092 beq L2F79 lbsr L1BC7 ldd #$0000 std >u131C lbsr L1EDC leax >L048F,pc lbsr L1B03 lbsr L314B L2F79 lbsr L1CDE lbsr L1BDF lbsr L1C57 lbsr L1EDC leax >L048B,pc lbsr L1B03 puls y,x,d Restore regs ldx #u00DF Get ptr to modem buffer ldy <u0C88 Get # bytes read on modem lbra L0FD2 Go process L2F9A os9 F$PErr Print error ldx #$0078 Sleep for up to $78 ticks??? lbsr L0F56 bra L2F79 L2FA5 pshs y,x,d Preserve regs ldx #u13A9 Point to filename buffer ldy <u0093 ldb #$1E L2FB2 lda ,x+ Get char from filename buffer decb Dec count tsta Hi bit set (end of filename)? bpl L2FC3 No, copy char & keep going suba #$80 Bump down to normal char sta ,y+ Save normal version ldd #$0A0D Add LF & CR std ,y bra L2FC8 L2FC3 sta ,y+ Save char tstb Done maximum chars yet? bne L2FB2 No, continue copying/checking L2FC8 inc <u0064 bsr L300E bsr L2FDE ldy <u0093 leay <$20,y sty <u0093 puls pc,y,x,d Restore & return L2FDE pshs y,x,d Preserve regs ldx <u0093 ??? ldy #u13A9 Point to temp buffer ldb #$1E L2FEA lda ,x+ decb cmpa #'_ bne L2FF3 lda #C$SPAC L2FF3 cmpa #'. bne L2FFA lda #C$CR clrb L2FFA sta ,y+ tstb bne L2FEA lda #$01 ldy #$001E ldx #u13A9 os9 I$WritLn puls pc,y,x,d L300E pshs y,x,d ldx #u13A9 ldb <u0064 cmpb #$0F bhi L301F lda #$24 bra L3023 L301F lda #$45 subb #$0F L3023 sta $01,x lda #$02 sta ,x addb #$20 stb $02,x ldy #$0003 lda #$01 os9 I$Write puls pc,y,x,d L3038 pshs y,x,d Preserve regs leax >L048F,pc Cursor OFF lbsr L1B03 lda #$01 sta <u0092 L3047 ldx #u13A9 cmpa >u0C98 bls L3059 lda >u0C98 sta <u0092 L3059 cmpa #$0F bhi L3061 adda #$20 bra L3063 L3061 adda #$11 L3063 sta $02,x lda <u0092 cmpa #$0F bhi L3071 lda #$21 bra L3073 L3071 lda #$42 L3073 sta 1,x lda #$02 sta ,x bsr L3107 Go blank out previous '==>' lda #$01 ldy #$0003 os9 I$Write leax >L0693,pc Print '==>' ldy #$0003 os9 I$Write L3090 lbsr L2AC5 cmpa #$08 bne L30A7 L3097 lda <u0092 cmpa #$0F bhi L30A3 adda #$0F L3100 sta <u0092 bra L3047 L30A3 suba #$0F bra L3100 L30A7 cmpa #$09 beq L3097 L30AD cmpa #$0C bne L30CB lda <u0092 cmpa #$01 beq L30C1 suba #$01 sta <u0092 bra L3100 L30C1 lda >u0C98 sta <u0092 bra L3100 L30CB cmpa #$0A bne L30E9 lda <u0092 cmpa >u0C98 beq L30E1 adda #$01 sta <u0092 bra L3100 L30E1 lda #$01 sta <u0092 bra L3100 L30E9 cmpa #$0D bne L30F6 L30ED leax >L048B,pc lbsr L1B03 puls pc,y,x,d L30F6 cmpa #$05 bne L3090 clr <u0092 bra L30ED L3107 pshs y,x,a Clear out '==>' from previous menu selection lda #$01 leax >L0682,pc Write out 3 BSP/SPC's to Std Out ldy #$0006 os9 I$Write puls pc,y,x,a L3118 pshs y,x,d ldx #u13A9 lda ,x beq L3148 ldb #$1B L3124 lda ,x+ decb cmpa #'. beq L3130 L312B tstb bne L3124 L3148 comb puls pc,y,x,d L3130 lda ,x+ decb cmpa #'a bne L312B lda ,x+ decb cmpa #'d bne L312B lda ,x+ decb cmpa #$E6 bne L312B clrb L3146 puls pc,y,x,d L314B pshs y,x,d lda <u0092 deca ldb #$20 32 bytes/entry mul ldx #u16B9 Point to ASCII receive buffer leax d,x Point to proper entry stx <u0093 Save ptr ldx #u13A9 leay >L0A31,pc Point to '/dd/sys/dial' L3169 lda ,y+ Copy path to buffer bmi L3171 Do until high bit set (terminates string) sta ,x+ bra L3169 L3171 suba #$80 Bump down to normal char ldb #'/ Append slash to allow for filename std ,x++ Save in buffer tfr x,y ldx <u0093 Get ptr back ldb #$20 Up to 32 bytes max L317D lda ,x+ sta ,y+ bmi L318A If hi bit, that was last one decb Hit max size yet? bne L317D No, continue moving L318A ldx #u13A9 Point to name of file to open lda #READ. os9 I$Open Open it bcs L31CF Couldn't, print error message & exit sta <u003D Save path to .ADF file lbsr L24D1 Go clear out Search & Reply strings lda #$01 sta >u0D19 lda #$1E sta >u0D1A L31A7 lda <u003D Get path to ADF file again ldx #u13A9 Point to buffer ldy #$0050 Get up to an 80 char line os9 I$ReadLn bcc L31BD Got it, go parse (?) cmpb #E$EOF End of file error? bne L31CF No, print error & exit L31C1 lda <u003D EOF, get path os9 I$Close Close the file lbsr L118F Go update the status line lbra L33E0 L31BD bsr L31D4 bra L31A7 L31CF os9 F$PErr Print error, & exit L31CD puls pc,y,x,d * Parse a line from ADF file L31D4 pshs y,x,d Preserve regs clra Current keyword being checked=0 leay >L06D1,pc Point to keyword list L31DB ldx #u13A9 Point to buffer ldb #$03 Size of keyword=3 inca On keyword 1 os9 F$CmpNam leay 3,y Point to next keyword bcc L31ED Found match, skip ahead cmpa #32 Done all 32 keywords? blo L31DB No, keep checking L31ED cmpa #31 Is it 32? bhi L326F Yes, exit leax 3,x Point past keyword ldb ,x+ Get next char cmpb #'= Is it an '='? bne L326F No, exit * Change to use DECA instead of repeated CMPA's cmpa #$01 ADS (Auto Dial String)? beq L3271 cmpa #$02 BPS (Bits per second (Baud))? lbeq L328A cmpa #$03 ECH (Keyboard echo)? lbeq L32A3 cmpa #$04 HEK (Host Echo)? lbeq L32B1 cmpa #$05 TRM (Terminal Type) lbeq L32BF cmpa #$06 LNF (Line Feeds on in & outgoing text) lbeq L32CE cmpa #$07 XON (XON char) lbeq L32E0 cmpa #$08 XOF (XOFF char) lbeq L32E9 cmpa #$09 RTR (# of retries) lbeq L32F3 cmpa #$0A RPS (Time each entry lasts) lbeq L32FD cmpa #$0B PAR (Parity) lbeq L3307 cmpa #$0C CLK (Keyclick) lbeq L3311 cmpa #$0D WRD (Word Length) lbeq L3320 cmpa #$0E STP (Stop bits) lbeq L3338 cmpa #$16 KM1-8 (Keyboard macros) lbls L3358 Go handle all of them cmpa #$17 CNS (String to send on Connect) lbeq L337E cmpa #$1B SS1-4 (Search string for auto-login) lbls L2508 Go handle them cmpa #$1F RS1-4 (Reply strings for SSn's) lbls L24E3 cmpa #$20 RLF (Line feeds added to received text) lbeq L3392 cmpa #$21 TLF (Line feeds added to xmitted text) lbeq L33A1 L326F puls pc,y,x,d Restore & return L3271 ldy #u0CF2 ldb #$20 Max size=32 bytes L3277 lda ,x+ Get char sta ,y+ Copy it cmpa #C$CR End of line? beq L3284 Yes, skip ahead decb Hit max size? bne L3277 No, keep copying puls pc,y,x,d Restore & return L3284 clr ,y+ Append NUL puls pc,y,x,d Restore & return L328A lbsr L33B0 andb #%00000111 Just keep baud rate lda >u0CA5 Get baud/word len/stop bits anda #%11111000 Keep all but baud sta >u0CA5 Save it orb >u0CA5 Merge with B stb >u0CA5 Save new baud rate puls pc,y,x,d L32A3 lbsr L33B0 tstb beq L32AB ldb #$01 L32AB stb >u0CA7 Save echo type puls pc,y,x,d L32B1 lbsr L33B0 tstb beq L32B9 ldb #$01 L32B9 stb >u0CB1 puls pc,y,x,d L32BF lbsr L33B0 cmpb #$03 blo L32C8 ldb #$02 L32C8 stb >u0CA6 puls pc,y,x,d L32CE lbsr L33B0 tstb beq L32D6 ldb #$01 L32D6 stb >u0CA8 stb >u0CA9 puls pc,y,x,d L32E0 lbsr L33B0 stb >u0CAF Pause off character code puls pc,y,x,d L32E9 lbsr L33B0 stb >u0CB0 Pause on character code puls pc,y,x,d L32F3 lbsr L33B0 stb >u0D19 puls pc,y,x,d L32FD lbsr L33B0 stb >u0D1A puls pc,y,x,d L3307 lbsr L33B0 stb >u0CAC Save parity puls pc,y,x,d L3311 lbsr L33B0 tstb beq L3319 ldb #$01 L3319 stb >u0CAA puls pc,y,x,d L3320 bsr L33B0 lda >u0CA5 anda #%01001111 Keep baud rate sta >u0CA5 Save it orb >u0CA5 Mask in Word Len/Stop bits stb >u0CA5 Save new result puls pc,y,x,d L3338 bsr L33B0 tstb beq L3344 cmpb #$80 beq L3344 puls pc,y,x,d L3344 lda >u0CA5 anda #%01111111 Keep all but Stop bits sta >u0CA5 orb >u0CA5 Merge in stop bit setting stb >u0CA5 puls pc,y,x,d L3358 lda -2,x Get macro # suba #$31 Convert ASCII 1-8 to binary 0-7 cmpa #7 Make sure only 0-7 bhi L337B Not, exit ldb #$80 128 bytes reserved per key mul ldy #u0D1C Point to start of programmable keys buffer leay d,y Point to appropriate key in table ldb #$80 Max size allowed=128 bytes L336B lda ,x+ Get char cmpa #C$CR Hit end of line? beq L3378 Yes, flag end with NUL & exit sta ,y+ Save char decb Past max size? bne L336B No, keep copying puls pc,y,x,d L3378 clrb Append NUL byte std ,y Save CR & NUL L337B puls pc,y,x,d Return L337E ldy #u131C ldb #$80 L3384 lda ,x+ cmpa #C$CR Hit end? beq L3378 Yes, append NUL & exit sta ,y+ decb bne L3384 puls pc,y,x,d L3392 bsr L33B0 tstb beq L339A ldb #$01 L339A stb >u0CA9 puls pc,y,x,d L33A1 bsr L33B0 tstb beq L33A9 ldb #$01 L33A9 stb >u0CA8 puls pc,y,x,d L33B0 lda 1,x cmpa #$21 blo L33D2 Space or control char, skip ahead lda ,x suba #$30 Convert to Binary # cmpa #10 Possibly legit digit? blo L33C0 suba #$07 L33C0 ldb #$10 mul lda 1,x suba #$30 Convert to Binary # cmpa #10 Possibly legit digit blo L33CD Decimal digit, skip ahead suba #$07 L33CD sta 1,x addb 1,x rts L33D2 lda ,x suba #$30 cmpa #10 blo L33DC suba #$07 L33DC tfr a,b rts L33E0 tst >u0D19 bne L33ED clr >u131C lbra L3533 L33ED lbsr L1CDE ldd #$1403 std >u0C8F ldd #$2808 std >u0C91 lbsr L1C81 leax >L04B1,pc Print to 'Count', 'Seconds', etc. lbsr L1B03 lbsr L23D0 Center text leax >L04DB,pc Print 'Dialing' lbsr L1B03 lbsr L2FDE leax >L04E5,pc CurXY @ 23,3 lbsr L1B03 ldb #$01 stb >u139F lbsr L354B ldx #u0CF2 clrb L342A lda ,x+ incb cmpb #$20 bhi L3434 tsta bne L342A L3434 decb bne L343E clr >u131C lbra L3533 L343E clra tfr d,y sty >u0CA1 L3446 leax >L02DC,pc Write out 'ATH <CR>' to modem ldy #$0004 lda <u002B os9 I$Write ldx #$005A lbsr L0F56 lda <u002B Check if data waiting at modem ldb #SS.Ready os9 I$GetStt bcc L346E lbsr L2D2E bcs L346E clr <u0022 bra L3473 L346E lda #$01 sta <u0022 L3473 lbsr L2D50 ldy >u0CA1 ldx #u0CF2 lda <u002B os9 I$Write lbsr L2D50 ldb #$FF stb >u0CA4 L348E lbsr L1B4E sta >u0CA3 L3495 tst <u0022 beq L34A6 lbsr L2DDD bcc L3509 lbsr L2E1E bcs L34AB bra L34DC L34A6 lbsr L2D2E bcs L3509 L34AB ldd #SS.KySns Get keysense byte from StdIn os9 I$GetStt cmpa #$80 bne L34BC clr >u131C bra L3533 L34BC lbsr L1B4E cmpa >u0CA3 beq L3495 inc >u0CA4 leax >L04EA,pc lbsr L1B03 ldb >u0CA4 bsr L354B cmpb >u0D1A blo L348E L34DC inc >u139F leax >L04E5,pc lbsr L1B03 ldb >u139F bsr L354B ldb >u0D19 cmpb #$FF lbeq L3446 ldb >u139F cmpb >u0D19 lblo L3446 clr >u131C bra L3533 L3509 ldd #1*256+SS.Tone Send Tone to Std Out ldx #$3F06 ldy #$0D00 os9 I$SetStt ldy #$0E00 os9 I$SetStt Send another one (higher frequency) ldy #$0F00 os9 I$SetStt Send another one (still higher frequency) tst <u0072 beq L3533 inc <u0075 lda <u0073 sta <u0074 L3533 lbsr L1BAD lda <u003D Close disk file os9 I$Close tst >u131C beq L3545 lbsr L1A19 L3545 lbsr L12B5 puls pc,y,x,d L354B pshs x,d ldx #u13A9 clra L3552 cmpb #$64 blo L355B subb #$64 inca bra L3552 L355B adda #$30 sta ,x+ clra L3560 cmpb #10 blo L3569 subb #$0A inca bra L3560 L3569 adda #$30 sta ,x+ addb #$30 stb ,x+ ldx #u13A9 ldy #$0003 lda #$01 Write 3 bytes to Std Out os9 I$Write puls pc,x,d * Download a file processing (PgDn from command state) L3580 leax >L048F,pc turn off cursor inc >u0CA0 lbsr L1B03 ldd #$1C05 get start co-ordinates of overlay std >u0C8F ldd #$1907 get size of overlay std >u0C91 lbsr L1C81 place overlay leax >L0734,pc print available protocols lbsr L1B03 lda #$04 get max # protocols sta >u139E save it ldb <u004B get last selected protocol lbsr L1DB8 let user choose new protocol lbsr L1CDE get rid of overlay window leax >L048B,pc turn cursor back on lbsr L1B03 clr <u0046 clear ymodem batch flag ldb >u0C84 get selected type beq L35D6 ASCII, skip ahead cmpb #$03 within max? lbhi L0C5E no, go back to main loop stb <u004B update last selected protocol cmpb #$02 ZModem? lbhi L1793 yes, do it blo L3648 X/Ymodem, go do it inc <u0046 flag Ymodem batch * X/Ymodem (batch) file receive L3648 pshs d,x,y Store regs lbra L36F4 Go do X/Ymodem (w or w/o batch) L35D6 stb <u004B update last selected protocol lbra L4233 go do ASCII Xfer * Upload a file (PdUp in main command state) L35DF leax >L048F,pc point to CurOff clr >u0CA0 lbsr L1B03 turn cursor off ldd #$1C05 std >u0C8F ldd #$1908 std >u0C91 lbsr L1C81 leax >L07A5,pc Point to file send menu lbsr L1B03 Print it lda #$05 sta >u139E ldb <u004A lbsr L1DB8 lbsr L1CDE leax >L048B,pc Cursor On lbsr L1B03 clr <u0046 clr <u0045 ldb >u0C84 beq L363F cmpb #$04 lbhi L0C5E stb <u004A cmpb #$02 blo L3648 inc <u0045 cmpb #$03 blo L3648 lbhi L1859 inc <u0046 bra L3648 L363F stb <u004A lbra L4233 * Setup Serial path options & data for file Xfer's L364D ldd #$FF00 sta <u0042 stb <u0069 stb <u005F stb <u004C stb <u006A stb <u0062 stb <u0052 stb <u009B ldx #u13A9 lda <u002B get path to modem ldb #SS.Opt Get path options pshs d os9 I$GetStt get current settings ldx #u13A9 point to buffer lda PD.BAU-PD.OPT,x anda #$0F sta PD.BAU-PD.OPT,x lda PD.PAR-PD.OPT,x anda #$03 sta PD.PAR-PD.OPT,x clra clrb std PD.XON-PD.OPT,x std PD.EKO-PD.OPT,x puls d restore path & option os9 I$SetStt set new path options lda >u0CB0 ldb >u0CAF pshs d clra sta >u0CAF sta >u0CB0 lbsr L43CA puls d sta >u0CB0 stb >u0CAF ldd #0 std <u0009 ldd #$1504 get start co-ordinates of xfer overlay std >u0C8F ldd #$2509 get size std >u0C91 lbra L1C81 place xfer overlay window L36CD pshs y,x,d L36CF lbsr L3BBC L36D2 lda <u002B Check if data ready on modem ldb #SS.Ready os9 I$GetStt bcc L36E5 Maybe, go check it out lbsr L3BDA cmpa #$02 blo L36D2 puls pc,y,x,d L36E5 clra tfr d,y # bytes received to Y lda <u002B Get path to modem ldx #u13A9 Point to modem receive buffer os9 I$Read Read in the data bra L36CF * X/Ymodem (batch) file receive L36F4 lbsr L364D setup path options to modem for download leax >L04EF,pc point to 'Xmodem file Xfer...' lbsr L1B03 print it tst <u0046 ymodem batch? beq L370A no, skip ahead leax >L0511,pc point to 'Y' lbsr L1B03 print it L370A leax >L052F,pc point to '<Break> aborts' lbsr L1B03 print it tst <u0046 ymodem batch? beq L371F no, skip ahead leax >L048F,pc turn cursor off lbsr L1B03 bra L376A skip to * Get filename for X/Ymodem receive L371F leax L055F,pc point to 'File:' lbsr L1B03 print it lbsr L455D scan for old filename tst <u009B filename already present? beq L3742 no, skip ahead ldx #u009F point to name ldy #$0020 get length lda #$01 print it os9 I$WritLn ldd #$0704 position cursor back to start of input prompt lbsr L2294 L3742 ldb #$1E get max length of name lbsr L1B61 get it from user tst <u0021 lbne L3954 leax L045E,pc clear the screen lbsr L1B03 leax L04EF,pc point to 'Xmodem file transer system' lbsr L1B03 print it tst <u0046 ymodem batch? beq L3772 no, skip ahead leax L0511,pc point to 'Y' lbsr L1B03 print it bra L3772 skip ahead L376A tst >u0CA0 Up/Download? lbeq L3F08 * NOTE: SHOULD CHANGE TO USE BILL'S SS.FILL CALL TO ALLOW EDITING OF 'GUESSED' * FILENAME L3772 ldy #u060E point to user entered filename ldx #u009F point to old filename buffer lda ,y get the first character cmpa #C$CR user just hit enter? bne L378A no, skip ahead tst <u009B was there a old filename? lbeq L3954 no, skip ahead bra L378F L378A ldb #$20 get length of name lbsr L2D26 move it to old filename buffer L378F tst >u0CA0 Upload? lbeq L3F08 Yes, go do tst <u0046 Download; Batch? bne L37C9 yes, have to get filename from sender leax L056B,pc point to 'Recv:' lbsr L1B03 print it lda #$01 print the filename ldx #u009F ldy #$0020 os9 I$WritLn leax L048F,pc turn off cursor lbsr L1B03 lda #WRITE. get file mode ldb #$03 get attributes ldx #u009F Point to filename os9 I$Create create file lbcs L3965 sta <u0042 save path # L37C9 ldd <u0004 Get Start address of receive buffer std <u0006 Make it ptr to end of receive buffer too leax L0593,pc point to 'Block # ... Error #' lbsr L1B03 print it leax L05B7,pc point to 'Last Error:' lbsr L1B03 print it leax L052F,pc point to '<Break> aborts' lbsr L1B03 print it lbsr L3E83 print '0000' for lbsr L3E9B print '0000' for tst <u0046 Batch? beq L37F8 no, skip ahead L37ED lbsr L3E83 print '0000' for lbsr L3E9B print '0000' for ldd #$0000 Set current block # to 0 (for batch name block) bra L37FE skip ahead * Main X/Ymodem transfer loop L37F8 lbsr L3EDD print ??? ldd #1 Set current block # to 1 L37FE std <u0053 Save current block # leax L06C7,pc CurXY @ 16,1 & print 5 spaces lbsr L1B03 print it ldd #$0D07 get cursor coords for error messages lbsr L2294 move there leax L05C7,pc Point to table of error messages for download lda #$01 To Std Out ldy #$0014 All error messages are 20 bytes (default=20 spaces os9 I$Write inc <u005A ldb #$04 get # attempts for CRC mode stb <u0059 save it as a counter * Try 4 attempts to recieve using CRC L3823 lbsr L3E73 send 'C' to host dec <u0059 decrement attempt count lbsr L3BBC update timeout time L382C lda <u002B get path to modem ldb #SS.Ready os9 I$GetStt any data? bcc L38A3 yes, skip ahead lbsr L29EB No, go check if user hit <BREAK> to abort lbcs L3992 Yes, abort transfer lbsr L3BDA get # seconds cmpa #$03 timeout? blo L382C no, try again tst <u0059 any attempts left? bne L3823 yes, try again clr <u005A ??? L384C lbsr L3E7F Send NAK code to modem lbsr L3BBC Update timer stuff * Try 10 attempts to initiate CheckSum L3852 lda <u002B get path to modem ldb #SS.Ready os9 I$GetStt Any data waiting? bcc L38A3 Yes, skip ahead lbsr L29EB No, go check if user hit <BREAK> to abort lbcs L3992 Yes, go abort transfer lbsr L3BDA get # seconds waiting cmpa #10 timeout? blo L3852 no, try again inc <u0052 Inc # attempts at checksum lbsr L3EC5 ??? Update some counter lbsr L1CF7 ??? (resets default colors to terminal type) lda <u0052 Get current # attempts @ checksum cmpa #10 Done 10 of them? blo L384C No, keep trying lbra L3992 Yes, abort transfer L387D ldd <u0053 Get current block # of xfer bne L388E There is one, skip ahead lbsr L3E7B Send ACK to modem lbsr L3E73 Send 'C' (for CRC mode) to modem bra L3891 L388E lbsr L3E7B Send ACK to modem L3891 ldd <u0053 Bump block # up 1 addd #$0001 std <u0053 lbsr L3EDD Update block # on screen clr <u0052 Clear Checksum attempt count lbsr L3EB3 Print '0000' (for block #'s?) * Data waiting on modem comes here L38A3 lbsr L29EB check for keyboard data lbcs L3992 got something, abort xfer clr <u00E2 Clear 4th byte of modem buffer lbsr L39F1 Go do the download (?) pshs cc Save error status ldd <u0053 Get current block # bne L38C7 Not header block, skip ahead tst <u00E2 Check 4th byte in buffer bne L38CD puls cc Restore error from download lbra L3992 Abort xfer L38CD puls cc Restore error from download bcc L387D None, go send ACK/'C' to modem lda #C$CR Error, reset previous dload filename to CR sta <u009F lbra L3992 Abort xfer L38C7 puls cc bcs L38EC L38DA tst <u005F bne L38FD tst <u0062 beq L387D clr <u0062 lbsr L3E7B bra L38A3 Go check keyboard/modem again L38EC lda <u0052 Get current # attempts @ checksum cmpa #$09 Already have more than 9? lbhi L3992 Too many errors, abort xfer lbsr L36CD lbsr L3E7F Send NAK to modem bra L38A3 * Current file xfer is done L38FD tst <u0046 Batch mode on? beq L3941 No, skip ahead * Batch mode xfer done lbsr L3E7F Send NAK to modem lbsr L39F1 Go read block (for filename) clr <u005F tst <u004C bne L392D ldd <u005B Get MSW of file size bne L391C Definately not 0 length, go resize ldd <u005B+2 Get LSW of file size beq L392D 0 byte file, don't pre-extend L391C lda <u0042 Get path to download file ldb #SS.Size Re-size file to exact size from Batch header ldx <u005B ldy <u005B+2 tfr y,u os9 I$SetStt L392D lda <u0042 Close the download file (???) os9 I$Close lda #C$CR Reset old filename to CR sta <u009F lbsr L3E7B Send ACK to modem lbra L37ED Reprint Block & Error #'s to '0000' * Non-batch mode goes here L3941 clr <u005F lbsr L3E7B Send ACK to modem L3947 clr >u0CA0 ??? Set xmit/recv flag to xmit??? lbsr L1D09 Go sound a tone lda <u0042 Get path to dload file os9 I$Close Close it L3954 lbsr L118F Go update the status line lbsr L1CDE Remove overlay windows clr <u0046 Clear Batch mode flag puls y,x,d Restore regs lbra L0C5E Go back to main (no file xfer) loop L3965 lda #$07 lbsr L1F0B pshs b ldd #$0D02 lbsr L2294 lda #$03 lbsr L1F0B leax >L048F,pc Cursor OFF lbsr L1B03 puls b os9 F$PErr Print Error ldx #$003C lbsr L0F56 leax >L048B,pc Cursor ON lbsr L1B03 bra L3954 Go remove windows & exit xfer * Cancel file receive (comes here if key pressed) L3992 lda <u009F get first char of filename cmpa #C$CR anything? beq L39AA no, skip delete lda <u0042 get path to file os9 I$Close close it * NOTE: MAY WANT TO ADD USER OPTION TO KEEP WHATEVER WAS RECEIVED IN ABORTED * XFER ldx #u009F point to filename os9 I$Delete delete it lbsr L36CD purge any remaining data from modem * Cancel file transfer L39AA ldx #u13A9 point to temp buffer ldd #$1804 CANcel code- 4 times L39B2 sta ,x+ place in buffer decb done? bne L39B2 no keep going ldd #$0304 Also add 4 <CTRL>-<C>'s L39BB sta ,x+ place in buffer decb done? bne L39BB no, keep going lda <u002B get path to modem ldy #8 get # chars ldx #u13A9 point to CAN string os9 I$Write send it to host bra L3947 Go close down xfer cleanly L39D1 lda #$04 Error # 4 (Time Out) sta <u004F lbra L3B83 L39D9 lda #$03 Error # 3 (Block check failed) sta <u004F lbra L3B83 L39E1 lda #$02 Error # 2 (Wrong Block #) sta <u004F lbra L3B83 L39E9 lda #$01 Error # 1 (Transfer aborted) sta <u004F lbra L3B83 * Read a block?? L39F1 pshs y,x Preserve regs ldd #$0000 std <u004D Clear byte counter for dload std <u0048 reset running CRC sta <u0062 sta <u004F Reset error # for xfer sta <u005F lbsr L3BBC ??? Something with timer (timeout check?) L3A08 ldx #u00DF point to modem receive buffer L3A0C lbsr L3BDA update timeout time cmpa #10 timeout? bhi L39D1 yes, skip ahead lda <u002B get path to modem ldb #SS.Ready any data? os9 I$GetStt bcs L3A0C no, wait for it ldy #1 get # bytes needed * NOTE: Attempted to eliminate lda <u002B (redundant from GetStt above) os9 I$Read read the block header byte bcs L3A0C error, try again tfr y,d move # bytes to D std <u004D save it abx add LSB of it to buffer pointer lda <u00DF get the header byte * NOTE: Change to use DECA to speed up X&Ymodem header checks? cmpa #$02 ymodem header? beq L3A57 yes, get block size cmpa #$01 xmodem header? beq L3A52 yes, get block size cmpa #$04 batch file header? lbeq L3BAC yes, increment file count & process cmpa #$18 CAN? lbeq L3BB4 yes, cancel xfer cmpa #$03 OS-9 CAN? lbeq L3BB4 yes, cancel xfer bra L3A08 garbage data, try again * Get XModem data block size L3A52 ldd #$0080 128 bytes per block (Xmodem) bra L3A5A * Get YModem data block size L3A57 ldd #$0400 1024 bytes per block (Ymodem) L3A5A std <u0057 save block size ldy #u00E2 Get ptr to where data block will be (past header) leay d,y Calculate end of block ptr sty <u0050 Save it orb #$04 add 4 to block size for header & checksum tst <u005A CRC mode active? beq L3A70 No, we have block size orb #$01 add 1 to block size (for 2nd CRC byte) L3A70 std <u0055 save true block size lbsr L3BBC update timeout time bra L3A81 Start getting blocks? L3A78 lbsr L3BDA Go update X/YModem timer cmpa #2 Too long? lbhi L39D1 Yes, TimeOut Error L3A81 lda <u002B Any data ready on modem? ldb #SS.Ready os9 I$GetStt bcs L3A78 No, do again cmpb #$02 At least 2 chars? blo L3A78 No, too small to bother, do again ldy #$0002 Read 2 chars from modem os9 I$Read Read in 2 chars tfr y,d Move size read to D abx Bump buffer ptr up past new data addd <u004D Add to total # bytes gotten for this block std <u004D Save updated counter ldd <u0053 Get current block # cmpb <u00DF+1 Compare with block # for X/Ymodem block bne L3AB6 Error, skip ahead L3AAC comb Compliment block # cmpb <u00DF+2 Match compliment in block header? beq L3AC2 Yes, header info is fine, skip ahead lbra L39E1 Wrong Block # error * Block # error L3AB6 decb Bump current block # down to previous one cmpb <u00DF+1 Is that the one in the block header? lbne L39E1 No, wrong block # error inc <u0062 ??? bra L3AAC Check compliment of block # too * Block # & it's compliment match in X/YModem block L3AC2 lbsr L3BBC Do timing update L3AC5 lbsr L3BDA Do timing sleep * MAY WANT TO INCREASE THIS cmpa #2 2 second difference? lbhi L39D1 If more than 2 second wait, timeout error L3ACE lda <u002B Any data ready on modem? ldb #SS.Ready os9 I$GetStt bcs L3AC5 No, do again clra tfr d,y # bytes received into Y lda <u002B Read in data from modem os9 I$Read bcs L3AC5 Error reading, try again tfr y,d # bytes read to D lbsr L3BBC Do timing update tst <u005A CRC mode? bne L3AF2 Yes, go update CRC lbsr L3E3D Go update checksum bra L3AF5 L3AF2 lbsr L3E0F update CRC L3AF5 abx Add # bytes read to read ptr addd <u004D Add # bytes in this I$Read to total #bytes so far std <u004D for this block cmpd <u0055 Got all the data we need for this block? blo L3ACE No, keep reading data ldx <u0050 ldd <u0048 tst <u005A beq L3B16 cmpd ,x L3B10 beq L3B1A lbra L39D9 L3B16 cmpa ,x bra L3B10 L3B1A tst <u0062 bne L3B7F ldd <u0053 bne L3B2F lbsr L2860 bcs L3B83 puls pc,y,x L3B2F ldx #u00E2 cmpd #$0001 bne L3B79 ldd <u0057 lbsr L4206 tst <u004C beq L3B79 pshs y,x,a ldx #u009C lda <u0089 sta 2,x ldy #$0003 lda #$01 os9 I$Write leax >L06BF,pc Print 'ASCII' ldy #$0008 os9 I$Write lda <u0087 ldx #u009C sta $02,x ldy #$0003 lda #$01 os9 I$Write puls y,x,a L3B79 ldd <u0057 lbsr L4191 L3B7F clrb L3B80 puls pc,y,x L3B83 inc <u0052 lbsr L3EC5 lbsr L1CF7 ldd #$0D07 lbsr L2294 ldb #$14 Size of each error message lda <u004F Get error # beq L3BA9 0=none? mul Calculate offset to proper error leax >L05C7,pc Point to Download error list leax d,x Point to specific error we want lda #$01 Print it to the user ldy #$0014 os9 I$Write L3BA9 comb puls pc,y,x L3BAC inc <u005F lbsr L41EC puls pc,y,x L3BB4 lda #$0A sta <u0052 lbra L39E9 L3BBC tst <u0072 Is VRN running? beq L3BCC No, use F$Time call pshs d Preserve reg used clra ldb <u0073 Get # seconds from VRN timer std <u0060 Save it puls pc,d Restore D & return L3BCC pshs x,d Preserve regs ldx #u0C99 Point to place to hold time packet os9 F$Time Get current time lda 5,x Get seconds sta <u0060 Save it puls pc,x,d Restore regs & return L3BDA pshs x,b Preserve regs tst <u0072 Is VRN present? beq L3BF3 No, use Clock lda #$01 ldb <u0073 Get VRN seconds counter subd <u0060 Subtract last # seconds from VRN tfr b,a A=# seconds between the 2 ldx #$0001 1 tick to sleep lbsr L0F56 Go check for/update onscreen timer & sleep 1 tick puls pc,x,b Restore regs & return L3BF3 ldx #u0C99 Point to buffer for time packet os9 F$Time Get current system time lda 5,x Get # seconds ldx #$0001 Sleep for 1 tick os9 F$Sleep adda #60 Add 60 to seconds suba <u0060 Subtract # seconds from last check cmpa #60 Hit 60 yet? blo L3C0D No, restore regs & exit suba #60 Yes, bump back down to real seconds L3C0D puls pc,x,b Restore regs & return * Update running 16 bit CRC * Entry: D=# bytes in block? * X=Ptr to current position in read buffer? L3E0F pshs d,x Preserve regs leau d,x Point U to where end of block would be stu <Temp Save in temp var cmpx <u0050 We hit end of read buffer? bhs L3E39 Yes, exit leau <L3C0F,pc Point to CRC table L3E24 ldb <u0048 Get 1st byte of current 16 bit CRC clra Preload A for 16 bit # eorb ,x+ EOR with byte from buffer lslb Calculate offset to get CRC word from rola ldd d,u Get CRC word eora <u0049 Update CRC std <u0048 cmpx <u0050 Hit end of read buffer yet? beq L3E39 Yes, exit cmpx <Temp Hit end of block yet? blo L3E24 No, continue calculating CRC with next byte L3E39 puls d,x,pc Restore regs & return * 16 bit CRC table L3C0F fdb $0000,$1021,$2042,$3063,$4084,$50A5,$60C6,$70E7 fdb $8108,$9129,$A14A,$B16B,$C18C,$D1AD,$E1CE,$F1EF fdb $1231,$0210,$3273,$2252,$52B5,$4294,$72F7,$62D6 fdb $9339,$8318,$B37B,$A35A,$D3BD,$C39C,$F3FF,$E3DE fdb $2462,$3443,$0420,$1401,$64E6,$74C7,$44A4,$5485 fdb $A56A,$B54B,$8528,$9509,$E5EE,$F5CF,$C5AC,$D58D fdb $3653,$2672,$1611,$0630,$76D7,$66F6,$5695,$46B4 fdb $B75B,$A77A,$9719,$8738,$F7DF,$E7FE,$D79D,$C7BC fdb $48C4,$58E5,$6886,$78A7,$0840,$1861,$2802,$3823 fdb $C9CC,$D9ED,$E98E,$F9AF,$8948,$9969,$A90A,$B92B fdb $5AF5,$4AD4,$7AB7,$6A96,$1A71,$0A50,$3A33,$2A12 fdb $DBFD,$CBDC,$FBBF,$EB9E,$9B79,$8B58,$BB3B,$AB1A fdb $6CA6,$7C87,$4CE4,$5CC5,$2C22,$3C03,$0C60,$1C41 fdb $EDAE,$FD8F,$CDEC,$DDCD,$AD2A,$BD0B,$8D68,$9D49 fdb $7E97,$6EB6,$5ED5,$4EF4,$3E13,$2E32,$1E51,$0E70 fdb $FF9F,$EFBE,$DFDD,$CFFC,$BF1B,$AF3A,$9F59,$8F78 fdb $9188,$81A9,$B1CA,$A1EB,$D10C,$C12D,$F14E,$E16F fdb $1080,$00A1,$30C2,$20E3,$5004,$4025,$7046,$6067 fdb $83B9,$9398,$A3FB,$B3DA,$C33D,$D31C,$E37F,$F35E fdb $02B1,$1290,$22F3,$32D2,$4235,$5214,$6277,$7256 fdb $B5EA,$A5CB,$95A8,$8589,$F56E,$E54F,$D52C,$C50D fdb $34E2,$24C3,$14A0,$0481,$7466,$6447,$5424,$4405 fdb $A7DB,$B7FA,$8799,$97B8,$E75F,$F77E,$C71D,$D73C fdb $26D3,$36F2,$0691,$16B0,$6657,$7676,$4615,$5634 fdb $D94C,$C96D,$F90E,$E92F,$99C8,$89E9,$B98A,$A9AB fdb $5844,$4865,$7806,$6827,$18C0,$08E1,$3882,$28A3 fdb $CB7D,$DB5C,$EB3F,$FB1E,$8BF9,$9BD8,$ABBB,$BB9A fdb $4A75,$5A54,$6A37,$7A16,$0AF1,$1AD0,$2AB3,$3A92 fdb $FD2E,$ED0F,$DD6C,$CD4D,$BDAA,$AD8B,$9DE8,$8DC9 fdb $7C26,$6C07,$5C64,$4C45,$3CA2,$2C83,$1CE0,$0CC1 fdb $EF1F,$FF3E,$CF5D,$DF7C,$AF9B,$BFBA,$8FD9,$9FF8 fdb $6E17,$7E36,$4E55,$5E74,$2E93,$3EB2,$0ED1,$1EF0 * Calculate Checksum? * Entry: D=# bytes in block? * X=Ptr to current position in read buffer? * Y= L3E3D pshs x,d Preserve regs leau d,x Point U to where end of block would be stu <Temp Save in temp var cmpx <u0050 Hit end of read buffer? beq L3E56 Yes, exit lda <u0048 Get current Checksum L3E4B adda ,x+ Add next byte cmpx <u0050 Hit end of buffer? beq L3E56 Yes, exit cmpx <Temp Hit end of block? blo L3E4B No, keep calculating Checksum L3E56 sta <u0048 Save new checksum puls pc,x,d Restore & return * Send ACK code for properly received packet L3E7B lda #$06 get ACK code * Send single byte to modem * Entry: A=Character to send L3E6E sta <u0044 Save code to write * Send block response code (ex. ACK) L3E5D pshs a,x,y preserve regs ldx #u0044 point to 1 byte buffer for block responses lda <u002B get path to modem ldy #1 get length os9 I$Write send it puls a,x,y,pc restore & return L3E73 lda #'C get code for CRC mode bra L3E6E send it to host L3E77 lda #$04 get end of transmission code bra L3E6E send it to modem L3E7F lda #$15 get NAK code bra L3E6E send it to modem L3E83 pshs d,x,y leax >L062B,pc Point to '0000' packet # text with CurXY @ 8,5 ldy #u1449 ldb #$09 lbsr L2D1E ldx #u1449 lbsr L1B03 puls d,x,y,pc L3E9B pshs y,x,d leax >L0634,pc Point to '0000' packet # text with CurXY @ 32,5 ldy #u1439 ldb #$09 lbsr L2D1E ldx #u1439 lbsr L1B03 puls pc,y,x,d L3EB3 pshs y,x,d ldx #u1439 ldd #$3030 '00' std $05,x std $07,x lbsr L1B03 puls pc,y,x,d L3EC5 pshs y,x,a ldx #u1439 bsr L3EEA lbsr L1B03 puls pc,y,x,a * ??? NEVER CALLED? * pshs y,x,a * leax >u1449,u * lbsr L1B03 * puls pc,y,x,a L3EDD pshs y,x,a ldx #u1449 bsr L3EEA lbsr L1B03 puls pc,y,x,a L3EEA pshs b ldb #$08 L3EEE bsr L3EF9 cmpa #$30 bne L3EF7 decb bcc L3EEE L3EF7 puls pc,b L3EF9 lda b,x inca cmpa #$39 Higher than ASCII '9'? bhi L3F03 sta b,x rts L3F03 lda #$30 Force to ASCII '0' sta b,x rts L3F08 tst <u0046 Check for YModem batch? beq L3F1A lbsr L2A52 tst <u0021 lbne L3954 L3F17 lbsr L2AA0 L3F1A leax >L0583,pc lbsr L1B03 ldx #u009F lda #$01 ldy #$0020 os9 I$WritLn leax >L048F,pc Cursor OFF lbsr L1B03 leax >L06C7,pc lbsr L1B03 lda #$01 ldx #u009F os9 I$Open bcc L3F53 L3F47 tst <u0046 lbeq L3954 inc <u0069 bra L3F71 L3F53 sta <u0042 Save path # to download file ldx #u00DF Read 127 bytes into buffer ldy #$007F os9 I$Read bcs L3F47 Error, deal with it tfr y,d lbsr L4206 lda <u0042 Get path # to download file ldx #$0000 os9 I$Seek L3F71 leax >L0593,pc lbsr L1B03 leax >L052F,pc lbsr L1B03 lbsr L3E83 lbsr L3E9B tst <u004C beq L3FB9 ldx #u009C lda <u0089 sta $02,x ldy #$0003 lda #$01 os9 I$Write leax >L06BF,pc ldy #$0008 os9 I$Write ldx #u009C ldb <u0087 stb $02,x ldy #$0003 os9 I$Write L3FB9 clr <u005A Clear block check type to Checksum ldd #$0080 128 bytes per block std <u0057 Save X/YModem block size addd #$0004 Add 4 bytes for header/trailer bytes std <u0055 Save 'real' block size tst <u0046 Batch mode? lbne L40EA Yes, skip ahead ldx #u13A9 lbsr L2C72 tst <u0045 beq L3FE7 ldd #$0400 Set block size to 1024 std <u0057 addd #$0004 Add 4 for header/trailer bytes std <u0055 L3FE7 ldd #$0001 Set current block # to 1 std <u0053 lbsr L3EDD lbsr L3EB3 lbsr L36CD lbsr L2408 tst <u0046 Batch mode? beq L4007 No, skip ahead ldd <u0053 Get block # cmpd #$0001 Block #1 (info block)? beq L4017 Yes, skip ahead L4007 lbsr L2A15 lbcs L39AA cmpa #$43 beq L4017 lbsr L249F bra L4031 L4017 lda #$01 Set to CRC checking sta <u005A lbsr L249F ldd <u0057 Get block size addd #$0005 Add 5 for header/trailer (CRC) std <u0055 Save as 'real' block size bra L4041 L402A lbsr L2A15 lbcs L39AA L4031 cmpa #$15 NAK (bad block)? beq L4041 Yes, bump up retry ctr & see if time to quit cmpa #$06 ACK (good block)? beq L4070 Yes, skip ahead cmpa #$18 <CTRL>-<X> to abort Xfer? lbeq L39AA Yes, go abort bra L4007 * Send X/Ymodem block & retry counter routine L4041 inc <u0052 Bump up # attempts @ checksum lda <u0052 Get it cmpa #$09 Past 10? lbhi L39AA Yes, forget it cmpa #$01 1st try? bne L405A No, skip ahead ldd <u0053 Get current block # cmpd #$0001 First block? beq L4060 Yes, skip ahead L405A lbsr L3EC5 ??? Update retry count lbsr L1CF7 Send out a tone L4060 ldy <u0055 Get true block size lda <u002B Get path to modem ldx #u00DF Get ptr to modem buffer os9 I$Write Send out the block bra L402A * Good block sent goes here L4070 clr <u0052 Clear out retry attempts to 0 lbsr L3EB3 Go update block # on screen tst <u005F bne L40BE ldd <u0053 Get current block # addd #$0001 Add 1 to it std <u0053 Save mew block # tst <u0045 beq L409F ldd #$0400 Set block size to 1024 std <u0057 * SHOULD BE ABLE TO CHANGE TO ADD #4, THEN DO CHECK AND ADD 1 MORE IF CRC tst <u005A CRC? beq L4099 No, skip ahead addd #$0005 'Real' block size is 1029 bra L409C L4099 addd #$0004 'Real' block size is 1028 for checksum L409C std <u0055 Save real block size L409F lbsr L3EDD lbsr L2408 tst <u005F bne L40BE lbsr L249F lda <u002B Get path # to modem ldx #u00DF Point to xmit buffer ldy <u0055 Get size of buffer os9 I$Write Send next block to modem lbra L402A L40BE lda <u0042 Get path # to upload file os9 I$Close Close it clr <u005F tst <u0046 Batch xfer? beq L40D8 No, we're done lbsr L3E77 lbsr L2A15 lbcs L39AA lbra L3F17 L40D8 lbsr L3E77 lbsr L2A15 lbcs L39AA cmpa #$06 bne L40D8 lbra L3947 L40EA lbsr L2A15 lbcs L39AA cmpa #'C CRC mode requested? bne L40EA No, go back inc <u005A Set mode to CRC ldd <u0057 Get block size addd #$0005 'Real' block size std <u0055 Save 'Raw' block size ldd #$0000 Set current block # to 0 std <u0053 lbsr L2408 lbsr L249F ldx #u00DF ldy #u13A9 ldb #$86 lbsr L2D1E tst <u0069 bne L412F ldd #$0001 Set block # to 1 std <u0053 ldd #$0400 Set block size to 1024 std <u0057 lbsr L2408 lbsr L249F L412F lda <u002B Get path # to modem ldx #u13A9 ldy <u0055 Get 'raw' block size os9 I$Write L413D lbsr L2A15 lbcs L39AA cmpa #$06 beq L415C cmpa #$15 bne L413D inc <u0052 Update retry counter lda <u0052 cmpa #$09 lbhi L39AA lbsr L3EC5 lbsr L1CF7 bra L412F L415C tst <u0069 lbne L3954 ldd #$0001 Set block # to 1 std <u0053 lbsr L3EDD ldd <u0057 Get block size addd #$0005 New size for CRC header/trailer std <u0055 Save 'raw' block size lbsr L2A15 lbcs L39AA cmpa #'C CRC mode requested? bne L415C lda <u002B Get path to modem ldx #u00DF ldy <u0055 Get raw block size os9 I$Write Send to modem lbra L402A L4191 pshs y,d ldd <u0002 Get ptr to max address of receive buffer allowed subd ,s cmpd <u0006 Compare with end of current receive buffer bhs L419E bsr L41EC L419E ldy <u0006 tst <u004C bne L41BC L41A6 ldd ,x++ std ,y++ ldd ,s subd #$0002 std ,s bhi L41A6 beq L41B7 leay -1,y L41B7 sty <u0006 puls pc,y,d L41BC ldd ,x++ cmpa #$1F bhi L41CA cmpa #$0A beq L41CC cmpa #$1A beq L41CC L41CA sta ,y+ L41CC cmpb #$1F bhi L41D8 cmpb #$0A beq L41DA cmpb #$1A beq L41DA L41D8 stb ,y+ L41DA ldd ,s subd #$0002 std ,s bhi L41BC beq L41E7 leay -1,y L41E7 sty <u0006 puls pc,y,d L41EC pshs x ldx <u0004 Get ptr to start address of receive buffer ldd <u0006 Get ptr to current end of receive buffer subd <u0004 Calculate current size of receive buffer tfr d,y Keep copy in Y lda <u0042 Get path to download file cmpa #$FF If none, skip ahead beq L4200 os9 I$Write Otherwise, write buffer to disk L4200 ldd <u0004 Reset end of current buffer ptr to beginning std <u0006 puls pc,x L4206 pshs x,d tst >u0CAD beq L422E inc <u004C andb #$7F L4213 lda ,x+ bmi L422E beq L4229 cmpa #$1F bhi L4229 cmpa #$0D beq L4229 cmpa #$0A beq L4229 cmpa #$09 bne L422E L4229 decb bne L4213 puls pc,x,d L422E clr <u004C puls pc,x,d * ASCII file download L4233 ldd #$1504 std >u0C8F ldd #$2507 std >u0C91 lbsr L1C81 leax >L048F,pc Cursor OFF lbsr L1B03 tst >u0CA0 lbeq L444C leax >L08CF,pc 'File Capture System' lbsr L1B03 leax >L051C,pc 'Break aborts' lbsr L1B03 leax >L048B,pc Cursor ON lbsr L1B03 tst <u0025 Does an ASCII receive file exist? beq L42BE No, continue leax >L0925,pc Print a double quote lbsr L1B03 ldx #u00BF lda #$01 ldy <u001E leay -1,y os9 I$Write Write filename leax >L08E8,pc 'is already open' lbsr L1B03 * Loop for response to file already open L428A lbsr L2AC5 cmpa #'Y beq L42A3 cmpa #'N lbeq L4332 cmpa #$05 <CTRL>-<E>? lbeq L4332 cmpa #C$CR bne L428A Illegal responses; ignore & try again L42A3 lbsr L43CA lbsr L44E1 lda <u002A Get path to file os9 I$Close Close it bcs L433B clr <u0025 Clear flag that a receive file is open clr <u0026 Clear flag that receive buffer is open lbsr L237E bra L4332 L42BE tst <u0020 bne L42E7 leax >L055F,pc 'File:' lbsr L1B03 ldb #$1E Max file size allowed? lbsr L1B61 Go get filename from user tst <u0021 bne L4332 ldd <u001C std <u001E ldx #u060E ldy #u00BF ldb #$20 lbsr L2D1E L42E7 ldx #u00BF lda ,x cmpa #$0D Carriage return? beq L4332 ldd #WRITE.*256+UPDAT. Access mode=Write, attributes=Read & Write os9 I$Create Create the file bcc L4318 cmpb #E$CEF File aready exists error? bne L433B leax >L092B,pc Append or overwrite message lbsr L1B03 L4305 lbsr L2AC5 cmpa #'A Append? beq L4363 cmpa #'O Overwrite? beq L438A cmpa #C$CR CR? beq L4332 bra L4305 L4318 sta <u002A Save path # to receive file L431B inc <u0025 Flag that receive file exists tst <u0024 bne L4332 inc <u0026 Flag that receive buffer is open lbsr L237E lda <u0002 Get MSB of max address for receive buffer suba <u0006 Calc size to end of buffer (in 256 byte blocks) sta <u0008 Save it lbsr L44FF L4332 clr <u0024 lbsr L1CDE lbra L0C5E L433B lda #$07 lbsr L1F0B pshs b ldd #$0D02 lbsr L2294 leax >L048F,pc Cursor OFF lbsr L1B03 puls b os9 F$PErr Print error message ldx #$003C lbsr L0F56 leax >L048B,pc Cursor ON lbsr L1B03 bra L4332 L4363 ldx #u00BF lda #UPDAT. os9 I$Open bcc L4379 os9 F$PErr ldx #$003C lbsr L0F56 bra L433B L4379 sta <u002A Save path # to receive file * NOTE: TOOK OUT PSHS U ldb #SS.Size Get size of file to append to os9 I$GetStt os9 I$Seek Seek to end of file * NOTE: TOOK OUT PULS U bra L431B L438A ldx #u00BF Delete file (to overwrite) os9 I$Delete lbra L42E7 L4394 pshs y,x,d ldx #u070D ldb <u0C89 Get LSB of size converted output text buffer ldy <u0006 Get ptr to end of current receive buffer L43A4 lda ,x+ cmpa #$0A beq L43AF sta ,y+ sty <u0006 L43AF decb cmpy <u0002 bcs L43BA bsr L43CA ldy <u0006 L43BA tstb bne L43A4 lda <u0002 suba <u0006 cmpa <u0008 beq L43C8 lbsr L44FF L43C8 puls pc,y,x,d L43CA pshs y,x,d ldd <u0006 std <u0009 tst <u0025 beq L43FD lda >u0CB0 Get pause on char beq L43E1 None, wing it & hope we don't overflow sta <u0044 Save it & send to modem lbsr L3E5D L43E1 ldd <u0006 subd <u0004 tfr d,y ldx #u16B9 lda <u002A Get path # to receive buffer file os9 I$Write Save lda >u0CAF Get pause off char beq L43FD None, skip ahead sta <u0044 Save & send to host lbsr L3E5D L43FD ldd <u0004 Reset end of receive buffer ptr to start std <u0006 puls pc,y,x,d * Parameter parsing? L4403 pshs y,x,d clr <u0024 ldx ,u L440A lda ,x+ cmpa #C$CR beq L4447 cmpa #'f beq L4418 cmpa #'F bne L440A L4418 lda -$02,x cmpa #C$SPAC beq L4425 cmpa #'- bne L440A inc <u0024 L4425 lda ,x+ cmpa #'= bne L440A ldy #u00BF clrb L4430 lda ,x+ sta ,y+ incb cmpa #C$CR beq L443D cmpb #C$SPAC blo L4430 L443D clra std <u001E inc <u0020 lbsr L4233 L4447 clr <u0020 puls pc,y,x,d L444C leax >L0910,pc 'Send ASCII file' lbsr L1B03 leax >L048B,pc Cursor ON lbsr L1B03 leax >L055F,pc 'File:' lbsr L1B03 ldb #$1E lbsr L1B61 tst <u0021 bne L44CF ldx #u060E ldy #u13A9 ldb #$20 lbsr L2D1E ldx #u13A9 lda ,x cmpa #C$CR beq L44CF lda #READ. os9 I$Open bcs L44CF sta <u002C Save path # to file xmit in ASCII lda #$01 sta <u0023 lbsr L1CDE L4494 lda <u002C Get path # to send file ldx #u13A9 Point to send buffer ldy #255 Max 255 bytes/read os9 I$ReadLn Get block from file bcs L44C3 lda <u002B Get path # to modem ldx #u13A9 Send data to modem os9 I$WritLn lbsr L13C2 bcc L44D4 lbra L0C5E L44B6 ldx #$0004 lbsr L0F56 lda <u002B Get path to modem ldb #SS.Ready os9 I$GetStt Any data ready on the modem? lbcc L0C5E Possibly, return to main read loop bra L4494 No, go get more data from disk file L44C3 lda <u002C Close send file os9 I$Close clr <u0023 Clear 'Sending ASCII file' flag lbra L0C5E L44CF lbsr L1CDE lbra L0C5E L44D4 lbsr L2AC5 cmpa #$03 beq L44C3 cmpa #$05 beq L44C3 lbra L0C5E L44E1 pshs y,x,d ldx #u13A9 ldd #$026A CurXY @ 74,0 std ,x ldd #$2020 +3 spaces std $02,x std $04,x lda <u003E Get path # to status window ldy #$0006 os9 I$Write puls pc,y,x,d L44FF pshs y,x,d sta <u0008 lsra lsra inca ldx #u13A9 clrb L450B cmpa #10 blo L4514 suba #$0A incb bra L450B L4514 addb #$30 Convert to ASCII numeric adda #$30 cmpb #$30 bne L451E ldb #C$SPAC L451E stb $03,x sta $04,x ldd #$026A CurXY @ 74,0 std ,x lda #$20 sta $02,x lda #$4B sta $05,x lda <u003E ldy #$0006 os9 I$Write puls pc,y,x,d L453B pshs y,x,d ldx #u070D ldb <u0C89 Get # bytes in modem buffer ldy <u000F L4548 lda ,x+ sta ,y+ decb cmpy <u000B blo L4555 ldy <u000D L4555 tstb bne L4548 sty <u000F puls pc,y,x,d * Scan filename memory for filename (used by file xfer's) L455D pshs d,x,y ldx <u000F get pointer to ??? L4561 lda ,-x get a byte cmpa #$2E period? beq L4577 yes, skip ahead L4567 cmpx <u000D end of buffer? bne L456D no, check ldx <u000B L456D cmpx <u000F bne L4561 clr <u009B Clear filename present flag puls d,x,y,pc * L4577 lda 1,x get character again cmpa #'. blo L4567 lda -1,x cmpa #'. blo L4567 L4583 lda ,-x cmpa #'0 blo L458F cmpx <u000F beq L456D bra L4583 L458F lda 1,x cmpa #'A blo L456D ldb #$1F leax 1,x ldy #u009F L459D lda ,x+ L459F cmpa #'. blo L45B8 sta ,y+ decb beq L45B8 cmpx <u000B beq L45B2 cmpx <u000F ??? Hit end of name buffer? bne L459D No, keep going L45B8 lda #C$CR Change to CR sta ,y inc <u009B Inc size of filename counter puls d,x,y,pc Restore & return L45B2 lda ,x ldx <u000D bra L459F emod eom equ * end