; Disassembly of scrlbar2.bin
; Disassembled Fri Jul 02 15:32:40 1999
; Using DiStella v2.0
;
; Command Line: G:\DISTELLA\DISTELLA.EXE -pafs scrlbar2.bin
;

      processor 6502
VSYNC   =  $00
VBLANK  =  $01
WSYNC   =  $02
NUSIZ0  =  $04
NUSIZ1  =  $05
COLUP0  =  $06
COLUP1  =  $07
COLUBK  =  $09
CTRLPF  =  $0A
PF2     =  $0F
RESP0   =  $10
RESP1   =  $11
GRP0    =  $1B
GRP1    =  $1C
HMP0    =  $20
HMP1    =  $21
VDELP0  =  $25
VDEL01  =  $26
HMOVE   =  $2A
INTIM   =  $0284
TIM64T  =  $0296

       ORG $F000
LF000: .byte $06,$00,$00,$00,$00,$00,$00,$00,$03,$C0,$00,$C0,$C0,$C0,$C0,$C0
       .byte $04,$00,$00,$00,$00,$00,$A0,$A0,$06,$50,$50,$F8,$50,$F8,$50,$50
       .byte $08,$28,$FC,$2A,$7C,$A8,$7E,$28,$08,$84,$4A,$24,$10,$48,$A4,$42
       .byte $08,$62,$94,$88,$94,$60,$90,$60,$02,$00,$00,$00,$00,$00,$80,$80
       .byte $04,$20,$40,$80,$80,$80,$40,$20,$04,$40,$20,$10,$10,$10,$20,$40
       .byte $06,$00,$20,$A8,$70,$70,$A8,$20,$06,$00,$00,$20,$20,$F8,$20,$20
       .byte $03,$80,$40,$C0,$00,$00,$00,$00,$06,$00,$00,$00,$00,$F8,$00,$00
       .byte $03,$C0,$00,$00,$00,$00,$00,$00,$08,$80,$40,$20,$10,$08,$04,$02
       .byte $06,$70,$88,$C8,$A8,$98,$88,$70,$06,$F8,$20,$20,$20,$A0,$60,$20
       .byte $06,$F8,$80,$80,$40,$30,$08,$F0,$06,$E0,$10,$08,$08,$30,$08,$F0
       .byte $06,$08,$08,$08,$08,$F8,$88,$88,$06,$E0,$10,$08,$08,$F0,$80,$F8
       .byte $06,$60,$90,$88,$88,$F0,$40,$38,$06,$80,$80,$40,$20,$10,$08,$F8
       .byte $06,$70,$88,$88,$88,$70,$88,$70,$06,$E0,$10,$08,$08,$78,$88,$70
       .byte $03,$00,$00,$C0,$00,$00,$C0,$00,$03,$80,$40,$C0,$00,$00,$C0,$00
       .byte $05,$10,$20,$40,$80,$40,$20,$10,$06,$00,$00,$00,$F8,$00,$F8,$00
       .byte $05,$80,$40,$20,$10,$20,$40,$80,$06,$20,$00,$20,$20,$10,$88,$70
       .byte $08,$7C,$80,$9E,$AA,$9A,$82,$7C,$06,$88,$88,$88,$88,$F8,$88,$70
       .byte $06,$F0,$88,$88,$88,$F0,$88,$F0,$06,$70,$88,$80,$80,$80,$88,$70
       .byte $06,$E0,$90,$88,$88,$88,$90,$E0,$06,$F8,$80,$80,$80,$E0,$80,$F8
       .byte $06,$80,$80,$80,$80,$E0,$80,$F8,$06,$70,$88,$88,$88,$98,$80,$78
       .byte $06,$88,$88,$88,$88,$F8,$88,$88,$04,$E0,$40,$40,$40,$40,$40,$E0
       .byte $06,$70,$88,$08,$08,$08,$08,$08,$06,$88,$90,$A0,$C0,$A0,$90,$88
       .byte $06,$F8,$80,$80,$80,$80,$80,$80,$08,$82,$82,$92,$BA,$EE,$C6,$82
       .byte $07,$84,$8C,$9C,$B4,$E4,$C4,$84,$06,$70,$88,$88,$88,$88,$88,$70
       .byte $06,$80,$80,$80,$80,$F0,$88,$F0,$06,$68,$90,$A8,$88,$88,$88,$70
       .byte $06,$88,$88,$88,$88,$F0,$88,$F0,$06,$F0,$08,$08,$08,$70,$80,$78
       .byte $06,$20,$20,$20,$20,$20,$20,$F8,$06,$70,$88,$88,$88,$88,$88,$88
       .byte $06,$20,$20,$50,$50,$88,$88,$88,$08,$44,$EE,$BA,$92,$82,$82,$82
       .byte $06,$88,$88,$50,$20,$50,$88,$88,$06,$20,$20,$20,$20,$70,$88,$88
       .byte $06,$F8,$80,$40,$20,$10,$08,$F8,$04,$E0,$80,$80,$80,$80,$80,$E0
       .byte $08,$02,$04,$08,$10,$20,$40,$80,$04,$E0,$20,$20,$20,$20,$20,$E0
       .byte $06,$00,$00,$00,$00,$88,$50,$20,$06,$F8,$00,$00,$00,$00,$00,$00
       .byte $03,$00,$00,$00,$00,$40,$80,$80,$06,$78,$88,$88,$88,$78,$00,$00
       .byte $06,$F0,$88,$88,$88,$F0,$80,$80,$06,$78,$80,$80,$80,$78,$00,$00
       .byte $06,$78,$88,$88,$88,$78,$08,$08,$06,$78,$80,$F8,$88,$70,$00,$00
       .byte $06,$40,$40,$40,$40,$F0,$40,$38,$06,$F0,$08,$78,$88,$70,$00,$00
       .byte $06,$88,$88,$88,$88,$F0,$80,$80,$04,$E0,$40,$40,$40,$C0,$00,$40
       .byte $04,$C0,$20,$20,$20,$20,$00,$20,$06,$88,$90,$E0,$90,$88,$80,$80
       .byte $04,$E0,$40,$40,$40,$40,$40,$C0,$08,$92,$92,$92,$92,$FC,$00,$00
       .byte $06,$88,$88,$88,$88,$F0,$00,$00,$06,$70,$88,$88,$88,$70,$00,$00
       .byte $06,$80,$80,$F0,$88,$F0,$00,$00,$06,$08,$08,$78,$88,$78,$00,$00
       .byte $06,$80,$80,$80,$C8,$B0,$00,$00,$06,$F0,$08,$70,$80,$78,$00,$00
       .byte $06,$38,$40,$40,$40,$F8,$40,$40,$06,$78,$88,$88,$88,$88,$00,$00
       .byte $06,$20,$50,$50,$88,$88,$00,$00,$08,$44,$AA,$92,$82,$82,$00,$00
       .byte $06,$88,$50,$20,$50,$88,$00,$00,$06,$F0,$08,$78,$88,$88,$00,$00
       .byte $06,$F8,$40,$20,$10,$F8,$00,$00,$04,$20,$40,$40,$80,$40,$40,$20
       .byte $02,$80,$80,$80,$00,$80,$80,$80,$04,$80,$40,$40,$20,$40,$40,$80
       .byte $07,$00,$00,$00,$98,$64,$00,$00

