' Original KITBUG 110 baud loader

' Set all the pins as "digital outputs"
' and reset them all to the inactive/high state
Sub init
SetPin 1,8
SetPin 2,8
SetPin 3,8
SetPin 4,8
SetPin 5,8
SetPin 6,8
SetPin 7,8
SetPin 8,8
SetPin 9,8
SetPin 10,8
SetPin 11,8
SetPin 12,8
SetPin 13,8
SetPin 14,8
SetPin 15,8
SetPin 16,8
SetPin 17,8
SetPin 18,8
SetPin 19,8
SetPin 20,8

Pin(1) = 1
Pin(2) = 1
Pin(3) = 1
Pin(4) = 1
Pin(5) = 1
Pin(6) = 1
Pin(7) = 1
Pin(8) = 1
Pin(9) = 1
Pin(10) = 1
Pin(11) = 1
Pin(12) = 1
Pin(13) = 1
Pin(14) = 1
Pin(15) = 1
Pin(16) = 1
Pin(17) = 1
Pin(18) = 1
Pin(19) = 1
Pin(20) = 1

End Sub

' Load the byte "data" in address location "addr"
Sub loadaddr(addr, data)

' If "data" is a double byte, load the high order byte
' and then the low order byte into the following address
If data > 255 Then
  loadaddr(addr, data\256)
  addr = addr+1
EndIf

' set address on pins 12 and 1 thru 111
Pin(12) = Not (addr And 1)
Pin(1) = Not (addr And 2)
Pin(2) = Not (addr And 4)
Pin(3) = Not (addr And 8)
Pin(4) = Not (addr And 16)
Pin(5) = Not (addr And 32)
Pin(6) = Not (addr And 64)
Pin(7) = Not (addr And 128)
Pin(8) = Not (addr And 256)
Pin(9) = Not (addr And 1024)
Pin(10) = Not (addr And 2048)

' Set data bits on pins 13 thru 20
Pin(13) = Not (data And 1)
Pin(14) = Not (data And 2)
Pin(15) = Not (data And 4)
Pin(16) = Not (data And 8)
Pin(17) = Not (data And 16)
Pin(18) = Not (data And 32)
Pin(19) = Not (data And 64)
Pin(20) = Not (data And 128)

' Pulse the write enable bit
Pin(11) = 0
Pause 10
Pin(11) = 1
Pause 10

End Sub

init

