Apple II User Manual

Page of 257
2771   F2C4 A9 0C              LDA #12
2772   F2C6 90 02              BCC SETSP1
2773   F2C8 A9 04              LDA #4
2774   F2CA 8D 0A A4    SETSP1 STA NPUL
2775   F2CD A9 12              LDA #18
2776   F2CF 90 02              BCC SETSP2
2777   F2D1 A9 06              LDA #6
2778   F2D3 8D 0C A4    SETSP2 STA TIMG+1
2779   F2D6 60                 RTS
2780   F2D7             ;.FILE A3/2
2781   F2D7
2782   F2D7             ; ADDRESS TABLE FOR EACH PRINT COLUMN
2783   F2D7             ; EACH TBL CONTAINS DOT PATTERNS FOR 1 OF THE 5 COLUMNS.
2784   F2D7             ;   DATA ARE STORED WITH EACH BYTE DEFINING ONE COLUMN...
2785   F2D7             ; OF A CHARACTER, WITH THE TOP DOT CORRESPONDING TO THE..
2786   F2D7             ; LSB IN THE BYTE
2787   F2D7 E1F221F361F3MTBL   .DW COL0,COL1,COL2,COL3,COL4
2787   F2DD A1F3E1F3
2788   F2E1
2789   F2E1             ;DOT PATTERNS FOR COLUMN ZERO (LEFTMOST COLUMN)
2790   F2E1 3E7E7F3E7F7FCOL0   .DB $3E,$7E,$7F,$3E,$7F,$7F,$7F,$3E  ;@ -- G
2790   F2E7 7F3E
2791   F2E9 7F00207F7F7F       .DB $7F,$00,$20,$7F,$7F,$7F,$7F,$3E  ;H -- O
2791   F2EF 7F3E
2792   F2F1 7F3E7F46013F       .DB $7F,$3E,$7F,$46,$01,$3F,$07,$7F  ;P -- W
2792   F2F7 077F
2793   F2F9 6307617F0300       .DB $63,$07,$61,$7F,$03,$00,$02,$40  ;X -- (
2793   F2FF 0240
2794   F301 000000142463       .DB $00,$00,$00,$14,$24,$63,$60,$00  ;  -- '
2794   F307 6000
2795   F309 000014084008       .DB $00,$00,$14,$08,$40,$08,$40,$60  ;( -- /
2795   F30F 4060
2796   F311 3E4462411827       .DB $3E,$44,$62,$41,$18,$27,$3C,$01  ;0 -- 7
2796   F317 3C01
2797   F319 364600400814       .DB $36,$46,$00,$40,$08,$14,$41,$02  ;8 -- ?
2797   F31F 4102
2798   F321
2799   F321             ;DOT PATTERNS FOR COLUMN 1
2800   F321 410949414149COL1   .DB $41,$09,$49,$41,$41,$49,$09,$41  ;@ -- G
2800   F327 0941
2801   F329 084140084002       .DB $08,$41,$40,$08,$40,$02,$06,$41  ;H -- O
2801   F32F 0641
2802   F331 094109490140       .DB $09,$41,$09,$49,$01,$40,$18,$20  ;P -- W
2802   F337 1820
2803   F339 140851410400       .DB $14,$08,$51,$41,$04,$00,$01,$40  ;X -- (
2803   F33F 0140
2804   F341 0000077F2A13       .DB $00,$00,$07,$7F,$2A,$13,$4E,$04  ;  -- '
2804   F347 4E04
2805   F349 1C4108083008       .DB $1C,$41,$08,$08,$30,$08,$00,$10  ;( -- /
2805   F34F 0010
2806   F351 514251411445       .DB $51,$42,$51,$41,$14,$45,$4A,$71  ;0 -- 7
2806   F357 4A71
2807   F359 494900341414       .DB $49,$49,$00,$34,$14,$14,$41,$01  ;8 -- ?
2807   F35F 4101
2808   F361
2809   F361             ;DOT PATTERNS FOR COLUMN 2
2810   F361 5D0949414149COL2   .DB $5D,$09,$49,$41,$41,$49,$09,$41  ;@ -- G
2810   F367 0941
2811   F369 087F4114400C       .DB $08,$7F,$41,$14,$40,$0C,$08,$41  ;H -- O
2811   F36F 0841
2812   F371 095119497F40       .DB $09,$51,$19,$49,$7F,$40,$60,$18  ;P -- W
2812   F377 6018