1newstt jsr iscntc 2 lda txtptr 3 ldy txtptr+1 4 cpy #bufpag 5 beq dircon 6 sta oldtxt 7 sty oldtxt+1 8dircon ldy #0 9 lda (txtptr),y 10 bne morsts 11 ldy #2 12 lda (txtptr),y 13 clc 14 bne dircn1 15 jmp endcon 16dircn1 iny 17 lda (txtptr),y 18 sta curlin 19 iny 20 lda (txtptr),y 21 sta curlin+1 22 tya 23 adc txtptr 24 sta txtptr 25 bcc gone 26 inc txtptr+1 27gone jmp (igone) 28ngone jsr chrget 29ngone1 jsr gone3 30 jmp newstt 31gone3 beq iscrts 32gone2 33;************************************** 34; new statement execution 35;************************************** 36 cmp #$ce ; escape token 37 bne nesct2 38 jsr chrget 39 sbc #$80 40 bcc snerrx 41 cmp #num_esc_statements 42 bcs snerrx 43 asl a 44 tay 45 lda stmdsp2+1,y 46 pha 47 lda stmdsp2,y 48 jmp gone4 49nesct2: 50 sec 51;************************************** 52 sbc #endtk 53 bcc glet 54 cmp #scratk-endtk+1 55 bcs snerrx 56 asl a 57 tay 58 lda stmdsp+1,y 59 pha 60 lda stmdsp,y 61gone4 pha 62 jmp chrget 63glet jmp let 64morsts cmp #':' 65 beq gone 66snerr1 jmp snerr 67snerrx cmp #gotk-endtk 68 bne snerr1 69 jsr chrget 70 lda #totk 71 jsr synchr 72 jmp goto 73restor sec 74 lda txttab 75 sbc #1 76 ldy txttab+1 77 bcs resfin 78 dey 79resfin sta datptr 80 sty datptr+1 81iscrts rts 82iscntc jsr $ffe1 83cstop bcs stopc 84end clc 85stopc bne contrt 86 lda txtptr 87 ldy txtptr+1 88 ldx curlin+1 89 inx 90 beq diris 91 sta oldtxt 92 sty oldtxt+1 93stpend lda curlin 94 ldy curlin+1 95 sta oldlin 96 sty oldlin+1 97diris pla 98 pla 99endcon lda #<brktxt 100 ldy #>brktxt 101 bcc gordy 102 jmp errfin 103gordy jmp ready 104cont bne contrt 105 ldx #errcn 106 ldy oldtxt+1 107 bne *+5 108 jmp error 109 lda oldtxt 110 sta txtptr 111 sty txtptr+1 112 lda oldlin 113 ldy oldlin+1 114 sta curlin 115 sty curlin+1 116contrt rts 117run php 118 lda #0 ;no kernal messages 119 jsr setmsg 120 plp 121 bne *+5 122 jmp runc 123 jsr clearc 124 jmp runc2 125gosub lda #3 126 jsr getstk 127 lda txtptr+1 128 pha 129 lda txtptr 130 pha 131 lda curlin+1 132 pha 133 lda curlin 134 pha 135 lda #gosutk 136 pha 137runc2 jsr chrgot 138 jsr goto 139 jmp newstt 140goto jsr linget 141 jsr remn 142 sec 143 lda curlin 144 sbc linnum 145 lda curlin+1 146 sbc linnum+1 147 bcs luk4it 148 tya 149 sec 150 adc txtptr 151 ldx txtptr+1 152 bcc lukall 153 inx 154 bcs lukall 155luk4it lda txttab 156 ldx txttab+1 157lukall jsr fndlnc 158 bcc userr 159 lda lowtr 160 sbc #1 161 162