_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

Multiple names: COTTES, DIOF02

FILE INFORMATION

FILENAME(S):
• COTTES<br>• DIOF02

FILE TYPE(S): SEQ, DEL

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:11:47

APPEARS ON: 2 disk(s)

FILE HASH

46cb2b4010d9694a746db2a71d38247841068c00d445d989f3d0f30a7d2cd5da

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 ASSEMBLER COTTES SEQ DuncanTwain 28 0 DOWNLOAD FILE
C64 ASSEMBLER DIOF02 DEL DuncanTwain 28 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 20 20 20 20 20 20 20 20  20 2A 3D 34 39 39 32 30  |         *=49920|
00000010: 0D 20 20 20 20 20 20 4C  44 41 20 23 30 30 30 20  |.      LDA #000 |
00000020: 20 20 20 20 3B 56 4C 20  4E 45 45 52 2E 0D 20 20  |    ;VL NEER..  |
00000030: 20 20 20 20 53 54 41 20  20 32 35 31 20 20 20 20  |    STA  251    |
00000040: 20 3B 28 59 29 3D 49 20  49 4E 0D 20 20 20 20 20  | ;(Y)=I IN.     |
00000050: 20 4C 44 59 20 23 30 30  30 20 20 20 20 20 3B 49  | LDY #000     ;I|
00000060: 3D 30 2C 31 2C 2E 2E 2C  4C 2D 31 2E 0D 41 30 31  |=0,1,..,L-1..A01|
00000070: 20 20 20 4C 44 41 20 28  32 35 33 29 2C 59 20 20  |   LDA (253),Y  |
00000080: 3B 54 45 4B 45 4E 20 23  49 2E 0D 20 20 20 20 20  |;TEKEN #I..     |
00000090: 20 43 4D 50 20 23 30 33  38 20 20 20 20 20 3B 27  | CMP #038     ;'|
000000A0: 26 27 3F 0D 20 20 20 20  20 20 42 4E 45 20 20 41  |&'?.      BNE  A|
000000B0: 30 32 20 20 20 20 20 3B  4A 41 3A 20 56 4C 3D 31  |02     ;JA: VL=1|
000000C0: 20 45 4E 0D 20 20 20 20  20 20 49 4E 43 20 20 32  | EN.      INC  2|
000000D0: 35 31 20 20 20 20 20 3B  4E 41 41 52 20 48 2E 50  |51     ;NAAR H.P|
000000E0: 2E 0D 20 20 20 20 20 20  52 54 53 20 20 20 20 20  |..      RTS     |
000000F0: 20 20 20 20 20 3B 4E 45  45 3A 0D 41 30 32 20 20  |     ;NEE:.A02  |
00000100: 20 43 4D 50 20 23 30 34  38 20 20 20 20 20 3B 43  | CMP #048     ;C|
00000110: 49 4A 46 45 52 20 4F 46  20 48 45 58 2E 0D 20 20  |IJFER OF HEX..  |
00000120: 20 20 20 20 42 43 43 20  20 41 30 39 20 20 20 20  |    BCC  A09    |
00000130: 20 3B 4E 45 45 3A 4F 56  45 52 53 4C 41 41 4E 2E  | ;NEE:OVERSLAAN.|
00000140: 0D 20 20 20 20 20 20 43  4D 50 20 23 30 35 38 0D  |.      CMP #058.|
00000150: 20 20 20 20 20 20 42 43  43 20 20 41 30 35 0D 20  |      BCC  A05. |
00000160: 20 20 20 20 20 43 4D 50  20 23 30 36 35 0D 20 20  |     CMP #065.  |
00000170: 20 20 20 20 42 43 43 20  20 41 30 39 0D 20 20 20  |    BCC  A09.   |
00000180: 20 20 20 43 4D 50 20 23  30 37 31 0D 20 20 20 20  |   CMP #071.    |
00000190: 20 20 42 43 43 20 20 41  30 34 0D 20 20 20 20 20  |  BCC  A04.     |
000001A0: 20 42 43 53 20 20 41 30  39 0D 41 30 34 20 20 20  | BCS  A09.A04   |
000001B0: 53 45 43 20 20 20 20 20  20 20 20 20 20 3B 48 45  |SEC          ;HE|
000001C0: 58 3A 20 37 20 41 46 2E  0D 20 20 20 20 20 20 53  |X: 7 AF..      S|
000001D0: 42 43 20 23 30 30 37 0D  41 30 35 20 20 20 53 45  |BC #007.A05   SE|
000001E0: 43 20 20 20 20 20 20 20  20 20 20 3B 44 41 41 52  |C          ;DAAR|
000001F0: 4E 41 20 34 38 20 41 46  2E 0D 20 20 20 20 20 20  |NA 48 AF..      |
00000200: 53 42 43 20 23 30 34 38  20 20 20 20 20 3B 42 49  |SBC #048     ;BI|
00000210: 4E 41 49 52 20 49 4E 20  41 2E 0D 20 20 20 20 20  |NAIR IN A..     |
00000220: 20 4C 44 58 20 20 32 35  30 20 20 20 20 20 3B 56  | LDX  250     ;V|
00000230: 4C 41 47 20 56 20 4E 45  45 52 3A 0D 20 20 20 20  |LAG V NEER:.    |
00000240: 20 20 42 4E 45 20 20 41  30 37 20 20 20 20 20 3B  |  BNE  A07     ;|
00000250: 53 43 48 55 49 46 20 28  41 29 0D 20 20 20 20 20  |SCHUIF (A).     |
00000260: 20 43 4C 43 20 20 20 20  20 20 20 20 20 20 3B 34  | CLC          ;4|
00000270: 20 4E 41 41 52 20 4C 49  4E 4B 53 2E 0D 20 20 20  | NAAR LINKS..   |
00000280: 20 20 20 2E 42 59 54 45  20 30 34 32 0D 20 20 20  |   .BYTE 042.   |
00000290: 20 20 20 2E 42 59 54 45  20 30 34 32 0D 20 20 20  |   .BYTE 042.   |
000002A0: 20 20 20 2E 42 59 54 45  20 30 34 32 0D 20 20 20  |   .BYTE 042.   |
000002B0: 20 20 20 2E 42 59 54 45  20 30 34 32 0D 20 20 20  |   .BYTE 042.   |
000002C0: 20 20 20 53 54 41 20 20  30 30 32 20 20 20 20 20  |   STA  002     |
000002D0: 3B 45 56 45 4E 20 49 4E  20 30 30 32 2E 0D 20 20  |;EVEN IN 002..  |
000002E0: 20 20 20 20 49 4E 43 20  20 32 35 30 20 20 20 20  |    INC  250    |
000002F0: 20 3B 56 4C 41 47 20 56  20 4F 50 2E 0D 20 20 20  | ;VLAG V OP..   |
00000300: 20 20 20 43 4C 43 20 20  20 20 20 20 20 20 20 20  |   CLC          |
00000310: 3B 56 4F 4C 47 45 4E 44  0D 20 20 20 20 20 20 42  |;VOLGEND.      B|
00000320: 43 43 20 20 41 30 39 20  20 20 20 20 3B 54 45 4B  |CC  A09     ;TEK|
00000330: 45 4E 2E 0D 41 30 37 20  20 20 4F 52 41 20 20 30  |EN..A07   ORA  0|
00000340: 30 32 20 20 20 20 20 3B  56 4C 41 47 20 56 20 4F  |02     ;VLAG V O|
00000350: 50 3A 0D 20 20 20 20 20  20 4C 44 58 20 23 30 30  |P:.      LDX #00|
00000360: 30 20 20 20 20 20 3B 28  41 29 20 4F 52 20 28 32  |0     ;(A) OR (2|
00000370: 29 2E 0D 20 20 20 20 20  20 53 54 58 20 20 32 35  |)..      STX  25|
00000380: 30 20 20 20 20 20 3B 56  4C 41 47 20 56 20 4E 45  |0     ;VLAG V NE|
00000390: 45 52 2E 0D 20 20 20 20  20 20 4A 53 52 20 20 36  |ER..      JSR  6|
000003A0: 35 34 39 30 20 20 20 3B  28 41 29 20 4F 55 54 50  |5490   ;(A) OUTP|
000003B0: 55 54 2E 0D 20 20 20 20  20 20 4C 44 41 20 20 31  |UT..      LDA  1|
000003C0: 34 34 20 20 20 20 20 3B  53 54 41 54 55 53 2E 0D  |44     ;STATUS..|
000003D0: 20 20 20 20 20 20 42 45  51 20 20 41 30 39 20 20  |      BEQ  A09  |
000003E0: 20 20 20 3B 4E 55 4C 3A  56 4F 4C 47 45 4E 44 0D  |   ;NUL:VOLGEND.|
000003F0: 20 20 20 20 20 20 4C 44  41 20 23 30 30 32 20 20  |      LDA #002  |
00000400: 20 20 20 3B 54 45 4B 45  4E 2E 0D 20 20 20 20 20  |   ;TEKEN..     |
00000410: 20 53 54 41 20 20 32 35  31 20 20 20 20 20 3B 41  | STA  251     ;A|
00000420: 4E 44 45 52 53 20 56 4C  3D 32 0D 20 20 20 20 20  |NDERS VL=2.     |
00000430: 20 52 54 53 20 20 20 20  20 20 20 20 20 20 3B 45  | RTS          ;E|
00000440: 4E 20 4E 41 41 52 20 48  2E 50 2E 0D 41 30 39 FF  |N NAAR H.P..A09.|
00000450: FF FF FF 75 FF FF FF FF  FF FF FF FF FF FF FF 8D  |...u............|
00000460: 7B FF FF 71 FF 75 FF FF  FF FF 7C FF 75 85 FF FF  |{..q.u....|.u...|
00000470: FF FF FF FF FF FF 7F FF  FF FF 89 87 99 FF FF FF  |................|
00000480: FF FF 8D FF FF 9C 1C 4C  45 4E 47 54 45 3F 0D 20  |.......LENGTE?. |
00000490: 20 20 20 20 20 42 43 43  20 20 41 30 31 20 20 20  |     BCC  A01   |
000004A0: 20 20 3B 4A 41 3A 4F 50  48 41 4C 45 4E 2E 0D 20  |  ;JA:OPHALEN.. |
000004B0: 20 20 20 20 20 52 54 53  20 20 20 20 20 20 20 20  |     RTS        |
000004C0: 20 20 3B 4E 45 45 3A 4E  41 41 52 20 48 2E 50 2E  |  ;NEE:NAAR H.P.|
000004D0: 0D 20 20 20 20 20 20 4E  4F 50 0D 20 20 20 20 20  |.      NOP.     |
000004E0: 20 2E 45 4E 44 0D                                 | .END.          |
         *=49920.      LDA #000     ;VL 
NEER..      STA  251     ;(Y)=I IN.     
 LDY #000     ;I=0,1,..,L-1..A01   LDA (
253),Y  ;TEKEN #I..      CMP #038     ;'
&'?.      BNE  A02     ;JA: VL=1 EN.    
  INC  251     ;NAAR H.P..      RTS     
     ;NEE:.A02   CMP #048     ;CIJFER OF
 HEX..      BCC  A09     ;NEE:OVERSLAAN.
