/THIS FILE REPRESENTS A REVERSE ENGINEERING OF
/UCSYS.BI AND LCSYS.BI BATCH INPUT FILES.
/IT IS CREATED FROM PAL8 LIST OUTPUT BY HAND BUT COULD
/BE CONVERTED INTO ACTUAL PAL8 SOURCE WITHOUT MUCH WORK
/THERE ARE CURRENTLY SYMBOLS DEFINED IN THE ORIGINAL
/SOURCE FILES THAT HAVE NOT BEEN CARRIED OVER HERE
/UCSYS IS THE CODE AS IT APPEARS IN THE REGULAR SOURCE
/LCSYS TAKES LOWER CASE INPUT AND FORCES IT TO UPPER CASE
/IN OS8.PA AND CD.PA
/TWO BINARIES ARE PATCHED: OS8.PA, THE KEYBOARD MONITOR AND
/CD.PA, THE COMMAND DECODER.
/PATCH TO OS8.PA
IFDEF UCSYS <
*1232
01232 7566 -212;LFEED
01233 1344
*1262
01262 0000 PRNT, 0
01263 2020 ISZ RBFLAG
01264 5267 JMP .+3
01265 1070 TAD ["\
01266 4423 JMS I PCH
01267 3020 DCA RBFLAG
01270 1034 TAD NM1
01271 4423 JMS I PCH
01272 5662 JMP I PRNT
*1344
01344 4561 LFEED, JMS I [CRLF
01345 3413 DCA I LXR
01346 1163 TAD [".
01347 4423 JMS I PCH
01350 1160 TAD [BEGLN-1
01351 3017 DCA XR
01352 1417 TAD I XR
01353 7450 SNA
01354 5324 JMP LBCKUP
01355 4423 JMS I PCH
01356 5352 JMP .-4
>
IFDEF LCSYS <
*1232
01232 7566 -212; CHLOOP /IGNORE LINEFEED
02133 1207
*1262
01262 0000 PRNT, 0
01263 1034 TAD NM1 /OVERWRITE RUBOUT TEST
01264 5344 JMP BSRUB
01265 1070 TAD ["\
01266 4423 JMS I PCH
01267 3020 DCA RBFLAG
01270 1034 LCPRT, TAD NM1
01271 4423 JMS I PCH
01272 5662 JMP I PRNT
*1344
01344 1354 LCUP, TAD BM340
01345 7500 SMA
01346 1353 TAD BM40
01347 1352 TAD B340
01350 3034 DCA NM1
01351 5270 JMP BPRNT
01352 0340 B340, 340
01353 7740 BM40, -40
01354 7440 BM340, -340
01355 4423 JMS I PCH
01356 5352 JMP .-4
>
/PATCH TO CD.PA
IFDEF UCSYS <
*1017
01017 1416 DSPCHL, TAD I XR
01020 7440 SZA
01021 1025 TAD NAME1
*1047
01047 7566 -212;JMP LFEED
01050 5366
*1155
01155 0000 PRNT, 0
01156 2024 ISZ RBFLAG
01157 5362 JMP .+3
01160 1102 TAD [334
01161 4466 JMS I PRINT
01162 3024 DCA RBFLAG
01163 1025 TAD NAME1
01164 4466 JMS I PRINT
01165 5755 JMP I PRNT
01166 4312 LFEED, JMS CRLF
01167 3415 DCA I LXR
01170 1101 TAD [BEGLN-2
01171 3016 DCA XR
01172 1416 TAD I XR
01173 7450 SNA
01174 5346 JMP LBCKUP
01175 4466 JMS I PRINT
>
IFDEF LCSYS <
*1017
01017 1416 DSPCHL, TAD I XR
01020 7440 SZA
01021 1025 TAD NAME1
*1047
01047 7566 -212;JMP CHLOOP /IGNORE LINEFEED
01050 5207
*1155
01155 0000 PRNT, 0
01156 1025 TAD NAME1
01157 1220 TAD DSPCHL+1 /HOLDS A 7440, -340 FOR US
01160 7500 SMA
01161 1367 TAD BM40
01162 1370 TAD B340
01163 3025 DCA NAME1
01164 1025 TAD NAME1
01165 4466 JMS I PRINT
01166 5755 JMP I PRNT
01167 7740 BM40, -40
01170 0340 B340, 340
01171 3016 DCA XR
01172 1416 TAD I XR
01173 7450 SNA
01174 5346 JMP LBCKUP
01175 4466 JMS I PRINT
>
License
Copyright © 2017 by Bill Cattey. This document is licensed under the terms of the SIMH license.