START:
       SEI            ;2
       CLD            ;2
       LDX    #$00    ;2
       TXA            ;2
LF2FD: STA    VSYNC,X ;4
       DEX            ;2
       BNE    LF2FD   ;2
       DEX            ;2
       TXS            ;2
       STA    WSYNC   ;3
       JSR    LF40E   ;6
       INC    $AC     ;5
       LDA    #$E3    ;2
       STA    HMP0    ;3
       LDY    #$F1    ;2
       LDX    #$0C    ;2
       STA    RESP0   ;3
       STA    RESP1   ;3
       STA    NUSIZ0  ;3
       STA    NUSIZ1  ;3
       STA    VDELP0  ;3
       STA    VDEL01  ;3
       STY    CTRLPF  ;3
       STY    HMP1    ;3
       STX    COLUP0  ;3
       STX    COLUP1  ;3
       STA    WSYNC   ;3
       STA    HMOVE   ;3
       JSR    LF3F0   ;6
LF32E: LDX    #$02    ;2
       STA    WSYNC   ;3
       STX    VSYNC   ;3
       STA    WSYNC   ;3
       STA    WSYNC   ;3
       STA    WSYNC   ;3
       STA    VSYNC   ;3
       LDA    #$2C    ;2
       STA    TIM64T  ;4
       DEC    $B8     ;5
       LDX    #$06    ;2
LF345: ASL    $AD,X   ;6
       ROL    $A5,X   ;6
       ROL    $9E,X   ;6
       ROL    $97,X   ;6
       ROL    $90,X   ;6
       ROL    $89,X   ;6
       ROL    $82,X   ;6
       DEX            ;2
       BPL    LF345   ;2
       DEC    $AC     ;5
       BNE    LF37C   ;2
       LDY    #$07    ;2
LF35C: LDA    ($B6),Y ;5
       STA.wy $00AC,Y ;5
       DEY            ;2
       BPL    LF35C   ;2
       INC    $B4     ;5
       BNE    LF36A   ;2
       INC    $B5     ;5
LF36A: LDA    $B4     ;3
       CMP    #$BF    ;2
       BNE    LF379   ;2
       LDA    $B5     ;3
       CMP    #$FF    ;2
       BNE    LF379   ;2
       JSR    LF40E   ;6
