Filter
Top Products
2585 F15D DE 74 A4 OP06 DEC IDIR,X ;DIRECTION <= $FF (-)
2586 F160
2587 F160 ;START OF NEW PRINT ROW
2588 F160 1E 7C A4 NEWROW ASL IMASK,X ;UPDATE ROW MASK FOR DOT PATTERNS
2589 F163 ;START OF NEW PRINT COLUMN
2590 F163 A9 00 NEWCOL LDA #0 ;CLEAR OUTPUT PATTERN
2591 F165 9D 78 A4 STA IOUTL,X ;PATTERN FOR 8 RIGHT CHRS
2592 F168 9D 79 A4 STA IOUTU,X ;PATTERN FOR 2 LEFT SOLEN
2593 F16B 9D 7B A4 STA IBITU,X ;OUTPUT MSK FOR LEFTMOST SOLEN
2594 F16E A9 01 LDA #1
2595 F170 9D 7A A4 STA IBITL,X ;OUTPUT MSK FOR RIGHTMOST SOLEN
2596 F173 ;GET ADDRESS OF DOT PATTERN TABLE FOR NEXT COLUMN
2597 F173 BD 75 A4 LDA ICOL,X ;GET COLUMN NUMBER (0-4)
2598 F176 0A ASL A ;*2 ,INDEX INTO TBL OF TBL ADDRS
2599 F177 A8 TAY
2600 F178 B9 D7 F2 LDA MTBL,Y ;LSB OF ADDR OF TABLE
2601 F17B 9D 7D A4 STA JUMP,X ;PTR TO TBL WITH DOT PATTERNS
2602 F17E B9 D8 F2 LDA MTBL+1,Y ;MSB OF TABLE ADDRESS
2603 F181 9D 7E A4 STA JUMP+1,X
2604 F184 A9 12 LDA #18 ;COMPUTE INDEX INTO PRNTR BUFFER
2605 F186 1D 76 A4 ORA IOFFST,X ;+1 IF RIGHT CHR
2606 F189 AA TAX
2607 F18A 60 RTS
2608 F18B
2609 F18B ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2610 F18B ;OUTPUT ACC TO TAPE BUFFER SUBROUTINE
2611 F18B ; & WHEN FULL OUTPUT BUFF TO TAPE.
2612 F18B ; IF INFLG=OUTFLG= T USE TWO BUFFERS
2613 F18B ;OTHERWISE USE SAME BUFFER FOR INPUT
2614 F18B ;AND OUTPUT (MONIT BUFFER)
2615 F18B 20 9E EB TOBYTE JSR PHXY ;SAVE X
2616 F18E AE 37 A4 LDX TAPTR2 ;TAPE BUFFER POINTER FOR OUTPUT
2617 F191 20 0F F2 JSR BKCK2 ;STORE IN BUFFER
2618 F194 E8 INX
2619 F195 8E 37 A4 STX TAPTR2 ;FOR NEXT
2620 F198 E0 50 CPX #80 ;BUFFER FULL?
2621 F19A D0 32 BNE TABY3 ;NO , GO BACK
2622 F19C ;OUTPUT A BLOCK FROM BUFFER TO TAPE
2623 F19C 20 E7 F1 JSR BKCKSM ;COMPUT BLOCK CHECKSUM
2624 F19F 20 1D F2 JSR TAOSET ;SET TAPE FOR OUTPUT
2625 F1A2 A9 23 LDA #'#' ;CHAR FOR BEGINNING
2626 F1A4 20 4A F2 JSR OUTTAP ;OF BLOCK
2627 F1A7 ;OUTPUT CHRS FROM ACTIVE BUFFER
2628 F1A7 20 D2 F1 TABY2 JSR CKBUFF ;LOAD CHR FROM ACTIVE BUFFER
2629 F1AA 20 4A F2 JSR OUTTAP ; FROM BUFFER
2630 F1AD E8 INX
2631 F1AE E0 53 CPX #83 ;2 BLOCK CKSUM CHR + 1 EXTRA CHR..
2632 F1B0 D0 F5 BNE TABY2 ;OTHERWISE ERROR
2633 F1B2 AD 00 A8 LDA DRB
2634 F1B5 29 CF AND #$CF ;TURN TAPES OFF PB5,PB4
2635 F1B7 8D 00 A8 STA DRB
2636 F1BA 58 CLI ;ENABLE INTERRUPT
2637 F1BB A9 00 LDA #0
2638 F1BD 8D 37 A4 STA TAPTR2 ;CLR TAPE BUFF PTR
2639 F1C0 A9 00 LDA #T1I ;RESET FREE RUNNING TO 1 SHOT
2640 F1C2 8D 0B A8 STA ACR
2641 F1C5 20 9A FF JSR PAT22 ;ADD 1 TO BLK COUNT & OUTPUT
2642 F1C8 AD 68 01 LDA BLKO ;PUT BLK CNT IN FIRST LOC (TABUFF)
2643 F1CB 20 8B F1 JSR TOBYTE
2644 F1CE 20 AC EB TABY3 JSR PLXY
2645 F1D1 60 RTS
2646 F1D2