Permalink
Cannot retrieve contributors at this time
Join GitHub today
GitHub is home to over 28 million developers working together to host and review code, manage projects, and build software together.
Sign up
Fetching contributors…
Cannot retrieve contributors at this time
| OFFSET FCB 0 | |
| X1 FDB 0 | |
| Y1 FDB 0 | |
| X2 FDB 80 | |
| Y2 FDB 90 | |
| CLEAR FCB 0 | |
| BACKGROUND FCB 0 | |
| INCL SPROUT | |
| SHPOINT | |
| TST CLEAR | |
| LBEQ HPOINT | |
| PSHS X,Y | |
| JSR HPOINT | |
| CMPA BACKGROUND | |
| BNE R@ | |
| CMPX #0 | |
| BEQ R@ | |
| LEAX -1,X | |
| JSR HPOINT | |
| R@ PULS X,Y,PC | |
| HBYTE PSHS X,Y | |
| JSR SHPOINT | |
| LEAX +1,X | |
| LSLA | |
| LSLA | |
| LSLA | |
| LSLA | |
| PSHS A | |
| JSR SHPOINT | |
| ORA ,S+ | |
| PULS X,Y,PC | |
| PC SET 8 | |
| YY2 SET PC+9 | |
| XX2 SET PC+7 | |
| YY1 SET PC+5 | |
| XX1 SET PC+3 | |
| BACK SET PC+2 | |
| HX SET 0 | |
| LX SET 2 | |
| HY SET 4 | |
| LY SET 6 | |
| FINDCORDINATES | |
| LEAS -PC,S | |
| LDX #0 | |
| STX HX,S | |
| STX HY,S | |
| LDX #$FFFF | |
| STX LX,S | |
| STX LY,S | |
| LDY [YY1,S] | |
| A@ LDX [XX1,S] | |
| B@ JSR SHPOINT | |
| CMPA BACK,S | |
| BEQ C@ | |
| CMPX LX,S | |
| BHI D@ | |
| STX LX,S | |
| D@ CMPX HX,S | |
| BLO E@ | |
| STX HX,S | |
| E@ CMPY LY,S | |
| BHI F@ | |
| STY LY,S | |
| F@ CMPY HY,S | |
| BLO C@ | |
| STY HY,S | |
| C@ LEAX +1,X | |
| CMPX [XX2,S] | |
| BLS B@ | |
| LEAY +1,Y | |
| CMPY [YY2,S] | |
| BLS A@ | |
| LDX LX,S | |
| STX [XX1,S] | |
| LDX LY,S | |
| STX [YY1,S] | |
| LDX HX,S | |
| STX [XX2,S] | |
| LDX HY,S | |
| STX [YY2,S] | |
| LEAS PC,S | |
| RTS | |
| PC SET 8 | |
| YY2 SET PC+11 | |
| XX2 SET PC+9 | |
| YY1 SET PC+7 | |
| XX1 SET PC+5 | |
| BACK SET PC+4 | |
| LIST SET PC+2 | |
| CX SET 0 | |
| CY SET 2 | |
| COUNT SET 4 | |
| LAST SET 6 | |
| MAKELIST | |
| LEAS -PC,S | |
| LDY YY1,S | |
| A@ LDX XX1,S | |
| G@ JSR HBYTE | |
| CMPA BACK,S | |
| BEQ N@ | |
| LDD #0 | |
| STD COUNT,S | |
| LDU LIST,S | |
| STU LAST,S | |
| LEAU 2,U *END OF LIST | |
| TFR X,D | |
| SUBD XX1,S | |
| LSRA | |
| RORB | |
| STD ,U++ | |
| TFR Y,D | |
| SUBD YY1,S | |
| STD ,U++ | |
| LEAU 2,U *COUNT | |
| JSR HBYTE | |
| B@ STA ,U+ | |
| LEAX +2,X | |
| JSR HBYTE | |
| INC COUNT+1,S | |
| BNE C@ | |
| INC COUNT,S | |
| C@ CMPA BACK,S | |
| BNE B@ | |
| STU LIST,S | |
| STU [LAST,S] | |
| LDU LAST,S | |
| LDD COUNT,S | |
| STD +6,U | |
| N@ LEAX +2,X | |
| CMPX XX2,S | |
| BLS G@ | |
| LEAY +1,Y | |
| CMPY YY2,S | |
| BLS A@ | |
| LDU LIST,S | |
| LDD #0 | |
| STD ,U | |
| LDD LIST,S | |
| ADDD #2 | |
| LEAS PC,S | |
| RTS | |
| PC SET 2 | |
| LENGTH SET PC+6 | |
| LINE SET PC+4 | |
| WORD SET PC+2 | |
| COUNT SET 0 | |
| COUNT.WORDS.IN.LINE | |
| LEAS -PC,S | |
| LDD #0 | |
| STD COUNT,S | |
| LDD LENGTH,S | |
| BITB #1 | |
| BEQ EVEN@ | |
| LDU LENGTH,S | |
| LEAU -1,U *U IS EVEN | |
| LDX LINE,S | |
| LEAX +1,X *X ^ NEXT | |
| LDD WORD,S | |
| PSHS U,X,D | |
| BSR COUNT.WORDS.IN.LINE | |
| LEAS +6,S | |
| STD COUNT,S | |
| EVEN@ LDU LINE,S | |
| LDX WORD,S | |
| LDD LENGTH,S | |
| LSRA | |
| RORB *D=D/2 | |
| TFR D,Y | |
| LDD #0 | |
| CMPY #0 | |
| BEQ O@ | |
| A@ CMPX ,U++ | |
| BNE B@ | |
| ADDD #1 | |
| B@ LEAY -1,Y | |
| BNE A@ | |
| O@ ADDD COUNT,S | |
| LEAS PC,S | |
| RTS | |
| PC SET 2 | |
| WORD SET PC+2 | |
| LIST SET PC+4 | |
| COUNT SET 0 | |
| COUNT.WORDS.IN.LIST | |
| LEAS -PC,S | |
| LDD #0 | |
| STD COUNT,S | |
| LDX LIST,S | |
| A@ LDU +6,X | |
| LEAX +8,X *X ^ LINE | |
| LDD WORD,S | |
| PSHS U,X,D | |
| JSR COUNT.WORDS.IN.LINE | |
| LEAS +6,S | |
| ADDD COUNT,S | |
| STD COUNT,S | |
| LDX [LIST,S] | |
| STX LIST,S | |
| LDU ,X | |
| BNE A@ | |
| LEAS PC,S | |
| RTS | |
| PC SET 6 | |
| LIST SET PC+2 | |
| LINE SET PC+4 | |
| SPLIT.NUM SET PC+6 | |
| COUNT SET 0 | |
| WORD SET 2 | |
| LENGTH SET 4 | |
| COUNT.SPLIT | |
| LEAS -PC,S | |
| LDD #0 | |
| STD COUNT,S | |
| LDU LINE,S | |
| LDD +6,U | |
| LSRA | |
| RORB | |
| STD LENGTH,S | |
| BEQ Z@ | |
| LEAU +8,U *U ^ DATA | |
| STU LINE,S | |
| A@ LDX LINE,S | |
| LDD SPLIT.NUM,S | |
| BNE B@ | |
| LEAX +1,X | |
| B@ SUBD #1 | |
| STD SPLIT.NUM,S | |
| LDD ,X++ | |
| STX LINE,S | |
| LDX LIST,S | |
| PSHS X,D | |
| JSR COUNT.WORDS.IN.LIST | |
| LEAS +4,S | |
| ADDD COUNT,S | |
| STD COUNT,S | |
| LDD LENGTH,S | |
| SUBD #1 | |
| STD LENGTH,S | |
| BNE A@ | |
| Z@ LDD COUNT,S | |
| LEAS PC,S | |
| RTS | |
| PC SET 8 | |
| LIST SET PC+2 | |
| LINE SET PC+4 | |
| SPLIT.NUM SET 0 | |
| HOLD SET 2 | |
| BEST.SPLT SET 4 | |
| BEST.NUM SET 6 | |
| BEST.SPLIT | |
| LEAS -PC,S | |
| LDD #0 | |
| STD BEST.SPLT,S | |
| STD BEST.NUM,S | |
| LDU LINE,S | |
| LDD +6,U *LENGTH | |
| LSRA | |
| RORB | |
| SUBD #0 | |
| BEQ Z@ | |
| A@ STD SPLIT.NUM,S | |
| LDD LIST,S | |
| LDX LINE,S | |
| LDU SPLIT.NUM,S | |
| PSHS D,X,U | |
| JSR COUNT.SPLIT | |
| LEAS +6,S *D=HOLD | |
| CMPD BEST.NUM,S | |
| BLS B@ | |
| STD BEST.NUM,S | |
| LDX SPLIT.NUM,S | |
| STX BEST.SPLT,S | |
| B@ LDD SPLIT.NUM,S | |
| SUBD #1 | |
| BHS A@ | |
| Z@ LDD BEST.SPLT,S | |
| LEAS PC,S | |
| RTS | |
| PC SET 4 | |
| LINE SET PC+2 | |
| SPLITAT SET PC+4 | |
| MALLOC SET PC+6 | |
| LENGTH SET 0 | |
| SPLIT.LINE | |
| LEAS -PC,S | |
| LDD SPLITAT,S | |
| LDU LINE,S | |
| CMPD +6,U | |
| BLS X@ | |
| LDD +6,U | |
| STD SPLITAT,S | |
| X@ LDX +6,U *X = LENGTH | |
| STX LENGTH,S | |
| STD +6,U *NEW LENGTH | |
| LDX MALLOC,S | |
| LDD ,U | |
| STD ,X | |
| STX ,U | |
| LDY +2,U *X | |
| LDD SPLITAT,S *NEW X | |
| LEAY D,Y | |
| STY +2,X | |
| LDD +4,U | |
| STD +4,X | |
| LDD LENGTH,S | |
| SUBD SPLITAT,S | |
| STD +6,X | |
| TFR D,Y | |
| LEAX +8,X | |
| LEAU +8,U | |
| LDD SPLITAT,S | |
| LEAU D,U | |
| CMPY #0 | |
| BEQ Z@ | |
| A@ LDA ,U+ | |
| STA ,X+ | |
| LEAY -1,Y | |
| BNE A@ | |
| Z@ TFR X,D | |
| LEAS PC,S | |
| RTS | |
| PC SET 8 | |
| LIST SET PC+2 | |
| MALLOC SET PC+4 | |
| SPLITAT SET 0 | |
| LINE SET 2 | |
| SPLIT.LIST | |
| LEAS -PC,S | |
| LDD LIST,S | |
| STD LINE,S | |
| A@ LDU LINE,S | |
| LDD 6,U | |
| BITB #1 | |
| BEQ B@ | |
| CMPD #2 | |
| BLO B@ | |
| LDX LIST,S | |
| PSHS X,U | |
| JSR BEST.SPLIT | |
| LEAS +4,S | |
| LSLB | |
| ROLA | |
| LDU MALLOC,S | |
| TFR D,X | |
| LDD LINE,S | |
| PSHS X,D,U | |
| JSR SPLIT.LINE | |
| LEAS +6,S | |
| TFR D,U | |
| LDY #1 | |
| LDX LINE,S | |
| LDX ,X *X ^ NEXT PART | |
| STX LINE,S | |
| PSHS X,Y,U | |
| JSR SPLIT.LINE | |
| LEAS +6,S | |
| STD MALLOC,S | |
| B@ LDD MALLOC,S | |
| LDX LINE,S | |
| LDX ,X | |
| STX LINE,S | |
| LDX ,X | |
| BNE A@ | |
| LEAS PC,S | |
| RTS | |
| PC SET 0 | |
| LIST SET PC+2 | |
| MALLOC SET PC+4 | |
| BREAK.LIST | |
| LEAS -PC,S | |
| A@ LDX LIST,S | |
| LDD +6,X | |
| CMPD #2 | |
| BLS B@ | |
| LDY #2 | |
| LDU MALLOC,S | |
| PSHS X,Y,U | |
| JSR SPLIT.LINE | |
| LEAS +6,S | |
| STD MALLOC,S | |
| BRA A@ | |
| B@ LDX ,X | |
| STX LIST,S | |
| LDU ,X | |
| BNE A@ | |
| LEAS PC,S | |
| RTS | |
| EXEC LDU #Y2 | |
| LDX #X2 | |
| PSHS X,U | |
| LDU #Y1 | |
| LDX #X1 | |
| PSHS X,U | |
| LDA BACKGROUND | |
| ANDA #$0F | |
| PSHS A | |
| JSR FINDCORDINATES | |
| LEAS +9,S | |
| LDU Y2 | |
| LDX X2 | |
| PSHS X,U | |
| LDU Y1 | |
| LDX X1 | |
| LDA OFFSET | |
| BEQ A@ | |
| LEAX -1,X | |
| A@ PSHS X,U | |
| LDA BACKGROUND | |
| PSHS A | |
| LDX #MEMARRAY | |
| PSHS X | |
| JSR MAKELIST | |
| LEAS +11,S | |
| TST CLEAR | |
| BNE A@ | |
| TFR D,U | |
| LDX #MEMARRAY | |
| PSHS X,U | |
| JSR SPLIT.LIST | |
| LEAS 4,S | |
| A@ | |
| TFR D,U | |
| LDX #MEMARRAY | |
| PSHS U,X | |
| JSR BREAK.LIST | |
| LEAS +4,S | |
| LDD #MEMARRAY | |
| PSHS D | |
| LDA CLEAR | |
| BNE A@ | |
| JSR MAKE.CODE | |
| BRA B@ | |
| A@ JSR MAKE.ABX | |
| B@ LEAS +2,S | |
| RTS | |
| MEMARRAY | |
| END EXEC |