/THIS FILE REPRESENTS A REVERSE ENGINEERING OF
/UCSYS.BI AND LCSYS.BI BATCH INPUT FILES.
/AS AMENDED BY BILL CATTEY TO GET SET TTY NO SCOPE WORKING.
/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
/CONCEPTUALLY, THE LINEFEED ROUTINE IS SACRIFICED
/IN ORDER TO FORCE LOWER CASE INPUT TO UPPER CASE
/IN THE OS/8 KEYBOARD MONITOR AND COMMAND DECODER
/THERE IS A SIMILAR PATCH FILE FOR OS/8 BASIC
/2025-11-01 REDO SO THAT "NO SCOPE" MODE WORKS
/A NEEDLESS SACRIFICE OF THE PRINT OF THE FIRST
/BACKSLASH WAS DONE. WE INTERCEPT INPUT LATER.
/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
/NOTE ALSO THAT THE LOCATION OF THE PAGE ZERO LITERAL
/["\ MOVED IN THE OS8.PA SOURCE IN THE COMBINED KIT.
/THIS REQUIRED AN UPDATE TO SET THAT WAS NEVER MADE
/TO CHANGE KBMTBL+2 FROM 1070 TO 1100.
/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 ["\ /1100 IN COMBINED KIT
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 2020 ISZ RBFLAG
01264 5267 JMP .+3
01265 1070 TAD ["\ /1100 IN COMBINED KIT
01266 4423 JMS I PCH
01267 3020 DCA RBFLAG
01270 1034 LCPRT, TAD NM1
01271 4423 JMP LCUP /DO UPCASING
01272 5662 JMP I PRNT /NOT REACHED
*1344
01344 1354 LCUP, TAD BM340
01345 7500 SMA
01346 1355 TAD BM40
01347 1356 TAD B340
01350 3034 DCA NM1
01351 1034 TAD NM1
01352 4423 JMS I PCH
01353 5662 JMP I PRNT
01354 7440 BM340, -340
01355 7740 BM40, -40
01356 0340 B340, 340
>
/PATCH TO CD.PA
IFDEF UCSYS <
*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
01176 5372 JMP .-4
>
IFDEF LCSYS <
*1047
01047 7566 -212;JMP CHLOOP
01050 5207
*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 1374 TAD BM340
01165 7500 SMA
01166 1375 TAD BM40 / FORMER LFEED
01167 1376 TAD B340
01170 3025 DCA NAME1
01171 1025 TAD NAME1
01172 4466 JMS I PRINT
01173 5755 JMP I PRNT
01174 7440 BM340, -340
01175 7740 BM40, -40
01176 0340 B340, 340
>
License
Copyright © 2017 by Bill Cattey. This document is licensed under the terms of the SIMH license.