FilesExpand file tree

master

/

misc1.s

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

233 lines (227 loc) · 4.89 KB

master

/

misc1.s

Copy path

Top

File metadata and controls

• Code
• Blame

233 lines (227 loc) · 4.89 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

.segment "CODE"

; ----------------------------------------------------------------------------

; CONVERT LINE NUMBER

; ----------------------------------------------------------------------------

LINGET:

ldx #$00

stx LINNUM

stx LINNUM+1

L28BE:

bcs L28B7

sbc #$2F

sta CHARAC

lda LINNUM+1

sta INDEX

cmp #$19

bcs L28A0

; <<<<<DANGEROUS CODE>>>>>

; NOTE THAT IF (A) = $AB ON THE LINE ABOVE,

; ON.1 WILL COMPARE = AND CAUSE A CATASTROPHIC

; JUMP TO $22D9 (FOR GOTO), OR OTHER LOCATIONS

; FOR OTHER CALLS TO LINGET.

;

; YOU CAN SEE THIS IS YOU FIRST PUT "BRK" IN $22D9,

; THEN TYPE "GO TO 437761".

;

; ANY VALUE FROM 437760 THROUGH 440319 WILL CAUSE

; THE PROBLEM. ($AB00 - $ABFF)

; <<<<<DANGEROUS CODE>>>>>

lda LINNUM

asl a

rol INDEX

asl a

rol INDEX

adc LINNUM

sta LINNUM

lda INDEX

adc LINNUM+1

sta LINNUM+1

asl LINNUM

rol LINNUM+1

lda LINNUM

adc CHARAC

sta LINNUM

bcc L28EC

inc LINNUM+1

L28EC:

jsr CHRGET

jmp L28BE

; ----------------------------------------------------------------------------

; "LET" STATEMENT

;

; LET <VAR> = <EXP>

; <VAR> = <EXP>

; ----------------------------------------------------------------------------

LET:

jsr PTRGET

sta FORPNT

sty FORPNT+1

lda #TOKEN_EQUAL

jsr SYNCHR

.ifndef CONFIG_SMALL

lda VALTYP+1

pha

.endif

lda VALTYP

pha

jsr FRMEVL

pla

rol a

jsr CHKVAL

bne LETSTRING

.ifndef CONFIG_SMALL

pla

LET2:

bpl L2923

jsr ROUND_FAC

jsr AYINT

ldy #$00

lda FAC+3

sta (FORPNT),y

iny

lda FAC+4

sta (FORPNT),y

rts

L2923:

.endif

; ----------------------------------------------------------------------------

; REAL VARIABLE = EXPRESSION

; ----------------------------------------------------------------------------

jmp SETFOR

LETSTRING:

.ifndef CONFIG_SMALL

pla

.endif

; ----------------------------------------------------------------------------

; INSTALL STRING, DESCRIPTOR ADDRESS IS AT FAC+3,4

; ----------------------------------------------------------------------------

PUTSTR:

.ifdef CONFIG_CBM_ALL

ldy FORPNT+1

.ifdef CBM1

cpy #$D0 ; TI$

.else

cpy #$DE

.endif

bne LC92B

jsr FREFAC

cmp #$06

.ifdef CBM2

bne IQERR1

.else

jne IQERR

.endif

ldy #$00

sty FAC

sty FACSIGN

LC8E8:

sty STRNG2

jsr LC91C

jsr MUL10

inc STRNG2

ldy STRNG2

jsr LC91C

jsr COPY_FAC_TO_ARG_ROUNDED

tax

beq LC902

inx

txa

jsr LD9BF

LC902:

ldy STRNG2

iny

cpy #$06

bne LC8E8

jsr MUL10

jsr QINT

ldx #$02

sei

LC912:

lda FAC+2,x

sta TISTR,x

dex

bpl LC912

cli

rts

LC91C:

lda (INDEX),y

jsr CHRGOT2

bcc LC926

IQERR1:

jmp IQERR

LC926:

sbc #$2F

jmp ADDACC

LC92B:

.endif

ldy #$02

lda (FAC_LAST-1),y

cmp FRETOP+1

bcc L2946

bne L2938

dey

lda (FAC_LAST-1),y

cmp FRETOP

bcc L2946

L2938:

ldy FAC_LAST

cpy VARTAB+1

bcc L2946

bne L294D

lda FAC_LAST-1

cmp VARTAB

bcs L294D

L2946:

lda FAC_LAST-1

ldy FAC_LAST

jmp L2963

L294D:

ldy #$00

lda (FAC_LAST-1),y

jsr STRINI

lda DSCPTR

ldy DSCPTR+1

sta STRNG1

sty STRNG1+1

jsr MOVINS

lda #FAC

ldy #$00

L2963:

sta DSCPTR

sty DSCPTR+1

jsr FRETMS

ldy #$00

lda (DSCPTR),y

sta (FORPNT),y

iny

lda (DSCPTR),y

sta (FORPNT),y

iny

lda (DSCPTR),y

sta (FORPNT),y

RET5:

rts

.ifdef AIM65

LB89D:

cmp #$21

bne RET5

lda #$80

sta PRIFLG

jmp CHRGET

.endif

.ifdef CONFIG_FILE

PRINTH:

jsr CMD

jmp LCAD6

CMD:

jsr GETBYT

beq LC98F

lda #$2C

jsr SYNCHR

LC98F:

php

jsr CHKOUT

stx CURDVC

plp

jmp PRINT

.endif