LF379: JSR    LF3F0   ;6
LF37C: LDA    INTIM   ;4
       BNE    LF37C   ;2
       STA    WSYNC   ;3
       STA    VBLANK  ;3
       LDX    $B8     ;3
       LDY    #$5C    ;2
LF389: STA    WSYNC   ;3
       STX    COLUBK  ;3
       DEX            ;2
       DEY            ;2
       BNE    LF389   ;2
       STX    $B9     ;3
       LDA    #$FC    ;2
       STA    PF2     ;3
       LDA    #$06    ;2
       STA    $80     ;3
LF39B: LDX    $80     ;3
       LDA    $82,X   ;4
       STA    GRP0    ;3
       STA    WSYNC   ;3
       LDA    $89,X   ;4
       STA    GRP1    ;3
       LDA    $90,X   ;4
       STA    GRP0    ;3
       LDA    $97,X   ;4
       STA    $81     ;3
       LDA    $9E,X   ;4
       TAY            ;2
       LDA    $A5,X   ;4
       TAX            ;2
       LDA    $81     ;3
       INC    $BA     ;5
       STA    GRP1    ;3
       STY    GRP0    ;3
       STX    GRP1    ;3
       STX    GRP0    ;3
       DEC    $80     ;5
       BPL    LF39B   ;2
       LDA    #$00    ;2
       STA    GRP0    ;3
       STA    GRP1    ;3
       STA    GRP0    ;3
       STA    GRP1    ;3
       LDX    $B9     ;3
       LDY    #$5C    ;2
LF3D3: STA    WSYNC   ;3
       STA    PF2     ;3
       STX    COLUBK  ;3
       INX            ;2
       DEY            ;2
       BNE    LF3D3   ;2
       STY    COLUBK  ;3
       LDA    #$22    ;2
       STA    VBLANK  ;3
       STA    TIM64T  ;4
LF3E6: LDA    INTIM   ;4
       BNE    LF3E6   ;2
       STA    WSYNC   ;3
       JMP    LF32E   ;3
LF3F0: LDY    #$00    ;2
       STY    $B7     ;3
       LDA    ($B4),Y ;5
       SEC            ;2
       SBC    #$20    ;2
       STA    $B6     ;3
       ASL    $B6     ;5
       ROL    $B7     ;5
       ASL    $B6     ;5
       ROL    $B7     ;5
       ASL    $B6     ;5
       ROL    $B7     ;5
       LDA    $B7     ;3
       ORA    #$F0    ;2
       STA    $B7     ;3
       RTS            ;6

LF40E: LDA    #$17    ;2
       STA    $B4     ;3
       LDA    #$F4    ;2
       STA    $B5     ;3
       RTS            ;6

