From: hachti Date: Mon, 3 Apr 2006 00:34:17 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=9ae5cfcad767420b936f13e674a4cc1b6e4cc126;p=h316.git *** empty log message *** --- diff --git a/lib/iolib/recipe/io.recipe b/lib/iolib/recipe/io.recipe index 39896a1..91fc1de 100644 --- a/lib/iolib/recipe/io.recipe +++ b/lib/iolib/recipe/io.recipe @@ -1,13 +1,29 @@ # These are the selfmade modules -obj/O$AL -obj/O$LA + +# Binary HS Punch routine obj/O$PB + +#Paper tape listing routine obj/O$PL + +# O$AL ASR comfort routine +obj/O$AL + +# Huge Line printer routine +obj/O$LA + +# Read Paper tape sources obj/I$PA # And here come the original ones + org/I$AB org/I$AI org/O$AB -#org/O$AH Not needed! org/O$AI + +#org/O$AH Original ASR listing routine +#org/O$AH + + + diff --git a/lib/iolib/recipe/small.recipe b/lib/iolib/recipe/small.recipe new file mode 100644 index 0000000..c091f23 --- /dev/null +++ b/lib/iolib/recipe/small.recipe @@ -0,0 +1,29 @@ +# These are the selfmade modules + +# Binary HS Punch routine +obj/O$PB + +#Paper tape listing routine +#obj/O$PL + +# O$AL ASR comfort routine +# obj/O$AL + +# Huge Line printer routine +obj/O$LA + +# Read Paper tape sources +obj/I$PA + +# And here come the original ones + +org/I$AB +org/I$AI +org/O$AB +org/O$AI + +#org/O$AH Original ASR listing routine +#org/O$AH + + + diff --git a/lib/iolib/src/i$pa.asm b/lib/iolib/src/i$pa.asm index e56f247..02a56d7 100644 --- a/lib/iolib/src/i$pa.asm +++ b/lib/iolib/src/i$pa.asm @@ -18,7 +18,7 @@ * * PURPOSE * -* TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPTER TAPE READER +* TO READ ASCII SOURCE TEXT FROM HIGH SPEED PAPER TAPE READER * * * RESTRICTIONS diff --git a/lib/iolib/src/o$al.asm b/lib/iolib/src/o$al.asm index 7c87266..d3cc23c 100644 --- a/lib/iolib/src/o$al.asm +++ b/lib/iolib/src/o$al.asm @@ -9,6 +9,7 @@ * 1.1 (10.02.2005) - ADDED FORGOTTEN ASR START SEQUENCE * 1.2 (25.07.2005) - CORRECTED ASR START SEQUENCE * 1.2.1 (27.07.2005) - RECORRECTED START SEQUENCE +* 1.3 (03.04.2006) - SOME SORTING TO GET IT SMALLER * * AUTHOR * @@ -50,13 +51,6 @@ ********************************************************************** REL RELOCATABLE MODE ********************************************* -* CONFIGURATION -HDS DEC 1 EMPTY LINES BEFORE HEADING -SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT -PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.) -WIDH DEC 36 (2-CHAR) WORDS PER LINE -SFF DEC 4 SKIPS TO SIMULATE FORM FEED -* * OSAL DAC ** STX XR @@ -78,6 +72,7 @@ BUF1 DAC ** ADDRESS OF LINE BUFFER JMP* OSAL RETURN * * +XR DEC 0 SAVED X REGISTER OSAH DAC ** INIT HEADING STX XR LDA* OSAH @@ -100,6 +95,8 @@ HL1 LDA* P1 ******************************************************************************** * * +PGS DEC 50 DATA LINES PER PAGE (WITHOUT HEADING ETC.) +HDS DEC 1 EMPTY LINES BEFORE HEADING NP DAC ** PREPARE NEW PAGE LDA PGS LOAD LINES PER PAGE TCA NEGATE @@ -122,10 +119,12 @@ SP1 JST T30 LINE FEED IRS CNT DEC COUNTER, SKIP IF READY JMP SP1 NOT READY JMP* NP +SPC DEC 2 EMPTY LINES BETWEEN HEADING AND TEXT * ******************************************************************************** * **** FORM FEED ROUTINE +SFF DEC 4 SKIPS TO SIMULATE FORM FEED FF DAC ** JST ASUP OUTPUT MODE LDA SFF @@ -147,7 +146,6 @@ ASUP DAC ** JMP* ASUP * * -XR DEC 0 SAVED X REGISTER CNT DEC 0 HBUF BCI 20, BCI 20, @@ -160,19 +158,21 @@ LINE DEC -40 NEG LINES LEFT ON PAGE ******************************************************************************** * *** AB HIER ABGESCHRIEBENER CODE! +WIDH DEC 36 (2-CHAR) WORDS PER LINE +CC4 OCT 40000 T1 DAC ** STX XR JST ASUP START TTY LDA* T1 ADD WIDH - ADD ='40000 + ADD CC4 STA T6 IRS T1 LDA WIDH TCA STA 0 T3 LDA* T6 - CAS ='120240 + CAS CS1 JMP *+2 * JMP T8 @@ -189,13 +189,14 @@ T10 IRS 0 JMP *+2 JMP* T1 LDA* T6 - CAS ='120240 + CAS CS1 JMP *+2 JMP T10 LDA T12 STA 0 - LDA ='120240 + LDA CS1 JMP T4 +CS1 OCT 120240 T12 *** ** * T14 DAC ** @@ -213,9 +214,10 @@ T14 DAC ** * ******************************************************************************** * +C13 DEC 13 T20 DAC ** JST ASUP START TTY - LDA =13 CARRIAGE RETURN + LDA C13 CARRIAGE RETURN OTA 4 JMP *-1 OTA 4 diff --git a/lib/iolib/src/o$la.asm b/lib/iolib/src/o$la.asm index 29da760..2551501 100644 --- a/lib/iolib/src/o$la.asm +++ b/lib/iolib/src/o$la.asm @@ -5,7 +5,8 @@ * LINE PRINTER ROUTINES * * REVISIONS: -* 1.0 (2005-02.04) +* 1.0 (2005-02-04) +* 1.1 (2006-04-03) - GET IT SMALLER * * AUTHOR * @@ -85,17 +86,15 @@ SUBR O$LSK2,SKP2 EMPTY LINES BETWEEN HEADING AND MAIN TEXT SUBR O$LLPP,LPP PURE TEXT LINES PER PAGE SUBR O$LRS,RS DISTANCE FROM PAGE NUMBERING TO RIGHT MARGIN + SUBR XXX * ******************************************************************************** * REL RELOCATEABLE MODE * * CONFIGURATION -SKP1 DEC 1 EMPTY LINES BEFORE HEADING -SKP2 DEC 3 EMPTY LINES BETWEEN HEADING AND TEXT LPP DEC 60 DATA LINES PER PAGE (WITHOUT HEADING ETC.) LNW DEC 60 LINE LENGTH IN 2-CHAR WORDS -RS DEC 1 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS) * * O$LA DAC ** @@ -147,6 +146,8 @@ HL1 LDA* P1 * * * +SKP1 DEC 1 EMPTY LINES BEFORE HEADING +SKP2 DEC 3 EMPTY LINES BETWEEN HEADING AND TEXT NP DAC ** PREPARE NEW PAGE LDA SKP1 SPACES BEFORE HEADING SNZ SPACING REQUIRED? @@ -187,9 +188,6 @@ FF DAC ** XR DEC 0 THE CALLER'S X REGISTER CNT DEC 0 HBP DAC HBUF -HBUF BCI 20, - BCI 20, - BCI 20, P1 DEC 0 POINTER 1 P2 DEC 0 POINTER 2 LINE DEC -40 NEG LINES LEFT ON PAGE @@ -309,6 +307,7 @@ PP1 LDA* P2 IRS 0 JMP PP1 JMP* LNNR RETURN +RS DEC 1 RIGHT DISTANCE FOR PAGE NUMBERING (2-CHAR WORDS) * * MDG DAC ** MAKE DIGIT FROM A @@ -330,9 +329,14 @@ LNR DAC ** DIGIT SERVICE IRS LNR TALLY RETURN ADDRESS NOFL IRS LNR TALLY RETURN ADDRESS JMP* LNR +* +HBUF BCI 20, + BCI 20, + BCI 20, * FIN WRITE OUT LITERALS * +XXX DAC ** * PUH..... * END diff --git a/lib/iolib/src/o$pb.asm b/lib/iolib/src/o$pb.asm index 9331ed5..c59c437 100644 --- a/lib/iolib/src/o$pb.asm +++ b/lib/iolib/src/o$pb.asm @@ -69,6 +69,15 @@ SUBR O$PS SUBR O$PLDR,PLDR REL +WRU OCT 024000 +WRUX OCT 160003 +LF OCT 050000 +LFX OCT 164003 +XON OCT 104000 +XONX OCT 170003 +XOFF OCT 114000 +XOFX OCT 174003 +FOUR OCT 000004 O$PB PZE ** PTP PUNCH ENTRY STX XR SAVE INDEX REGISTER FROM CALLING PROGRAMM OCP 2 ACTIVATE PAPER TAPE PUNCH @@ -117,15 +126,6 @@ CHAR PZE ** OUT JST BCD8 LLL 6 JMP* CHAR -WRU OCT 024000 -WRUX OCT 160003 -LF OCT 050000 -LFX OCT 164003 -XON OCT 104000 -XONX OCT 170003 -XOFF OCT 114000 -XOFX OCT 174003 -FOUR OCT 000004 BCD8 PZE ** ASCII PUNCH ROUTINE OTA 2 JMP *-1 diff --git a/obj/dap16.obj b/obj/dap16.obj new file mode 100644 index 0000000..5764509 Binary files /dev/null and b/obj/dap16.obj differ diff --git a/obj/deccl.obj b/obj/deccl.obj new file mode 100644 index 0000000..abbbedc Binary files /dev/null and b/obj/deccl.obj differ diff --git a/obj/dumy-x16.obj b/obj/dumy-x16.obj new file mode 100644 index 0000000..1ba302c Binary files /dev/null and b/obj/dumy-x16.obj differ diff --git a/obj/ios-16.obj b/obj/ios-16.obj new file mode 100644 index 0000000..3c78430 Binary files /dev/null and b/obj/ios-16.obj differ diff --git a/obj/setsiz.obj b/obj/setsiz.obj new file mode 100644 index 0000000..76ee59a Binary files /dev/null and b/obj/setsiz.obj differ