perm filename IOSER.DIF[10X,AIL]1 blob
sn#186789 filedate 1975-11-21 generic text, type T, neo UTF8
1) IOSER.TNX vs. 2) IOSER.TNX[1,RS] SRCCOM 11-21-75 03:24 PAGES 1,1
******** IOSER.TNX **** PAGE 23 LINE 19
1) 01900 MOVEI 3,1 ; NO MATCH;
1) 02000 MOVEI 3,2 ; AMBIGUOUS
1) 02100 MOVEM 3,.SKIP. ; SAVE IT FOR USER
*** IOSER.TNX[1,RS] *** PAGE 23 LINE 19
2) SKIPA 3,[1] ; NO MATCH;
2) MOVEI 3,2 ; AMBIGUOUS
2) MOVEM 3,.SKIP. ; SAVE IT FOR USER
******** IOSER.TNX **** PAGE 66 LINE 74
1) 07400 SKIPN LINNUM(CDB) ;COUNTING VIA SETPL FUNCTION??
1) 07500 JRST INB1 ;NO
1) 07600 CAIN D,12 ;LINE-FEED?
1) 07700 AOS @LINNUM(CDB) ;INDICATE ANOTHER LINE
*** IOSER.TNX[1,RS] *** PAGE 66 LINE 74
2) CAILE D,14 ;FIRST CHECK
2) JRST INB1 ;IF IN RANGE AT ALL
2) CAIN D,12
2) CAIE D,14 ;CR OR LF?
2) JRST INB1 ;NO
2) SKIPN LINNUM(CDB) ;COUNTING VIA SETPL FUNCTION??
2) JRST INB1 ;NO
2) TDNN FF,@Y ;SOMETHING SPECIAL FOR THIS CHARACTER?
2) JRST INCR ;NO NOTHING SPECIAL
2) HLLZ TEMP,@Y ;GET BITS FOR THIS CHAR
2) TDNN TEMP,FF ;IGNORE?
2) JRST INCR ;YES
2) MOVE TEMP,-1(P) ;BREAKTABLE (RELOCATED)
2) SKIPLE DSPTBL(TEMP) ;APPEND OR SKIP?
2) JRST INB1 ;YES
2) INCR: CAIN D,12 ;LINE-FEED?
2) AOS @LINNUM(CDB) ;INDICATE ANOTHER LINE
******** IOSER.TNX **** PAGE 101 LINE 34
1) 03400 JSYS RIR
1) 03500 JUMPN 2,.+3 ;ALREADY THERE
1) 03600 MOVE 2,[XWD LEVTAB,CHNTAB]
*** IOSER.TNX[1,RS] *** PAGE 101 LINE 34
2) ;; JSYS RIR
2) ;; JUMPN 2,.+3 ;ALREADY THERE
2) MOVE 2,[XWD LEVTAB,CHNTAB]