DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦c7fa4ce7d⟧ TextFile

    Length: 4746 (0x128a)
    Types: TextFile
    Names: »CLOCK.A.P«

Derivation

└─⟦b21be6f3b⟧ Bits:30005082 8" CR80 Floppy CR80FD_0036 ( CR/D/3143 KLP & KMO C-KURSUS + C JOBFILER 861127 Volume MOVEFL RAM TEST css/709 #0000-7fff V24+SCM )
    └─⟦95f1eafb2⟧ 
        └─ ⟦this⟧ »GR1.D!CLOCK.D!CLOCK.A.P« 

TextFile

00.00001 0 0023 	SUBMODULE	CLOCK
00.00002 0 0000 	USE	BASE
00.00003 0 0000 	USE	PROG
00.00004 1 0000 	IMPORT	_knwait_event
00.00005 1 0000 	IMPORT	_knread_rtc
00.00006 1 0000 	IMPORT	_knsend_answer
00.00007 1 0000 	IMPORT	_putch
00.00008 1 0000 	IMPORT	_putfmt
00.00009 1 0000 	EXPORT	_main
00.00010 1 0000 	USE	BASE
00.00011 0 0000 	IMPORT	_STDERR
00.00012 0 0000 	IMPORT	_STDIN
00.00013 0 0000 	IMPORT	_STDOUT
00.00014 0 0000 	USE	PROG
00.00015 1 0000 	IMPORT	a_switch
00.00016 1 0000 	USE	PROG
00.00017 1 0000 L7:
00.00018 1 0000 	DC	L72
00.00019 1 0001 	DC	8
00.00020 1 0002 	DC	L51
00.00021 1 0003 	DC	1
00.00022 1 0004 	DC	L31
00.00023 1 0005 	DC	0
00.00024 1 0006 	DC	0
00.00025 1 0007 	DC	L11
00.00026 1 0008 	USE	BASE
00.00027 0 0000 L13:
00.00028 0 0000 	DC	37,43,48,50,105,45,37,43
00.00029 0 0008 	DC	48,50,105,45,37,43,48,50
00.00030 0 0010 	DC	105,32,37,43,48,50,105,58
00.00031 0 0018 	DC	37,43,48,50,105,58,37,43
00.00032 0 0020 	DC	48,50,105,0
00.00033 0 0024 L1:
00.00034 0 0024 	DC	27,91,50,74,27,91,49,50
00.00035 0 002C 	DC	59,51,50,72,0
00.00036 0 0031 	USE	PROG
00.00037 1 0008 _main:
00.00038 1 0008 	ent
00.00045 1 000E 	addc	-14	r5
00.00046 1 000F 	mov	r1	1.x5
00.00047 1 0010 	movc	L1	r7
00.00048 1 0012 	mov	r7	x5
00.00049 1 0013 	jmp	s4	_putfmt
00.00050 1 0015 	pushbc	-1	x5
00.00054 1 0017 	jmp	s4	_putch
00.00055 1 0019 	addc	1	r5
00.00056 1 001A L3:	;line	13,	words	8
00.00057 1 001A 	addc	-1	r5
00.00058 1 001B 	movc	-1	x5
00.00059 1 001C 	add	r6	x5
00.00060 1 001D 	pushbc	10	x5
00.00064 1 001F 	addc	-1	r5
00.00065 1 0020 	movc	-7	x5
00.00066 1 0021 	add	r6	x5
00.00067 1 0022 	pushbc	259	x5
00.00071 1 0025 	jmp	s4	_knwait_event
00.00072 1 0027 	addc	4	r5
00.00073 1 0028 	mov	r7	-2.x6
00.00074 1 002A 	mov	-2.x6	r7
00.00075 1 002C 	movc	L7	r4
00.00076 1 002E 	jmp		a_switch
00.00077 1 0030 L31:	;line	18,	words	18
00.00078 1 0030 	movc	1	r7
00.00079 1 0031 	mov	1.x5	r1
00.00080 1 0032 	leave
00.00086 1 0036 L51:	;line	19,	words	24
00.00087 1 0036 	clr		-11.x6
00.00088 1 0038 L71:	;line	20,	words	26
00.00089 1 0038 	mov	r6	r4
00.00090 1 0039 	addc	-11	r4
00.00091 1 003A 	ige	x4	5
00.00092 1 003B 	jmp		L12
00.00093 1 003C 	movc	-7	r7
00.00094 1 003D 	add	r6	r7
00.00095 1 003E 	add	-11.x6	r7
00.00096 1 0040 	movc	-7	r1
00.00097 1 0041 	add	r6	r1
00.00098 1 0042 	add	-11.x6	r1
00.00099 1 0044 	mov	x1	r1
00.00100 1 0045 	add	r1	x7
00.00101 1 0046 	inc		-11.x6
00.00102 1 0048 	jmp		L71
00.00103 1 0049 L12:	;line	21,	words	36
00.00104 1 0049 	mov	-1.x6	r4
00.00105 1 004B 	mov	r4	x5
00.00106 1 004C 	addc	-1	r5
00.00107 1 004D 	movc	-7	x5
00.00108 1 004E 	add	r6	x5
00.00109 1 004F 	jmp	s4	_knsend_answer
00.00110 1 0051 	addc	1	r5
00.00111 1 0052 	pushbc	7	x5
00.00115 1 0054 	jmp	s4	_putch
00.00116 1 0056 	addc	1	r5
00.00117 1 0057 L72:	;line	24,	words	40
00.00118 1 0057 	addc	-1	r5
00.00119 1 0058 	movc	-10	x5
00.00120 1 0059 	add	r6	x5
00.00121 1 005A 	jmp	s4	_knread_rtc
00.00122 1 005C 	addc	1	r5
00.00123 1 005D 	movc	255	r7
00.00124 1 005E 	mov	-10.x6	r1
00.00125 1 0060 	and	r1	r7
00.00126 1 0061 	mov	r7	x5
00.00127 1 0062 	addc	-1	r5
00.00128 1 0063 	mov	-10.x6	r4
00.00129 1 0065 	mov	r4	x5
00.00130 1 0066 	srl	x5	8
00.00131 1 0067 	movc	255	r7
00.00132 1 0068 	mov	-9.x6	r1
00.00133 1 006A 	and	r1	r7
00.00134 1 006B 	addc	-1	r5
00.00135 1 006C 	mov	r7	x5
00.00136 1 006D 	addc	-1	r5
00.00137 1 006E 	mov	-9.x6	r4
00.00138 1 0070 	mov	r4	x5
00.00139 1 0071 	srl	x5	8
00.00140 1 0072 	movc	255	r7
00.00141 1 0073 	mov	-8.x6	r1
00.00142 1 0075 	and	r1	r7
00.00143 1 0076 	addc	-1	r5
00.00144 1 0077 	mov	r7	x5
00.00145 1 0078 	addc	-1	r5
00.00146 1 0079 	mov	-8.x6	r4
00.00147 1 007B 	mov	r4	x5
00.00148 1 007C 	srl	x5	8
00.00149 1 007D 	movc	L13	r7
00.00150 1 007F 	addc	-1	r5
00.00151 1 0080 	mov	r7	x5
00.00152 1 0081 	jmp	s4	_putfmt
00.00153 1 0083 	addc	6	r5
00.00154 1 0084 	clr		-11.x6
00.00155 1 0086 L33:	;line	34,	words	46
00.00156 1 0086 	mov	r6	r4
00.00157 1 0087 	addc	-11	r4
00.00158 1 0088 	ige	x4	17
00.00159 1 008A 	jmp		L53
00.00160 1 008B 	pushbc	8	x5
00.00164 1 008D 	jmp	s4	_putch
00.00165 1 008F 	addc	1	r5
00.00166 1 0090 	inc		-11.x6
00.00167 1 0092 	jmp		L33
00.00168 1 0093 L53:	;line	35,	words	56
00.00169 1 0093 	movc	255	r7
00.00170 1 0094 	mov	-10.x6	r1
00.00171 1 0096 	and	r1	r7
00.00172 1 0097 	ine	r7	0
00.00173 1 0098 	jmp		L34
00.00174 1 0099 	pushbc	7	x5
00.00178 1 009B 	jmp	s4	_putch
00.00179 1 009D 	addc	1	r5
00.00180 1 009E L34:	;line	38,	words	62
00.00181 1 009E 	pushbc	-1	x5
00.00185 1 00A0 	jmp	s4	_putch
00.00186 1 00A2 	addc	1	r5
00.00187 1 00A3 	jmp		L3
00.00188 1 00A4 L11:	;line	39,	words	66
00.00189 1 00A4 	jmp		L3
00.00190 1 00A5 ;function:	_main
00.00191 1 00A5 	END


#0000 ERRORS
#00D6 WORDS ASSEMBLED

#0021 INSTRUCTIONS MODIFIED