comparison clojure/com/aurellem/run/bootstrap_0.clj @ 344:9366539d29b6

item layout is complete.
author Robert McIntyre <rlm@mit.edu>
date Sun, 08 Apr 2012 08:43:52 -0500
parents 652c5abee892
children 3b3cd62b6106
comparison
equal deleted inserted replaced
343:652c5abee892 344:9366539d29b6
1059 0x21 ;; load target into HL 1059 0x21 ;; load target into HL
1060 target-low 1060 target-low
1061 target-high 1061 target-high
1062 0x37 ;; (item-hack) set carry flag no-op 1062 0x37 ;; (item-hack) set carry flag no-op
1063 1063
1064 0x2F ;; (item-hack) cpl A 1064 0x00 ;; (item-hack) no-op
1065 0x2F ;; (item-hack) cpl A --together a spacer no-op 1065 0x37 ;; (item-hack) set carry flag no-op
1066 1066
1067 0x00 ;; (item-hack) no-op 1067 0x00 ;; (item-hack) no-op
1068 0xF3 ;; disable interrupts 1068 0xF3 ;; disable interrupts
1069 ;; Input Section 1069 ;; Input Section
1070 1070
1149 1149
1150 [;; jump to actual program 1150 [;; jump to actual program
1151 0x00 1151 0x00
1152 0x37 ;; (item-hack) set carry flag no-op 1152 0x37 ;; (item-hack) set carry flag no-op
1153 1153
1154 0x00 1154 0x2E ;; 0x3A -> L
1155 0x21
1156
1157 0x3A 1155 0x3A
1158 0xD5 1156
1157
1158 0x00 ;; (item-hack) no-op
1159 0x26 ;; 0xD5 -> L
1160 0xD5
1161 0x01 ;; (item-hack) set-carry BC
1162
1163 0x00 ;; (item-hack) these can be anything
1164 0x00
1159 1165
1160 ;; 0x00 1166 ;; 0x00
1161 ;; 0x44 ;; H -> B 1167 ;; 0x44 ;; H -> B
1162 1168
1163 ;; 0x00 1169 ;; 0x00