loadaddr(&h0000, &h08)
loadaddr(&h0001, &h901D)
loadaddr(&h0003, &hC0FA)
loadaddr(&h0005, &h01)
loadaddr(&h0006, &hC0F2)
loadaddr(&h0008, &h35)
loadaddr(&h0009, &hC0F0)
loadaddr(&h000B, &h31)
loadaddr(&h000C, &hC0EE)
loadaddr(&h000E, &h36)
loadaddr(&h000F, &hC0EC)
loadaddr(&h0011, &h32)
loadaddr(&h0012, &hC0E4)
loadaddr(&h0014, &h37)
loadaddr(&h0015, &hC0E2)
loadaddr(&h0017, &h33)
loadaddr(&h0018, &hC7FF)
loadaddr(&h001A, &hC0E4)
loadaddr(&h001C, &h07)
loadaddr(&h001D, &hC0DF)
loadaddr(&h001F, &h3F)
loadaddr(&h0020, &hC8DC)
loadaddr(&h0022, &h06)
loadaddr(&h0023, &hC8D8)
loadaddr(&h0025, &h01)
loadaddr(&h0026, &hC8D7)
loadaddr(&h0028, &h36)
loadaddr(&h0029, &hC8D1)
loadaddr(&h002B, &h32)
loadaddr(&h002C, &hC8CF)
loadaddr(&h002E, &h35)
loadaddr(&h002F, &hC8C9)
loadaddr(&h0031, &h31)
loadaddr(&h0032, &hC8C7)
loadaddr(&h0034, &h37)
loadaddr(&h0035, &hC8C1)
loadaddr(&h0037, &h33)
loadaddr(&h0038, &hC8BF)
loadaddr(&h003A, &hC4F6)
loadaddr(&h003C, &h32)
loadaddr(&h003D, &hC40F)
loadaddr(&h003F, &h36)
loadaddr(&h0040, &hC401)
loadaddr(&h0042, &h37)
loadaddr(&h0043, &hC4C4)
loadaddr(&h0045, &h33)
loadaddr(&h0046, &hC40D)
loadaddr(&h0048, &h3F)
loadaddr(&h0049, &hC40A)
loadaddr(&h004B, &h3F)
loadaddr(&h004C, &hC42D)
loadaddr(&h004E, &h3F)
loadaddr(&h004F, &hC401)
loadaddr(&h0051, &h37C4)
loadaddr(&h0053, &h8533)
loadaddr(&h0055, &h3F)
loadaddr(&h0056, &h40)
loadaddr(&h0057, &hE447)
loadaddr(&h0059, &h9C07)
loadaddr(&h005B, &h3F)
loadaddr(&h005C, &hE40D)
loadaddr(&h005E, &h98A3)
loadaddr(&h0060, &h906A)
loadaddr(&h0062, &h40)
loadaddr(&h0063, &hE454)
loadaddr(&h0065, &h9809)
loadaddr(&h0067, &h40)
loadaddr(&h0068, &hE44D)
loadaddr(&h006A, &h9C60)
loadaddr(&h006C, &hC400)
loadaddr(&h006E, &h9002)
loadaddr(&h0070, &hC401)
loadaddr(&h0072, &hCEFF)
loadaddr(&h0074, &hC400)
loadaddr(&h0076, &h37C4)
loadaddr(&h0078, &hDF33)
loadaddr(&h007A, &h3F)
loadaddr(&h007B, &hE40D)
loadaddr(&h007D, &h9C4D)
loadaddr(&h007F, &hC601)
loadaddr(&h0081, &h35)
loadaddr(&h0082, &hC601)
loadaddr(&h0084, &h31)
loadaddr(&h0085, &hC401)
loadaddr(&h0087, &h37)
loadaddr(&h0088, &hC4C4)
loadaddr(&h008A, &h33)
loadaddr(&h008B, &hC40D)
loadaddr(&h008D, &h3F)
loadaddr(&h008E, &hC40A)
loadaddr(&h0090, &h3F)
loadaddr(&h0091, &h35)
loadaddr(&h0092, &h01)
loadaddr(&h0093, &h40)
loadaddr(&h0094, &h35)
loadaddr(&h0095, &hC401)
loadaddr(&h0097, &h37)
loadaddr(&h0098, &hC443)
loadaddr(&h009A, &h33)
loadaddr(&h009B, &h40)
loadaddr(&h009C, &h3F)
loadaddr(&h009D, &h31)
loadaddr(&h009E, &h01)
loadaddr(&h009F, &h40)
loadaddr(&h00A0, &h31)
loadaddr(&h00A1, &h40)
loadaddr(&h00A2, &h3F)
loadaddr(&h00A3, &hC501)
loadaddr(&h00A5, &h3F)
loadaddr(&h00A6, &hC200)
loadaddr(&h00A8, &h9CDB)
loadaddr(&h00AA, &hC401)
loadaddr(&h00AC, &h37C4)
loadaddr(&h00AE, &h8533)
loadaddr(&h00B0, &h3F)
loadaddr(&h00B1, &hE40D)
loadaddr(&h00B3, &h98D0)
loadaddr(&h00B5, &hE415)
loadaddr(&h00B7, &h9881)
loadaddr(&h00B9, &hC400)
loadaddr(&h00BB, &h37C4)
loadaddr(&h00BD, &hDB33)
loadaddr(&h00BF, &h3F)
loadaddr(&h00C0, &hE40D)
loadaddr(&h00C2, &h9C08)
loadaddr(&h00C4, &hC601)
loadaddr(&h00C6, &hC601)
loadaddr(&h00C8, &hC9FF)
loadaddr(&h00CA, &h90B9)
loadaddr(&h00CC, &hC401)
loadaddr(&h00CE, &h37)
loadaddr(&h00CF, &hC4C4)
loadaddr(&h00D1, &h33)
loadaddr(&h00D2, &hC40A)
loadaddr(&h00D4, &h3F)
loadaddr(&h00D5, &hC43F)
loadaddr(&h00D7, &h3F)
loadaddr(&h00D8, &hC400)
loadaddr(&h00DA, &h90DB)
loadaddr(&h00DC, &hC401)
loadaddr(&h00DE, &h9002)
loadaddr(&h00E0, &hC400)
loadaddr(&h00E2, &hCAFB)
loadaddr(&h00E4, &hC485)
loadaddr(&h00E6, &h33)
loadaddr(&h00E7, &hCEFD)
loadaddr(&h00E9, &hC401)
loadaddr(&h00EB, &h37)
loadaddr(&h00EC, &hCEFF)
loadaddr(&h00EE, &hC2FF)
loadaddr(&h00F0, &h9C01)
loadaddr(&h00F2, &h3F)
loadaddr(&h00F3, &hC400)
loadaddr(&h00F5, &hCA03)
loadaddr(&h00F7, &hCA02)
loadaddr(&h00F9, &h40)
loadaddr(&h00FA, &h03)
loadaddr(&h00FB, &hFC3A)
loadaddr(&h00FD, &h940F)
loadaddr(&h00FF, &h03)
loadaddr(&h0100, &hFCF6)
loadaddr(&h0102, &h9419)
loadaddr(&h0104, &hC601)
loadaddr(&h0106, &h37)
loadaddr(&h0107, &hC601)
loadaddr(&h0109, &h33)
loadaddr(&h010A, &h40)
loadaddr(&h010B, &h3F)
loadaddr(&h010C, &h90D2)
loadaddr(&h010E, &h03)
loadaddr(&h010F, &hFC0D)
loadaddr(&h0111, &h94F1)
loadaddr(&h0113, &h03)
loadaddr(&h0114, &hFCFA)
loadaddr(&h0116, &h9402)
loadaddr(&h0118, &h90EA)
loadaddr(&h011A, &h02)
loadaddr(&h011B, &hF40A)
loadaddr(&h011D, &hCAFF)
loadaddr(&h011F, &hC404)
loadaddr(&h0121, &hCAFE)
loadaddr(&h0123, &h02)
loadaddr(&h0124, &hC203)
loadaddr(&h0126, &hF203)
loadaddr(&h0128, &hCA03)
loadaddr(&h012A, &hC202)
loadaddr(&h012C, &hF202)
loadaddr(&h012E, &hCA02)
loadaddr(&h0130, &hBAFE)
loadaddr(&h0132, &h9CEF)
loadaddr(&h0134, &h02)
loadaddr(&h0135, &hC203)
loadaddr(&h0137, &hF2FF)
loadaddr(&h0139, &hCA03)
loadaddr(&h013B, &h3F)
loadaddr(&h013C, &h90BB)
loadaddr(&h013E, &hCEFF)
loadaddr(&h0140, &hC420)
loadaddr(&h0142, &h9004)
loadaddr(&h0144, &hCEFF)
loadaddr(&h0146, &hC400)
loadaddr(&h0148, &hCEFF)
loadaddr(&h014A, &hC4C4)
loadaddr(&h014C, &h33)
loadaddr(&h014D, &hCEFF)
loadaddr(&h014F, &hC401)
loadaddr(&h0151, &h37)
loadaddr(&h0152, &hCEFF)
loadaddr(&h0154, &hC402)
loadaddr(&h0156, &hCEFF)
loadaddr(&h0158, &hC204)
loadaddr(&h015A, &h1C)
loadaddr(&h015B, &h1C)
loadaddr(&h015C, &h1C)
loadaddr(&h015D, &h1C)
loadaddr(&h015E, &h02)
loadaddr(&h015F, &hF4F6)
loadaddr(&h0161, &h9404)
loadaddr(&h0163, &hF43A)
loadaddr(&h0165, &h9002)
loadaddr(&h0167, &hF440)
loadaddr(&h0169, &h3F)
loadaddr(&h016A, &hBA00)
loadaddr(&h016C, &h9806)
loadaddr(&h016E, &hC204)
loadaddr(&h0170, &hD40F)
loadaddr(&h0172, &h90EA)
loadaddr(&h0174, &hC203)
loadaddr(&h0176, &h9801)
loadaddr(&h0178, &h3F)
loadaddr(&h0179, &hC201)
loadaddr(&h017B, &h37)
loadaddr(&h017C, &hC202)
loadaddr(&h017E, &h33)
loadaddr(&h017F, &hC604)
loadaddr(&h0181, &hC601)
loadaddr(&h0183, &h3F)
loadaddr(&h0184, &h90B8)
loadaddr(&h0186, &hC408)
loadaddr(&h0188, &hCAFF)
loadaddr(&h018A, &h06)
loadaddr(&h018B, &hD420)
loadaddr(&h018D, &h9CFB)
loadaddr(&h018F, &hC457)
loadaddr(&h0191, &h8F04)
loadaddr(&h0193, &h06)
loadaddr(&h0194, &hD420)
loadaddr(&h0196, &h9CF2)
loadaddr(&h0198, &h06)
loadaddr(&h0199, &hDC01)
loadaddr(&h019B, &h07)
loadaddr(&h019C, &hC47E)
loadaddr(&h019E, &h8F08)
loadaddr(&h01A0, &h06)
loadaddr(&h01A1, &hD420)
loadaddr(&h01A3, &h9802)
loadaddr(&h01A5, &hC401)
loadaddr(&h01A7, &hCAFE)
loadaddr(&h01A9, &h1F)
loadaddr(&h01AA, &h01)
loadaddr(&h01AB, &h1D)
loadaddr(&h01AC, &h01)
loadaddr(&h01AD, &h06)
loadaddr(&h01AE, &hDC01)
loadaddr(&h01B0, &hE2FE)
loadaddr(&h01B2, &h07)
loadaddr(&h01B3, &hBAFF)
loadaddr(&h01B5, &h9CE5)
loadaddr(&h01B7, &h06)
loadaddr(&h01B8, &hD4FE)
loadaddr(&h01BA, &h07)
loadaddr(&h01BB, &h8F08)
loadaddr(&h01BD, &h40)
loadaddr(&h01BE, &hD47F)
loadaddr(&h01C0, &h01)
loadaddr(&h01C1, &h40)
loadaddr(&h01C2, &h3F)
loadaddr(&h01C3, &h90C1)
loadaddr(&h01C5, &h01)
loadaddr(&h01C6, &hC4FF)
loadaddr(&h01C8, &h8F17)
loadaddr(&h01CA, &h06)
loadaddr(&h01CB, &hDC01)
loadaddr(&h01CD, &h07)
loadaddr(&h01CE, &hC409)
loadaddr(&h01D0, &hCAFF)
loadaddr(&h01D2, &hC48A)
loadaddr(&h01D4, &h8F08)
loadaddr(&h01D6, &hBAFF)
loadaddr(&h01D8, &h9810)
loadaddr(&h01DA, &h40)
loadaddr(&h01DB, &hD401)
loadaddr(&h01DD, &hCAFE)
loadaddr(&h01DF, &h01)
loadaddr(&h01E0, &h1C)
loadaddr(&h01E1, &h01)
loadaddr(&h01E2, &h06)
loadaddr(&h01E3, &hDC01)
loadaddr(&h01E5, &hE2FE)
loadaddr(&h01E7, &h07)
loadaddr(&h01E8, &h90E8)
loadaddr(&h01EA, &h06)
loadaddr(&h01EB, &hD4FE)
loadaddr(&h01ED, &h07)
loadaddr(&h01EE, &hD420)
loadaddr(&h01F0, &h9803)
loadaddr(&h01F2, &h3F)
loadaddr(&h01F3, &h90D0)
loadaddr(&h01F5, &hC400)
loadaddr(&h01F7, &h37C4)
loadaddr(&h01F9, &h3933)
loadaddr(&h01FB, &h3F)

init