lmINCCCCCCC1C3AIIIDATIC6C12INVFINTDUMMML1TOPBTMMLSEGLTOPBTMCC6MAOUTCHPAGTEM @@ !" @ SAVE "D:OKI92LST.BAS":STOPLIST "D:OKITST":STOP B00((}ɭà͠Ҡ(F ( F(! à2( ( @P""(Z"( Input file " A d @n2 A P:2( 0%C001x A 4( A0-B:,! 6-&B:,& !6-B:,&6.7<%, -6-@:7%,,! 6-!&6-&!6-&!@A   6-%@ 6-& INTL NOW = INTERNAL NUMBER6. 6-?:C:,<<u''|;ROUTINE WILL BE RELOCATABLE, SO?u&&|; ORIGIN DOESN'T REALLY MATTER!@u|;Au|;Bu""| PLA ;GARBAGECu| PLA Du| PLA Eu&&| STA INTL ;CHAR INTL #Fu| PLA Gu| PLA Hu//| STA INVFL ; INV FLAG - 0 OR $0FIu| PLA Ju| STA DAT+1Ku| PLA Lu,,| STA DAT ;=> TO DATA STRINGMu|;Nu| LDA #0Ou| STA TMP1+1Pu| CLC Qu| LDA INTLRu| ASL ASu| ROL TMP1+1Tu| ASL AUu| ROL TMP1+1Vu| ASL AWu&&| ROL TMP1+1 ;INTL=INTL*8Xu|;Yu++| STA TMP1 ;CHBAS+INTL*8=LOCZu| LDA TMP1+1[u| ADC CHBAS\u| STA TMP1+1]u|;^u//| LDY #7 ;MOVE FROM CHR SET TO_u&&|X2 LDA (TMP1),Y ;OUR BUFFER`u| STA BUF,Yau| DEY bu| BPL X2cu|;du''|; BUF NOW CONTAINS 8 BYTES WHICHeu|; MAKE UP CHARACTERfu|;gu--| LDY #15 ;TOO COMPLICATED TOhu''|X4 LDA #0 ;EXPLAIN.....iu| LDX #3ju|X3 LSR BUF+4,Xku| ROL Alu| DEX mu| BPL X3nu| EOR INVFLou| STA (DAT),Ypu| DEY qu| CMP #8ru| BCS X4su|;tu|X6 LDA #0uu| LDX #3vu|X5 LSR BUF,Xwu| ROL Axu| DEX yu| BPL X5zu| EOR INVFL{u| STA (DAT),Y|u| DEY }u| BPL X6~u|;u| RTS u|;u| .END D:OKI92LST.BAS'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''