0 REM LABELS (J. GILLASPIE 3/85) : 1 : 2 REM 5 STATEMENTS, 0 FUNCTIONS 3 : 4 REM KEYWORD CHARACTERS: 24 5 : 6 REM KEYWORD ROUTINE LINE SER # 7 REM L. ='DATA' $ADF8 073 8 REM LGOTO LGOT 5924 074 9 REM LGOSUB LGOSU 5870 075 10 REM SGOTO SGOT 5920 076 11 REM SGOSUB SGOSU 5866 077 12 : 13 REM ================================ 14 : 120 .BYTE $4C,$AE: .ASC "LGOT[207]LGOSU[194]" 121 .ASC "SGOT[207]SGOSU[194]" 1120 .WORD $A8F7,L(null)T-1,L(null)SU-1 1121 .WORD S(null)T-1,S(null)SU-1 5866 S(null)SU SEC 5868 .BYTE $24 5870 L(null)SU CLC 5872 ROR T6 5874 LDA #$FF 5876 STA T5 5878 LDA #3 5880 JSR $A3FB 5882 LDA $7B 5884 PHA 5886 LDA $7A 5888 PHA 5890 BIT T6 5892 BPL L(null)S1 5894 JSR SGSTR 5896 L(null)S1 LDA $3A 5898 PHA 5900 LDA $39 5902 PHA 5904 LDA #$8D 5906 PHA 5908 JSR $79 5910 DEY 5912 DEY 5914 JSR L(null)T1 5916 JMP $A7AE 5918 ; 5920 S(null)T SEC 5922 .BYTE $24 5924 L(null)T CLC 5926 ROR T6 5928 LDA #$FF 5930 STA T5 5932 BIT T6 5934 BPL L(null)T1 5936 JSR SGSTR 5938 L(null)T1 DEY 5940 DEY 5942 TYA 5944 LSR 5946 ORA #$40 5948 STA T4 5950 CMP #$5D 5952 BCC L(null)T2 5954 INC T4 5956 L(null)T2 LDA $7A 5958 STA T2 5960 LDA $7B 5962 STA T3 5964 LDA $2B 5966 LDX $2C 5968 LDY #1 5970 L(null)T3 STA $5F 5972 STX $60 5974 LDA ($5F),Y 5976 BEQ L(null)T10 5978 LDY #4 5980 LDA ($5F),Y 5982 CMP #$5F 5984 BNE L(null)T9 5986 INY 5988 LDA ($5F),Y 5990 CMP T4 5992 BNE L(null)T9 5994 L(null)T4 INY 5996 LDA ($5F),Y 5998 CMP #$20 6000 BEQ L(null)T4 6002 LDX T5 6004 JSR $79 6006 L(null)T5 CMP ($5F),Y 6008 BNE L(null)T9 6010 INY 6012 DEX 6014 BEQ L(null)T6 6016 JSR $73 6018 BNE L(null)T5 6020 L(null)T6 LDA ($5F),Y 6022 BEQ L(null)T7 6024 INY 6026 CMP #$20 6028 BEQ L(null)T6 6030 DEY 6032 CMP #":" 6034 BNE L(null)T9 6036 L(null)T7 LDY #2: LDA ($5F),Y: STA $39 6037 INY: LDA ($5F),Y: STA $3A: LDA $5F 6038 LDX $60 6040 CLC 6042 ADC #4 6044 BCC L(null)T8 6046 INX 6048 L(null)T8 STA $7A 6050 STX $7B 6052 JMP $A8F8 6054 L(null)T9 LDA T2 6056 STA $7A 6058 LDA T3 6060 STA $7B 6062 LDY #1 6064 LDA ($5F),Y 6066 TAX 6068 DEY 6070 LDA ($5F),Y 6072 INY 6074 BNE L(null)T3 6076 L(null)T10 BIT T6 6078 BPL L(null)T11 6080 CLC 6082 ROR T6 6084 LDA #TRPSTR 6088 STA $7A 6090 STY $7B 6092 LDY #6 6094 STY T5 6096 JMP L(null)T2 6098 L(null)T11 JMP $A8E3 6100 TRPSTR .ASC "DFAULT" 6102 SGSTR STY $14 6104 JSR $AD9E 6106 JSR $B6A3 6108 STA T5 6110 STX $7A 6112 STY $7B 6114 LDY $14 6116 DEY 6118 DEY 6120 DEY 6122 DEY 6124 SEC 6126 ROR T6 6128 RTS 6130 ;