Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ttttttttttttttttttttlttttttttt LDA YTABLE,Y ttltttttlttttttttttttttttttttt<br />
t STA BASE+! t<br />
t ASCII DATA FOR TITLE PAGE t RTS t CLEAR CURRENT LINE OF TEXT t<br />
t t tttttttttttttttttttttttttttttt t t<br />
tttttttttttttttttttttttttttttt t t tttttttttttttttttttttttttttttt<br />
TITLE HEX 80 t TABLE OF THE 24 BASE ADDRS t CL EARLINE LDY 027<br />
ASC " t t CLEARLINEA LOA HAO<br />
ASC "SPIRAL ' tttttttttttttttttttttttttttttt STA (BASEi, Y<br />
ASC "PROTECTION ' YT ABLE HEX 00048004 DEY<br />
ASC "SYSTEM ' HEX 000581)05 BPL CLEARLINEA<br />
HEX BDBD HEX 00068006 RTS<br />
ASC II HEX 00078007 ttttttttttttttttttttttlttttttt<br />
ASC " jOHN UHLE' HEX 2804A804 t t<br />
HEX 8080 HEX 2805A805 t CLEAR THE TEXT SCREEN t<br />
ASC ' .., ..,,.,,.,,..., ..,,,,•.<br />
"' HEX 2806A806<br />
ASC ""'•'• '•'• ~",'··'• '"' HEX 2807A8(i7 tttttttttttttttttttttttttttttt<br />
ASC . .., ..,,,,.,,.-,.H•"•·"'" HEX 50040004 HOME LDA 11$17<br />
ASC •.. .-,,,,., .. v •.·• .-,,"' HEX 50050005 STA VTAB<br />
HEX 808D HEX 5006D006 HOHEA LDA VTAB<br />
HEX DB HEX 5007D007 JSR GET BASE<br />
ASC "RETURN} ttttttittttttltttttttttttttttt JSR CLEARLINE<br />
ASC 'PROTECT ' t DEC VTAB<br />
ASC "DISKETTE' l PRINT UP TO A PAGE OF DATA t LDA 'v'TAB<br />
HEX BDBD<br />
' *<br />
Cl'IP OFF<br />
HEX DB tlltttttttttttttltlttttllttttt BNE HOHEA<br />
ASC "ESCAPE} PRINTASC STA BUFFER+! LOA uoo<br />
ASC "EXIT SPIRAL' STY BUFFER STA VTAB<br />
ASC " SYSTEM' LDA #$00 RTS<br />
HEX 808[! STA BTAB tttttlttttlttlttlttltltttttttt<br />
ASC ....,.........,, .• v .,, ,<br />
PRINTASCA LDA '.JTAB t t<br />
ASC II ~~· '11 'v "lt