MOVEI TAC,LPTLOV ;GET LINE OVERFLOW ERROR MASK\r
XCT LPTCSO(DEVDAT) ;SKIP IF LINE OVERFLOW FLAG IS ON\r
JRST LPTER2 ; GO CHECK IF PREVIOUS ERROR OCCURRED\r
- MOVN TAC,[EXP 100001] ;DECREMENT BLK0 POINTER\r
+ MOVN TAC,[EXP 1000001] ;DECREMENT BLK0 POINTER\r
ADDM TAC,LPTPTR(DEVDAT)\r
MOVE TAC,[EXP 15B6+12B13] ;PRINT CRLF\r
XCT LPTDTO(DEVDAT)\r