/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU1.DMS / in.adf / Includes / hardware / cia.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 24 56 45 52 | 3a 20 63 69 61 2e 62 62 |;.; $VER|: cia.bb|
|00000010| 32 20 34 30 2e 30 20 28 | 30 31 2e 30 33 2e 39 34 |2 40.0 (|01.03.94|
|00000020| 29 00 3b 00 00 80 12 22 | 65 78 65 63 2f 74 79 70 |).;...."|exec/typ|
|00000030| 65 73 2e 62 62 32 22 00 | 00 00 3b 2f 2a 00 3b 20 |es.bb2".|..;/*.; |
|00000040| 2a 20 63 69 61 61 20 69 | 73 20 6f 6e 20 61 6e 20 |* ciaa i|s on an |
|00000050| 4f 44 44 20 61 64 64 72 | 65 73 73 20 28 65 2e 67 |ODD addr|ess (e.g|
|00000060| 2e 20 74 68 65 20 6c 6f | 77 20 62 79 74 65 29 20 |. the lo|w byte) |
|00000070| 2d 2d 20 24 62 66 65 30 | 30 31 00 3b 20 2a 20 63 |-- $bfe0|01.; * c|
|00000080| 69 61 62 20 69 73 20 6f | 6e 20 61 6e 20 45 56 45 |iab is o|n an EVE|
|00000090| 4e 20 61 64 64 72 65 73 | 73 20 28 65 2e 67 2e 20 |N addres|s (e.g. |
|000000a0| 74 68 65 20 68 69 67 68 | 20 62 79 74 65 29 20 2d |the high| byte) -|
|000000b0| 2d 20 24 62 66 64 30 30 | 30 00 3b 20 2a 00 3b 20 |- $bfd00|0.; *.; |
|000000c0| 2a 20 64 6f 20 74 68 69 | 73 20 74 6f 20 67 65 74 |* do thi|s to get|
|000000d0| 20 74 68 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 73 | the def|initions|
|000000e0| 3a 00 3b 20 2a 20 20 20 | 20 65 78 74 65 72 6e 20 |:.; *   | extern |
|000000f0| 73 74 72 75 63 74 20 43 | 49 41 20 63 69 61 61 2c |struct C|IA ciaa,|
|00000100| 20 63 69 61 62 3b 00 3b | 20 2a 2f 00 00 00 80 01 | ciab;.;| */.....|
|00000110| 2e 43 49 41 00 63 69 61 | 70 72 61 2e 62 00 70 61 |.CIA.cia|pra.b.pa|
|00000120| 64 30 2e 62 5b 24 66 66 | 5d 00 63 69 61 70 72 62 |d0.b[$ff|].ciaprb|
|00000130| 2e 62 00 70 61 64 31 2e | 62 5b 24 66 66 5d 00 63 |.b.pad1.|b[$ff].c|
|00000140| 69 61 64 64 72 61 2e 62 | 00 70 61 64 32 2e 62 5b |iaddra.b|.pad2.b[|
|00000150| 24 66 66 5d 00 63 69 61 | 64 64 72 62 2e 62 00 70 |$ff].cia|ddrb.b.p|
|00000160| 61 64 33 2e 62 5b 24 66 | 66 5d 00 63 69 61 74 61 |ad3.b[$f|f].ciata|
|00000170| 6c 6f 2e 62 00 70 61 64 | 34 2e 62 5b 24 66 66 5d |lo.b.pad|4.b[$ff]|
|00000180| 00 63 69 61 74 61 68 69 | 2e 62 00 70 61 64 35 2e |.ciatahi|.b.pad5.|
|00000190| 62 5b 24 66 66 5d 00 63 | 69 61 74 62 6c 6f 2e 62 |b[$ff].c|iatblo.b|
|000001a0| 00 70 61 64 36 2e 62 5b | 24 66 66 5d 00 63 69 61 |.pad6.b[|$ff].cia|
|000001b0| 74 62 68 69 2e 62 00 70 | 61 64 37 2e 62 5b 24 66 |tbhi.b.p|ad7.b[$f|
|000001c0| 66 5d 00 63 69 61 74 6f | 64 6c 6f 77 2e 62 00 70 |f].ciato|dlow.b.p|
|000001d0| 61 64 38 2e 62 5b 24 66 | 66 5d 00 63 69 61 74 6f |ad8.b[$f|f].ciato|
|000001e0| 64 6d 69 64 2e 62 00 70 | 61 64 39 2e 62 5b 24 66 |dmid.b.p|ad9.b[$f|
|000001f0| 66 5d 00 63 69 61 74 6f | 64 68 69 2e 62 00 70 61 |f].ciato|dhi.b.pa|
|00000200| 64 31 30 2e 62 5b 24 66 | 66 5d 00 75 6e 75 73 65 |d10.b[$f|f].unuse|
|00000210| 64 72 65 67 2e 62 00 70 | 61 64 31 31 2e 62 5b 24 |dreg.b.p|ad11.b[$|
|00000220| 66 66 5d 00 63 69 61 73 | 64 72 2e 62 00 70 61 64 |ff].cias|dr.b.pad|
|00000230| 31 32 2e 62 5b 24 66 66 | 5d 00 63 69 61 69 63 72 |12.b[$ff|].ciaicr|
|00000240| 2e 62 00 70 61 64 31 33 | 2e 62 5b 24 66 66 5d 00 |.b.pad13|.b[$ff].|
|00000250| 63 69 61 63 72 61 2e 62 | 00 70 61 64 31 34 2e 62 |ciacra.b|.pad14.b|
|00000260| 5b 24 66 66 5d 00 63 69 | 61 63 72 62 2e 62 00 80 |[$ff].ci|acrb.b..|
|00000270| 02 20 80 01 00 00 00 3b | 2f 2a 20 69 6e 74 65 72 |. .....;|/* inter|
|00000280| 72 75 70 74 20 63 6f 6e | 74 72 6f 6c 20 72 65 67 |rupt con|trol reg|
|00000290| 69 73 74 65 72 20 62 69 | 74 20 6e 75 6d 62 65 72 |ister bi|t number|
|000002a0| 73 20 2a 2f 00 23 43 49 | 41 49 43 52 42 5f 54 41 |s */.#CI|AICRB_TA|
|000002b0| 3d 30 00 23 43 49 41 49 | 43 52 42 5f 54 42 3d 31 |=0.#CIAI|CRB_TB=1|
|000002c0| 00 23 43 49 41 49 43 52 | 42 5f 41 4c 52 4d 3d 32 |.#CIAICR|B_ALRM=2|
|000002d0| 00 23 43 49 41 49 43 52 | 42 5f 53 50 3d 33 00 23 |.#CIAICR|B_SP=3.#|
|000002e0| 43 49 41 49 43 52 42 5f | 46 4c 47 3d 34 00 23 43 |CIAICRB_|FLG=4.#C|
|000002f0| 49 41 49 43 52 42 5f 49 | 52 3d 37 00 23 43 49 41 |IAICRB_I|R=7.#CIA|
|00000300| 49 43 52 42 5f 53 45 54 | 43 4c 52 3d 37 00 00 3b |ICRB_SET|CLR=7..;|
|00000310| 2f 2a 20 63 6f 6e 74 72 | 6f 6c 20 72 65 67 69 73 |/* contr|ol regis|
|00000320| 74 65 72 20 41 20 62 69 | 74 20 6e 75 6d 62 65 72 |ter A bi|t number|
|00000330| 73 20 2a 2f 00 23 43 49 | 41 43 52 41 42 5f 53 54 |s */.#CI|ACRAB_ST|
|00000340| 41 52 54 3d 30 00 23 43 | 49 41 43 52 41 42 5f 50 |ART=0.#C|IACRAB_P|
|00000350| 42 4f 4e 3d 31 00 23 43 | 49 41 43 52 41 42 5f 4f |BON=1.#C|IACRAB_O|
|00000360| 55 54 4d 4f 44 45 3d 32 | 00 23 43 49 41 43 52 41 |UTMODE=2|.#CIACRA|
|00000370| 42 5f 52 55 4e 4d 4f 44 | 45 3d 33 00 23 43 49 41 |B_RUNMOD|E=3.#CIA|
|00000380| 43 52 41 42 5f 4c 4f 41 | 44 3d 34 00 23 43 49 41 |CRAB_LOA|D=4.#CIA|
|00000390| 43 52 41 42 5f 49 4e 4d | 4f 44 45 3d 35 00 23 43 |CRAB_INM|ODE=5.#C|
|000003a0| 49 41 43 52 41 42 5f 53 | 50 4d 4f 44 45 3d 36 00 |IACRAB_S|PMODE=6.|
|000003b0| 23 43 49 41 43 52 41 42 | 5f 54 4f 44 49 4e 3d 37 |#CIACRAB|_TODIN=7|
|000003c0| 00 00 3b 2f 2a 20 63 6f | 6e 74 72 6f 6c 20 72 65 |..;/* co|ntrol re|
|000003d0| 67 69 73 74 65 72 20 42 | 20 62 69 74 20 6e 75 6d |gister B| bit num|
|000003e0| 62 65 72 73 20 2a 2f 00 | 23 43 49 41 43 52 42 42 |bers */.|#CIACRBB|
|000003f0| 5f 53 54 41 52 54 3d 30 | 00 23 43 49 41 43 52 42 |_START=0|.#CIACRB|
|00000400| 42 5f 50 42 4f 4e 3d 31 | 00 23 43 49 41 43 52 42 |B_PBON=1|.#CIACRB|
|00000410| 42 5f 4f 55 54 4d 4f 44 | 45 3d 32 00 23 43 49 41 |B_OUTMOD|E=2.#CIA|
|00000420| 43 52 42 42 5f 52 55 4e | 4d 4f 44 45 3d 33 00 23 |CRBB_RUN|MODE=3.#|
|00000430| 43 49 41 43 52 42 42 5f | 4c 4f 41 44 3d 34 00 23 |CIACRBB_|LOAD=4.#|
|00000440| 43 49 41 43 52 42 42 5f | 49 4e 4d 4f 44 45 30 3d |CIACRBB_|INMODE0=|
|00000450| 35 00 23 43 49 41 43 52 | 42 42 5f 49 4e 4d 4f 44 |5.#CIACR|BB_INMOD|
|00000460| 45 31 3d 36 00 23 43 49 | 41 43 52 42 42 5f 41 4c |E1=6.#CI|ACRBB_AL|
|00000470| 41 52 4d 3d 37 00 00 3b | 2f 2a 20 69 6e 74 65 72 |ARM=7..;|/* inter|
|00000480| 72 75 70 74 20 63 6f 6e | 74 72 6f 6c 20 72 65 67 |rupt con|trol reg|
|00000490| 69 73 74 65 72 20 6d 61 | 73 6b 73 20 2a 2f 00 23 |ister ma|sks */.#|
|000004a0| 43 49 41 49 43 52 46 5f | 54 41 3d 28 23 31 4c 53 |CIAICRF_|TA=(#1LS|
|000004b0| 4c 43 49 41 49 43 52 42 | 5f 54 41 29 00 23 43 49 |LCIAICRB|_TA).#CI|
|000004c0| 41 49 43 52 46 5f 54 42 | 3d 28 23 31 4c 53 4c 43 |AICRF_TB|=(#1LSLC|
|000004d0| 49 41 49 43 52 42 5f 54 | 42 29 00 23 43 49 41 49 |IAICRB_T|B).#CIAI|
|000004e0| 43 52 46 5f 41 4c 52 4d | 3d 28 23 31 4c 53 4c 43 |CRF_ALRM|=(#1LSLC|
|000004f0| 49 41 49 43 52 42 5f 41 | 4c 52 4d 29 00 23 43 49 |IAICRB_A|LRM).#CI|
|00000500| 41 49 43 52 46 5f 53 50 | 3d 28 23 31 4c 53 4c 43 |AICRF_SP|=(#1LSLC|
|00000510| 49 41 49 43 52 42 5f 53 | 50 29 00 23 43 49 41 49 |IAICRB_S|P).#CIAI|
|00000520| 43 52 46 5f 46 4c 47 3d | 28 23 31 4c 53 4c 43 49 |CRF_FLG=|(#1LSLCI|
|00000530| 41 49 43 52 42 5f 46 4c | 47 29 00 23 43 49 41 49 |AICRB_FL|G).#CIAI|
|00000540| 43 52 46 5f 49 52 3d 28 | 23 31 4c 53 4c 43 49 41 |CRF_IR=(|#1LSLCIA|
|00000550| 49 43 52 42 5f 49 52 29 | 00 23 43 49 41 49 43 52 |ICRB_IR)|.#CIAICR|
|00000560| 46 5f 53 45 54 43 4c 52 | 3d 28 23 31 4c 53 4c 43 |F_SETCLR|=(#1LSLC|
|00000570| 49 41 49 43 52 42 5f 53 | 45 54 43 4c 52 29 00 00 |IAICRB_S|ETCLR)..|
|00000580| 3b 2f 2a 20 63 6f 6e 74 | 72 6f 6c 20 72 65 67 69 |;/* cont|rol regi|
|00000590| 73 74 65 72 20 41 20 72 | 65 67 69 73 74 65 72 20 |ster A r|egister |
|000005a0| 6d 61 73 6b 73 20 2a 2f | 00 23 43 49 41 43 52 41 |masks */|.#CIACRA|
|000005b0| 46 5f 53 54 41 52 54 3d | 28 23 31 4c 53 4c 43 49 |F_START=|(#1LSLCI|
|000005c0| 41 43 52 41 42 5f 53 54 | 41 52 54 29 00 23 43 49 |ACRAB_ST|ART).#CI|
|000005d0| 41 43 52 41 46 5f 50 42 | 4f 4e 3d 28 23 31 4c 53 |ACRAF_PB|ON=(#1LS|
|000005e0| 4c 43 49 41 43 52 41 42 | 5f 50 42 4f 4e 29 00 23 |LCIACRAB|_PBON).#|
|000005f0| 43 49 41 43 52 41 46 5f | 4f 55 54 4d 4f 44 45 3d |CIACRAF_|OUTMODE=|
|00000600| 28 23 31 4c 53 4c 43 49 | 41 43 52 41 42 5f 4f 55 |(#1LSLCI|ACRAB_OU|
|00000610| 54 4d 4f 44 45 29 00 23 | 43 49 41 43 52 41 46 5f |TMODE).#|CIACRAF_|
|00000620| 52 55 4e 4d 4f 44 45 3d | 28 23 31 4c 53 4c 43 49 |RUNMODE=|(#1LSLCI|
|00000630| 41 43 52 41 42 5f 52 55 | 4e 4d 4f 44 45 29 00 23 |ACRAB_RU|NMODE).#|
|00000640| 43 49 41 43 52 41 46 5f | 4c 4f 41 44 3d 28 23 31 |CIACRAF_|LOAD=(#1|
|00000650| 4c 53 4c 43 49 41 43 52 | 41 42 5f 4c 4f 41 44 29 |LSLCIACR|AB_LOAD)|
|00000660| 00 23 43 49 41 43 52 41 | 46 5f 49 4e 4d 4f 44 45 |.#CIACRA|F_INMODE|
|00000670| 3d 28 23 31 4c 53 4c 43 | 49 41 43 52 41 42 5f 49 |=(#1LSLC|IACRAB_I|
|00000680| 4e 4d 4f 44 45 29 00 23 | 43 49 41 43 52 41 46 5f |NMODE).#|CIACRAF_|
|00000690| 53 50 4d 4f 44 45 3d 28 | 23 31 4c 53 4c 43 49 41 |SPMODE=(|#1LSLCIA|
|000006a0| 43 52 41 42 5f 53 50 4d | 4f 44 45 29 00 23 43 49 |CRAB_SPM|ODE).#CI|
|000006b0| 41 43 52 41 46 5f 54 4f | 44 49 4e 3d 28 23 31 4c |ACRAF_TO|DIN=(#1L|
|000006c0| 53 4c 43 49 41 43 52 41 | 42 5f 54 4f 44 49 4e 29 |SLCIACRA|B_TODIN)|
|000006d0| 00 00 3b 2f 2a 20 63 6f | 6e 74 72 6f 6c 20 72 65 |..;/* co|ntrol re|
|000006e0| 67 69 73 74 65 72 20 42 | 20 72 65 67 69 73 74 65 |gister B| registe|
|000006f0| 72 20 6d 61 73 6b 73 20 | 2a 2f 00 23 43 49 41 43 |r masks |*/.#CIAC|
|00000700| 52 42 46 5f 53 54 41 52 | 54 3d 28 23 31 4c 53 4c |RBF_STAR|T=(#1LSL|
|00000710| 43 49 41 43 52 42 42 5f | 53 54 41 52 54 29 00 23 |CIACRBB_|START).#|
|00000720| 43 49 41 43 52 42 46 5f | 50 42 4f 4e 3d 28 23 31 |CIACRBF_|PBON=(#1|
|00000730| 4c 53 4c 43 49 41 43 52 | 42 42 5f 50 42 4f 4e 29 |LSLCIACR|BB_PBON)|
|00000740| 00 23 43 49 41 43 52 42 | 46 5f 4f 55 54 4d 4f 44 |.#CIACRB|F_OUTMOD|
|00000750| 45 3d 28 23 31 4c 53 4c | 43 49 41 43 52 42 42 5f |E=(#1LSL|CIACRBB_|
|00000760| 4f 55 54 4d 4f 44 45 29 | 00 23 43 49 41 43 52 42 |OUTMODE)|.#CIACRB|
|00000770| 46 5f 52 55 4e 4d 4f 44 | 45 3d 28 23 31 4c 53 4c |F_RUNMOD|E=(#1LSL|
|00000780| 43 49 41 43 52 42 42 5f | 52 55 4e 4d 4f 44 45 29 |CIACRBB_|RUNMODE)|
|00000790| 00 23 43 49 41 43 52 42 | 46 5f 4c 4f 41 44 3d 28 |.#CIACRB|F_LOAD=(|
|000007a0| 23 31 4c 53 4c 43 49 41 | 43 52 42 42 5f 4c 4f 41 |#1LSLCIA|CRBB_LOA|
|000007b0| 44 29 00 23 43 49 41 43 | 52 42 46 5f 49 4e 4d 4f |D).#CIAC|RBF_INMO|
|000007c0| 44 45 30 3d 28 23 31 4c | 53 4c 43 49 41 43 52 42 |DE0=(#1L|SLCIACRB|
|000007d0| 42 5f 49 4e 4d 4f 44 45 | 30 29 00 23 43 49 41 43 |B_INMODE|0).#CIAC|
|000007e0| 52 42 46 5f 49 4e 4d 4f | 44 45 31 3d 28 23 31 4c |RBF_INMO|DE1=(#1L|
|000007f0| 53 4c 43 49 41 43 52 42 | 42 5f 49 4e 4d 4f 44 45 |SLCIACRB|B_INMODE|
|00000800| 31 29 00 23 43 49 41 43 | 52 42 46 5f 41 4c 41 52 |1).#CIAC|RBF_ALAR|
|00000810| 4d 3d 28 23 31 4c 53 4c | 43 49 41 43 52 42 42 5f |M=(#1LSL|CIACRBB_|
|00000820| 41 4c 41 52 4d 29 00 00 | 3b 2f 2a 20 63 6f 6e 74 |ALARM)..|;/* cont|
|00000830| 72 6f 6c 20 72 65 67 69 | 73 74 65 72 20 42 20 49 |rol regi|ster B I|
|00000840| 4e 4d 4f 44 45 20 6d 61 | 73 6b 73 20 2a 2f 00 23 |NMODE ma|sks */.#|
|00000850| 43 49 41 43 52 42 46 5f | 49 4e 5f 50 48 49 32 3d |CIACRBF_|IN_PHI2=|
|00000860| 30 00 23 43 49 41 43 52 | 42 46 5f 49 4e 5f 43 4e |0.#CIACR|BF_IN_CN|
|00000870| 54 3d 28 23 43 49 41 43 | 52 42 46 5f 49 4e 4d 4f |T=(#CIAC|RBF_INMO|
|00000880| 44 45 30 29 00 23 43 49 | 41 43 52 42 46 5f 49 4e |DE0).#CI|ACRBF_IN|
|00000890| 5f 54 41 3d 28 23 43 49 | 41 43 52 42 46 5f 49 4e |_TA=(#CI|ACRBF_IN|
|000008a0| 4d 4f 44 45 31 29 00 23 | 43 49 41 43 52 42 46 5f |MODE1).#|CIACRBF_|
|000008b0| 49 4e 5f 43 4e 54 5f 54 | 41 3d 28 23 43 49 41 43 |IN_CNT_T|A=(#CIAC|
|000008c0| 52 42 46 5f 49 4e 4d 4f | 44 45 30 7c 43 49 41 43 |RBF_INMO|DE0|CIAC|
|000008d0| 52 42 46 5f 49 4e 4d 4f | 44 45 31 29 00 00 3b 2f |RBF_INMO|DE1)..;/|
|000008e0| 2a 00 3b 20 2a 20 50 6f | 72 74 20 64 65 66 69 6e |*.; * Po|rt defin|
|000008f0| 69 74 69 6f 6e 73 20 2d | 2d 20 77 68 61 74 20 65 |itions -|- what e|
|00000900| 61 63 68 20 62 69 74 20 | 69 6e 20 61 20 63 69 61 |ach bit |in a cia|
|00000910| 20 70 65 72 69 70 68 65 | 72 61 6c 20 72 65 67 69 | periphe|ral regi|
|00000920| 73 74 65 72 20 69 73 20 | 74 69 65 64 20 74 6f 00 |ster is |tied to.|
|00000930| 3b 20 2a 2f 00 00 3b 2f | 2a 20 63 69 61 61 20 70 |; */..;/|* ciaa p|
|00000940| 6f 72 74 20 41 20 28 24 | 62 66 65 30 30 31 29 20 |ort A ($|bfe001) |
|00000950| 2a 2f 00 23 43 49 41 42 | 5f 47 41 4d 45 50 4f 52 |*/.#CIAB|_GAMEPOR|
|00000960| 54 31 3d 28 37 29 3b 2f | 2a 20 67 61 6d 65 70 6f |T1=(7);/|* gamepo|
|00000970| 72 74 20 31 2c 20 70 69 | 6e 20 36 20 28 66 69 72 |rt 1, pi|n 6 (fir|
|00000980| 65 20 62 75 74 74 6f 6e | 2a 29 20 2a 2f 00 23 43 |e button|*) */.#C|
|00000990| 49 41 42 5f 47 41 4d 45 | 50 4f 52 54 30 3d 28 36 |IAB_GAME|PORT0=(6|
|000009a0| 29 3b 2f 2a 20 67 61 6d | 65 70 6f 72 74 20 30 2c |);/* gam|eport 0,|
|000009b0| 20 70 69 6e 20 36 20 28 | 66 69 72 65 20 62 75 74 | pin 6 (|fire but|
|000009c0| 74 6f 6e 2a 29 20 2a 2f | 00 23 43 49 41 42 5f 44 |ton*) */|.#CIAB_D|
|000009d0| 53 4b 52 44 59 3d 28 35 | 29 3b 2f 2a 20 64 69 73 |SKRDY=(5|);/* dis|
|000009e0| 6b 20 72 65 61 64 79 2a | 20 2a 2f 00 23 43 49 41 |k ready*| */.#CIA|
|000009f0| 42 5f 44 53 4b 54 52 41 | 43 4b 30 3d 28 34 29 3b |B_DSKTRA|CK0=(4);|
|00000a00| 2f 2a 20 64 69 73 6b 20 | 6f 6e 20 74 72 61 63 6b |/* disk |on track|
|00000a10| 20 30 30 2a 20 2a 2f 00 | 23 43 49 41 42 5f 44 53 | 00* */.|#CIAB_DS|
|00000a20| 4b 50 52 4f 54 3d 28 33 | 29 3b 2f 2a 20 64 69 73 |KPROT=(3|);/* dis|
|00000a30| 6b 20 77 72 69 74 65 20 | 70 72 6f 74 65 63 74 2a |k write |protect*|
|00000a40| 20 2a 2f 00 23 43 49 41 | 42 5f 44 53 4b 43 48 41 | */.#CIA|B_DSKCHA|
|00000a50| 4e 47 45 3d 28 32 29 3b | 2f 2a 20 64 69 73 6b 20 |NGE=(2);|/* disk |
|00000a60| 63 68 61 6e 67 65 2a 20 | 2a 2f 00 23 43 49 41 42 |change* |*/.#CIAB|
|00000a70| 5f 4c 45 44 3d 28 31 29 | 3b 2f 2a 20 6c 65 64 20 |_LED=(1)|;/* led |
|00000a80| 6c 69 67 68 74 20 63 6f | 6e 74 72 6f 6c 20 28 30 |light co|ntrol (0|
|00000a90| 3d 3d 3e 62 72 69 67 68 | 74 29 20 2a 2f 00 23 43 |==>brigh|t) */.#C|
|00000aa0| 49 41 42 5f 4f 56 45 52 | 4c 41 59 3d 28 30 29 3b |IAB_OVER|LAY=(0);|
|00000ab0| 2f 2a 20 6d 65 6d 6f 72 | 79 20 6f 76 65 72 6c 61 |/* memor|y overla|
|00000ac0| 79 20 62 69 74 20 2a 2f | 00 00 3b 2f 2a 20 63 69 |y bit */|..;/* ci|
|00000ad0| 61 61 20 70 6f 72 74 20 | 42 20 28 24 62 66 65 31 |aa port |B ($bfe1|
|00000ae0| 30 31 29 20 2d 2d 20 70 | 61 72 61 6c 6c 65 6c 20 |01) -- p|arallel |
|00000af0| 70 6f 72 74 20 2a 2f 00 | 00 3b 2f 2a 20 63 69 61 |port */.|.;/* cia|
|00000b00| 62 20 70 6f 72 74 20 41 | 20 28 24 62 66 64 30 30 |b port A| ($bfd00|
|00000b10| 30 29 20 2d 2d 20 73 65 | 72 69 61 6c 20 61 6e 64 |0) -- se|rial and|
|00000b20| 20 70 72 69 6e 74 65 72 | 20 63 6f 6e 74 72 6f 6c | printer| control|
|00000b30| 20 2a 2f 00 23 43 49 41 | 42 5f 43 4f 4d 44 54 52 | */.#CIA|B_COMDTR|
|00000b40| 3d 28 37 29 3b 2f 2a 20 | 73 65 72 69 61 6c 20 44 |=(7);/* |serial D|
|00000b50| 61 74 61 20 54 65 72 6d | 69 6e 61 6c 20 52 65 61 |ata Term|inal Rea|
|00000b60| 64 79 2a 20 2a 2f 00 23 | 43 49 41 42 5f 43 4f 4d |dy* */.#|CIAB_COM|
|00000b70| 52 54 53 3d 28 36 29 3b | 2f 2a 20 73 65 72 69 61 |RTS=(6);|/* seria|
|00000b80| 6c 20 52 65 71 75 65 73 | 74 20 74 6f 20 53 65 6e |l Reques|t to Sen|
|00000b90| 64 2a 20 2a 2f 00 23 43 | 49 41 42 5f 43 4f 4d 43 |d* */.#C|IAB_COMC|
|00000ba0| 44 3d 28 35 29 3b 2f 2a | 20 73 65 72 69 61 6c 20 |D=(5);/*| serial |
|00000bb0| 43 61 72 72 69 65 72 20 | 44 65 74 65 63 74 2a 20 |Carrier |Detect* |
|00000bc0| 2a 2f 00 23 43 49 41 42 | 5f 43 4f 4d 43 54 53 3d |*/.#CIAB|_COMCTS=|
|00000bd0| 28 34 29 3b 2f 2a 20 73 | 65 72 69 61 6c 20 43 6c |(4);/* s|erial Cl|
|00000be0| 65 61 72 20 74 6f 20 53 | 65 6e 64 2a 20 2a 2f 00 |ear to S|end* */.|
|00000bf0| 23 43 49 41 42 5f 43 4f | 4d 44 53 52 3d 28 33 29 |#CIAB_CO|MDSR=(3)|
|00000c00| 3b 2f 2a 20 73 65 72 69 | 61 6c 20 44 61 74 61 20 |;/* seri|al Data |
|00000c10| 53 65 74 20 52 65 61 64 | 79 2a 20 2a 2f 00 23 43 |Set Read|y* */.#C|
|00000c20| 49 41 42 5f 50 52 54 52 | 53 45 4c 3d 28 32 29 3b |IAB_PRTR|SEL=(2);|
|00000c30| 2f 2a 20 70 72 69 6e 74 | 65 72 20 53 45 4c 45 43 |/* print|er SELEC|
|00000c40| 54 20 2a 2f 00 23 43 49 | 41 42 5f 50 52 54 52 50 |T */.#CI|AB_PRTRP|
|00000c50| 4f 55 54 3d 28 31 29 3b | 2f 2a 20 70 72 69 6e 74 |OUT=(1);|/* print|
|00000c60| 65 72 20 70 61 70 65 72 | 20 6f 75 74 20 2a 2f 00 |er paper| out */.|
|00000c70| 23 43 49 41 42 5f 50 52 | 54 52 42 55 53 59 3d 28 |#CIAB_PR|TRBUSY=(|
|00000c80| 30 29 3b 2f 2a 20 70 72 | 69 6e 74 65 72 20 62 75 |0);/* pr|inter bu|
|00000c90| 73 79 20 2a 2f 00 00 3b | 2f 2a 20 63 69 61 62 20 |sy */..;|/* ciab |
|00000ca0| 70 6f 72 74 20 42 20 28 | 24 62 66 64 31 30 30 29 |port B (|$bfd100)|
|00000cb0| 20 2d 2d 20 64 69 73 6b | 20 63 6f 6e 74 72 6f 6c | -- disk| control|
|00000cc0| 20 2a 2f 00 23 43 49 41 | 42 5f 44 53 4b 4d 4f 54 | */.#CIA|B_DSKMOT|
|00000cd0| 4f 52 3d 28 37 29 3b 2f | 2a 20 64 69 73 6b 20 6d |OR=(7);/|* disk m|
|00000ce0| 6f 74 6f 72 72 2a 20 2a | 2f 00 23 43 49 41 42 5f |otorr* *|/.#CIAB_|
|00000cf0| 44 53 4b 53 45 4c 33 3d | 28 36 29 3b 2f 2a 20 64 |DSKSEL3=|(6);/* d|
|00000d00| 69 73 6b 20 73 65 6c 65 | 63 74 20 75 6e 69 74 20 |isk sele|ct unit |
|00000d10| 33 2a 20 2a 2f 00 23 43 | 49 41 42 5f 44 53 4b 53 |3* */.#C|IAB_DSKS|
|00000d20| 45 4c 32 3d 28 35 29 3b | 2f 2a 20 64 69 73 6b 20 |EL2=(5);|/* disk |
|00000d30| 73 65 6c 65 63 74 20 75 | 6e 69 74 20 32 2a 20 2a |select u|nit 2* *|
|00000d40| 2f 00 23 43 49 41 42 5f | 44 53 4b 53 45 4c 31 3d |/.#CIAB_|DSKSEL1=|
|00000d50| 28 34 29 3b 2f 2a 20 64 | 69 73 6b 20 73 65 6c 65 |(4);/* d|isk sele|
|00000d60| 63 74 20 75 6e 69 74 20 | 31 2a 20 2a 2f 00 23 43 |ct unit |1* */.#C|
|00000d70| 49 41 42 5f 44 53 4b 53 | 45 4c 30 3d 28 33 29 3b |IAB_DSKS|EL0=(3);|
|00000d80| 2f 2a 20 64 69 73 6b 20 | 73 65 6c 65 63 74 20 75 |/* disk |select u|
|00000d90| 6e 69 74 20 30 2a 20 2a | 2f 00 23 43 49 41 42 5f |nit 0* *|/.#CIAB_|
|00000da0| 44 53 4b 53 49 44 45 3d | 28 32 29 3b 2f 2a 20 64 |DSKSIDE=|(2);/* d|
|00000db0| 69 73 6b 20 73 69 64 65 | 20 73 65 6c 65 63 74 2a |isk side| select*|
|00000dc0| 20 2a 2f 00 23 43 49 41 | 42 5f 44 53 4b 44 49 52 | */.#CIA|B_DSKDIR|
|00000dd0| 45 43 3d 28 31 29 3b 2f | 2a 20 64 69 73 6b 20 64 |EC=(1);/|* disk d|
|00000de0| 69 72 65 63 74 69 6f 6e | 20 6f 66 20 73 65 65 6b |irection| of seek|
|00000df0| 2a 20 2a 2f 00 23 43 49 | 41 42 5f 44 53 4b 53 54 |* */.#CI|AB_DSKST|
|00000e00| 45 50 3d 28 30 29 3b 2f | 2a 20 64 69 73 6b 20 73 |EP=(0);/|* disk s|
|00000e10| 74 65 70 20 68 65 61 64 | 73 2a 20 2a 2f 00 00 3b |tep head|s* */..;|
|00000e20| 2f 2a 20 63 69 61 61 20 | 70 6f 72 74 20 41 20 28 |/* ciaa |port A (|
|00000e30| 24 62 66 65 30 30 31 29 | 20 2a 2f 00 23 43 49 41 |$bfe001)| */.#CIA|
|00000e40| 46 5f 47 41 4d 45 50 4f | 52 54 31 3d 28 31 80 7c |F_GAMEPO|RT1=(1.||
|00000e50| 37 29 00 23 43 49 41 46 | 5f 47 41 4d 45 50 4f 52 |7).#CIAF|_GAMEPOR|
|00000e60| 54 30 3d 28 31 80 7c 36 | 29 00 23 43 49 41 46 5f |T0=(1.|6|).#CIAF_|
|00000e70| 44 53 4b 52 44 59 3d 28 | 31 80 7c 35 29 00 23 43 |DSKRDY=(|1.|5).#C|
|00000e80| 49 41 46 5f 44 53 4b 54 | 52 41 43 4b 30 3d 28 31 |IAF_DSKT|RACK0=(1|
|00000e90| 80 7c 34 29 00 23 43 49 | 41 46 5f 44 53 4b 50 52 |.|4).#CI|AF_DSKPR|
|00000ea0| 4f 54 3d 28 31 80 7c 33 | 29 00 23 43 49 41 46 5f |OT=(1.|3|).#CIAF_|
|00000eb0| 44 53 4b 43 48 41 4e 47 | 45 3d 28 31 80 7c 32 29 |DSKCHANG|E=(1.|2)|
|00000ec0| 00 23 43 49 41 46 5f 4c | 45 44 3d 28 31 80 7c 31 |.#CIAF_L|ED=(1.|1|
|00000ed0| 29 00 23 43 49 41 46 5f | 4f 56 45 52 4c 41 59 3d |).#CIAF_|OVERLAY=|
|00000ee0| 28 31 80 7c 30 29 00 00 | 3b 2f 2a 20 63 69 61 61 |(1.|0)..|;/* ciaa|
|00000ef0| 20 70 6f 72 74 20 42 20 | 28 24 62 66 65 31 30 31 | port B |($bfe101|
|00000f00| 29 20 2d 2d 20 70 61 72 | 61 6c 6c 65 6c 20 70 6f |) -- par|allel po|
|00000f10| 72 74 20 2a 2f 00 00 3b | 2f 2a 20 63 69 61 62 20 |rt */..;|/* ciab |
|00000f20| 70 6f 72 74 20 41 20 28 | 24 62 66 64 30 30 30 29 |port A (|$bfd000)|
|00000f30| 20 2d 2d 20 73 65 72 69 | 61 6c 20 61 6e 64 20 70 | -- seri|al and p|
|00000f40| 72 69 6e 74 65 72 20 63 | 6f 6e 74 72 6f 6c 20 2a |rinter c|ontrol *|
|00000f50| 2f 00 23 43 49 41 46 5f | 43 4f 4d 44 54 52 3d 28 |/.#CIAF_|COMDTR=(|
|00000f60| 31 80 7c 37 29 00 23 43 | 49 41 46 5f 43 4f 4d 52 |1.|7).#C|IAF_COMR|
|00000f70| 54 53 3d 28 31 80 7c 36 | 29 00 23 43 49 41 46 5f |TS=(1.|6|).#CIAF_|
|00000f80| 43 4f 4d 43 44 3d 28 31 | 80 7c 35 29 00 23 43 49 |COMCD=(1|.|5).#CI|
|00000f90| 41 46 5f 43 4f 4d 43 54 | 53 3d 28 31 80 7c 34 29 |AF_COMCT|S=(1.|4)|
|00000fa0| 00 23 43 49 41 46 5f 43 | 4f 4d 44 53 52 3d 28 31 |.#CIAF_C|OMDSR=(1|
|00000fb0| 80 7c 33 29 00 23 43 49 | 41 46 5f 50 52 54 52 53 |.|3).#CI|AF_PRTRS|
|00000fc0| 45 4c 3d 28 31 80 7c 32 | 29 00 23 43 49 41 46 5f |EL=(1.|2|).#CIAF_|
|00000fd0| 50 52 54 52 50 4f 55 54 | 3d 28 31 80 7c 31 29 00 |PRTRPOUT|=(1.|1).|
|00000fe0| 23 43 49 41 46 5f 50 52 | 54 52 42 55 53 59 3d 28 |#CIAF_PR|TRBUSY=(|
|00000ff0| 31 80 7c 30 29 00 00 3b | 2f 2a 20 63 69 61 62 20 |1.|0)..;|/* ciab |
|00001000| 70 6f 72 74 20 42 20 28 | 24 62 66 64 31 30 30 29 |port B (|$bfd100)|
|00001010| 20 2d 2d 20 64 69 73 6b | 20 63 6f 6e 74 72 6f 6c | -- disk| control|
|00001020| 20 2a 2f 00 23 43 49 41 | 46 5f 44 53 4b 4d 4f 54 | */.#CIA|F_DSKMOT|
|00001030| 4f 52 3d 28 31 80 7c 37 | 29 00 23 43 49 41 46 5f |OR=(1.|7|).#CIAF_|
|00001040| 44 53 4b 53 45 4c 33 3d | 28 31 80 7c 36 29 00 23 |DSKSEL3=|(1.|6).#|
|00001050| 43 49 41 46 5f 44 53 4b | 53 45 4c 32 3d 28 31 80 |CIAF_DSK|SEL2=(1.|
|00001060| 7c 35 29 00 23 43 49 41 | 46 5f 44 53 4b 53 45 4c ||5).#CIA|F_DSKSEL|
|00001070| 31 3d 28 31 80 7c 34 29 | 00 23 43 49 41 46 5f 44 |1=(1.|4)|.#CIAF_D|
|00001080| 53 4b 53 45 4c 30 3d 28 | 31 80 7c 33 29 00 23 43 |SKSEL0=(|1.|3).#C|
|00001090| 49 41 46 5f 44 53 4b 53 | 49 44 45 3d 28 31 80 7c |IAF_DSKS|IDE=(1.||
|000010a0| 32 29 00 23 43 49 41 46 | 5f 44 53 4b 44 49 52 45 |2).#CIAF|_DSKDIRE|
|000010b0| 43 3d 28 31 80 7c 31 29 | 00 23 43 49 41 46 5f 44 |C=(1.|1)|.#CIAF_D|
|000010c0| 53 4b 53 54 45 50 3d 28 | 31 80 7c 30 29 00       |SKSTEP=(|1.|0).  |
+--------+-------------------------+-------------------------+--------+--------+