X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..d693caac75dd25e668e43e85c29205bfc8dea06e:/src/lptser.mac diff --git a/src/lptser.mac b/src/lptser.mac index 05dade0..f5c3273 100644 --- a/src/lptser.mac +++ b/src/lptser.mac @@ -16,7 +16,7 @@ SUBTTL T. W. MCMANUS /TNM TS 20 MAY 69 ;THE FOLLOWING EXTERNAL SYMBOLS ARE DEFINED IN UUCON: - EXTERNAL ADVBFE, IDSET, OUT, SETACT, STOIOS + EXTERNAL ADVBFE, IOSET, OUT, SETACT, STOIOS ;THE FOLLOWING SYMBOLS ARE REFERENCED OUTSIDE OF LPTSER: @@ -168,7 +168,7 @@ LPTWCK: TLZE IOS,IOW ;IS JOB WAITING FOR I/O COMPLETION? LPTEX2: JRST STOIOS ;SAVE IOS, RESET HUNG DEVICE COUNT ; AND DISMISS INTERRUPT -LTPOFF: TLNN IOS,LPTEND ;SKIP IF CLOSE HAS BEEN DONE +LPTOFF: TLNN IOS,LPTEND ;SKIP IF CLOSE HAS BEEN DONE JRST LPTOF1 ; GO TURN PRINTER OFF UNTIL NEXT OUTPUT TLON IOS,LPTSYN ;HAS FINAL CRFF BEEN OUTPUT? JRST LPTBG2 ; NO, SO GO DO IT @@ -195,13 +195,13 @@ LPTER1: MOVEM TAC,LPTSV2(DEVDAT) ;SAVE TAC IN DDB XCT LPTDTO(DEVDAT) JRST LPTER4 -LPTER4: XCT LPTECH(DEVDAT) ;SKIP IF ERROR INTERRUPT NOT ASSIGNED +LPTER2: XCT LPTECH(DEVDAT) ;SKIP IF ERROR INTERRUPT NOT ASSIGNED JRST LPTER5 ; ERROR CONDITION DETECTED MOVE TAC,LPTCH(DEVDAT) ;GET INTERRUPT CHANNEL ASSIGNMENTS ANDI TAC,LPTDCM ;MASK OUT ERROR CHANNEL IORI TAC,LPTBSY ;SET THE BUSY FLAG XCT LPTCNO(DEVDAT) ;SEND IT OUT TO THE LPT - MOVEI TAC,LPTRLOV+LPTERR+LPTDON ;ENABLE FOR ALL INTERRUPTS + MOVEI TAC,LPTLOV+LPTERR+LPTDON ;ENABLE FOR ALL INTERRUPTS LPTER3: HRRM TAC,LPTCON(DEVDAT) ;SAVE SKIP CHAIN MASK FLAGS LPTER4: MOVE TAC,LPTSV2(DEVDAT) ;RESTORE SAVED ACCUMULATOR JRST LPTEX1(DEVDAT) ; AND GO DISMISS INTERRUPT @@ -227,4 +227,5 @@ LPTSET: MOVEI TAC,@DEVOAD(DEVDAT) ;GET ABS. ADDR. OF CURRENT BUFFER - \ No newline at end of file + + \ No newline at end of file