[Copyright 1999,2002 Frank Durda IV, All Rights Reserved. Mirroring of any material on this page in any form is expressly prohibited. The official web site for this material is: http://nemesis.lonestar.org Contact this address for use clearances: clearance at nemesis.lonestar.org Comments and queries to this address: web_software_2011 at nemesis.lonestar.org]
MISOSYS EDAS-4.3 04/11/99 21:44:36 SYS13 - LS-DOS 6.2 Page 00001
00001 ;SYS13/ASM - LS-DOS 6.2
00003 ;
000D 00004 CR EQU 13
000A 00005 LF EQU 10
0000 00006 *GET SYS0/EQU:2
08F0 00007 @$SYS EQU 08F0H
0000 00008 @@1 DEFL 0000H
0000 00009 @@1 DEFL 0000H
0000 00010 @@2 DEFL 0000H
0000 00011 @@2 DEFL 0000H
0000 00012 @@3 DEFL 0000H
0000 00013 @@3 DEFL 0000H
0000 00014 @@4 DEFL 0000H
0000 00015 @@4 DEFL 0000H
1B08 00016 @ABORT EQU 1B08H
1CDA 00017 @ADTSK EQU 1CDAH
0877 00018 @BANK EQU 0877H
14AD 00019 @BKSP EQU 14ADH
FFFF 00020 @BLD631 EQU 0FFFFH
FFFF 00021 @BLD631 EQU 0FFFFH
FFFF 00022 @BLD631C EQU 0FFFFH
FFFF 00023 @BLD631C EQU 0FFFFH
FFFF 00024 @BLD631D EQU 0FFFFH
FFFF 00025 @BLD631D EQU 0FFFFH
FFFF 00026 @BLD631E EQU 0FFFFH
FFFF 00027 @BLD631E EQU 0FFFFH
FFFF 00028 @BLD631F EQU 0FFFFH
FFFF 00029 @BLD631F EQU 0FFFFH
FFFF 00030 @BLD631G EQU 0FFFFH
FFFF 00031 @BLD631G EQU 0FFFFH
FFFF 00032 @BLD631H EQU 0FFFFH
FFFF 00033 @BLD631H EQU 0FFFFH
196F 00034 @BREAK EQU 196FH
1300 00035 @BYTEIO EQU 1300H
0689 00036 @CHNIO EQU 0689H
0553 00037 @CKBRKC EQU 0553H
1993 00038 @CKDRV EQU 1993H
158F 00039 @CKEOF EQU 158FH
1CF5 00040 @CKTSK EQU 1CF5H
1999 00041 @CLOSE EQU 1999H
0545 00042 @CLS EQU 0545H
197E 00043 @CMNDI EQU 197EH
197B 00044 @CMNDR EQU 197BH
0623 00045 @CTL EQU 0623H
1420 00046 @DATE EQU 1420H
199F 00047 @DBGHK EQU 199FH
19C0 00048 @DCINIT EQU 19C0H
19C4 00049 @DCRES EQU 19C4H
19B5 00050 @DCSTAT EQU 19B5H
1A2B 00051 @DCTBYT EQU 1A2BH
19A0 00052 @DEBUG EQU 19A0H
03E1 00053 @DECHEX EQU 03E1H
18F7 00054 @DIRCYL EQU 18F7H
18BB 00055 @DIRRD EQU 18BBH
1803 00056 @DIRWR EQU 1803H
06E3 00057 @DIV16 EQU 06E3H
1927 00058 @DIV8 EQU 1927H
19AF 00059 @DODIR EQU 19AFH
19A9 00060 @DOKEY EQU 19A9H
0642 00061 @DSP EQU 0642H
052D 00062 @DSPLY EQU 052DH
1B0F 00063 @ERROR EQU 1B0FH
1B0B 00064 @EXIT EQU 1B0BH
1984 00065 @FEXT EQU 1984H
196A 00066 @FLAGS EQU 196AH
199C 00067 @FNAME EQU 199CH
0000 00068 @FRENCH EQU 0000H
1981 00069 @FSPEC EQU 1981H
1874 00070 @GATRD EQU 1874H
1875 00071 @GATWR EQU 1875H
0000 00072 @GERMAN EQU 0000H
0638 00073 @GET EQU 0638H
1990 00074 @GTDCB EQU 1990H
1A1E 00075 @GTDCT EQU 1A1EH
19B2 00076 @GTMOD EQU 19B2H
19E4 00077 @HDFMT EQU 19E4H
07BD 00078 @HEX16 EQU 07BDH
07C2 00079 @HEX8 EQU 07C2H
06F8 00080 @HEXD EQU 06F8H
06F6 00081 @HEXDEC EQU 06F6H
1948 00082 @HIGH$ EQU 1948H
1897 00083 @HITRD EQU 1897H
1898 00084 @HITWR EQU 1898H
0000 00085 @HZ50 EQU 0000H
0086 00086 @ICNFG EQU 0086H
198D 00087 @INIT EQU 198DH
0000 00088 @INTL EQU 0000H
1BF2 00089 @IPL EQU 1BF2H
0630 00090 @JCL EQU 0630H
0635 00091 @KBD EQU 0635H
0628 00092 @KEY EQU 0628H
0585 00093 @KEYIN EQU 0585H
0089 00094 @KITSK EQU 0089H
0089 00095 @KITSK EQU 0089H
1CD0 00096 @KLTSK EQU 1CD0H
1B38 00097 @LOAD EQU 1B38H
14DA 00098 @LOC EQU 14DAH
1505 00099 @LOF EQU 1505H
0503 00100 @LOGER EQU 0503H
0500 00101 @LOGOT EQU 0500H
0000 00102 @MOD2 EQU 0000H
FFFF 00103 @MOD4 EQU 0FFFFH
0530 00104 @MSG EQU 0530H
06C9 00105 @MUL16 EQU 06C9H
190A 00106 @MUL8 EQU 190AH
0066 00107 @NMI EQU 0066H
198A 00108 @OPEN EQU 198AH
0084 00109 @OPREG EQU 0084H
1987 00110 @PARAM EQU 1987H
0382 00111 @PAUSE EQU 0382H
14C9 00112 @PEOF EQU 14C9H
145B 00113 @POSN EQU 145BH
0528 00114 @PRINT EQU 0528H
063D 00115 @PRT EQU 063DH
0E29 00116 @PRTIMO EQU 0E29H
0645 00117 @PUT EQU 0645H
19AC 00118 @RAMDIR EQU 19ACH
19D8 00119 @RDHDR EQU 19D8H
19F4 00120 @RDSEC EQU 19F4H
18D8 00121 @RDSSC EQU 18D8H
19E0 00122 @RDTRK EQU 19E0H
1513 00123 @READ EQU 1513H
19A6 00124 @REMOVE EQU 19A6H
1996 00125 @RENAME EQU 1996H
14C2 00126 @REW EQU 14C2H
1CD7 00127 @RMTSK EQU 1CD7H
1CEB 00128 @RPTSK EQU 1CEBH
149A 00129 @RREAD EQU 149AH
19D4 00130 @RSLCT EQU 19D4H
0000 00131 @RST00 EQU 0000H
0008 00132 @RST08 EQU 0008H
0010 00133 @RST10 EQU 0010H
0018 00134 @RST18 EQU 0018H
0020 00135 @RST20 EQU 0020H
0028 00136 @RST28 EQU 0028H
0030 00137 @RST30 EQU 0030H
0038 00138 @RST38 EQU 0038H
0FE9 00139 @RSTNMI EQU 0FE9H
19C8 00140 @RSTOR EQU 19C8H
0680 00141 @RSTREG EQU 0680H
1B1D 00142 @RUN EQU 1B1DH
13AD 00143 @RWRIT EQU 13ADH
181F 00144 @SCNHIT EQU 181FH
19D0 00145 @SEEK EQU 19D0H
13A0 00146 @SEEKSC EQU 13A0H
1457 00147 @SKIP EQU 1457H
19BC 00148 @SLCT EQU 19BCH
0392 00149 @SOUND EQU 0392H
19CC 00150 @STEPI EQU 19CCH
078D 00151 @TIME EQU 078DH
FFFF 00152 @USA EQU 0FFFFH
0B99 00153 @VDCTL EQU 0B99H
0D38 00154 @VDCTL3 EQU 0D38H
0935 00155 @VDPRT EQU 0935H
1560 00156 @VER EQU 1560H
19DC 00157 @VRSEC EQU 19DCH
1430 00158 @WEOF EQU 1430H
1979 00159 @WHERE EQU 1979H
1531 00160 @WRITE EQU 1531H
19E8 00161 @WRSEC EQU 19E8H
19EC 00162 @WRSSC EQU 19ECH
19F0 00163 @WRTRK EQU 19F0H
0D42 00164 @_VDCTL EQU 0D42H
0DF1 00165 ADDR_2_ROWCOL EQU 0DF1H
006A 00166 AFLAG$ EQU 006AH
2019 00167 AUTO? EQU 2019H
0201 00168 BAR$ EQU 0201H
439D 00169 BOOTST$ EQU 439DH
1C60 00170 BREAK? EQU 1C60H
1C88 00171 BRKVEC$ EQU 1C88H
0200 00172 BUR$ EQU 0200H
0A7B 00173 CASHK$ EQU 0A7BH
00E0 00174 CFCB$ EQU 00E0H
00E0 00175 CFGFCB$ EQU 00E0H
006C 00176 CFLAG$ EQU 006CH
006C 00177 CFLAG$ EQU 006CH
1A7F 00178 CKMOD@ EQU 1A7FH
1568 00179 CKOPEN@ EQU 1568H
2067 00180 CONFIG$ EQU 2067H
1CFF 00181 CORE$ DEFL 1CFFH
1BFF 00182 CORE$ DEFL 1BFFH
1948 00183 CORE$ DEFL 1948H
1948 00184 CORE$ DEFL 1948H
0300 00185 CORE$ DEFL 0300H
F800 00186 CRTBGN$ EQU 0F800H
16AE 00187 CYL_GRN EQU 16AEH
1A26 00188 D@FBYT8 EQU 1A26H
0033 00189 DATE$ EQU 0033H
0033 00190 DATE$ EQU 0033H
07A8 00191 DATELO$ EQU 07A8H
04C7 00192 DAYTBL$ EQU 04C7H
00A0 00193 DBGSV$ EQU 00A0H
0031 00194 DCBKL$ EQU 0031H
0470 00195 DCT$ EQU 0470H
1A29 00196 DCTBYT8@ EQU 1A29H
1A34 00197 DCTFLD@ EQU 1A34H
006D 00198 DFLAG$ EQU 006DH
006D 00199 DFLAG$ EQU 006DH
2300 00200 DIRBUF$ EQU 2300H
0846 00201 DIS_DO_RAM EQU 0846H
0B94 00202 DODATA$ EQU 0B94H
0210 00203 DODCB$ EQU 0210H
0C44 00204 DO_CONTROL EQU 0C44H
0CB8 00205 DO_DSPCHAR EQU 0CB8H
0C8C 00206 DO_INVERT_DIS EQU 0C8CH
0C89 00207 DO_INVERT_ENA EQU 0C89H
0C9B 00208 DO_INVERT_OFF EQU 0C9BH
0000 00209 DO_MASK EQU 0000H
0BCB 00210 DO_RET EQU 0BCBH
0BCC 00211 DO_RET1 EQU 0BCCH
0CCE 00212 DO_SCROLL EQU 0CCEH
0BEA 00213 DO_TABS EQU 0BEAH
04C0 00214 DSKTYP$ EQU 04C0H
04C2 00215 DTPMT$ EQU 04C2H
0FF4 00216 DVREND$ EQU 0FF4H
0206 00217 DVRHI$ EQU 0206H
006E 00218 EFLAG$ EQU 006EH
0817 00219 ENADIS_DO_RAM EQU 0817H
19A4 00220 EXTDBG$ EQU 19A4H
000E 00221 FDDINT$ EQU 000EH
000E 00222 FDDINT$ EQU 000EH
006F 00223 FEMSK$ EQU 006FH
006A 00224 FLGTAB$ EQU 006AH
006A 00225 FLGTAB$ EQU 006AH
0DAE 00226 GET_@_ROWCOL EQU 0DAEH
0750 00227 HERTZ$ EQU 0750H
040E 00228 HIGH$ EQU 040EH
1A6C 00229 HKRES$ EQU 1A6CH
0072 00230 IFLAG$ EQU 0072H
0072 00231 IFLAG$ EQU 0072H
0420 00232 INBUF$ EQU 0420H
003C 00233 INTIM$ EQU 003CH
003D 00234 INTMSK$ EQU 003DH
003E 00235 INTVC$ EQU 003EH
003E 00236 INTVC$ EQU 003EH
0203 00237 JCLCB$ EQU 0203H
0024 00238 JDCB$ EQU 0024H
00C0 00239 JFCB$ EQU 00C0H
0230 00240 JLDCB$ EQU 0230H
0026 00241 JRET$ EQU 0026H
07D6 00242 KCK@ EQU 07D6H
0074 00243 KFLAG$ EQU 0074H
0074 00244 KFLAG$ EQU 0074H
08FC 00245 KIDATA$ EQU 08FCH
0208 00246 KIDCB$ EQU 0208H
0202 00247 LBANK$ EQU 0202H
0023 00248 LDRV$ EQU 0023H
0075 00249 LFLAG$ EQU 0075H
1566 00250 LNKFCB@ EQU 1566H
001E 00251 LOW$ EQU 001EH
000D 00252 LSVC$ EQU 000DH
2400 00253 MAXCOR$ EQU 2400H
0401 00254 MAXDAY$ EQU 0401H
3000 00255 MINCOR$ EQU 3000H
0076 00256 MODOUT$ EQU 0076H
0076 00257 MODOUT$ EQU 0076H
04DC 00258 MONTBL$ EQU 04DCH
0077 00259 NFLAG$ EQU 0077H
0078 00260 OPREG$ EQU 0078H
0078 00261 OPREG$ EQU 0078H
086E 00262 OPREG_SV_AREA EQU 086EH
0835 00263 OPREG_SV_PTR EQU 0835H
1503 00264 ORARET@ EQU 1503H
003B 00265 OSRLS$ EQU 003BH
0085 00266 OSVER$ EQU 0085H
0069 00267 OVRLY$ EQU 0069H
0410 00268 PAKNAM$ EQU 0410H
0382 00269 PAUSE@ EQU 0382H
07AF 00270 PCSAVE$ EQU 07AFH
001B 00271 PDRV$ EQU 001BH
001B 00272 PDRV$ EQU 001BH
001C 00273 PHIGH$ EQU 001CH
0218 00274 PRDCB$ EQU 0218H
0DCD 00275 PUTA@DE EQU 0DCDH
0DCA 00276 PUT_@ EQU 0DCAH
0DC6 00277 PUT_@_ROWCOL EQU 0DC6H
007B 00278 RFLAG$ EQU 007BH
007B 00279 RFLAG$ EQU 007BH
0DD0 00280 ROWCOL_2_ADDR EQU 0DD0H
1BFF 00281 RST38@ EQU 1BFFH
04C4 00282 RSTOR$ EQU 04C4H
13A2 00283 RWRIT@ EQU 13A2H
0238 00284 S1DCB$ EQU 0238H
1D00 00285 SBUFF$ EQU 1D00H
2185 00286 SERIAL$ EQU 2185H
1A79 00287 SET@EXEC EQU 1A79H
0CF3 00288 SET_SCROLL EQU 0CF3H
008C 00289 SFCB$ EQU 008CH
007C 00290 SFLAG$ EQU 007CH
007C 00291 SFLAG$ EQU 007CH
0220 00292 SIDCB$ EQU 0220H
0228 00293 SODCB$ EQU 0228H
2180 00294 SPACE4$ EQU 2180H
0380 00295 STACK$ EQU 0380H
0000 00296 START$ EQU 0000H
0000 00297 START$ EQU 0000H
000B 00298 SVCRET$ EQU 000BH
0100 00299 SVCTAB$ EQU 0100H
1B13 00300 SYSERR$ EQU 1B13H
004E 00301 TCB$ EQU 004EH
007D 00302 TFLAG$ EQU 007DH
002D 00303 TIME$ EQU 002DH
002D 00304 TIME$ EQU 002DH
002C 00305 TIMER$ EQU 002CH
002C 00306 TIMER$ EQU 002CH
002B 00307 TIMSL$ EQU 002BH
002B 00308 TIMSL$ EQU 002BH
0713 00309 TIMTSK$ EQU 0713H
04C3 00310 TMPMT$ EQU 04C3H
07B1 00311 TRACE_INT EQU 07B1H
0A8F 00312 TYPHK$ EQU 0A8FH
0B26 00313 TYPTSK$ EQU 0B26H
0013 00314 USTOR$ EQU 0013H
007F 00315 VFLAG$ EQU 007FH
007F 00316 VFLAG$ EQU 007FH
0080 00317 WRINT$ EQU 0080H
0082 00318 YFLAG$ EQU 0082H
0401 00319 ZERO$ EQU 0401H
13A0 00320 ZEROA@ EQU 13A0H
0000 00321 *GET COPYCOM:3 ;Copyright message
00322 ; COPYCOM - File for Copyright COMment block
00323 ;
0000 00324 *GET BUILDVER/ASM:3
00325 ;
00326 ; Buildver/asm is a bit of a kludge since not all utilities can load
00327 ; equates from LDOS60 and still compile. LOWCORE and everybody else
00328 ; relies on this setting, and it eventually ends up in LDOS60/EQU
00329 ; for programs that can use that.
00330 ;
FFFF 00331 @BLD631 EQU -1 ;<631>Build 631 distribution (LEVEL 1B)
00332 ; These switches activate patches made since the 1B release.
00333 ; It is important that all earlier patches be enabled when a higher
00334 ; patch is enabled.
00335 ; Patches C thru F were published in TMQ IV.iv, page 32 (NOTE: the
00336 ; patch addresses listed for SPOOL in SPOOL1/FIX are 19H high.)
FFFF 00337 @BLD631C EQU -1 ;<631>Apply 1C patches (SETKI)
FFFF 00338 @BLD631D EQU -1 ;<631>Apply 1D patches (DIR)
FFFF 00339 @BLD631E EQU -1 ;<631>Apply 1E patches (DIR & MEMDISK/DCT)
FFFF 00340 @BLD631F EQU -1 ;<631>Apply 1F patches (SPOOL)
00341 ; Patches G and H were published in TMQ V.i, pages 10 and 18/19.
FFFF 00342 @BLD631G EQU -1 ;<631>Apply 1G patches (//KEYIN,DIR,DO *)
FFFF 00343 @BLD631H EQU -1 ;<631>Apply 1H patches (MEMORY)
00344 ;
00345 ;End of BUILDVER/ASM
00346 IF @BLD631
00348 ELSE
00349 COM '<*(C) 1982,3,4,6 by LSI*>'
00350 ENDIF
00351 ;
1E00 00352 ORG 1E00H
00353 ;
1E00 1820 00354 SYS13 JR START
1E02 00 00355 DC 32,0 ;Slack
00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00
00 00 00 00 00 00 00 00
00 00 00 00 00 00 00
00356 ;
1E22 E670 00357 START AND 70H ;Strip bit 7
1E24 FE70 00358 CP 70H ;Go if 0111,0000
1E26 CA381E 00359 JP Z,NOCMD ; to no * command
1E29 3E65 00360 NOSYS13 LD A,101 ;Get flags
1E2B EF 00361 RST 40
1E2C FD360400 00362 LD (IY+'E'-'A'),0 ;Reset ECI flag
1E30 21401E 00363 LD HL,NXCI$ ;"No ECI present...
1E33 3E0C 00364 LD A,12 ;Display and log it
1E35 EF 00365 RST 40
1E36 AF 00366 XOR A
1E37 C9 00367 RET
00368 ;
1E38 21741E 00369 NOCMD LD HL,NOCMD$ ;"No sys13...
1E3B 3E0C 00370 LD A,12 ;Display and log it
1E3D EF 00371 RST 40
1E3E AF 00372 XOR A
1E3F C9 00373 RET
00374 ;
1E40 4E 00375 NXCI$ DB 'No Extended Command Interpreter Present, as SYS13 ',LF,CR
6F 20 45 78 74 65 6E 64
65 64 20 43 6F 6D 6D 61
6E 64 20 49 6E 74 65 72
70 72 65 74 65 72 20 50
72 65 73 65 6E 74 2C 20
61 73 20 53 59 53 31 33
20 0A 0D
1E74 4E 00376 NOCMD$ DB 'No command <*> present, as SYS13 ',LF,CR
6F 20 63 6F 6D 6D 61 6E
64 20 3C 2A 3E 20 70 72
65 73 65 6E 74 2C 20 61
73 20 53 59 53 31 33 20
0A 0D
00377 ;
00378 *LIST OFF ;500 spare bytes
00380 *LIST ON
00381 ;
1E00 00382 END SYS13
1E00 is the transfer address
00000 Total errors
[Copyright 1999,2002 Frank Durda IV, All Rights Reserved. Mirroring of any material on this page in any form is expressly prohibited. The official web site for this material is: http://nemesis.lonestar.org Contact this address for use clearances: clearance at nemesis.lonestar.org Comments and queries to this address: web_software_2011 at nemesis.lonestar.org]