.      CMP #058.      BCC  A05.      CMP
 #065.      BCC  A09.      CMP #071.    
  BCC  A04.      BCS  A09.A04   SEC     
     ;HEX: 7 AF..      SBC #007.A05   SE
C          ;DAARNA 48 AF..      SBC #048
     ;BINAIR IN A..      LDX  250     ;V
LAG V NEER:.      BNE  A07     ;SCHUIF (
A).      CLC          ;4 NAAR LINKS..   
   .BYTE 042.      .BYTE 042.      .BYTE
 042.      .BYTE 042.      STA  002     
;EVEN IN 002..      INC  250     ;VLAG V
 OP..      CLC          ;VOLGEND.      B
CC  A09     ;TEKEN..A07   ORA  002     ;
VLAG V OP:.      LDX #000     ;(A) OR (2
)..      STX  250     ;VLAG V NEER..    
  JSR  65490   ;(A) OUTPUT..      LDA  1
44     ;STATUS..      BEQ  A09     ;NUL:
VOLGEND.      LDA #002     ;TEKEN..     
 STA  251     ;ANDERS VL=2.      RTS    
      ;EN NAAR H.P..A09....U............
{..Q.U....|.U.........................L
ENGTE?.      BCC  A01     ;JA:OPHALEN.. 
     RTS          ;NEE:NAAR H.P..      N
OP.      .END.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL