From: hachti Date: Tue, 25 Apr 2006 22:13:45 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: http://gitweb.hachti.de/?a=commitdiff_plain;h=4102e16c01b6b8be60a3d09748fc4d9c9e281472;p=h316.git *** empty log message *** --- diff --git a/pc-tools/src-filters/tab.c b/pc-tools/src-filters/tab.c index dcb64f7..b8253a3 100644 --- a/pc-tools/src-filters/tab.c +++ b/pc-tools/src-filters/tab.c @@ -1,20 +1,31 @@ #include +/* + * This program does two things: + * + * - It converts characters into backslashes '\' + * - It converts (10) line end characters to (13) + * + */ + #define INPUT_TAB 0x09 - -int main(int argc, char ** agrv){ - char c; - while(read(0,&c,1)){ - - switch(c){ - case INPUT_TAB: printf("\\"); - break; - case '\n': printf("\r\n"); - break; - default : printf("%c",c); - break; - } + +int main (int argc, char **agrv) +{ + char c; + while (read (0, &c, 1)) { + switch (c) { + case INPUT_TAB: + printf ("\\"); + break; + case '\n': + printf ("\r\n"); + break; + default: + printf ("%c", c); + break; } - -}//main() + } + return 0; +} //main() // Ende. diff --git a/programs/mandelbrot/src/apfel3.f b/programs/mandelbrot/src/apfel3.f index 168a926..eb86d58 100644 --- a/programs/mandelbrot/src/apfel3.f +++ b/programs/mandelbrot/src/apfel3.f @@ -94,10 +94,13 @@ C C CCCCCC PUNKT FERTIG 410 NOUT=32 +C IF (COUNT.GE.8) NOUT=46 +C IF (COUNT.GE.23) NOUT=43 +C IF (COUNT.EQ.MAXI) NOUT=64 IF (COUNT.GE.8) NOUT=46 IF (COUNT.GE.23) NOUT=43 IF (COUNT.EQ.MAXI) NOUT=64 -C NOUT=46 + 411 CALL PCHAR(NOUT) GO TO 500 C @@ -129,13 +132,13 @@ C C CR = 13 LF = 10 - WIDTH = 70 + WIDTH = 68 MAXI = 60 MAXVAL = 2.0 - LOWX =-1.45 - HIGHX = 0.45 - LOWY =-1.00 - HIGHY = 1.00 + LOWX =-1.48 + HIGHX = 0.5 + LOWY =-1.2 + HIGHY = 1.2 INIT = 1 C CCCCCC SCHRITTWEITEN AUSRECHNEN diff --git a/programs/tools/src/binal.asm b/programs/tools/src/binal.asm index 4022b14..ba26a32 100644 --- a/programs/tools/src/binal.asm +++ b/programs/tools/src/binal.asm @@ -1,12 +1,68 @@ -* BINARY PUNCH AND LOAD PROGRAM +* BINAL - BINARY PUNCH AND LOAD PROGRAM (REV. 1.0) * * -* LOAD -* FIRST LOC TO A, LAST LOC TO B -* RUN IT. +* +* +* BINAL - A PAL-AP DROP-IN REPLACEMENT. +* +* +* +* AUTHOR +* PHILIPP HACHTMANN +* +* +* VERSION +* 1.0 (24.04.2006) - INITIAL VERSION +* +* +* +* STORAGE REQUIREMENT +* ONE SEGMENT +* +* +* FEATURES: +* NO 4/6/6 FORMAT, DIRECT BINARY DATA +* BLOCK CHECKSUMS +* LOAD AND GO CAPABLE +* SUPPORTS ONLY HIGH SPEED PAPER TAPE PUNCH +* +* +* USAGE +* FIRST LOAD THE OBJECT TAPE INTO ANY SECTOR 'XX000 IN MEMORY. +* TO PUNCH A SELF LOADING TAPE DO THE FOLLOWING: +* -PRESS MSTCLR +* -SET P TO 'XX000 +* -IF LOAD AND GO IS DESIRED, PUT PROGRAM'S START ADDRESS INTO A +* -PRESS START +* -ENTER THE FIRST ADDRESS TO BE PUNCHED INTO A +* -PRESS START +* -ENTER THE LAST ADDRESS TO BE PUNCHED INTO A +* -PRESS START, BINAL PUNCHES YOUR SYSTEM TAPE +* +* TO MAKE A BINAL SLST TAPE +* USE 'XX000 THAT AS FIRST LOCATION TO BE PUNCHED. +* THE LAST LOCATION TO BE PUNCHED IS 'XX577, THE REST OF THE SECTOR IS +* ALWAYS AND AUTOMATICALLY PUNCHED OUT. +* +* LOADING SLST TAPES +* SIMPLY MOUNT THE GENERATED TAPE ON THE HIGH SPEED PAPER TAPE READER +* AND LOAD WITH THE STANDARD KEY-IN LOADER. +* THE CONTENTS OF THE TAPE GO TO WHERE THEY COME FROM. THE THIRD STAGE +* LOADER GOES TO 'XX600. THIS LOCATION CAN BE ALTERED BY ENTERING AN +* ADDRESS INTO A BEFORE STARTING THE KEY-IN LOADER. +* IT IS ALSO POSSIBLE TO ALTER THE THIRD-STAGE LOADER ADDRESS BEFORE +* PUNCHING BY DEPOSITING ANOTHER ADDRESS INTO 'XX600. +* +* SPECIAL MODES OF OPERATION +* IT IS POSSIBLE TO COLLECT THE OUTPUT OF MULTIPLE RUNS OF BINAL INTO +* ONE SYSTEM TAPE. THIS IS DONE BY SENSE SWITCH SETTINGS: +* SSW1 SET - DON'T PUNCH OUT SECOND AND THIRD STAGE LOADERS +* SSW2 SET - DON'T PUNCH OUT DATA +* SSW3 SET - DON'T PUNCH OUT END OF TAPE/GO BLOCK +* SSW4 SET - PUNCH ONLY A GO BLOCK * * TAPE FORMAT: -* THE TAPE CONTAINS DATA BLOCKS. +* THE TAPE CONTAINS HIGE DATA BLOCKS. * EVERY BLOCK IS PREPENDED WITH THE BLOCK START CHARACTER * AND THE BLOCK TYPE BYTE. * THEN FOLLOWS THE BLOCK DATA IN 16BIT BIG ENDIAN FORMAT. @@ -46,34 +102,47 @@ * ************************************************************************ * - SUBR LSTART,BO3S LOADER START IS GOOD TO KNOW + SUBR LSTART,BO3S BEGINNING OF THIRD STAGE LOADER * REL RELOCATABLE MODE ORG 0 * - STA STRT SAVE AUTO-START ADDRESS + STA STRT SAVE AUTO START LOCATION HLT STA ALOC FIRST LOCATION TO PUNCH HLT STA ELOC LAST LOCATION TO PUNCH * OCP '0002 START PUNCH (NOT NECESSARY ON MY H316) +* + SR1 SKIP IF SSW 1 RESET + JMP NOBO NO BOOT CODE JST PLDR PUNCH OUT LEADER JST PS2 PUNCH SECOND STAGE LOADER JST PS3 PUNCH THIRD STAGE LOADER +* +NOBO SS2 SKIP IF SSW 2 SET JST PDAT PUNCH OUT DATA -* - LDA STRT +* + LDA STRT START ADDRESS + SZE SET? + JST ABLK MAKE ADRESS-BLOCK +* + SR3 SKIP IF SSW3 RESET + JMP NOGO NO GO/STOP BLOCK +* + LDA STRT SZE - JMP AUTO + JST GBLK MAKE GO BLOCK + LDA STRT + SNZ JST SBLK MAKE STOP BLOCK - JMP EOT -AUTO JST ABLK MAKE ADRESS-BLOCK - JST GBLK MAKE GO-BLOCK -EOT JST PLDR END OF JOB HAS COME. +* +NOGO JST PLDR END OF TAPE HAS COME. HLT JMP *-1 NO ESCAPE * +* ********************** * PUNCH THE DESIRED DATA PDAT DAC ** @@ -81,12 +150,12 @@ PDAT DAC ** LOOP CRA MAIN LOOP LDA ELOC SUB ALOC - AOA - STA AVAL DETERMINED AVAILABLE DATA + AOA ONE IS MINIMUM + STA AVAL AVAILABLE NUMBER OF WORDS SNZ JMP* PDAT END OF DATA, WE ARE HAPPY, RETURN * -* FIRST TRY TO ESABLISH A ZERO BLOCK +* TRY TO MAKE A ZERO BLOCK LDA ALOC JST CZER COUNT ZERO LOCATIONS - IF ANY CAS ZMIN COMPARE WITH MINIMUM FOR ZERO BLOCK