/*CASE 2=ASSEMBLER CASE*/ BUF$PTR$OLD=.BUFFER; BUF$PTR$NEW=.BUFFER; TEXT$LENGTH=LENGTH(TEXT$ASM$0)-1; BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$0,TEXT$LENGTH,BUF$PTR$OLD); CALL PRINT$CONS(.TEXT$ASM$1); TEXT$LENGTH=READ$CONS(.TEXT$BUF,12); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); TEXT$LENGTH=LENGTH(TEXT$ASM$2)-1; ASM$SWITCH=0; DO WHILE ASM$SWITCH <>4; DO CASE ASM$SWITCH; DO; /*CASE 0*/ CALL PRINT$CONS(.TEXT$ASM$2); ASM$SWITCH=READ$CONS$CHECK(1); END; DO; /*CASE=1=YES*/ ASM$SWITCH=4; END; DO; /*CASE=2=NO*/ TEXT$LENGTH=LENGTH(TEXT$BUF$3)-1; BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF$3,TEXT$LENGTH,BUF$PTR$NEW); CALL PRINT$CONS(TEXT$ASM$4); TEXT$LENGTH=READ$CONS(.TEXT$BUF,12); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF,TEXT$LENGTH,BUF$PTR$NEW); ASM$SWITCH=4; END; END; /*DO CASE=ASM$SWITCH*/ END; /*DO WHILE ASM$SWITCH<>4*/ CALL PRINT$CONS(.TEXT$ASM$5); /*DEFAULTS?*/ ASM$SWITCH=0; DO WHILE ASM$SWITCH<>4; DO CASE ASM$SWITCH; DO; /*CASE 0*/ CALL PRINT$CONS(.TEXT$ASM$5); ASM$SWITCH=READ$CONS$CHECK; END; DO; /*CASE=1=YES*/ ASM$SWITCH=4; END; DO; /*CASE=2=NO*/ CALL PRINT$CONS(.TEXT$ASM$6); /*XREF*/ CHAR=CI; IF CHAR='Y' THEN DO; TEXT$LENGTH=LENGTH(TEXT$ASM$26)-1; BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$26,TEXT$LENGTH,BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$7); /*DEBUG*/ CHAR=CI; IF CHAR='Y' THEN DO; TEXT$LENGTH=LENGTH(TEXT$ASM$27)-1; BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$27,TEXT$LENGTH,BUF$PTR$NEW); END; CALL PRINT$CONS(TEXT$ASM$8); /*SYMBOLS*/ CHAR=CI; IF CHAR='N' THEN DO; TEXT$LENGTH=LENGTH(TEXT$ASM$28)-1; BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$28,TEXT$LENGTH,BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$9); /*PRINTFILE*/ CHAR=CI; IF CHAR='N' THEN DO; CALL PRINT$CONS(.TEXT$ASM$91); /*PRINT$FILE$NAME*/ TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),12); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); CALL PRINT$CONS(.TEXT$ASM$10); /*LIST*/ CHAR=CI; IF CHAR='N' THEN DO; ; TEXT$LENGTH=LENGTH(TEXT$ASM$210); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$210,TEXT$ENGTH,BUF$PTR$NEW); END; END; CALL PRINT$CONS(.TEXT$ASM$11); /*TITLE*/ CHAR=CI; IF CHAR='Y' THEN DO; CALL PRINT$CONS8.TEXT$ASM$12); /*WHICH TITLE*/ TEXT$LENGTH=LENGTH(.TEXT$ASM$2111)-1; BUF$PTR$NEW-LOAD$BUFFER(.TEXT$ASM$2111,TEXT$LENGTH,BUF$PTR$NEW); TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),6); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$21,12)-1; TEXT$LENGTH=LENGTH(TEXT$ASM$2112,TEXT$LENGTH,BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$13); /*PAGELENGTH-66?*/ CHAR=CI; IF CHAR='N' THEN DO; PAGE=200; DO WHILE (PAGE>132 AND PAGE<66); CALL PRINT$CONS(.TEXT$ASM$14); /*PAGELENGTH-XX*/ TEXT$BUF(0),TEXTBUF(1),TEXT$BUF(2)=0; TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),3); IF TEXT$LENGTH=1 THEN PAGE=TEXT$BUF(0); IF TEXT$LENGTH=2 THEN PAGE=TEXT$BUF(1)+10*TEXT$BUF(0); IF TEXT$LENGTH=3 THEN PAGE=TEXT$BUF(2)+10*TEXT$BUF(1)+100*TEXT$BUF(0); END; /*PAGELENGTH*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2131,LENGTH(TEXT$ASM$2131),BUF$PTR$NEW); /*XX*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); /*)*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2132,LENGTH(TEXT$ASM$2132),BUF$PTR$NEW); END; CALL PRINT$CONS(.TEXT$ASM$15); /*PAGEWIDTH*/ CHAR=CI; IF CHAR='N' THEN DO; WIDTH=255; DO WHILE (WIDTH>132)AND (WIDTH<30); CALL PRINT$CONS(.TEXT.ASM$16); /*PAGEWIDTH*/ TEXT$BUF(0),TEXT$BUF(1),TEXT$BUF(2)=0; TEXT$LENGTH=READ$CONS(.TEXT$BUF(0),3); TEXT$LENGTH=1 THEN PAGE=TEXT4BUF(0); TEXT$LENGTH=2 THEN PAGE=TEXT$BUF(1)+10*TEXT$BUF(0); IF TEXT$LENGTH=3 THEN PAGE=TEXT$BUF(2)+10*TEXT4BUF(1)+100*TEXT$BUF(0); END; /*PAGEWIDTH*/ BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2151,(LENGTH(TEXT$ASM$2150)-1),BUF$PTR$NEW); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$BUF(0),TEXT$LENGTH,BUF$PTR$NEW); BUF$PTR$NEW=LOAD$BUFFER(.TEXT$ASM$2151,(LENGTH(TEXT$ASM$2152)-1),BUF$PTR$NEW); END; /*END IF NEW*/ END; /*DCASE 2*/ END; /*DO CASE ASM$SWITCH*/ END; /*DO WHILE ASM$SWITCH*/ /*ENDE ASSEMBLER-CASE*/