PiDP-8/I SoftwareOS/8 LCSYS.BI Disassembled
Not logged in
/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.