DATAFY
FILE INFORMATION
FILENAME(S): DATAFY
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:22
APPEARS ON: 1 disk(s)
FILE HASH
6b4bab73cbb1aadc65b06646e282f946287c4ac64582f3139450ddf95ec410fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK2 | DATAFY | PRG | DuncanTwain | 33 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 44 41 54 41 46 59 20 28 |..).... DATAFY (| 00000010: 53 54 45 56 45 20 48 41 4D 4D 45 52 20 33 2F 38 |STEVE HAMMER 3/8| 00000020: 36 29 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 |6) :./...:.| 00000030: 4E 08 02 00 8F 20 31 20 53 54 41 54 45 4D 45 4E |N.... 1 STATEMEN| 00000040: 54 2C 20 30 20 46 55 4E 43 54 49 4F 4E 53 00 54 |T, 0 FUNCTIONS.T| 00000050: 08 03 00 3A 00 70 08 04 00 8F 20 4B 45 59 57 4F |...:.p.... KEYWO| 00000060: 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 36 |RD CHARACTERS: 6| 00000070: 00 76 08 05 00 3A 00 9D 08 06 00 8F 20 4B 45 59 |.v...:...... KEY| 00000080: 57 4F 52 44 20 20 20 20 52 4F 55 54 49 4E 45 20 |WORD ROUTINE | 00000090: 20 20 4C 49 4E 45 20 20 53 45 52 20 23 00 C3 08 | LINE SER #...| 000000A0: 07 00 8F 20 44 41 54 41 46 59 20 20 20 20 20 44 |... DATAFY D| 000000B0: 41 46 59 20 20 20 20 20 20 31 35 33 30 36 20 20 |AFY 15306 | 000000C0: 32 30 35 00 C9 08 08 00 3A 00 F1 08 09 00 8F 20 |205.....:...... | 000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000F0: 3D 00 F7 08 0A 00 3A 00 0A 09 27 00 53 45 54 4C |=.....:...'.SETL| 00000100: 46 53 20 B2 20 24 46 46 42 41 00 1D 09 28 00 53 |FS . $FFBA...(.S| 00000110: 45 54 4E 41 4D 20 B2 20 24 46 46 42 44 00 2D 09 |ETNAM . $FFBD.-.| 00000120: 29 00 9F 20 20 20 B2 20 24 46 46 43 30 00 40 09 |).. . $FFC0.@.| 00000130: 2A 00 43 48 4B 49 4E 20 20 B2 20 24 46 46 43 36 |*.CHKIN . $FFC6| 00000140: 00 4F 09 2B 00 A0 20 20 B2 20 24 46 46 43 33 00 |.O.+.. . $FFC3.| 00000150: 60 09 2C 00 9C 43 48 4E 20 B2 20 24 46 46 43 43 |`.,..CHN . $FFCC| 00000160: 00 71 09 2D 00 A1 49 4E 20 20 B2 20 24 46 46 45 |.q.-..IN . $FFE| 00000170: 34 00 81 09 A5 00 2E C6 20 22 44 41 54 41 46 D9 |4....... "DATAF.| 00000180: 22 00 91 09 8D 04 2E 57 B0 44 20 44 41 46 59 AB |"......W.D DAFY.| 00000190: 31 00 A4 09 BE 23 45 52 52 50 47 4D 20 4C 44 58 |1....#ERRPGM LDX| 000001A0: 20 24 33 41 00 AC 09 C0 23 49 4E 58 00 B9 09 C2 | $3A....#INX....| 000001B0: 23 42 4E 45 20 45 50 47 31 00 C1 09 C4 23 52 54 |#BNE EPG1....#RT| 000001C0: 53 00 D4 09 C6 23 45 50 47 31 20 4A 4D 50 20 24 |S....#EPG1 JMP $| 000001D0: 41 46 30 38 00 DA 09 C8 23 3B 00 EE 09 CA 3B 44 |AF08....#;....;D| 000001E0: 41 46 59 20 4A 53 52 20 45 52 52 50 47 4D 00 FA |AFY JSR ERRPGM..| 000001F0: 09 CC 3B 4A 53 52 20 47 4E 31 00 08 0A CE 3B 53 |..;JSR GN1....;S| 00000200: 54 59 20 44 56 49 43 45 00 13 0A D0 3B 43 50 59 |TY DVICE....;CPY| 00000210: 20 23 38 00 20 0A D2 3B 42 43 43 20 44 41 46 31 | #8. ..;BCC DAF1| 00000220: 00 2D 0A D4 3B 43 50 59 20 23 24 30 43 00 3A 0A |.-..;CPY #$0C.:.| 00000230: D6 3B 42 43 43 20 44 41 46 32 00 4A 0A D8 3B 44 |.;BCC DAF2.J..;D| 00000240: 41 46 31 20 4C 44 58 20 23 39 00 58 0A DA 3B 4A |AF1 LDX #9.X..;J| 00000250: 4D 50 20 24 41 34 33 37 00 6A 0A DC 3B 44 41 46 |MP $A437.j..;DAF| 00000260: 32 20 4A 53 52 20 A1 4E 55 4D 00 75 0A DE 3B 53 |2 JSR .NUM.u..;S| 00000270: 54 59 20 4C 4E 00 82 0A E0 3B 53 54 41 20 4C 4E |TY LN....;STA LN| 00000280: AA 31 00 8F 0A E2 3B 4A 53 52 20 A1 4E 55 4D 00 |.1....;JSR .NUM.| 00000290: 97 0A E4 3B 54 59 41 00 A4 0A E6 3B 42 45 51 20 |...;TYA....;BEQ | 000002A0: 44 41 46 33 00 B1 0A E8 3B 53 54 59 20 49 4E 43 |DAF3....;STY INC| 000002B0: 52 00 BE 0A EA 3B 4A 53 52 20 A1 4E 55 4D 00 C6 |R....;JSR .NUM..| 000002C0: 0A EC 3B 54 59 41 00 D3 0A EE 3B 42 45 51 20 44 |..;TYA....;BEQ D| 000002D0: 41 46 33 00 E0 0A F0 3B 43 50 59 20 23 24 33 46 |AF3....;CPY #$3F| 000002E0: 00 ED 0A F2 3B 42 43 43 20 44 41 46 34 00 00 0B |....;BCC DAF4...| 000002F0: F4 3B 44 41 46 33 20 4A 4D 50 20 24 42 32 34 38 |.;DAF3 JMP $B248| 00000300: 00 13 0B F6 3B 44 41 46 34 20 53 54 59 20 4E 55 |....;DAF4 STY NU| 00000310: 4D 49 54 00 21 0B F8 3B 53 54 59 20 49 54 43 4E |MIT.!..;STY ITCN| 00000320: 54 00 2E 0B FA 3B 4C 44 41 20 23 24 37 39 00 3C |T....;LDA #$79.<| 00000330: 0B FC 3B 4C 44 58 20 44 56 49 43 45 00 47 0B FE |..;LDX DVICE.G..| 00000340: 3B 4C 44 59 20 23 30 00 56 0B 00 3C 4A 53 52 20 |;LDY #0.V..<JSR | 00000350: 53 45 54 4C 46 53 00 64 0B 02 3C 4A 53 52 20 24 |SETLFS.d..<JSR $| 00000360: 41 45 46 44 00 72 0B 04 3C 4A 53 52 20 24 41 44 |AEFD.r..<JSR $AD| 00000370: 39 45 00 80 0B 06 3C 4A 53 52 20 24 42 36 41 33 |9E....<JSR $B6A3| 00000380: 00 8F 0B 08 3C 4A 53 52 20 53 45 54 4E 41 4D 00 |....<JSR SETNAM.| 00000390: 99 0B 0A 3C 4A 53 52 20 9F 00 A6 0B 0C 3C 4C 44 |...<JSR .....<LD| 000003A0: 58 20 23 24 37 39 00 B4 0B 0E 3C 4A 53 52 20 43 |X #$79....<JSR C| 000003B0: 48 4B 49 4E 00 C0 0B 10 3C 4C 44 41 20 24 32 44 |HKIN....<LDA $2D| 000003C0: 00 CD 0B 12 3C 42 4E 45 20 44 41 46 35 00 D9 0B |....<BNE DAF5...| 000003D0: 14 3C 44 45 43 20 24 32 45 00 EA 0B 16 3C 44 41 |.<DEC $2E....<DA| 000003E0: 46 35 20 44 45 43 20 24 32 44 00 FA 0B 18 3C 44 |F5 DEC $2D....<D| 000003F0: 41 46 36 20 4C 44 41 20 23 31 00 09 0C 1A 3C 4A |AF6 LDA #1....<J| 00000400: 53 52 20 49 4E 43 53 4F 56 00 18 0C 1C 3C 4A 53 |SR INCSOV....<JS| 00000410: 52 20 57 52 54 4C 49 4E 00 2C 0C 1E 3C 44 41 46 |R WRTLIN.,..<DAF| 00000420: 37 20 4A 53 52 20 4D 41 4B 4E 55 4D 00 38 0C 20 |7 JSR MAKNUM.8. | 00000430: 3C 4C 44 41 20 24 39 30 00 45 0C 22 3C 42 4E 45 |<LDA $90.E."<BNE| 00000440: 20 44 41 46 39 00 53 0C 24 3C 44 45 43 20 49 54 | DAF9.S.$<DEC IT| 00000450: 43 4E 54 00 60 0C 26 3C 42 45 51 20 44 41 46 38 |CNT.`.&<BEQ DAF8| 00000460: 00 6D 0C 28 3C 4C 44 41 20 23 24 32 43 00 7C 0C |.m.(<LDA #$2C.|.| 00000470: 2A 3C 4A 53 52 20 49 4E 43 53 4F 56 00 89 0C 2C |*<JSR INCSOV...,| 00000480: 3C 42 4E 45 20 44 41 46 37 00 9C 0C 2E 3C 44 41 |<BNE DAF7....<DA| 00000490: 46 38 20 4C 44 41 20 4E 55 4D 49 54 00 AA 0C 30 |F8 LDA NUMIT...0| 000004A0: 3C 53 54 41 20 49 54 43 4E 54 00 B8 0C 32 3C 4A |<STA ITCNT...2<J| 000004B0: 53 52 20 49 4E 43 53 32 00 C5 0C 34 3C 42 4E 45 |SR INCS2...4<BNE| 000004C0: 20 44 41 46 36 00 D8 0C 36 3C 44 41 46 39 20 4A | DAF6...6<DAF9 J| 000004D0: 53 52 20 49 4E 43 53 32 00 E7 0C 38 3C 4A 53 52 |SR INCS2...8<JSR| 000004E0: 20 49 4E 43 53 4F 56 00 F4 0C 3A 3C 4A 53 52 20 | INCSOV...:<JSR | 000004F0: 9C 43 48 4E 00 01 0D 3C 3C 4C 44 41 20 23 24 37 |.CHN...<<LDA #$7| 00000500: 39 00 0B 0D 3E 3C 4A 53 52 20 A0 00 19 0D 40 3C |9...><JSR ....@<| 00000510: 4A 53 52 20 24 41 35 33 33 00 27 0D 42 3C 4A 4D |JSR $A533.'.B<JM| 00000520: 50 20 24 41 36 36 30 00 2D 0D 44 3C 3B 00 3E 0D |P $A660.-.D<;.>.| 00000530: 46 3C 49 4E 43 53 32 20 4C 44 41 20 23 30 00 4D |F<INCS2 LDA #0.M| 00000540: 0D 48 3C 4A 53 52 20 49 4E 43 53 4F 56 00 53 0D |.H<JSR INCSOV.S.| 00000550: 4A 3C 3B 00 65 0D 4C 3C 49 4E 43 53 4F 56 20 4C |J<;.e.L<INCSOV L| 00000560: 44 59 20 23 30 00 75 0D 4E 3C 53 54 41 20 28 24 |DY #0.u.N<STA ($| 00000570: 32 44 29 2C 59 00 81 0D 50 3C 49 4E 43 20 24 32 |2D),Y...P<INC $2| 00000580: 44 00 8E 0D 52 3C 42 4E 45 20 49 43 53 31 00 9A |D...R<BNE ICS1..| 00000590: 0D 54 3C 49 4E 43 20 24 32 45 00 A7 0D 56 3C 49 |.T<INC $2E...V<I| 000005A0: 43 53 31 20 52 54 53 00 AD 0D 58 3C 3B 00 BF 0D |CS1 RTS...X<;...| 000005B0: 5A 3C 57 52 54 4C 49 4E 20 4C 44 41 20 4C 4E 00 |Z<WRTLIN LDA LN.| 000005C0: CE 0D 5C 3C 4A 53 52 20 49 4E 43 53 4F 56 00 DB |..\<JSR INCSOV..| 000005D0: 0D 5E 3C 4C 44 41 20 4C 4E AA 31 00 EA 0D 60 3C |.^<LDA LN.1...`<| 000005E0: 4A 53 52 20 49 4E 43 53 4F 56 00 F7 0D 62 3C 4C |JSR INCSOV...b<L| 000005F0: 44 41 20 23 24 38 33 00 06 0E 64 3C 4A 53 52 20 |DA #$83...d<JSR | 00000600: 49 4E 43 53 4F 56 00 13 0E 66 3C 4C 44 41 20 23 |INCSOV...f<LDA #| 00000610: 24 32 30 00 22 0E 68 3C 4A 53 52 20 49 4E 43 53 |$20.".h<JSR INCS| 00000620: 4F 56 00 2A 0E 6A 3C 43 4C 43 00 37 0E 6C 3C 4C |OV.*.j<CLC.7.l<L| 00000630: 44 41 20 49 4E 43 52 00 42 0E 6E 3C 41 44 43 20 |DA INCR.B.n<ADC | 00000640: 4C 4E 00 4D 0E 70 3C 53 54 41 20 4C 4E 00 5A 0E |LN.M.p<STA LN.Z.| 00000650: 72 3C 42 43 43 20 57 52 4C 31 00 67 0E 74 3C 49 |r<BCC WRL1.g.t<I| 00000660: 4E 43 20 4C 4E AA 31 00 74 0E 76 3C 57 52 4C 31 |NC LN.1.t.v<WRL1| 00000670: 20 52 54 53 00 7A 0E 78 3C 3B 00 8D 0E 7A 3C 4D | RTS.z.x<;...z<M| 00000680: 41 4B 4E 55 4D 20 4A 53 52 20 A1 49 4E 00 95 0E |AKNUM JSR .IN...| 00000690: 7C 3C 54 41 59 00 A3 0E 7E 3C 4A 53 52 20 24 42 ||<TAY...~<JSR $B| 000006A0: 33 41 32 00 B1 0E 80 3C 4A 53 52 20 24 42 44 44 |3A2....<JSR $BDD| 000006B0: 44 00 BC 0E 82 3C 4C 44 58 20 23 31 00 D1 0E 84 |D....<LDX #1....| 000006C0: 3C 4D 4B 4E 31 20 4C 44 41 20 24 30 31 30 30 2C |<MKN1 LDA $0100,| 000006D0: 58 00 DE 0E 86 3C 42 45 51 20 57 52 4C 31 00 ED |X....<BEQ WRL1..| 000006E0: 0E 88 3C 4A 53 52 20 49 4E 43 53 4F 56 00 F5 0E |..<JSR INCSOV...| 000006F0: 8A 3C 49 4E 58 00 02 0F 8C 3C 42 4E 45 20 4D 4B |.<INX....<BNE MK| 00000700: 4E 31 00 08 0F 8E 3C 3B 00 1B 0F 90 3C A1 4E 55 |N1....<;....<.NU| 00000710: 4D 20 4A 53 52 20 24 41 45 46 44 00 2D 0F 92 3C |M JSR $AEFD.-..<| 00000720: 47 4E 31 20 4A 53 52 20 24 41 44 38 41 00 3B 0F |GN1 JSR $AD8A.;.| 00000730: 94 3C 4A 4D 50 20 24 42 37 46 37 00 41 0F 96 3C |.<JMP $B7F7.A..<| 00000740: 3B 00 53 0F 98 3C 4E 55 4D 49 54 20 2E 42 59 54 |;.S..<NUMIT .BYT| 00000750: 45 20 30 00 65 0F 9A 3C 49 54 43 4E 54 20 2E 42 |E 0.e..<ITCNT .B| 00000760: 59 54 45 20 30 00 77 0F 9C 3C 44 56 49 43 45 20 |YTE 0.w..<DVICE | 00000770: 2E 42 59 54 45 20 30 00 89 0F 9E 3C 49 4E 43 52 |.BYTE 0....<INCR| 00000780: 20 20 2E 42 59 54 45 20 30 00 9A 0F A0 3C 4C 4E | .BYTE 0....<LN| 00000790: 20 20 20 20 2E 57 B0 44 20 30 00 A0 0F A2 3C 3B | .W.D 0....<;| 000007A0: 00 00 00 |... |
..).... DATAFY (STEVE HAMMER 3/86) :./...:.N.... 1 STATEMENT, 0 FUNCTIONS.T ...:.P.... KEYWORD CHARACTERS: 6.V...:.. .... KEYWORD ROUTINE LINE SER #.C. ... DATAFY DAFY 15306 205.I... :...... ================================ =.....:...'.SETLFS . $FFBA...(.SETNAM . $FFBD.-.).. . $FFC0.@.*.CHKIN . $FFC6 .O.+. . $FFC3.`.,..CHN . $FFCC.Q.-..IN . $FFE4......F "DATAFY"......W.D DAFY. 1....#ERRPGM LDX $3A....#INX...B#BNE EPG 1.A.D#RTS.T.F#EPG1 JMP $AF08.Z.H#;...J;D AFY JSR ERRPGM...L;JSR GN1...N;STY DVICE ...P;CPY #8. .R;BCC DAF1.-.T;CPY #$0C.:. V;BCC DAF2.J.X;DAF1 LDX #9.X.Z;JMP $A437 .J..;DAF2 JSR .NUM.U..;STY LN....;STA LN .1....;JSR .NUM....;TYA....;BEQ DAF3.... ;STY INCR....;JSR .NUM.F..;TYA.S..;BEQ D AF3....;CPY #$3F....;BCC DAF4....;DAF3 J MP $B248....;DAF4 STY NUMIT.!..;STY ITCN T....;LDA #$79.<..;LDX DVICE.G..;LDY #0. V..<JSR SETLFS.D..<JSR $AEFD.R..<JSR $AD 9E....<JSR $B6A3....<JSR SETNAM....<JSR .....<LDX #$79....<JSR CHKIN....<LDA $2D .M..<BNE DAF5.Y..<DEC $2E....<DAF5 DEC $ 2D....<DAF6 LDA #1....<JSR INCSOV....<JS R WRTLIN.,..<DAF7 JSR MAKNUM.8. <LDA $90 .E."<BNE DAF9.S.$<DEC ITCNT.`.&<BEQ DAF8 .M.(<LDA #$2C.|.*<JSR INCSOV...,<BNE DAF 7....<DAF8 LDA NUMIT...0<STA ITCNT...2<J SR INCS2.E.4<BNE DAF6.X.6<DAF9 JSR INCS2 ...8<JSR INCSOV...:<JSR .CHN...<<LDA #$7 9...><JSR ...@<JSR $A533.'.B<JMP $A660. -.D<;.>.F<INCS2 LDA #0.M.H<JSR INCSOV.S. J<;.E.L<INCSOV LDY #0.U.N<STA ($2D),Y... P<INC $2D...R<BNE ICS1...T<INC $2E...V<I CS1 RTS...X<;...Z<WRTLIN LDA LN.N.\<JSR INCSOV...^<LDA LN.1...`<JSR INCSOV...B<L DA #$83...D<JSR INCSOV...F<LDA #$20.".H< JSR INCSOV.*.J<CLC.7.L<LDA INCR.B.N<ADC LN.M.P<STA LN.Z.R<BCC WRL1.G.T<INC LN.1. T.V<WRL1 RTS.Z.X<;...Z<MAKNUM JSR .IN... |<TAY...~<JSR $B3A2....<JSR $BDDD....<LD X #1.Q..<MKN1 LDA $0100,X....<BEQ WRL1.. ..<JSR INCSOV....<INX....<BNE MKN1....<; ....<.NUM JSR $AEFD.-..<GN1 JSR $AD8A.;. .<JMP $B7F7.A..<;.S..<NUMIT .BYTE 0.E..< ITCNT .BYTE 0.W..<DVICE .BYTE 0....<INCR .BYTE 0... <LN .W.D 0. ..<;...
> CLICK IMAGE PREVIEW FOR FULL MODAL