LF417: .byte "The Rime Of The "
       .byte "Ancient Mariner "
       .byte "by Samuel Taylor"
       .byte " Coleridge.     "
       .byte "It is an ancient" ;rem 16
       .byte " Mariner And he "
       .byte "stoppeth one of "
       .byte 't,'h,'r,'e,'e,'.,' ,'",'B,'y,' ,'t,'h,'y,' ,'l
       .byte "ong grey beard a"
       .byte "nd glittering ey"
       .byte "e, Now wherefore"
       .byte " stopp'st thou m"
       .byte "e? The Bridegroo"
       .byte "m's doors are op"
       .byte "ened wide, And I"
       .byte " am next of kin;"
       .byte " The guests are "
       .byte "met, the feast i"
       .byte "s set; May'est h"
       .byte "ear the merry di"
       .byte 'n,'.,'",' ,'H,'e,' ,'h,'o,'l,'d,'s,' ,'h,'i,'m
       .byte " with his skinny"
       .byte " hand, There was"
       .byte " a ship, quoth h"
       .byte 'e,'.,' ,'",'H,'o,'l,'d,' ,'o,'f,'f,'!,' ,'u,'n
       .byte "hand me, greybea"
       .byte 'r,'d,' ,'l,'o,'o,'n,'!,'",' ,'E,'f,'t,'s,'o,'o
       .byte "n his hand dropt"
       .byte " he. He holds hi"
       .byte "s glittering eye"
       .byte "-- The Wedding-G"
       .byte "uest stood still"
       .byte ", and listens li"
       .byte "ke a three years"
       .byte "' child: The Mar"
       .byte "iner hath his wi"
       .byte "ll. The Wedding-"
       .byte "Guest sat on a s"
       .byte "tone: He cannot "
       .byte "choose but hear;"
       .byte " And thus spake "
       .byte "on that ancient "
       .byte "man, The bright-"
       .byte "eyed Mariner. Th"
       .byte "e ship was cheer"
       .byte "ed, the harbor c"
       .byte "leared, Merrily "
       .byte "did we drop Belo"
       .byte "w the kirk, belo"
       .byte "w the hill, belo"
       .byte "w the lighthouse"
       .byte " top. The sun ca"
       .byte "me up upon the l"
       .byte "eft, Out of the "
       .byte "sea came he! And"
       .byte " he shone bright"
       .byte ", and on the rig"
       .byte "ht Went down int"
       .byte "o the sea. Highe"
       .byte "r and higher eve"
       .byte "ry day, Till ove"
       .byte "r the mast at no"
       .byte "on-- The Wedding"
       .byte "-Guest here beat"
       .byte " his breast, For"
       .byte " he heard the lo"
       .byte "ud bassoon. The "
       .byte "bride hath paced"
       .byte " into the hall, "
       .byte "Red as a rose is"
       .byte " she; Nodding th"
       .byte "eir heads before"
       .byte " her goes The me"
       .byte "rry minstrelsy. "
       .byte "The Wedding-Gues"
       .byte "t he beat his br"
       .byte "east, Yet he can"
       .byte "not choose but h"
       .byte "ear; And thus sp"
       .byte "ake on that anci"
       .byte "ent man, The bri"
       .byte "ght-eyed Mariner"
       .byte ". And now the st"
       .byte "orm-blast came, "
       .byte "and he was tyran"
       .byte "nous and strong:"
       .byte " He struck with "
       .byte "his o'ertaking w"
       .byte "ings, And chased"
       .byte " us south along."
       .byte " With sloping ma"
       .byte "sts and dipping "
       .byte "prow, As who pur"
       .byte "sued with yell a"
       .byte "nd blow Still tr"
       .byte "eads the shadow "
       .byte "of his foe And f"
       .byte "orward bends his"
       .byte " head, The ship "
       .byte "drove fast, loud"
       .byte " roared the blas"
       .byte "t, And southward"
       .byte " aye we fled. An"
       .byte "d now there came"
       .byte " both mist and s"
       .byte "now, And it grew"
       .byte " wonderous cold:"
       .byte " And ice, mast h"
       .byte "igh, came floati"
       .byte "ng by, As green "
       .byte "as emerald. And "
       .byte "through the drif"
       .byte "ts, the snowy cl"
       .byte "ifts Did send a "
       .byte "dismal sheen: No"
       .byte "r shapes of men "
       .byte "nor beasts we ke"
       .byte "n- The ice was a"
       .byte "ll between. The "
       .byte "ice was here, th"
       .byte "e ice was there,"
       .byte " The ice was all"
       .byte " around: It crac"
       .byte "ked and growled,"
       .byte " and roared and "
       .byte "howled, Like noi"
       .byte "ses in a swound!"
       .byte " At length did c"
       .byte "ross an Albatros"
       .byte "s: Through the f"
       .byte "og it came; As i"
       .byte "f it had been a "
       .byte "Christian soul, "
       .byte "We hailed it in "
       .byte "God's name. It a"
       .byte "te the food it n"
       .byte "e'er had eat, an"
       .byte "d round and roun"
       .byte "d it flew. The i"
       .byte "ce did split wit"
       .byte "h a thunder-fit;"
       .byte " The helmsman st"
       .byte "eered us through"
       .byte "! And a good sou"
       .byte "th wind sprung u"
       .byte "p behind; The Al"
       .byte "batross did foll"
       .byte "ow, And every da"
       .byte "y, for food or p"
       .byte "lay, Came to the"
       .byte " Mariners' hollo"
       .byte "! In mist or clo"
       .byte "ud, on mast or s"
       .byte "hroud, It perche"
       .byte "d for vespers ni"
       .byte "ne; Whiles all t"
       .byte "he night, throug"
       .byte "h fog-smoke whit"
       .byte "e, Glimmered the"
       .byte " white Moon-shin"
       .byte "e. ''God Save th"
       .byte "ee, ancient Mari"
       .byte "ner! From the fi"
       .byte "ends, that plagu"
       .byte "e thee thus!-- W"
       .byte "hy look'st thou "
       .byte "so?'' --With my "
       .byte "crossbow I shot "
       .byte "the Albatross.  "
       .byte "''I fear thee an"
       .byte "cient Mariner! I"
       .byte " fear thy skinny"
       .byte " hand! And thou "
       .byte "art long, and la"
       .byte "nk, and brown, A"
       .byte "s is the ribbed "
       .byte "sea-sand. I fear"
       .byte " thee and thy gl"
       .byte "ittering eye, an"
       .byte "d thy skinny han"
       .byte "d so brown.''   "
       .byte "                "
       .byte "Part One of the "
       .byte "Atari Literature"
       .byte " Collection.    "
       .byte "                "
       .byte "                "
       .byte "                "
       .byte "                "
       .byte "                "
       .byte $FF, $FF, $FF, $FF, $FF, $F8, $F2, $F8, $F2

